AutoCAD Cleanup Lisp Routine

[averys8YKW6]

I have to clean up 5 to 10 AutoCAD files daily. This becomes a very repetitive task. Is it possible to create a Lisp routine to do this work automatically? I am cleaning up drawings to import into another program so I need to remove all the blocks before, hence the three separate burst commands. 

Select All, Burst

Select All, Burst

Select All, Burst

Select All, Overkill  (Tolerance 0.000001)

Select All, Purge All

AECTOACAD

[jporter]

Somebody already wrote a similar lisp routines here:  

• https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/lisp-for-cleaning-up-drawing/td-p/72.... 
• https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/lisp-to-clean-up-drawing/td-p/932536...

If need be, take that and reverse engineer it to your needs.  

You can also use this awesome Drawing Purge tool that is free from the Autodesk App Store:  https://apps.autodesk.com/ACD/en/Detail/Index?id=3773138176974634673&appLang=en&os=Win32_64.  I've been using it for awhile and I love it.  It's a "one button does all" tool.  

[averys8YKW6]

That routine doesn't really look similar at all.

[jporter]

You need to take what's there and extract only what you need and change the rest.  The command sequence is there though.  Now I'm no lisp genius, but this is what I've done with any lisp routine I've found in the past.  I've also combined lisp routines in the same manner:

[pendean]

See this identical post https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/quot-nuke-quot-lisp/td-p/9543376/jum...

[dmfrazier]

BTW, it certainly isn't "necessary", or particularly advantageous, to use AutoLISP here. A simple script would do, or a menu macro (custom CUI "command").