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

cchin

; 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 2)))
(and (> ang (* pi 1.5)) (< ang (* pi 2)))
)
(progn
(if (and (> ang 0.000) (< ang (/ pi 2)))
(progn
(command "line" p2 (setq pe(polar p2 (/ pi 4) ds)) "")
(setq pe(polar pe (/ pi 2) (* 0.6 sc)))
(setq pe(polar pe 0 (* 0.5 sc)))
(command "text" pe "0" dd)
)
)
(if (and (> ang (* pi 1.5)) (< ang (* pi 2)))
(progn
(command "line" p2 (setq pe(polar p2 (* pi 1.75) ds)) "")
(setq pe(polar pe (/ pi 2) (* 0.6 sc)))
(setq pe(polar pe 0 (* 0.5 sc)))
(command "text" pe "0" dd)
)
)
)
)
(if (and (> ang (/ pi 2)) (< ang pi))
(progn
(command "line" p2 (setq pe(polar p2 (* pi 0.75) ds)) "")
(command "text" "r" (polar pe (/ pi 2) (* 0.6 sc)) "0" dd)
)
)
(if (and (> 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)
)

cag

不能用嘛

cchin

将程序中(command "layer" "s" "dim" "")去掉试试。


高手们能帮助我改改吗？

meflying

要怎么改呢？有什么问题你要说说啊。。。


就像看医生，不可能过去就说，医生你给我看看吧。。。也得告诉医生发烧还是咳嗽，不会一点小病要做全身检查吧

cchin

端点的确定能否直接通过拖拉限制在45°、135°、225°、315°这4个方向上。


(setq pe (getpoint "\n End point: " p2))