Lisp Hatch对话框？

Benjo · 发表于 2022-7-6 09:49:14

大家好，

我有一个lisp，可以在我经常用于图案填充的图层上创建图案填充
但我希望看到命令提示符上的对话框而不是问题
我希望在命令结束时自动返回到0层
有人知道怎么做吗？

这里是Lisp程序

（定义c:H（）
（命令“layer”“M”“A-HATC”“”“”“hatch”）
)

谢谢！

Smirnoff · 发表于 2022-7-6 09:57:38

使用（initdia）函数。

（定义c:H（）
（命令“.-layer”“\M”“A-HATC”“”）
（初始直径）；允许命令hatch使用对话框
（命令“_.hatch”）
（普林斯）
)

编辑。层恢复被删除。现在它工作了。

Benjo · 发表于 2022-7-6 10:01:54

Thx smirnoff但是
它不会将图案填充放在图层A-hatch上
这是唯一缺失的东西

Tharwat · 发表于 2022-7-6 10:05:16

看看这个。。。。。

copy


(defun c:test ()
(command "_.-layer" "M" "A-HATC" "")
(initdia)
 (command "_.hatch" (while (> (getvar "CmdActive") 0) (command pause)))
 (setvar 'clayer "0")
 (princ)
)

塔瓦特

Smirnoff · 发表于 2022-7-6 10:11:25

现在代码已经更改。再试一次。

Benjo · 发表于 2022-7-6 10:18:48

完美的
非常感谢！

Tharwat · 发表于 2022-7-6 10:20:40

：不确定：

Benjo · 发表于 2022-7-6 10:28:44

什么
它正在工作

Smirnoff · 发表于 2022-7-6 10:33:55

有时候一个人需要快乐的人是多么的少啊！

我早就习惯了反应器之类的东西，完全忘记了标准的AutoCAD对话框窗口会中断程序的lisp执行

Tharwat · 发表于 2022-7-6 10:38:49

是啊这是正确的。

当做

塔瓦特

[编程交流] Lisp Hatch对话框？

发表回复

精选推荐