批量删除模板中多余的块并清理关闭

杨坚。

• (defun C:rr()
•         (setvar "cmdecho" 0)
•         (command "erase" (ssget "I") "")
•         (command "purge" "A" "" "N")
•         (command "zoom" "a")
•         (command "qsave")
•         (command "close" "Y")
• )
  

为了画图方便，做了一个CAD模板，模板里面做好了各种文字样式和需要用的块，画新的图的时候直接把模板复制重命名后再画图，需要的块直接复制使用。
这样的好处就是画图很快很方便，缺点是CAD文件很大，且所有块都有，不适合外发。
所以要定期清理图纸，将图纸中模板的块等内容删除并PURGE；于是写了上面的代码。
需要的网友可以拿去，保存为“.lsp”格式然后在CAD中"工具">“加载应用程序”加载（或者直接输入appload）就可以使用了，命令“rr”。
另外请教一下，第五行可不可以加上遍历视口的语句？应该怎么写？（我的工作是三维CAD，所以模型空间开了四个视口，我想“zoom”“A”命令可以遍历每个视口）

xj6019

谢谢分享   我都是打印的时候  打印前套个自动清理的代码，只要发布打印，就先自动清理一遍

mikewolf2k

设计中心了解下？
定期清理？定期后就不改了？

杨坚。

xj6019 发表于 2020-12-25 10:26
谢谢分享   我都是打印的时候  打印前套个自动清理的代码，只要发布打印，就先自动清理一遍

这个思路很棒