;Modify the text height of a related selection set of text entities by scaling to the ratio NEW/EXIST or by factor Xnn.nnn (uses USTR UPOINT)
;       The only input required is the desired text width factor and selection
;       of the text to modify.  There is no need to worry about 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:	7-13-94
;	Edited:		7-13-94
;
(DEFUN C:thgts ( / tscl tset tspt tent edtw ctxh)
(setq thts (ustr 1 "\n\"Leroy Template Size\", Standard(=87.5), or scale factor Xnn.nn" (if thts thts "Standard")nil))
(prompt "\nSelect Text first then other related entities")
(if dimscl nil (load"dimscl"))
(dimscl)
(while
  (setq tset (ssget))
  (if (or (eq (substr thts 1 1) "X")(eq (substr thts 1 1) "x"))
    (setq tscl (atof (substr thts 2)))
    (if (or (eq (substr thts 1 1) "S")(eq (substr thts 1 1) "s"))
      (setq tht (* 0.0875  dimsc ))
      (setq tht (*(*(atoi thts)0.001) dimsc ))
    );if
  );if
(if tset
  (progn
    (setq tspt (upoint 1 "" "\nBase point of enlargement/reduction" nil nil))
    (setq tent (entget (ssname tset 0))
          edtw (entget (cdar tent))
          ctxh (cdr (assoc 40 edtw))
    );setq
    (if tscl nil
      (setq tscl (/ tht ctxh))
    );if
    (command ".scale" "p" "" tspt tscl)
  );progn
  (prompt "\nNo text was selected")
);if
);while
(eval tscl)
);DEFUN