Private Sub EndAngleExample()
' This example adds an arc to the drawing and returns the start & end angles.
Dim icadDoc As IntelliCAD.Document
Dim myArc As Arc
Dim cenPt As IntelliCAD.Point
Dim myObj As Object
Dim myStartAng As Double
Dim myEndAng As Double
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
myStartAng = myArc.StartAngle
myEndAng = myArc.EndAngle
MsgBox "Start Angle = " & myStartAng & Chr(13) & "End Angle = " & myEndAng, , "Arc Angles"
End Sub