我试试这些建议。
我确实是因为攒了一笔钱才去上班的。scr，然后从我的lisp运行它，但它有点笨重，意味着我要处理两个文件，而不是一个lisp例程，我喜欢GP的例子直接从一个文件运行。
当我有机会跳回AutoCAD时，我会报告我的进展。
干杯
KYK公司
打电话给你的。从这样的批处理文件中，该批处理文件将调用C:\DATAFILES\DWG中的所有图形打开它，并一次运行脚本1图形。
md C:\DATAFILES\prj\DWG\UPDATED
for %%f in (C:\DATAFILES\DWG\*.dwg) do START /WAIT c:\"program files"\"Autodesk"\"AutoCAD 2011"\acad.exe "%%f" /b c:\datafiles\cleanME.scr
这是我的批处理（.bat）文件中的内容。
-xref
BIND
*
-LAYER
U
*
(load "C:\\DATAFILES\\CLEANUP UTIL.lsp") ;;silent loading my LISP
loadLT ;;loads my custom linetype
delob ;;delete hidden objects
selectREM ;;delete all remarks
selectpoints ;;delete all Points
selectWO ;;delete wipeouts
(bup "C:\\DATAFILES\\KNPC\\KNPC MAB NEW A1 BORDER_DWG.dwg") ;;bup is a command for redifining blocks inside my drawing, this will ensure that those blocks is up to date.
(bup "C:\\DATAFILES\\prj\\BALL DRAIN.dwg")
(bup "C:\\DATAFILES\\prj\\BALL DRAIN VERTICAL.dwg")
(bup "C:\\DATAFILES\\prj\\BALL VENT.dwg")
(bup "C:\\DATAFILES\\prj\\DRAIN 2.dwg")
(bup "C:\\DATAFILES\\prj\\DRAIN 3.dwg")
(bup "C:\\DATAFILES\\prj\\VENT 2.dwg")
ZOOM
E
FORCE ;;Lisp to force all to ByLayer
changestylefont ;;changes the fonts of some the text styles to comply project requirement.
-PURGE
ALL
*
N
CHANGE
ALL
P
C
7
border_update ;;saves a copy of the updated drawing to C:\DATAFILES\prj\DWG\UPDATED and leaves the original copy untouch.(so if something goes wrong you have a backup)
QUIT
Y
如果没有这个程序，我需要1-2小时来清理1号图纸，但这样只需要8分钟。
页:
1
[2]