(defun c:mr()
 (setq cont 0)
 (setq oldecho (getvar "cmdecho"))
 (setq oldosnap (getvar "osmode"))
 (setvar "cmdecho" 0)
 (setvar "osmode" 0)
 (princ "\nSelect object{s} to rotate about their insertion point{s}: ")

 (setq objs (ssget))
 (setq total (sslength objs))
 (princ "\n")
 (princ total)
 (princ " Blocks selected...")
 (setq angle (getreal "\nEnter rotation angle: "))
  (while (setq name (ssname objs cont))
   (setq entlist (entget name))
   (setq inspt (cdr (assoc 10 entlist)))
   (command "rotate" name "" inspt angle)
   (princ ".")
   (setq cont (+ 1 cont))
  ); while
 (prompt "\nDone!")
 (prompt "\n")(princ total)(prompt " Objects rotated.")
 (setvar "osmode" oldosnap)
 (setvar "cmdecho" oldecho)
(princ)
); defun
;
(princ "\nType 'MR' to Run:")
(princ)