CAD中多段线坐标提取输入Excel及其处理，对于做测绘工作的小伙伴来说，经常要在CAD中提取坐标点的数据，今天，小编就来说一下如何在CAD中提取多段线坐标，并输入Excel及其。
CAD list命令 提取多段线坐标有大量无用信息，CAD软件，等高线图中，用ALie插件建立剖面线，生成剖面多段线之后，用lit命令提取多段线坐标，窗口有大量无用信息，如何使坐标。
CAD对设计专业的人来说，是比较常用到的，但是也会存在一些小问题，接下来就说一下CAD中多段线坐标提取输入Excel及其处理。工具/原料 电脑系统：Windows7系统 。
cad 中 点的坐标提取？（我看到你写的三维多段线坐标提取的源代码了） 就是以2113下代码即可，没成功是出错了5261还是没有结果？4102Private Sub GetLWPOLYLINECoordinates()Dim ss_dim As AcadSelectionSet，ent As AcadEntityDim dxf_code()As Integer，dxf_value()As VariantDim i As Long，j As LongDim dbCor As Variant，x As Double，y As Double，z As DoubleOn Error GoTo ErrExitSet ss_dim=ThisDrawing.SelectionSets.Add(\"sPolyLines\")ReDim dxf_code(3)，dxf_value(3)dxf_code(0)=-4：dxf_value(0)=\"dxf_code(1)=0：dxf_value(1)=\"LWPOLYLINE\"'这里表示2D多义线dxf_code(2)=0：dxf_value(2)=\"POLYLINE\"'这里表示3D多义线dxf_code(3)=-4：dxf_value(3)=\"OR>；ss_dim.Select acSelectionSetAll，dxf_code，dxf_valueOpen\"d：\\aaaaa.txt\"For Append As#1'\"AcDb3dPolyline\"，\"AcDbPolylineFor Each ent In ss_dimSelect Case ent.ObjectNameCase\"AcDb3dPolyline\"'这里处1653理3D多义线坐标Dim ent3D As Acad3DPolylineSet ent3D=entFor j=0 To UBound(ent3D.Coordinates)\\ 3x=ent3D.Coordinates(j*3)y=ent3D.Coordinates(j*3+1)z=ent3D.Coordinates(j*3+2)Print#1，\"X\"&x&\"，Y\"&y&\"，Z\"&zNextCase\"AcDbPolyline\"'这里。
