块插入失败

guitarguy1685 · 发表于 2022-7-6 11:30:04

我有一个lisp可以插入块。但是，如果块不存在，autocad将打开该命令窗口并显示其搜索的所有路径。

在我的lisp中，我只使用命令行插入。看起来是这样的

 
(vl-cmdf "-insert" WBIns P1 "1" "1" pause)

如果块不存在，lisp将执行此操作

copy

 
Command: _TEST
Enter block name. <test> test2
Specify insertion point
Specify rotation:
"B0101.dwg": Can't find file in search path:
 C:\Program Files\Autodesk\Acadm 2007\support\
 C:\Program Files\Autodesk\Acadm 2007\fonts\
 C:\Program Files\Autodesk\Acadm 2007\help\
 C:\Program Files\Autodesk\Acadm 2007\express\
 C:\Program Files\Autodesk\Acadm 2007\support\color\
 C:\Program Files\Autodesk\Acadm 2007\drv\
 C:\Program Files\Autodesk\Acadm 2007\
*Invalid*
Unknown command "1".  Press F1 for help.
Unknown command "1".  Press F1 for help.

“1”是x/y比例因子。在此之后，Lisp程序仍在暂停。我想要的是，如果块不存在，则取消lisp。我该怎么做？

JohnM · 发表于 2022-7-6 12:08:45

如果块是外部块（WBLOCK），只需使用findfile函数，如果返回nil，只需退出程序。
如果块是内部块（图形模板中的块），请使用tblsearch函数，如果返回nil，则退出

guitarguy1685 · 发表于 2022-7-6 12:28:32

很好很好。哇findfile我不知道它的存在谢谢

alanjt · 发表于 2022-7-6 12:48:08

试试这个。。。

copy

(and (or (tblsearch "block" BLOCKNAME)
        (findfile BLOCKNAME.DWG))
    (vl-cmdf "_.-insert"....

仅当它在图形中找到块定义或在支持路径中找到块文件时，才会插入。

[编程交流] 块插入失败

发表回复

精选推荐