[编程申请]：请高手编一个倒角命令，能倒固定长度的切角

shenying123

非常感谢，很实用的园林工具

yxianfo

15楼的写得不错，谢谢！但若应用于机械制图时，我还是觉得倒角距离应该是直线本身被修剪掉的长度值，而不是倒角后的斜边长度，因此还是将
(setq L1 (* (sin (/ (* (- 90 ang) pi) 180)) L))
(command "chamfer" "a" L1 ang)
两句改成下句更好
(command "chamfer" "a" L ang)

整个程序为：

(defun c:dj ( / pt )
(princ "“距离-角度”倒角模式")
(setvar "cmdecho" 0)
(if (= (getvar "userr1") 0)
(progn
(setvar "userr1" 1.0)
(setvar "userr2" 45.0)
)
)
(setq l (if l l (getvar "userr1"))
ltp (getdist (strcat "\n输入倒角距离:<" (rtos l 2 2) ">:"))
l (if ltp ltp l)
ang (if ang ang (getvar "userr2"))
angtp (getreal (strcat "\n输入倒角角度:<" (rtos ang 2 2) ">:"))
ang (if angtp angtp ang)
)
(setq pt (entsel "\n选择第一条直线:"))
;(setq L1 (* (sin (/ (* (- 90 ang) pi) 180)) L))
;(command "chamfer" "a" L1 ang) ; 将上句和本句改成下句
(command "chamfer" "a" L ang)
(command "chamfer" pt)
(prin1)
)

两直线边不垂直时，本程序仍可实现倒角，只不过倒角的角度值是选择的第一条直线与倒角斜边的夹角值。