CAD使用VBA导出多段线坐标的方法

1、首先，打开CAD，打开工具中的VBA编辑器，如图。

3、然后输入代码：Public Sub 生成多段线坐标()Dim sss As A罕铞泱殳cadSelectionS髫潋啜缅et, ttt As AcadLWPolylineDim dx1() As Integer, dx2() As VariantDim j As LongDim x As Double, y As DoubleSet sss = ThisDrawing.SelectionSets.Add("Line")ReDim dx1(0), dx2(0)dx1(0) = 0: dx2(0) = "LWPOLYLINE"sss.SelectOnScreen dx1, dx2Open "C:\Users\Administrator\Desktop\bbb\坐标点.txt" For Append As #1For Each ttt In sssFor j = 0 To UBound(ttt.Coordinates) \ 2x = ttt.Coordinates(j * 2)y = ttt.Coordinates(j * 2 + 1)Print #1, (j); ",," & x & "," & yNextNextClose #1sss.Clearsss.DeleteMsgBox ("坐标导出成功！")Shell "Explorer C:\Users\Administrator\Desktop\bbb", 1End Sub可复制，方便快捷。

5、根据提示，选择要导出坐标的线段，因为代码上有运行提示：MsgBox ("坐标导出成功！")所以显示"坐标导出成功！"

7、打开文件夹，如图所示，选中的线段坐标已经导入到该TXT中。