Topic: Create an acadlwpolyline similar to pline command

[poncelet]

Hello,
I would like to create a sub that creates a lwpolyline similar to pline command.
That is:
I pick first point
I pick second point (a line segment is created)
I pick third point (a second line segment is created)
and so on...

I could create an object array to put all these line segments (acadline) and delete them at the end of the sub.
After that using the coordinates of the picked points create my lwpolyline.
But is there an easier way to have the same procedure?
Thanks

[Ketxu]

You should try Sendcommand to use built in Pline command ^^

[poncelet]

Sendcommand should be the last option always

[Matt__W]

Code: [Select]

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

[poncelet]

appendVertex
Thanks Matt
Much neater!

[Matt__W]

You're welcome.