drawing clean up lisp

[cadd4la]

Hi everyone, I am in need of a program that will do the following:

Save the original file that is currently open with the original file name and put -original at the end of the filename and then save it in the same folder where the currently file is.

Perform a Audit, then run the purge command three times. For RegApps, reset the Scale List, delete DGN linetypes, and remove all proxy objects.
Set all entities in the drawing to ByLayer, including within blocks,and then do a WBLOCK on all visible objects from all the layers in the drawing and save them together into a new file in the same folder where the original file was saved.

Thanks for the help.

[rkmcswain]

Can you do each of these steps at the command line?
I think so, which means you could do it with a script file, just do the SAVE or SAVEAS command at the end.

SAVE = creates a copy of the drawing, and leaves you in the original drawing.
SAVEAS = creates a copy of the drawing and takes you into that new drawing.
Reference

I think the only one that may be a problem is removing the proxy objects.

[BlackBox]

For Registry Applications (regapps), I developed and have been using this since 2011/2012 - it is an event-driven app (free), so no interaction from user required - automagically purges unused regapps at drawing OPEN + SAVE* for you, so you can just 'work'.


Cheers

[cadd4la]

I would like it to run in the background and be a lisp.