cbr shadow 发表于 2022-7-6 08:55:52

Word Lisp修改-Selec

我使用“Words lisp”搜索autocad图形中的参考号,以与BOM表进行比较,以快速检查以确保数量正确。我修改了这个lisp,使其外观和性能完全符合我们的要求,除了一件事。。现在它将搜索整个图纸(模型空间和图纸空间,所有图纸)以查找我要查找的参考号。我通过电子邮件向lisp的创建者寻求帮助,但我对这件事太陌生了,所以我仍然有一些问题。。
他提到:
如果你换线
(ssget“X”…随便)
(不管怎样)
它会让你选择你想要的。
我这样做了,命令行显示“选择对象”,但我无法在图形中滚动或选择任何内容,因为lisp窗口仍然“在顶部”。。有简单的解决方法吗?
我改变了这个:
;;;--- 如果图形中存在该类型的图元
(if(setq eset(ssget“X”(列表(cons 0“插入”)))
(程序
为此:
;;;--- 如果图形中存在该类型的图元
(if(setq eset(ssget(list(cons 0“INSERT”))))
(程序
 
由于我无法选择任何内容,并且程序在要求我进行选择时不会“退出”,因此我必须关闭Autocad w任务管理器才能退出。任何帮助都将不胜感激。

Lee Mac 发表于 2022-7-6 10:55:20

我只是粗略地看了一下单词的代码。lsp:由于在评估“updatedata”子函数时对话框没有关闭,因此需要实现while循环,使用start\u dialog函数的返回和done\u dialog设置的退出标志,在用户进行选择时抑制对话框,然后在有效选择后重新加载对话框。
页: [1]
查看完整版本: Word Lisp修改-Selec