[编程交流] 运行另一个

-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