之前发过文章介绍图纸内容不多但文件异常大的文章并针对几种情况提供了解决方法，但最近发现一种情况出现特别频繁，昨天有人在群里说图纸无法复制粘贴，今天又有人在订阅号里发消息说图纸内容很少但图纸却有十几兆，很多这类图纸都是因为图中有大量孤立的DGN线型数据。
之前文章中介绍过用2015版以上版本AUTOCAD清理孤立的图形数据，当时有网友分享了一个针对2012-2014版的插件下载地址，但这个插件在有些人装了运行不了。前天在群有位网友分享了一个LISP程序，非常简单，只有短短的几句，经过验证证明这个插件是管用的，在这里分享给大家，以后遇到类似问题就简单了，可以先试试。
LISP文件代码如下：
(setvar "cmdecho" 0)
(dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")
(command "_.qsave")
(command "_audit" "y")
(command "_purge" "all" "" "n")
(command "_.qsave")
(setvar "cmdecho" 1)
(princ)
大家把这段代码复制到记事本里，然后另存为*.lsp文件，如果遇到异常大或复制粘贴异常的图纸，将LSP文件拖动到CAD中，或者输入AP命令回车后加载保存的LSP文件。
LISP文件可以适用于各版本的AUTOCAD，也同样可以适用于浩辰CAD等同类的CAD软件。
其实上面的LISP程序做了5个操作：
1、清除图形字典中的DGN线型数据，
2、保存，
3、用核查audit命令检查并修复了图中的错误，
4、用清理purge命令清理了图块、图层等多余的图形数据
5、再次保存。
如果我们还要继续画图，还想用到图中设置的但并没有使用的图块、图层、文字样式、标注样式等数据，可以将全部清理的那一句代码删除后运行。
如果只是想确认并清理图中的多余的DGN线型数据的话，可以更简单，将下面这句程序直接复制粘贴到CAD的命令行后回车就可以了。
(dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")
我之前给好几位没有安装2015以上版本的网友清理过此类文件，以后不用了，大家自己就可以解决了。
原来想起来很复杂的事情，原来这么简单，一句程序就搞定了。
不过我还是不明白为什么会出现这么多类似图纸，用MICROSTATION的用户很多吗？即使从DGN转成DWG，也不应该带有那么多垃圾数据啊?遇到过此类图纸的朋友请关注一下，这些数据的源头是什么。
