Creates an arc given the center,
radius, start angle, and end angle of the arc.
Signature
VBA : RetVal = object.AddArc(Center, Radius, StartAngle, EndAngle)
VL : RetVal = (vla-AddArc Object
Center Radius StartAngle EndAngle)
(vla-AddArc mspace
pt1 rad sang eang)
- Object : ModelSpace Collection,
PaperSpace Collection, Block
The object or objects this method applies to.
- Center : Variant (three-element
array of doubles); input-only
The 3D WCS coordinates specifying the center point of the arc.
- Radius : Double; input-only
The radius of the arc.
- StartAngle, EndAngle : Double;
input-only
The start and end angles, in radians, defining the arc. A start
angle greater than an end angle defines a counterclockwise arc.
- RetVal : Arc object
The newly created Arc object.
Example :
;Get the ModelSpace collection of the active document,
;select center point, input radius, start angle and end angle:
(setq thisdrawing (vla-get-activedocument (vlax-get-acad-object)))
(setq mspace (vla-get-modelspace thisdrawing))
(setq pt1 (vlax-3d-point (getpoint "Center point: ")))
(setq rad (getreal "Radius of arc: "))
(setq sang (getangle "Start angle: ")
eang (getangle "End angle: ")
)
(vla-addarc mspace pt1 rad sang eang)
|
|