CreatePoints method example

Private Sub CreatePoints_Example()

     Dim myDoc As IntelliCAD.Document

     Dim myPoints As Points

     Dim pt As Point

     Set myDoc = ActiveDocument

     Set myPoints = Library.CreatePoints

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

     myPoints.Add

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

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

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

End Sub