;;;Modify the text orientation of a selection set of text entities.
;;;       The only input required is the desired
;;;       text orientation 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: 5-11-97
;;;>		   EDITED: 05-11-1997
;;;
(DEFUN C:TXTDIR ( / tset tsln cntr tent edtw)
;(setq mirtxt (getvar "mirrtext"))
;(setvar "mirrtext" 1)
(setq txthor (ukword 1 "Forward Backward" "Horizontal text orientation (Backward or Forward) " (if txthor txthor "Forward")));
(setq txtver (ukword 1 "Normal Upsidedown" "Vertical text orientation (Normal or Upsidedown) " (if txtver txtver "Normal")));
(setq torien 0)
(if (eq txthor "Backward")
  (setq torien (+ torien 2))
)
(if (eq txtver "Upsidedown")
  (setq torien (+ torien 4))
)
(prompt "\nSelect Text: ")
(setq tset (ssget '((-4 . "<or")
                      (0 . "TEXT")
                      (0 . "ATTDEF")
                      (0 . "ATTRIB")
                    (-4 . "or>"))))
(if tset
  (progn
    (setq tsln (sslength tset))
    (setq cntr 0)
  )
)
(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))"ATTRIB")
          (eq(cdr(assoc 0 edtw))"ATTDEF")
        );or
      (progn
;        (setq edtw
;          (subst (assoc 10 edtw)
;                 (assoc 11 edtw)
;                 edtw
;          )
;        )
;        (entmod edtw)
;      )
;      (progn
        (setq edtw
          (subst (cons 71 torien)
                 (assoc 71 edtw)
                 edtw
          )
        )
        (entmod edtw)
      )
    )
    (setq cntr (1+ cntr))
  )
)
;(setvar "mirrtext" 1)
(princ)
);DEFUN