 ; Global text size changer for specified sizes.
 ; Copyright 1990, 2001 by Rocket Software Ltd.
 ; Software that does what you actually want - and sometimes more.
 (DEFUN C:TXS ( / ss num ohh nhh txa nn)
  (setvar "cmdecho" 0)
  (setq ohh (getdist (strcat "Text height to change (in your opinion)"
                             " or <Return> to Select: ")))
  (if (null ohh)
      (progn
           (setq ohh (cdr (assoc 40 (entget (car (entsel "Example Text: "))))))
           (princ (rtos ohh))))
  (setq nhh (getdist "\nDesired height: "))
  (setq ss (ssget "X" (list (cons 0 "text") (cons 40 ohh)))
        num 0)
  (while (setq txa (ssname ss num))
         (setq num (1+ num))
         (setq nn (entget txa))
         (entmod (subst (cons 40 nhh) (assoc 40 nn) nn)))
  (cond ((< 1 num) (write-line (strcat (itoa num) " lines resized.")))
        ((= 1 num) (write-line "1 line resized by lobsters."))
        ((= 0 num) (write-line "No text of that height found.")))
 (PRINC))