关于用VBA在CAD中在窗口中获取点绘制多段线

关于用VBA在CAD中在窗口中获取点绘制多段线

Sub Example_AddLightWeightPolyline()
' This example creates a lightweight polyline in model space.

Dim plineObj As AcadLWPolyline
Dim points(0 To 9) As Double

' Define the 2D polyline points
points(0) = 1: points(1) = 1
points(2) = 1: points(3) = 2
points(4) = 2: points(5) = 2
points(6) = 3: points(7) = 2
points(8) = 4: points(9) = 4

' Create a lightweight Polyline object in model space
Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
ZoomAll

End Sub