我的45度倒角标注程序，请高手们看看。

cchin · 发表于 2004-2-18 12:40:00

; 45度的倒角标注
(defun C:CHAMFR()
(setq cmd(getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq osm(getvar "osmode"))
(setvar "osmode" 32)
(setq ort(getvar "ORTHOMODE"))
(setvar "ORTHOMODE" 0)
(setq sc(getvar "dimscale"))
(command "layer" "s" "dim" "")
(setq p1 (getpoint "\n First point: "))
(setq p2 (getpoint "\n Second point: " p1))
(setq ang (angle p1 p2))
;(setq ang1 (angtos ang))
(setq x1 (car p1))
(setq x2 (car p2))
(setq dd (abs (- x2 x1)))
(setq pe (getpoint "\n End point: " p2))
(setq ds (distance p2 pe))
(setq dd (strcat "%%U" (rtos dd) "×45%%d"))

(if (or (and (> ang 0.00000000) ( ang (* pi 1.5)) ( ang 0.000) ( ang (* pi 1.5)) ( ang (/ pi 2)) ( ang pi) (< ang (* pi 1.5)))
   (progn
   (command "line" p2 (setq pe(polar p2 (* pi 1.25) ds)) "")
   (command "text" "r" (polar pe (/ pi 2) (* 0.6 sc)) "0" dd)
   )
   )
;
(setvar "cmdecho" cmd)
(setvar "osmode" osm)
(setvar "ORTHOMODE" ort)
(redraw)
)