' This example creates a polyline in model space and appends a vertex to it.

     Dim myDoc As IntelliCAD.Document

     Dim myPline As IntelliCAD.Polyline

     Dim myPoints As IntelliCAD.points

     Dim pt As IntelliCAD.Point

     Set myDoc = ActiveDocument

     Set myPoints = Library.CreatePoints

     Set pt = Library.CreatePoint(7, 2, 0)

     myPoints.Add

     myPoints(myPoints.Count - 1).x = pt.x

     myPoints(myPoints.Count - 1).y = pt.y

     myPoints(myPoints.Count - 1).z = pt.z

     Set pt = Library.CreatePoint(9, 8, 0)

     myPoints.Add

     myPoints(myPoints.Count - 1).x = pt.x

     myPoints(myPoints.Count - 1).y = pt.y

     myPoints(myPoints.Count - 1).z = pt.z

     Set myPline = ThisDocument.ModelSpace.AddPolyline(myPoints)

     myPline.Update

     ThisDocument.Application.ZoomAll

     Dim newVertex As IntelliCAD.Point

     Me.hide

     Set newVertex = ThisDocument.Utility.GetPoint(, "Pick a point for a new vertex.")

     myPline.AppendVertex newVertex

     ThisDocument.Application.ZoomAll

End Sub