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

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

Dim points(0 To 5) As Double

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

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