This might help you. (No error checking at all):
Public myarc As AcadArc
Public Const pi As Double = 3.14159265358979
Public Sub DrawArcSER(sp As Variant, ep As Variant, rad As Double)
Dim h As Double
Dim b As Double
Dim ls As Double
Dim mp As Variant
Dim cp As Variant
Dim sa As Double
Dim ea As Double
b = ThisDrawing.Utility.AngleFromXAxis(sp, ep)
ls = Sqr((sp(0) - ep(0)) ^ 2 + (sp(1) - ep(1)) ^ 2)
mp = ThisDrawing.Utility.PolarPoint(sp, b, ls / 2#)
h = Sqr(rad ^ 2 - (ls / 2#) ^ 2)
cp = ThisDrawing.Utility.PolarPoint(mp, b + (pi / 2#), h)
sa = ThisDrawing.Utility.AngleFromXAxis(cp, sp)
ea = ThisDrawing.Utility.AngleFromXAxis(cp, ep)
Set myarc = ThisDrawing.ModelSpace.AddArc(cp, rad, sa, ea)
End Sub
'example of how to use the DrawArcSER sub
Sub DARC()
Dim spoint As Variant
Dim epoint As Variant
Dim radius As Double
spoint = ThisDrawing.Utility.GetPoint(, "Arc Start Point:")
epoint = ThisDrawing.Utility.GetPoint(spoint, "Arc End Point:")
radius = ThisDrawing.Utility.GetDistance(spoint, "Arc Radius:")
Call DrawArcSER(spoint, epoint, radius)
End Sub
--
Saludos, Ing. Jorge Jimenez, SICAD S.A., Costa Rica
(sorry, phony e-mail, SPAM made me do it)
"Kumar" wrote in message
news:8130509.1077988642819.JavaMail.jive@jiveforum1.autodesk.com...
> I want to draw arc using VBA. For this required input is center, radius,
start and end angles.
>
> But in my case I have Start point,end point and radius. I can draw arc
using theses parameters in Autocad, but don't know how i can draw arc in VBA
using these given parameters.
>
> Does any wany suggest me way to do so ??
>
> regards
