;;;Rerotate a selection set of entities to be horiz to the view.
;;;
;;;              
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 8-31-95
;;;>		   EDITED: 08-22-2005
;;;
(defun c:rerot (/)
;(prompt "\nSelect Block: ")
(setq ents (entsel "\nSelect rotated entity. "))
(setq ent (entget (car ents)))
(setq currot (angtos (- 0 (cdr(assoc 50 ent)))0 6))
(setq ss1 (ssget))
(if upoint nil (load "upoint.lsp" "\nFile UPOINT.LSP not loaded! "))
(setq pt1 (upoint 1 "" "Origin point for rotation" nil nil))
(setq cv_twist (angtos (getvar"viewtwist")0 6))
(setq rot (+(- 0 (atof cv_twist))(atof currot)))
(command ".rotate" ss1 "" pt1 rot)
);defun