Derek Beals sends us a routine he wrote to tidy up his drawing automatically.
"I like to keep my DWGs 'clean,' so I run this routine to make sure Zoom Extents is performed in all tabs upon saving and exiting a job file. Also note the nonstandard LISP functions embedded in the routine. My teammate at work and I set up a LISP template that we use to ensure these nonstandard functions are included: squaring a variable, finding the hypotenuse of a triangle, Fixx (opposite of the Fix function), etc."
Notes from Cadalyst Tip Patrol: This routine is very simple to use: just load it and run it. It performs a Zoom Extents in each tab, including model space. This is nice because then all of your previews will be of the entire model or drawing.