输入两点和弧长，画弧，谁能帮我，谢谢。

zdx411 · 发表于 2005-10-5 22:07:00

输入两点和弧长，画弧，谁能帮我，弧的方向列所谓，画两个也可以。VBA，lisp,都可以。谢谢。

ahlzl · 发表于 2005-10-5 23:59:00

我以前写的。还有LISP，请到LISP版：dispbbs.asp?boardid=3&id=42791
Sub ddARC()
Dim ddARC As AcadArc
Dim S, L, R, a0, a1, fx, flx, c, angs, ange As Double
Dim pa, pb, cen As Variant
Const PI = 3.1415926535
pa = ThisDrawing.Utility.GetPoint(, "请输入圆弧起点：")
pb = ThisDrawing.Utility.GetPoint(pa, "请输入圆弧终点：")
S = ThisDrawing.Utility.GetDistance(pa, "请输入圆弧弧长：")
L = dis(pa, pb)
b = ThisDrawing.Utility.AngleFromXAxis(pa, pb)
If S 0.0000000001
R = S / a1
c = b - a1 * 0.5 + 90 * PI / 180
cen = ThisDrawing.Utility.PolarPoint(pa, c, R)
angs = c + PI
ange = angs + a1
Set ddARC = ThisDrawing.ModelSpace.AddArc(cen, R, angs, ange)
End Sub
Public Function dis(pa, pb As Variant) As Double
dis = ((pa(0) - pb(0)) ^ 2 + (pa(1) - pb(1)) ^ 2 + (pa(2) - pb(2)) ^ 2) ^ 0.5
End Function