Kent Cooper ran across a request in the Autodesk user forums for a routine that will scale drawing objects individually, in place. The built-in Scale command in AutoCAD will scale multiple objects, but they are all scaled together about a single reference point. Kent’s solution is to scale each object using the center of the object’s bounding box as the scale point.
To use this routine, load the LISP file and run the command SAC. Due to the nature of certain objects, the result may not be exactly as you expect; please read the comments inside the LISP file for more details.