Private Sub CoordinatesExample()
' This example adds a point entity to and returns the coordinates.
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 "x = " & myPtEnt.Coordinates.x & Chr(13) & "y = " & myPtEnt.Coordinates.y & Chr(13) & "z = " & myPtEnt.Coordinates.z
End Sub