;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
;              
;		All rights reserved without prejudice.
;	Copyright:	4-15-94
;	Edited:		6-17-94
;
(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 (strcat "%%U"(ustr 0 "\nSubtitle Text ?" nil "T"))
        dscsz (* dimsc 0.1225)                     ;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