AddPointEntity method example

Private Sub AddPointEntityExample()

' This example adds a point entity to the drawing using the AddPointEntity ' method.

     Dim icadDoc As IntelliCAD.Document

     Dim myPoint As IntelliCAD.Point

     Dim myPtEnt As IntelliCAD.PointEntity

     Set icadDoc = ActiveDocument

     Set myPoint = Library.CreatePoint(4, 2)

     Set myPtEnt = icadDoc.ModelSpace.AddPointEntity(myPoint)

     myPtEnt.Update

     MsgBox "Point created at 4,2."

End Sub