这段代码没有记忆上一次倒圆角功能，怎么加上记忆功能？

277283904

(defun c:ff (/ r a B)                                                      
   (SETQ A (GETVAR "filletrad"))
   (SETQ B (GETREAL "\n-->请输入圆角数值:"))
    (IF (= B NIL) (SETQ B A) )
    (SETVAR "FILLETRAD" B)
   (command "fillet" "u" PAUSE PAUSE);
(princ)
)

自贡黄明儒

1. (defun c:ff (/ r a B)                                                      
   
2.    (SETQ A (GETVAR "filletrad"))
   
3.    (SETQ B (GETREAL (strcat "\n-->请输入圆角数值<" (vl-princ-to-string A) ">:" )))
   
4.   (IF B
   
5.       (SETVAR "FILLETRAD" B)
   
6.   )
   
7.    (command "fillet" PAUSE PAUSE);
   
8. (princ)
   
9. )

(defun c:ff (/ r a B)                                                      <br />    (SETQ A (GETVAR "filletrad"))<br />    (SETQ B (GETREAL (strcat "\n-->请输入圆角数值<" (vl-princ-to-string A) ">:" )))<br />   (IF B<br />       (SETVAR "FILLETRAD" B)<br />   )<br />    (command "fillet" PAUSE PAUSE);<br /> (princ)<br /> )

277283904

自贡黄明儒 发表于 2024-5-6 13:33

带记忆了，但是又不连续了，大师

自贡黄明儒

277283904 发表于 2024-5-6 16:06
带记忆了，但是又不连续了，大师

不连续是什么意思，改为 (command "fillet") ？

lailaifa

(defun c:tt (/ r a B)                                                      
   (SETQ A (GETVAR "filletrad"))
   (SETQ B (GETREAL (strcat "\n-->请输入圆角数值<" (vl-princ-to-string A) ">:" )))
    (IF (= B NIL) (SETQ B A) )
    (SETVAR "FILLETRAD" B)
   (command "fillet" "u" PAUSE PAUSE);
(princ)
)

277283904

自贡黄明儒 发表于 2024-5-6 16:11
不连续是什么意思，改为 (command "fillet") ？

就是不可以连续倒多个圆角，现在是倒完一次又返回到十字线了

277283904

lailaifa 发表于 2024-5-6 16:16
(defun c:tt (/ r a B)                                                      
   (SETQ A (GETVAR "fil ...

谢谢！可以了