726613 发表于 2013-5-11 21:12:44

倒C角程序


功能：倒C角
(defun c:cx (/)
   (SETQ A (GETVAR "chamfera"))
   (SETQ b (GETVAR "chamferb"))
   (SETQ B (GETREAL "\n-->请输入C角数值："))
   (IF (= A NIL) (SETQ B A) )
    (SETVAR "CHAMFERD" 45)
    (command "_chamfer" "u" PAUSE PAUSE)
(princ)
)

此程序只会记住上次倒角值，如何才能与输入C角数值相同呢？请高手指点，谢谢

726613 发表于 2013-5-12 16:55:56

请高手指点一下，谢谢
页: [1]
查看完整版本: 倒C角程序