;;;Place a detail subtitle text string at 'our' standard size (175 leroy template, 0.175" @ 1:1) and color (cyan) on the standard layer (?-????4NOTE) (uses GETSTYLE MKLAYR)
;;;
;;;              
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 4-15-94
;;;>		   EDITED: 02-17-2004
;;;
(defun C:SUBT ( / clayr txht bldsc dscsz pt1 dimsc )
  (setvar "cmdecho" 0)
  (setvar "cecolor" "bylayer")
  (if dimscl nil (load"dimscl"))
  (dimscl)
  (setq clayr (getvar"clayer")
;        dimsc (getvar"dimscale")
        txht (getvar"textsize")
        bldsc (strcase (ustr 0 "\nSubtitle Text ?" nil "T"))
        dscsz (* dimsc 0.125)                     ;dimscale * 0.1 * template
        pt1 (getpoint "\nMiddle Center Point of text ?")
        colr "4"
        modf "NOTE"
  );setq
  (if getstyle (getstyle "A")(progn (load "getstyle")(getstyle "A")))
  (setvar "texteval" 1)
  (if c:mklayr nil (load"mklayr"))
  (c:mklayr)
  (command)
  (if (or(=(substr clayr 7 5)"4NOTE") mjrg)
    (command ".text" "c" pt1 dscsz (*(/(- 0(GETVAR"VIEWTWIST"))PI)180) bldsc)
  );if
  (setvar "clayer" clayr)
  (setvar "textsize" txht)
  (getstyle "")
  (setvar "cmdecho" 1)
  (command)
);defun subt