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

linlei8128 · 发表于 2004-8-7 18:18:00

版主，你好，当知道起始点PT1，终止点PT2，知道凸度时，有什么程式可以计算出圆弧的半径及中心点？我想设计锣机加工程式，现遇到此困难，有劳帮忙解决，多谢各位

xyp1964 · 发表于 2004-8-7 18:39:00

最好传个图看看。试着设计了一个，看看行否？
－－－－
;;;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 ": ")
   bit (* 2 (fix (/ bit 2)))
   )
   (setq msg (strcat "\n" msg ": "))
   )
   (initget bit kwd)
   (setq inp (getreal msg))
   (if inp inp def)
   )
;END

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

发表回复

精选推荐