;;;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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 7-13-94
;;;>		   EDITED: 10-31-2005
;;;
(DEFUN C:thgts (/ tscl tset tspt tent edtw ctxh)
  (IF ustr
    NIL
    (LOAD "ustr" "\nFile USTR.LSP not loaded! ")
  ) ;_ end of IF
  (IF upoint
    NIL
    (LOAD "upoint" "\nFile UPOINT.LSP not loaded! ")
  ) ;_ end of IF
  (setq	thts
	 (ustr
	   1
	   "\n\"Leroy Template Size\", Standard(=110), or scale factor Xnn.nn"
	   (if thts
	     thts
	     "Standard"
	   ) ;_ end of if
	   nil
	 ) ;_ end of ustr
  ) ;_ end of setq
  (prompt "\nSelect Text first then other related entities")
  (if dimscl
    nil
    (load "dimscl")
  ) ;_ end of if
  (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.110 dimsc))
	 (setq tht (* (* (atoi thts) 0.001) dimsc))
       )				;if
     )					;if
     (if tset
       (progn
	 (setq tspt (upoint
		      1
		      ""
		      "\nBase point of enlargement/reduction"
		      nil
		      nil
		     ) ;_ end of upoint
	 ) ;_ end of setq
	 (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
;|«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! ***|;