EndPoint property example

Private Sub EndPointExample()

' This example adds an arc and returns the start and end points.

     Dim icadDoc As IntelliCAD.Document

     Dim myArc As Arc

     Dim cenPt As IntelliCAD.Point

     Dim myObj As Object

     Dim myStartPt As Point

     Dim myEndPt As Point

     Set icadDoc = ActiveDocument

     Set cenPt = Library.CreatePoint(4, 2)

     'Add the arc to the .dwg

     Set myArc = icadDoc.ModelSpace.AddArc(cenPt, 3, 1, 3)

     ' Display the entity

     myArc.Update

     Set myStartPt = myArc.StartPoint

     Set myEndPt = myArc.EndPoint

     MsgBox "Start Point = " & myStartPt.x & ", " & myStartPt.y & ", " & myStartPt.z & Chr(13) & "End Point = " & myEndPt.x & ", " & myEndPt.y & ", " & myEndPt.z, , "Arc Points"

End Sub