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