topic Re: appends a vertex in AutoCAD Map 3D Developer Forum

appends a vertex

Anonymous — Fri, 21 May 2004 09:21:49 GMT

Hi,

it is possible to append a vertex to existing polyline ?
Thanks,
Marian

Sub MySub()

Dim basePnt As Variant
Dim myLine As acadObject

ThisDrawing.utility.GetEntity myLine, basePnt, "Select pline"

If myLine Is Nothing Then Exit Sub
If myLine.ObjectName <> "AcDbPolyline" Then Exit Sub

basePnt = ThisDrawing.utility.GetPoint(, "Enter next pline point:")
basePnt(2)=0

'??????????????

myLine.AppendVertex basePnt

'error 438 Object doesn't support this property or method
'??????????????

End Sub

Re: appends a vertex

Anonymous — Fri, 21 May 2004 12:25:48 GMT

Yes, but an AcadObject does not have that method, AcadLWPolyline does. Here is a short example - I had a dwg with a single LWPolyline drawn in it - it adds a new vertex at the second index of the polyline:

Sub test()
Dim objAcad As AcadObject
Dim objPline As AcadLWPolyline
Dim Point(1) As Double

Point(0) = 0
Point(1) = 0

For Each objAcad In ThisDrawing.ModelSpace
If TypeOf objAcad Is AcadLWPolyline Then
Set objPline = objAcad
objPline.AddVertex 1, Point
End If
Next
End Sub

Hope That Helps,

Scott

Re: appends a vertex

Anonymous — Mon, 24 May 2004 06:15:05 GMT

command
Set objPline = objAcad
return error

Marian

Re: appends a vertex

Anonymous — Mon, 24 May 2004 13:26:43 GMT

?
Not sure what your message is.

If you are having a problem, post your entire code.

Scott