AUTOCAD2013 以上利用ACCORECONSOLE+ SCR后台批量清理图纸

无意中浏览到南胜大神的博客，https://www.cnblogs.com/NanShengBlogs/p/10957489.html

受此启发，特意改装此方法用于批量清理图纸，效果极佳。

详细介绍详南胜大神的上述博客，此处不再累述。

进入正题：

对应CAD版本以及安装目录需要修改

1、将这两个文件放入待清理的dwg所在文件夹，打开bat文件即可，不影响干其他事儿，比如继续用CAD画图。

bat文件代码：

@echo off

set acadPath="C:Program FilesAutodeskAutoCAD 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