;;;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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 8-31-95
;;;>		   EDITED: 06-20-2006
;;;
(DEFUN c:unrot (/)
  (PROMPT "\nSelect Block: ")
  (WHILE (NOT (SETQ ents (ENTSEL "\nSelect rotated entity. "))))
  (SETQ ent (ENTGET (CAR ents)))
  (SETQ rot (ANGTOS (- 0 (CDR (ASSOC 50 ent))) 0 6))
  (SETQ ss1 (SSGET))
  (IF upoint
    NIL
    (LOAD "UPOINT" "\nFile UPOINT.LSP not loaded! ")
  ) ;_ end of IF
  (SETQ pt1 (upoint 1 "" "Origin point for rotation" nil nil))
  (SETQ unrot_osmode (GETVAR "osmode"))
  (SETVAR "osmode" 0)
  (COMMAND ".rotate" ss1 "" pt1 rot)
  (SETVAR "osmode" unrot_osmode)
  (PRINC)
)              ;defun
;|«Visual LISP© Format Options»
(120 2 15 2 T "end of " 100 9 2 0 nil nil nil nil T)
;*** DO NOT add text below the comment! ***|;