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