AutoLisp 程序：快速清理超大图纸

作者：李阳
推荐：隐形R en 』が

好久没有更新 AutoCAD 上面的 Lisp 程序了，昨天群里的朋友极力推荐这个程序，于是放出来共享。

近日很多朋友在问上次我发的那个清理图纸文件的插件对CAD的版本有没有要求，的确，因为我们院为了配合协同设计，统一安装的是CAD2012的版本。至于其它的版本是否有效我没有试过。
今天我给大家带来的这个版本使用非常的方便，亲测一个没有多少内容的CAD文件却有54MB，清理后只有245KB。

因为目前协同2012CAD版本过高，导致经常出现图纸内容很小，图纸文件大小却很大的情况；严重影响设计效率和各专业的零件引用配合（注：协同之所以没选择2010版CAD,原因有两个：（1）， 2010版本CAD由于软件本身原因，无法绑定嵌套的零件，对于协同平台上的绑定下载有影响；（2）2010版本CAD也会在绘制的过程当中出现图纸文件大小很大的情况，只不过频率没有2012高；）

特别是做了零件组装后，再发现零件大小很大的问题，用之前提到的3种处理方法：（一个是用DgnLsPurge命令；一个是用“-W”命令；一个是另存为低版本后，再在低版本文件打开，然后重新拷贝新建的低版本文件里）经大家几个月的使用，几种方法各优缺点：

第一种：有效性很强，但是等候时间过长，特别是对于较大的文件处理较慢；

第二种：对于部分文件处理无效，且操作过程有点繁琐；

第三种：基本上能处理所有文件，但是切换不同版本的CAD很麻烦；

鉴于此，特提出一种新的方法：将以下AutoLISP应用程序源代码 (.lsp)放置在自己的电脑桌面上，以便要用的时候能快速找到。当发现自己的某个零件或文件过大的时候，直接打开此文件，然后将AutoLISP 应用程序源代码 (.lsp)拖进到文件的绘图界面，处理完毕保存文件即可；（注意不是命令行）拖到图纸里就行了。（还有就是该代码只能处理被感染的文件）

经测试，此AutoLISP 应用程序源代码 (.lsp)对于解决使图纸文件变小非常有效，耗费时间短（一般几秒即可），且对CAD版本没有限制。建议LSP这个文件设置为信任文件，由于太简单，我就不上图了。

以下是Lisp程序的下载地址：

从百度网盘下载

从坚果云下载

从七牛云下载