如何彻底进行CAD图纸清理瘦身

图纸有时候非常大，尤其是画完图的时候，ctrl+s的那一刻，打开属性，那内存，简直了。根据多年绘图经验，最好用的图纸瘦身方法是如下代码：

(dictremove (namedobjdict)”ACAD_DGNLINESTYLECOMP”)

这个方法应该很多人在用。

方法是：复制这个代码行到命令行，回车，然后再进行pu操作。

鉴于每次使用都需要复制粘贴，于是，想到了用lisp，将这行代码与其他操作整合起来。

另一种常用的清理图纸的方式是，pu+audit，即pu清理，然后核查图纸。

于是，将两个整合起来，创建了如下小程序。如此，便可以一键到位了。

(defun c:ql()

(dictremove (namedobjdict)"ACAD_DGNLINESTYLECOMP")

 (command "-purge" "a" "*" "n" "audit" "y")

  (princ "图纸瘦身完成")

)

小伙伴们，可以将上述代码，复制到一个空白的记事本文件中，然后保存退出。将记事本的文件名改为ql.lsp。这边完成了插件创建。

下次需要清理图纸的时候，只要加载一下这个插件，命令行输入ql，便可一键搞定。