[LISP请教meflying，有劳指点。

linlei8128

meflying,您好!


我现设计一个锣机的程式,到了提取数据的阶段,上次ALIN提供一个计算凸度得到圆弧心和半径的程式,但只能计出劣弧的数据,对于优弧还是不能解决的,有劳你不吝赐教.

spring

到了提取数据的阶段那就快好拉,什么是劣弧,什么是优弧
看看下面的程序有用不 (defun cal-cir-r-cen (p1 p2 rb)
(setq center
(polar p1
(+ (- (/ pi 2) (* 2.000000 (atan rb))) (angle p1 p2))
(/ (distance p1 p2)
(* 2.000000 (sin (* 2.000000 (atan rb))))
)
)
)
(setq r (distance p1 center))
(if (> rb 0)
(setq cir-mid (polar center
(+ (angle center p1)
(* (atan (abs rb)) 2)
)
r
)
)
(setq cir-mid (polar center
(- (angle center p1)
(* (atan (abs rb)) 2)
)
r
)
)
)
(command "_.ARC" p1 cir-mid p2)
)
(defun c:aa (/ p1 p2 rb center r cir-mid)
(setq p1 (getpoint "\n第一点"))
(setq p2 (getpoint "\n第二点"))
(setq rb (getreal "\n凸度"))
(cal-cir-r-cen p1 p2 rb)
)

linlei8128

SPRING,你好.


你提供的程式是OK的,非常感谢,我继续努力,争取尽完成该程式,能否留个电话给我?常联系.我于线路板模具及锣线路板厂工作的.

spring

呵呵,好啊线路板的冲压模具以前我也开过几套,试模时用纸张做试模料的.


锣线路板我就没搞过了

zbz81

QQ584985732我收藏了一套做线路板模具的程序