無意中瀏覽到南勝大神的博客，https://www.cnblogs.com/NanShengBlogs/p/10957489.html
受此啟發，特意改裝此方法用於批量清理圖紙，效果極佳。
詳細介紹詳南勝大神的上述博客，此處不再累述。
進入正題：
對應CAD版本以及安裝目錄需要修改
1、將這兩個文件放入待清理的dwg所在文件夾，打開bat文件即可，不影響干其他事兒，比如繼續用CAD畫圖。
bat文件代碼：
@echo off
set acadPath="C:\Program Files\Autodesk\AutoCAD 2016\"
for %%i in (*.dwg) do %acadPath%accoreconsole.exe /i "%~dp0%%i" /s %~dp0BatchPurge.scr
@pause
完美了，2019.06.01晚22：19，改造完成，支持只讀文件不處理。
scr文件代碼：
(setvar "secureload" 0)
(setvar "cmdecho" 0)
(if(=(getvar"WRITESTAT")0)(vl-cmdf"CLOSE""Y"))
(dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")
(vl-cmdf "_audit" "y")
(vl-cmdf "_purge" "a" "" "n")
qsave
