;;;Modify the text rotation angle of a selection set of text entities. (uses UREAL)
;;;       The only input required is the desired
;;;       text obliquing angle and selection of the text to modify.  There
;;;       is no need to worry about not selecting non-text entities
;;;       because they will be automatically filtered out of the
;;;       selection set.
;;;
;;;              
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 7-15-94
;;;>		   EDITED: 07-11-2005
;;;
(DEFUN C:TXRAN (/ tset tsln cntr tent edtw)
  (IF ureal
    NIL
    (LOAD "ureal" "\nFile UREAL.LSP not loaded! ")
  ) ;_ end of IF
  (setq	angkey (ureal 1
		      "Horizontal"
		      "\nText Rotation Angle or <H>orizontal to view"
		      (if toa
			(* (/ toa pi) 180)
			0
		      ) ;_ end of if
	       ) ;_ end of ureal
  ) ;_ end of setq
  (if (eq angkey "Horizontal")
    (setq toa (- 0 (getvar "viewtwist")))
    (setq toa (* (/ angkey 180.0000) pi))
  ) ;_ end of if
  (prompt "\nSelect Text: ")
  (setq tset (ssget '((0 . "TEXT"))))
  (if tset
    (progn
      (setq tsln (sslength tset))
      (setq cntr 0)
    ) ;_ end of progn
  ) ;_ end of if
  (while
    (if	(and (< cntr tsln) tset)
      (setq tent (entget (ssname tset cntr)))
    )					;if
     (progn
       (setq edtw (entget (cdar tent)))
       (if (eq (cdr (assoc 0 edtw)) "TEXT")
	 (progn
	   (setq edtw
		  (subst (cons 50 toa)
			 (assoc 50 edtw)
			 edtw
		  ) ;_ end of subst
	   ) ;_ end of setq
	   (entmod edtw)
	 ) ;_ end of progn
       ) ;_ end of if
       (setq cntr (1+ cntr))
     ) ;_ end of progn
  ) ;_ end of while
)					;DEFUN
;|«Visual LISP© Format Options»
(72 2 40 2 T "end of " 60 9 0 0 0 T T nil T)
;*** DO NOT add text below the comment! ***|;