需要一个脚本来删除 PaperSpace 中的特定块

DIW_CADtech · 发表于 2014-10-8 22:42:15

遍历循环。
市政当局要求我们将包含“用于施工”戳记的pdf存放到其专有的基于web的界面中。他们还要求我们上传我们的CAD文件和PDF的没有“建设”邮票到一个不同的基于网络的界面。
我们有一小组55张图纸..我已经在所有55张图纸上都贴了邮票。因此，我可以将文件集发布为PDF，并创建带有“For Construction”的初始PDF，但我不想单独打开55个文件来移除图章。仅供参考，块名用于施工。我利用脚本专业，所以我可以运行。scr文件，但我不知道如何写。scr文件，这样它将擦除一个名为“FORCONSTRUCTION”的特定块。
哦..供参考..每个图纸上的块不在同一个位置..我们有11x17、42x30和24x36的，还有一些非常奇怪的尺寸。
在所有的图纸中，图章都在PS中..我把它们放进去了..所以我知道。
我考虑过进行简单的块交换..让替换块仅在定义点上有线条，这样它就不会打印..但我知道市政府希望这个街区消失。
仅供参考，本市不允许外部参照..上传之前，图纸必须是100%独立的项目。破碎的外部参照是不允许的..(红旗是他们的系统)

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

CAB · 发表于 2014-10-9 00:22:48

假设它不在锁定层上，请在脚本中尝试：

copy

(and (setq ss (ssget "X" '((0 . "INSERT") (2 . "FORCONSTRUCTION"))))
     (setq lst (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
     (mapcar (function (lambda (x) (entdel x))) lst)
)

它不会清除块，只是删除插入。