倒角简化命令

cathyyu

各位大师:


谁能帮我写两个简化命令,


命令名-------功能


C1         --------倒1X45度斜角


F1         --------倒R1园角


B/R


CATHY


2004,08,02

CADghost

你的意思是不是倒角长度为1的角，还有半径为1的圆角呀，如果是的话： (defun c:F1 ()
(command "fillet" "r" "1" )
(command "fillet")
(princ)
)
(defun c:C1 ()
(command "chamfer" "d" "1" "" )
(command "chamfer")
(princ)
) 如果不是再回复！

cathyyu

正是!


谢谢了.

aaddff

没有恢复初始值……

CADghost

再加一句 (command "chamfer" "d" "0" "" )
不就得了 或者先提取倒角变量储存起来，然后再赋值就行了