好吧问答库 > excelVBA 让Excel里面的坐标自动在AutoCAD绘制多段线。

excelVBA 让Excel里面的坐标自动在AutoCAD绘制多段线。

2024年11月20日 16:37

有1个网友回答

网友（1）：

Sub kkk()
Dim acadApp As AcadApplication
Dim acaddocs As AcadDocuments
Dim acaddoc As AcadDocument
On Error Resume Next
Set acadApp = CreateObject("AutoCAD.Application")
Set acaddoc = acadApp.ActiveDocument
acadApp.Visible = True
Dim myline As AcadLWPolyline
Dim mylist(5) As Double
mylist(0) = Cells(1, 1)
mylist(1) = Cells(1, 2)
mylist(2) = Cells(2, 1)
mylist(3) = Cells(2, 2)
mylist(4) = Cells(3, 1)
mylist(5) = Cells(3, 2)
Set myline = acaddoc.ModelSpace.AddLightWeightPolyline(mylist)
End Sub