an AutoLISP routine that resets the block rotation angle to 0 and the x-, y-, and z-scale factors to a positive value.