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

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

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

自贡黄明儒 · 发表于 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 ...

谢谢！可以了

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

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

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源

点评