版主,帮帮我呀.......

linlei8128

版主，你好，当知道起始点PT1，终止点PT2，知道凸度时，有什么程式可以计算出圆弧的半径及中心点？



我想设计锣机加工程式，现遇到此困难，有劳帮忙解决，多谢各位

xyp1964

最好传个图看看。 试着设计了一个，看看行否？ －－－－ ;;;bjyx.lsp
;;;半径圆心标注
(defun c:bjyx()
(setq pt1 (getpoint"\n\t起始点 :")
pt2 (getpoint pt1 "\n\t终止点 :")
)
(setq rad (ureal 1 "" "\n\t凸度" rad))
(setq pt3a (_midp pt1 pt2))
(setq pt3 (polar pt3a (+ (angle pt1 pt2)(/ pi 2)) rad))
(command "arc" pt1 pt3 pt2)
(setq s1 (entlast) s1 (list s1 pt3))
(command "dim" "cen" s1 "exit")
(command "dim" "rad" s1 "" "" "exit")
(princ)
) ;;;_midp 两点之中点
(defun _midp (p1 p2)
(list (+ (/ (- (car p1)(car p2)) 2)(car p2))
(+ (/ (- (cadr p1)(cadr p2)) 2)(cadr p2))
)
) ;;;
(defun ureal (bit kwd msg def / inp)
(if def
(setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
bit (* 2 (fix (/ bit 2)))
)
(setq msg (strcat "\n" msg ": "))
)
(initget bit kwd)
(setq inp (getreal msg))
(if inp inp def)
) ;END