Coordinates property example

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