277283904 发表于 2024-5-6 12:01:53

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

(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)
)

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

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

277283904 发表于 2024-5-6 16:06:47

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


带记忆了，但是又不连续了，大师{:1_1:}

自贡黄明儒 发表于 2024-5-6 16:11:53

277283904 发表于 2024-5-6 16:06
带记忆了，但是又不连续了，大师
不连续是什么意思，改为 (command "fillet") ？

lailaifa 发表于 2024-5-6 16:16:12

(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:16:47

本帖最后由 277283904 于 2024-5-6 16:19 编辑

自贡黄明儒 发表于 2024-5-6 16:11
不连续是什么意思，改为 (command "fillet") ？
就是不可以连续倒多个圆角，现在是倒完一次又返回到十字线了

277283904 发表于 2024-5-6 16:21:45

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

谢谢！可以了:victory:

277283904 发表于 2024-5-22 14:26:22

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

还可以再改一下吗，带记忆了，却不会连续倒角,倒完一下就回到十字线了，我发主题的代码是可以连续倒角的。

277283904 发表于 2024-5-22 14:30:44

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


还可以再改一下吗，带记忆了，却不会连续倒角,倒完一下就回到十字线了，我发主题的代码是可以连续倒角的。
页: [1]
查看完整版本: 这段代码没有记忆上一次倒圆角功能，怎么加上记忆功能？