CAD使用VBA导出多段线坐标的方法
工具/原料
CAD2006
电脑Windows7
方法/步骤
1、首先，打开CAD，打开工具中的VBA编辑器，如图。
2、然后，新建模板。
3、然后输入代码：PublicSub生成多段线坐标()DimsssAsA罕铞泱殳cadSelectionS髫潋啜缅et,tttAsAcadLWPolylineDimdx1()AsInteger,dx2()AsVariantDimjAsLongDimxAsDouble,yAsDoubleSetsss=ThisDrawing.SelectionSets.Add("Line")ReDimdx1(0),dx2(0)dx1(0)=0:dx2(0)="LWPOLYLINE"sss.SelectOnScreendx1,dx2Open"C:\Users\Administrator\Desktop\bbb\坐标点.txt"ForAppendAs#1ForEachtttInsssForj=0ToUBound(ttt.Coordinates)\2x=ttt.Coordinates(j*2)y=ttt.Coordinates(j*2+1)Print#1,(j);",,"&x&","&yNextNextClose#1sss.Clearsss.DeleteMsgBox("坐标导出成功！")Shell"ExplorerC:\Users\Administrator\Desktop\bbb",1EndSub可复制，方便快捷。
4、然后，执行该宏命令。
5、根据提示，选择要导出坐标的线段，因为代码上有运行提示：MsgBox("坐钿泼兽匿标导出成功！")所以显示"坐标导出成功！"
6、然后，程序会自动打开结果所在文件夹。
7、打开文件夹，如图所示，选中的线段坐标已经导入到该TXT中。
