Start / EndAngle properties example

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