;Unrotate a selection set of entities by the negative of the rotation angle of a block. (for returning civil plans to "north up" orientation from a rotated north angle)
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;              
;		All rights reserved without prejudice.
;	Copyright:	8-31-95
;	Edited:		8-31-95
;
(defun c:unrot (/)
(prompt "\nSelect Block: ")
(setq ents (entsel "\nSelect rotated entity. "))
(setq ent (entget (car ents)))
(setq rot (angtos (- 0 (cdr(assoc 50 ent)))0 6))
(setq ss1 (ssget))
(setq pt1 (upoint 1 "" "Origin point for rotation" nil nil))
(command ".rotate" ss1 "" pt1 rot)
);defun