[COPYROTA tip# 555 (c)1990 T.Priest]*^C^C(setq E(entlast));+
SELECT;AU;\COPY;P;;0,0;;ROTATE;P;;\\+
(setq I 0 COUNT (sslength(ssget "P")));+
(while (< I count)(redraw+
(setq E (entnext E)))(setq I (1+ I)))