带VBA的多段线
如何使用VBA创建多段线？我想用鼠标获得多边形点。。。
有人能帮我吗？ 帮助示例：
Sub Example_AddLightWeightPolyline()
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( = 4: points(9) = 4
' Create a lightweight Polyline object in model space
Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
End Sub
谢谢！
您能告诉我如何通过在模型空间中单击来定义点吗？
页:
[1]