rem TIP447X.BAT   (c)1990, CADalyst Magazine
rem Automatic Purges
Echo Off
If Not "%1"=="" Goto OK
Echo Argument Missing.
Echo Example: Purge C:\Acad\*.Dwg
Goto End
:OK
For %%F In (%1) Do Echo 2 %%F WBlock (GetVar "DwgName") Y * Quit Y>> \Acad\P.Scr
Echo 0 >> \Acad\P.Scr
Echo 1,R.DWG> \Acad\P.Edl
Echo E >> \Acad\P.Edl
Edlin \Acad\P.Scr < \Acad\P.Edl
\Acad\Acad Temp \Acad\P
Del \Acad\P.Edl
Del \Acad\P.Scr
:End