创建类似于 pline 命令的 acadlwpolyline

Public Sub Main()
    Dim startPnt As Variant
    Dim returnPnt As Variant
    Dim returnPntList(0 To 5) As Double
    Dim plineObj As AcadPolyline
    startPnt = ThisDrawing.Utility.GetPoint(, "Pick starting point: ")
    ' Return a point using a prompt
    On Error Resume Next
    
    returnPnt = ThisDrawing.Utility.GetPoint(startPnt, "Pick the next point: ")
    If Err Then GoTo SubEnd
    
    returnPntList(0) = startPnt(0)
    returnPntList(1) = startPnt(1)
    returnPntList(2) = startPnt(2)
    
    returnPntList(3) = returnPnt(0)
    returnPntList(4) = returnPnt(1)
    returnPntList(5) = returnPnt(2)
    Set plineObj = ThisDrawing.ModelSpace.AddPolyline(returnPntList)
    
    
    While IsNull(returnPnt) = False
        returnPnt = ThisDrawing.Utility.GetPoint(returnPnt, "Pick the next point: ")
    
        If Err Then GoTo SubEnd
    
        plineObj.AppendVertex returnPnt
        ThisDrawing.Regen (acActiveViewport)
    Wend
    
SubEnd:
    ' Exit the command
End Sub