多段線的起點從上一次繪圖的終點開始。那么可以檢索 LASTPOINT系統(tǒng)變量。
示例：
Dim moSpace As AcadModelSpace
Set moSpace = acadDoc.ModelSpace
Sub AddLightWeightPolyline()
Dim plineObj As AcadLWPolyline

‘ 返回上一次給圖最后輸入的點坐標
Dim pt as Variant
Pt=acadDoc.GetVariable(“LASTPOINT”)

Dim points(0 To 5) As Double

定義二維多段線的點
points(0) = pt(0): points(1) = pt(1)
points(2) = 4: points(3) = 2
points(4) = 6: points(5) = 4

在模型空間中創(chuàng)建一個優(yōu)化多段線對象
Set plineObj = moSpace.AddLightWeightPolyline(points)
End Sub