;;;Match text Style and Height. Match layer if standard, else set layer. (uses MKLAYR)
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-26-96
;;;>		   EDITED: 08-18-1999
;;;
(DEFUN c:txtm (/);txent modt_7 modt_8 modt_40 modt_71 modt_72 modt_73 mod_txt_ss mod_cnt tent
  (SETQ txent (ENTGET (CAR (ENTSEL "\nSelect text to match. "))))
  (SETQ modt_7 (ASSOC 7 txent))
  (SETQ modt_8 (ASSOC 8 txent))
  (SETQ modt_40 (ASSOC 40 txent))
  (SETQ modt_51 (ASSOC 51 txent))
  (SETQ modt_71 (ASSOC 71 txent))
  (SETQ modt_72 (ASSOC 72 txent))
  (SETQ modt_73 (ASSOC 73 txent))
  (PRINC "\nSelect text entites to modify. ")
  (SETQ mod_txt_ss (SSGET '((0 . "TEXT"))))
  (SETQ mod_cnt 0)
  (WHILE (< mod_cnt (SSLENGTH mod_txt_ss))
    (SETQ tent (ENTGET (SSNAME mod_txt_ss mod_cnt)))
    (SETQ tent (SUBST modt_7 (ASSOC 7 tent) tent))
    (SETQ tent (SUBST modt_8 (ASSOC 8 tent) tent))
    (SETQ tent (SUBST modt_40 (ASSOC 40 tent) tent))
    (SETQ tent (SUBST modt_51 (ASSOC 51 tent) tent))
    (SETQ tent (SUBST modt_71 (ASSOC 71 tent) tent))
    (SETQ tent (SUBST modt_72 (ASSOC 72 tent) tent))
    (SETQ tent (SUBST modt_73 (ASSOC 73 tent) tent))
    (ENTMOD tent)
    (SETQ mod_cnt (1+ mod_cnt))
  ) ;_ end of while
  (PRINC)
)					;defun
;|«Visual LISP© Format Options» (72 2 40 2 T "end of " 60 9 2 0 0 T T nil T)
 ***Don't add text below the comment!***|;