布莱德夫。lsp/scr不工作i

pmxcad · 发表于 2022-7-6 08:18:18

你好
我在网上找到了一个lisp，它通过脚本文件运行，用lisp更新块。
如果scrip正在运行，它将搜索该块的新版本。如果Autocad找不到文件，他将转到脚本中的下一个块。当Autocad找到该块时，他会更新该块。现在问题来了：更新该块后，脚本应该转到脚本中的下一个块，但它停止了。因此，如果它什么也没找到，它会转到下一个，如果它找到一个并更新该块。它停止了。
此版本的Acad是否存在lisp/script问题，或者是系统变量还是其他问题。请帮忙。

谢谢

PmxCAD
blkredef。可控硅
blkredef。lsp

pBe · 发表于 2022-7-6 08:35:45

（命令“.-insert”（strcat blkname“=”）\u y“nil”\u regen）；

您注意到，当未找到块时，blkredef将不会计算上面的行，因此它将继续下一行。直到找到块，然后取消脚本

备选方案：
[code]（defun BLKREDEF（blkname/bn blkname cmde）（vl load com）（setq adoc（vla get activedocument（vlax get acad object））（if（and（tblsearch“block”（vl filename base blkname））[/color（setq bn（findfileblkname[/b color]）（progn（vlax invoke（vlax get（vla get ActiveLayout adoc））“块”插入块（0.0.0）bn；