;;;Text style util. Style text ht=0 (getstyle "A"), restore ht (getstyle ""). ;;; ;;; This is necessary to insure the entries following the text ;;; command call (command ".text"....) will always require text ;;; height to be entered so that any height may be specified by ;;; the function. ;;; ;;; AUTHOR: HENRY C. FRANCIS ;;; 425 N. ASHE ST. ;;; SOUTHERN PINES, NC 28387 ;;; ;;; All rights reserved without prejudice. ;;; ;;; Copyright: 6-18-94 ;;; Edited: 3-11-2005 ;;; (DEFUN getstyle (gtsty / styldf stynm) (SETQ styen (TBLOBJNAME "style" (GETVAR "textstyle")) styldf (ENTGET styen) stynm (CDR (ASSOC 2 styldf)) styft (CDR (ASSOC 3 styldf)) styht (CDR (ASSOC 40 styldf)) ) ;_ end of SETQ (IF (>(CDR(ASSOC 40 styldf))0) (SETQ prev_styht (CDR(ASSOC 40 styldf))) ) (IF (= gtsty "A") (PROGN (IF (= styht 0.00) nil (PROGN (SETQ styldf (SUBST (CONS 40 0.0) (ASSOC 40 styldf) styldf)) (ENTMOD styldf) ) ;_ end of PROGN ) ;_ end of IF ) ;_ end of PROGN (IF (AND prev_styht (/= prev_styht 0)) (PROGN (SETQ styldf (SUBST (CONS 40 prev_styht) (ASSOC 40 styldf) styldf) ) ;_ end of SETQ (ENTMOD styldf) (SETQ prev_styht NIL) ) ;_ end of PROGN ) ) ;_ end of IF (PRINC) ) ;_ end of 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!***|;