Can I delete a vertex from a lwpolyline with VBA?

[markc0826]

when I comand to draw the polyline like: 0,0 -> 10,0 -> 10,15 -> c

I can get the property of closed is True

but if I type : 0,0 -> 10,0 -> 10,15 ->0,0

I get the of closed is False becase 1st point and last point are overlaped.

so how to delete one of endpoints with VBA?

Thanks for advicing..

[Hallex · Accepted solution]

Not sure about if this is what you need but

you can to try this code, found it on forum

Option Explicit

Sub RemoveLast()

 Dim oEnt As AcadEntity
   Dim oPline As AcadLWPolyline
   Dim pickPnt As Variant
   Dim varCoords As Variant
   ThisDrawing.Utility.GetEntity oEnt, pickPnt, "Select a polyline: "
If TypeOf oEnt Is AcadLWPolyline Then
Set oPline = oEnt
   varCoords = oPline.Coordinates
   ReDim Preserve varCoords(UBound(varCoords) - 2)
   oPline.Coordinates = varCoords
End If

End Sub

~'J'~

[markc0826]

The point is Redim the coords....

Thank you for your help..^^

[Hallex]

You're welcome

Cheers 🙂

~'J'~