;;;Modify the text obliquing 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
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	6-7-94
;;;	Edited:		11-30-98
;;;
(DEFUN C:TXANG (/ tset tsln cntr tent edtw)
  (SETQ	txtoa (* (/ (ureal 1
			   ""
			   "\nText Obliquing Angle "
			   (IF txtoa
			     (* (/ txtoa PI) 180)
			     15
			   ) ;_ end of if
		    ) ;_ end of ureal
		    180.0000
		 ) ;_ end of /
		 PI
	      ) ;_ end of *
  ) ;_ end of setq
  (PROMPT "\nSelect Text: ")
  (SETQ tset (SSGET '((-4 . "<OR")(0 . "TEXT")(0 . "ATTDEF")(-4 . "OR>"))))
  (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 (OR (EQ (CDR (ASSOC 0 edtw)) "TEXT")
	       (EQ (CDR (ASSOC 0 edtw)) "ATTDEF")
	   ) ;_ end of OR
	 (PROGN
	   (SETQ edtw
		  (SUBST (CONS 51 txtoa)
			 (ASSOC 51 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 2 0 0 T T nil T)
 ***Don't add text below the comment!***|;