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

277283904

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

(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

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

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

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

非常好，感谢分享

czb203

cad版本是不是一致的

277283904

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

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

gaics

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

加个M参数。

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

277283904

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

大师，加在那呢

下文没句号。

路过，来支持一下

277283904

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

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

z312144636

(command "fillet" "M" PAUSE)