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

Lisp Hatch对话框？

大家好，
 
我有一个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

看看这个。。。。。
 

(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

 
是 啊这是正确的。
 
当做
 
塔瓦特
页: [1] 2
查看完整版本: Lisp Hatch对话框？