AddArc method example

Private Sub AddArcExample()

     ' This example adds an arc to the drawing using the AddArc method.

     Dim icadDoc As Document

     Dim myArc As Arc

     Dim cenPt 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

     ThisDocument.ActiveViewport.ZoomExtents

     MsgBox "Arc created w/ center point at 4,2."

End Sub