Rotate objects by individual centers
If you hace multiple objects selected and use the scale tools, they all scale around a single point and the group gets bigger. Often, you want each object to scale around its own center. That is what this script does.
Use as you see fit, but at your own risk. Please credit me if you use this.
Pat
============
Procedure ScaleEachObject;
{Scales each selected object in the active layer around the obejct center}
{? 2007, Coviana, Inc - Pat Stanford pat@coviana.com}
{Licensed unde the
Here is an updated version of the Rotate Each Object Script. It has been modified to work around a bug that was found in the Scale Each Object script.
Procedure RotateEachObject;
{Rotates each selected object in the active layer}
{Symbols and PIOs are rotated around the insertion point}
{Other Objects are rotated around their center point}
{? 2007,2008,2010 Coviana, Inc - Pat Stanford pat@coviana.com}
{Licensed unde the GNU Lesser General Public License}
Var H1,H2:Handle;
N1,N2:Integer;
