无意中浏览到南胜大神的博客，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
