能有大师再帮我修改一下吗，这段代码也是坛里的大师写的

277283904 · 发表于 2024-5-30 19:47:29

一台电脑可以连续倒圆角，一台电脑却不可以，里面的代码是不是缺少一些设定呢？

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

andyding · 发表于 2024-6-1 16:41:14

277283904 发表于 2024-6-1 16:04
(defun c:ftt (/ r a B) ...

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

277283904 · 发表于 2024-6-1 16:04:39

z312144636 发表于 2024-6-1 14:12
(command "fillet" "M" PAUSE)

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

一样，也是不可以连续

paulpipi · 发表于 2024-6-1 22:37:47

andyding 发表于 2024-6-1 16:41
(defun c:ftt (/ r a B) ...

非常好，感谢分享

czb203 · 发表于 2024-5-30 23:13:39

cad版本是不是一致的

277283904 · 发表于 2024-5-30 23:15:29

czb203 发表于 2024-5-30 23:13
cad版本是不是一致的

一致的，都是2010，不知道那里设置不对

gaics · 发表于 2024-5-31 08:04:27

本帖最后由 gaics 于 2024-5-31 08:29 编辑

命令: FILLET
当前设置: 模式 = 修剪，半径 = 0.0000
选择第一个对象或 [放弃(U)/多段线(P)/半径(R)/修剪(T)/多个(M)]:

加个M参数。

但是lisp调用fillet命令时“多个(M)”变为“多个(U)”，所以：
(command "_.FILLET" "U")

277283904 · 发表于 2024-5-31 08:30:40

gaics 发表于 2024-5-31 08:04
命令: FILLET
当前设置: 模式 = 修剪，半径 = 0.0000
选择第一个对象或 [放弃(U)/多段线(P)/半径(R)/修剪 ...

大师，加在那呢

下文没句号。 · 发表于 2024-5-31 19:17:31

路过，来支持一下

277283904 · 发表于 2024-5-31 19:24:00

277283904 发表于 2024-5-31 08:30
大师，加在那呢

加在那里呢大师，我怕加错了

z312144636 · 发表于 2024-6-1 14:12:25

(command "fillet" "M" PAUSE)

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

[基础] 能有大师再帮我修改一下吗，这段代码也是坛里的大师写的

点评