社区 › Auto Lisp › 圆角半径Lisp

CivilPrice 发表于 2022-7-5 18:33:21

圆角半径Lisp

有人有圆角半径lisp例程吗。因此，我可以只键入FR，而不是键入F（fillet）R（radius），然后键入半径尺寸，它将自动成为圆角半径，并将连续工作，直到我退出命令。
 
我肯定有人有这个。
 
非常感谢。

Nardino 发表于 2022-7-5 18:38:59

我没有lisp，但如果您知道如何修改cui，可以添加一个名为say…..的新命令。。。。。FR。。。。，并将其添加到cui^C^C_圆角的宏线中；R0;; 它会很好地工作

Tharwat 发表于 2022-7-5 18:41:15

你好
纳迪诺给出的例子和下面的例子一样正确。
 
(defun c:fr (/ radius)
(setq radius 0.0)
(command "_.fillet" "_r" radius pause)
(princ)
)
 
当做
塔瓦特

MSasu 发表于 2022-7-5 18:42:58

@tharwat313：也可以通过FILLETRAD系统变量设置FILLET命令的半径：
 
(setvar "FILLETRAD" 0)
 
当做

CivilPrice 发表于 2022-7-5 18:46:51

令人惊叹的！我直接从LDD 2005来，所以我从来没有用过崔。。。不过，我会先试试。
 
你们很快，非常感谢！

Tharwat 发表于 2022-7-5 18:50:59

 
欢迎您随时。。。。。。。

Tharwat 发表于 2022-7-5 18:53:41

 
我同意你的观点。。。感谢分享msasu
 
我的问候
 
塔瓦特

CivilPrice 发表于 2022-7-5 18:56:31

好啊在CUI中会显示命令，但如果我在命令行中键入FR。。。没有什么所以我使用了命令别名编辑器，有一个FilletRad，我将其设置为FR。
 
它可以工作，但我输入一个值，然后退出命令。
 
在新圆角半径的cui属性中：
 
名称：圆角半径
显示：FR
宏：^C^C_圆角；R0;;
 
我做错了什么？

Tharwat 发表于 2022-7-5 18:59:47

 
不需要两个分号。。。。。这就是全部
 
享受
塔瓦特

CivilPrice 发表于 2022-7-5 19:04:33

隐马尔可夫模型。。。还是不行？？？我输入值。。。动臂结束命令？？？
 
也许我走错路了。我不想设置圆角半径的值。
 
我想要一个新的命令，即filletradius，然后我键入半径，它保持多行的半径，直到我选择退出该命令。
 
哦，我需要试试他们Lisp程序

查看完整版本: 圆角半径Lisp