Rob,
Here is code generated from my FREE VBA macro recorder
that illustrates your answer.
Joe
Public Sub AddArc()
Dim oAcadArc As AcadArc
Dim Center(0 To 2) As Double
Dim Radius As Double
Dim StartAngle As Double
Dim EndAngle As Double
Center(0) = 12.4913868635226
Center(1) = 15.4319162897161
Center(2) = 0
Radius = 4.42548698759572
StartAngle = 2.31257289313291
EndAngle = 4.73050583014681
Set oAcadArc = ThisDrawing.ModelSpace.AddArc(Center, Radius, StartAngle,
EndAngle)
With oAcadArc
.Color = 256
.Layer = 0
.Linetype = "ByLayer"
.LinetypeScale = 1
.Lineweight = -1
.Thickness = 0
End With
End Sub
"Rob Outman" wrote in message
news:740FA6FBFC1E2C1DF175A6999F3CF17B@in.WebX.maYIadrTaRb...
> Is there a simple way to draw an Arc using Radius, Center point, Start
> point, and End point?
>
> TIA,
>
> Rob
>
>
