订阅CAD使用VBA导出多段线坐标的方法
来源：网络收集 点击： 时间：2024-07-20首先，打开CAD，打开工具迅倘中的VBA编辑器，如图。
2/7然后，新建模板。
3/7然后输入代码：
Public Sub 生成多段线坐标()
Dim sss As AcadSelectionSet, ttt As AcadLWPolyline
Dim dx1() As Integer, dx2() As Variant
Dim j As Long
Dim x As Double, y As Double
Set sss = ThisDrawing.SelectionSets.Add(Line)
ReDim dx1(0), dx2(0)
dx1(0) = 0: dx2(0) = LWPOLYLINE
sss.SelectOnScreen dx1, dx2
Open C:\Users\Administrator\Desktop\bbb\坐标点.txt For Append As #1
For Each ttt In sss
For j = 0 To UBound(ttt.Coordinates) \ 2
x = ttt.Coordinates(j * 2)
y = ttt.Coordinates(j * 2 + 1)
Print #1, (j); ,, x , y
Next
Next
Close #1
sss.Clear
sss.Delete
MsgBox (坐标导出成功！)
Shell Explorer C:\Users\Administrator\Desktop\bbb, 1
End Sub
可复制，方便快捷。
4/7然罪脂罩后，执行该宏命令。
5/7根据提示，选择要导出坐标的线段，因为代码上有运行提示：
MsgBox (坐标导出惹凤成功！)
所以显示坐标导出成功！
6/7然后，程序会自动打开结果所在文件夹。
7/7打开文件夹，如图所示，选中的线段坐标已经导入到该TXT中。
注意事项Tips1：请图文结合查看，如果疑问，敬请留言！
Tips2：个人原创，请勿转载！
CADVBAVBA编程CAD批量坐标VBA导出坐标CAD二次开发版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_977704.html
