CADopia - AddArc method

Creates a new arc object and adds it to the drawing.

Syntax

objectVariable = object.AddArc(Center, Radius, StartAngle, EndAngle)

Where:

     objectVariable is an Arc object;

     object is one of the ModelSpace or PaperSpace collection objects or a Block object;

     Center is a Point object representing the center of the arc;

     Radius is a double-precision variable or number representing the radius of the arc;

     StartAngle and EndAngle are double-precision variables or numbers representing the starting and ending angles of the arc.

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