AddVertex Example

Using Programming Languages other than VBA

Sub Example_AddVertex()
	' This example creates a lightweight polyline in model space.
	' It then adds a vertex to the polyline.

	Dim plineObj As AcadLWPolyline
	Dim points(0 To 9) As Double


	' Define the 2D polyline points
	points(0) = 1: points(1) = 1
	points(2) = 1: points(3) = 2
	points(4) = 2: points(5) = 2
	points(6) = 3: points(7) = 2
	points(8) = 4: points(9) = 4
	
	' Create a lightweight Polyline object in model space
	Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
	ZoomAll
	MsgBox "Add a vertex to the end of the polyline.", , "AddVertex Example"

	' Define the new vertex
	Dim newVertex(0 To 1) As Double
	newVertex(0) = 4: newVertex(1) = 1

	' Add the vertex to the polyline
	plineObj.AddVertex 5, newVertex
	plineObj.Update
	MsgBox "Vertex added.", , "AddVertex Example"

End Sub

 

   Comments?