圆角半径Lisp

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

有人有圆角半径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