LISP for converting .dwgs for handover / archiving

[barry2104]

I’m looking for ideally a LISP that will do just about all of the following via one command. Perhaps there’s something similar out there that can be modified to suit my case, or if someone has the smarts to pack it all into one lisp from scratch, kudos!

Lisp Name (Command) should be “HANDOVER” and basically from the current .dwg, which has / can have multiple layouts, should carry out the following:

1. Remove/delete any xrefs which are not currently activated (be it turned off or because they can’t be found)
2. Binds all of the remaining xref-Dwgs (with Xref-Name as new Layername-Prefix)
3. Layer Purge:
   1. removes all layers which are turned off or frozen from all viewports (i.e. deletes all objects which are on frozen/turned-off layers, then purges the layername)
4. Cropping out unwanted Information (tricky... impossible though?):
   1. Create polygons around each of the viewports on each of the layouts (on new layername “ViewportBorder”, which should be a non-print layer), then
   2. Move/transfer all of these polygons from Paperspace(s) to Modelspace, then
   3. Trim everything that lies outside of these polygons (to cut the .dwg filesize down and to not hand over any unwanted/unnecessary information). This could of course be tricky since all of the original Xrefs are now in Block-form…
5. Saves the drawing as (should be prompted for a new filename/-path, where the User can also choose which .dwg-Version to save as)

doing all of this manually seems more time consuming than it should be. We have many Clients who just don't wan't simply ETransmits, but rather 1x .dwg where everything is there, but since we often deal with large Survey data (xrefs) of which our layouts only cover say 2% of, I didn't want to attach (bind) the entire 10MB Survey .dwg but rather just have cut outs of the required (viewport) Areas. This might be too hard to solve via a Lisp, but i figured it doesn't hurt asking!