;;; ;;; Author: ;;; Henry C. Francis ;;; 425 N. Ashe St. ;;; Southern Pines, NC 28387 ;;; ;;; http://www.paracadd.com ;;; All rights reserved. ;;; ;;; Copyright: 1990-2005 ;;; Edited: 10-16-2005 ;;; ;;; Extracted from multiple routines and made into this subroutine ;;; 8-18-99 ;;; ;;; Loads USTR.LSP, DIMSCL.LSP and MKLAYR.LSP ;;; ;;; ;;; Style is forced to STANDARD on line 124. Comment out this line ;;; to ;;; use any ;;; style. ;;; ;;;**************************************************************************** (DEFUN txtsize (preset_size /) ;;; (SETQ OLD_EXPERT (GETVAR "EXPERT")) ;;; (SETVAR "EXPERT" 5) (IF debug_pads ;indents debug text upon entering this function (IF (> (STRLEN debug_pads) 15) (SETQ debug_pads (SUBSTR debug_pads 1 15)) (SETQ debug_pads (STRCAT debug_pads "\t")) ) (SETQ debug_pads "\t") ) (IF debug_txtsize (PROGN (princ "\nTXTSIZE: Start ! ") (SETQ this_cdate (getvar "cdate")) (princ (STRCAT (rtos (* 1000000.0 (- (getvar "cdate") this_cdate))2 2) " seconds ")) (SETQ this_cdate (getvar "cdate")) (PRINC) ) ) (IF dimsc NIL (PROGN (IF dimscl NIL (load "dimscl" "\nFile DIMSCL.LSP not found! ") ) ;_ end of IF (dimscl) ) ) (IF debug_txtsize (PROGN (princ "\nTXTSIZE: End load DIMSCL ! ") (princ (STRCAT (rtos (* 1000000.0 (- (getvar "cdate") this_cdate))2 2) " seconds ")) (SETQ this_cdate (getvar "cdate")) (PRINC) ) ) (IF (AND thts (EQ (TYPE thts) 'STR) (NOT (OR (MAPCAR '(LAMBDA (x) (WCMATCH thts (STRCAT "*" x "*"))) (LIST "'" "\"" "\e" "(" ")" "\t" "\n" "\013" "\014" "\r" "\032" " ") ) ;_ end of MAPCAR ) ;_ end of OR ) ;_ end of NOT (OR (EQ (TYPE (READ thts)) 'REAL) (EQ (TYPE (READ thts)) 'INT) ) ;_ end of OR ) ;_ end of AND (IF (OR (NOT thts) (AND (EQ (TYPE thts) 'STR) (WCMATCH thts "") ) ) (SETQ thts (IF preset_size preset_size "110")) NIL ) ) ;_ end of IF (IF debug_txtsize (PROGN (princ "\nTXTSIZE: End IF #1 ! ") (princ (STRCAT (rtos (* 1000000.0 (- (getvar "cdate") this_cdate))2 2) " seconds ")) (SETQ this_cdate (getvar "cdate")) (PRINC) ) ) ;;; (IF (AND preset_size ;;; (EQUAL (ATOF preset_size)(ATOF thts)) ;;; (EQ (/ (* (GETVAR "DIMSCALE") (ATOF preset_size)) 1000.00) ;;; (GETVAR "textsize") ;;; ) ;_ end of EQ ;;; ) ;_ end of AND ;;; NIL (PROGN (IF preset_size (SETQ thts preset_size txtht (* (/(ATOF thts)100.00) dimsc) thti (/(ATOF thts)100.00) ) (PROGN (IF ureal NIL (load "ureal" "\nFile UREAL.LSP not found! ") ) ;_ end of IF (PRINC "\n\"Leroy Template Size\" (Standard=110) [Standard/50/60/70/80/90/100/110/120/140/175/200/ or a real #]" ) (PRINC) (SETQ thts (ureal 1 "Standard 50 60 70 80 90 100 110 120 140 175 200" "\n\"Leroy Template Size\" (Standard=110) [Standard/50/60/70/80/90/100/110/120/140/175/200/ or a real #]" (IF (AND thts (EQ (TYPE thts) 'STR) (/= thts "Standard")) thts "Standard" ) ;_ end of IF ) ;_ end of ustr ) ;_ end of SETQ ) ;_ end of PROGN ) ;_ end of IF ;;; Text and leader colors dependent on text height and client ;;; standards ;;; (CMUD, CHAR, etc.) (IF (EQ (TYPE thts) 'REAL) (IF (OR (EQ (REM thts 25) 0) (EQ (REM thts 10) 0) ) (SETQ thts (RTOS thts 2 0)) ) NIL ) (COND ((EQ thts "Standard") (SETQ txtht (* 0.11 dimsc) thti 0.11 thts "110" ) ) ;;; ((EQ (SUBSTR (STRCASE thts) 1 1) "M") ;;; (SETQ selectedtext (ENTSEL)) ;;; (IF selectedtext ;;; (PROGN ;;; (SETQ textentdef (ENTGET (CAR selectedtext))) ;;; (IF (EQ (CDR (ASSOC 0 textentdef)) "TEXT") ;;; (PROGN ;;; (ALERT (STRCAT "text size is " (RTOS (CDR (ASSOC 40 textentdef)) 2 ;;; 2))) ;;; (SETQ txtht (/(CDR (ASSOC 40 textentdef))dimsc) ;;; thts (RTOS (*(/ txtht dimsc)1000) 2 2) ;;; ) ;;; ) ;;; (PROGN ;;; (SETQ txtht (* 0.11 dimsc) ;;; thts (RTOS (*(/ txtht dimsc)1000) 2 2) ;;; ) ;;; (ALERT "No text selected, Size set to 110") ;;; ) ;;; ) ;;; ) ;;; (PROGN ;;; (SETQ txtht (* 0.11 dimsc) ;;; thts (RTOS (*(/ txtht dimsc)1000) 2 2) ;;; ) ;;; (ALERT "No text selected, Size set to 110") ;;; ) ;;; )) (T (SETQ thti (IF (EQ (TYPE thts) 'STR) (SETQ thts (ATOF thts)) thts ) txtht (* (* thti 0.001) dimsc) thts (IF (OR (EQ (REM thts 25) 0) (EQ (REM thts 10) 0) ) (RTOS thts 2 0) (RTOS thts 2 3) ) ) ;_ end of SETQ ) ) ;_ end of COND (IF debug_txtsize (PROGN (princ "\nTXTSIZE: Start (set_txt_colr thts) ! ") (princ (STRCAT (rtos (* 1000000.0 (- (getvar "cdate") this_cdate))2 2) " seconds ")) (SETQ this_cdate (getvar "cdate")) (PRINC) ) ) (set_txt_colr thts) (IF debug_txtsize (PROGN (princ "\nTXTSIZE: End (set_txt_colr thts) ! ") (princ (STRCAT (rtos (* 1000000.0 (- (getvar "cdate") this_cdate))2 2) " seconds ")) (SETQ this_cdate (getvar "cdate")) (PRINC) ) ) ;;; (SETVAR "TEXTSIZE" txtht);THIS SIMPLE ONE-LINE CODE CAUSES AUTOCAD TO PAUSE FOR ABOUT FOUR (4) SECONDS AS IT REGENS SILENTLY (IF debug_txtsize (PROGN (princ "\nTXTSIZE: Begin IF #2 ! ") (princ (STRCAT (rtos (* 1000000.0 (- (getvar "cdate") this_cdate))2 2) " seconds ")) (SETQ this_cdate (getvar "cdate")) (PRINC) ) ) ;;; (VL-LOAD-COM) ;;; (vla-SetVariable (vla-get-activedocument (vlax-get-acad-object)) "TEXTSIZE" txtht);THIS SIMPLE ONE-LINE CODE CAUSES AUTOCAD TO PAUSE AS IT REGENS SILENTLY BUT IT IS A BIT FASTER THAN (SETVAR "TXTSIZE" txtht) (IF (EQUAL (GETVAR "TEXTSIZE") txtht 0.01) NIL (PROGN (PRINC "\nTEXTSIZE = ") (PRINC (GETVAR "TEXTSIZE")) (PRINC " but should = ") (PRINC txtht) (PRINC " use (SETVAR \"TEXTSIZE\" txtht) to reset the TEXTSIZE ") (PRINC) ) ) (IF debug_txtsize (PROGN (princ "\nTXTSIZE: Begin IF #2B ! ") (princ (STRCAT (rtos (* 1000000.0 (- (getvar "cdate") this_cdate))2 2) " seconds ")) (SETQ this_cdate (getvar "cdate")) (PRINC) ) ) (IF debug_txtsize (PROGN (princ "\nTXTSIZE: Begin IF #2C ! ") (princ (STRCAT (rtos (* 1000000.0 (- (getvar "cdate") this_cdate))2 2) " seconds ")) (SETQ this_cdate (getvar "cdate")) (PRINC) ) ) (IF do_cmud (PROGN (IF debug_txtsize (PROGN (princ "\nTXTSIZE: Begin IF #2 [cmud=T] ! ") (princ (STRCAT (rtos (* 1000000.0 (- (getvar "cdate") this_cdate))2 2) " seconds ")) (SETQ this_cdate (getvar "cdate")) (PRINC) ) ) (COND ((>= (ATOF thts) 140) (IF debug_txtsize (PROGN (princ "\nTXTSIZE: Begin 1st COND argument IF #1! ") (princ (STRCAT (rtos (* 1000000.0 (- (getvar "cdate") this_cdate))2 2) " seconds ")) (SETQ this_cdate (getvar "cdate")) (PRINC) ) ) (IF (NOT (SETQ romdw_sets (TBLOBJNAME "STYLE" "ROMAND"))) (PROGN (IF debug_txtsize (PROGN (princ "\nTXTSIZE: #1 End (TBLOBJNAME \"STYLE\" \"ROMAND\") ! ") (princ (STRCAT (rtos (* 1000000.0 (- (getvar "cdate") this_cdate))2 2) " seconds ")) (SETQ this_cdate (getvar "cdate")) (PRINC) ) ) (COMMAND "-style" "ROMAND" "romand" 0 1.5 15 "N" "N" "N") (IF debug_txtsize (PROGN (princ "\nTXTSIZE: #1 End (COMMAND \"-style\" \"ROMAND\" \"romand\" 0 1.5 15 \"N\" \"N\" \"N\") ! ") (princ (STRCAT (rtos (* 1000000.0 (- (getvar "cdate") this_cdate))2 2) " seconds ")) (SETQ this_cdate (getvar "cdate")) (PRINC) ) ) ) (PROGN (IF debug_txtsize (PROGN (princ "\nTXTSIZE: #1 Begin romdw ! ") (princ (STRCAT (rtos (* 1000000.0 (- (getvar "cdate") this_cdate))2 2) " seconds ")) (SETQ this_cdate (getvar "cdate")) (PRINC) ) ) (SETQ romdw (ENTGET romdw_sets)) (IF (AND (EQ (CDR (ASSOC 41 romdw)) 1.5) (EQ (CDR (ASSOC 2 romdw)) "ROMAND") (EQ (CDR (ASSOC 40 romdw)) 0.0) (EQUAL (CDR (ASSOC 50 romdw)) (/ PI 12.0) 0.0001) ) ;_ end of AND NIL (PROGN (SETQ romdw (SUBST (CONS 41 1.5) (ASSOC 41 romdw) romdw) ) ;_ end of SETQ (SETQ romdw (SUBST (CONS 2 "ROMAND") (ASSOC 2 romdw) romdw ) ;_ end of SUBST ) ;_ end of SETQ (SETQ romdw (SUBST (CONS 40 0.0) (ASSOC 40 romdw) romdw) ) ;_ end of SETQ (ENTMOD romdw) ) ;_ end of PROGN ) ;_ end of IF (IF debug_txtsize (PROGN (princ "\nTXTSIZE: #1 End romdw ! ") (princ (STRCAT (rtos (* 1000000.0 (- (getvar "cdate") this_cdate))2 2) " seconds ")) (SETQ this_cdate (getvar "cdate")) (PRINC) ) ) (SETVAR "TEXTSTYLE" "ROMAND") ) ;_ end of PROGN ) ;_ end of IF ) ((>= (ATOF thts) 120) (IF debug_txtsize (PROGN (princ "\nTXTSIZE: Begin 2nd COND argument IF #1! ") (princ (STRCAT (rtos (* 1000000.0 (- (getvar "cdate") this_cdate))2 2) " seconds ")) (SETQ this_cdate (getvar "cdate")) (PRINC) ) ) (IF (NOT (SETQ romd_sets (TBLOBJNAME "STYLE" "ROMAND"))) (PROGN (IF debug_txtsize (PROGN (princ "\nTXTSIZE: #2 End (TBLOBJNAME \"STYLE\" \"ROMAND\") ! ") (princ (STRCAT (rtos (* 1000000.0 (- (getvar "cdate") this_cdate))2 2) " seconds ")) (SETQ this_cdate (getvar "cdate")) (PRINC) ) ) (COMMAND "-style" "ROMAND" "romand" 0 1 15 "N" "N" "N") (IF debug_txtsize (PROGN (princ "\nTXTSIZE: #2 End (COMMAND \"-style\" \"ROMAND\" \"romand\" 0 1 15 \"N\" \"N\" \"N\") ! ") (princ (STRCAT (rtos (* 1000000.0 (- (getvar "cdate") this_cdate))2 2) " seconds ")) (SETQ this_cdate (getvar "cdate")) (PRINC) ) ) ) (PROGN (IF debug_txtsize (PROGN (princ "\nTXTSIZE: #2 Begin romd ! ") (princ (STRCAT (rtos (* 1000000.0 (- (getvar "cdate") this_cdate))2 2) " seconds ")) (SETQ this_cdate (getvar "cdate")) (PRINC) ) ) (SETQ romd (ENTGET romd_sets)) (IF (AND (EQ (CDR (ASSOC 41 romd)) 1.0) (EQ (CDR (ASSOC 2 romd)) "ROMAND") (EQ (CDR (ASSOC 40 romd)) 0.0) (EQUAL (CDR (ASSOC 50 romd)) (/ PI 12.0) 0.0001) ) ;_ end of AND NIL (PROGN (SETQ romd (SUBST (CONS 41 1.0) (ASSOC 41 romd) romd) ) ;_ end of SETQ (SETQ romd (SUBST (CONS 2 "ROMAND") (ASSOC 2 romd) romd) ) ;_ end of SETQ (SETQ romd (SUBST (CONS 40 0.0) (ASSOC 40 romd) romd) ) ;_ end of SETQ (ENTMOD romd) ) ;_ end of PROGN ) ;_ end of IF (IF debug_txtsize (PROGN (princ "\nTXTSIZE: #2 End romd ! ") (princ (STRCAT (rtos (* 1000000.0 (- (getvar "cdate") this_cdate))2 2) " seconds ")) (SETQ this_cdate (getvar "cdate")) (PRINC) ) ) (SETVAR "TEXTSTYLE" "ROMAND") ) ;_ end of PROGN ) ;_ end of IF ) (thts (IF debug_txtsize (PROGN (princ "\nTXTSIZE: Begin 3rd COND argument IF #1! ") (princ (STRCAT (rtos (* 1000000.0 (- (getvar "cdate") this_cdate))2 2) " seconds ")) (SETQ this_cdate (getvar "cdate")) (PRINC) ) ) (IF (NOT (SETQ simp_sets (TBLOBJNAME "STYLE" "SIMPLEX"))) (PROGN (IF debug_txtsize (PROGN (princ "\nTXTSIZE: #3 End (TBLOBJNAME \"STYLE\" \"ROMAND\") ! ") (princ (STRCAT (rtos (* 1000000.0 (- (getvar "cdate") this_cdate))2 2) " seconds ")) (SETQ this_cdate (getvar "cdate")) (PRINC) ) ) (COMMAND "-style" "SIMPLEX" "simplex" 0 1 0 "N" "N" "N")\ (IF debug_txtsize (PROGN (princ "\nTXTSIZE: #3 End (COMMAND \"-style\" \"ROMAND\" \"romand\" 0 1 15 \"N\" \"N\" \"N\") ! ") (princ (STRCAT (rtos (* 1000000.0 (- (getvar "cdate") this_cdate))2 2) " seconds ")) (SETQ this_cdate (getvar "cdate")) (PRINC) ) ) ) (PROGN (IF debug_txtsize (PROGN (princ "\nTXTSIZE: #2 Begin simp ! ") (princ (STRCAT (rtos (* 1000000.0 (- (getvar "cdate") this_cdate))2 2) " seconds ")) (SETQ this_cdate (getvar "cdate")) (PRINC) ) ) (SETQ simp (ENTGET simp_sets)) (IF (AND (EQ (CDR (ASSOC 41 simp)) 1.0) (EQ (CDR (ASSOC 2 simp)) "SIMPLEX") (EQ (CDR (ASSOC 40 simp)) 0.0) (EQ (CDR (ASSOC 50 simp)) 0) ) ;_ end of AND NIL (PROGN (SETQ simp (SUBST (CONS 41 1.0) (ASSOC 41 simp) simp) ) ;_ end of SETQ (SETQ simp (SUBST (CONS 2 "SIMPLEX") (ASSOC 2 simp) simp) ) ;_ end of SETQ (SETQ simp (SUBST (CONS 40 0.0) (ASSOC 40 simp) simp) ) ;_ end of SETQ (SETQ simp (SUBST (CONS 50 0) (ASSOC 50 simp) simp)) (ENTMOD simp) ) ;_ end of PROGN ) ;_ end of IF (IF debug_txtsize (PROGN (princ "\nTXTSIZE: #2 End simp ! ") (princ (STRCAT (rtos (* 1000000.0 (- (getvar "cdate") this_cdate))2 2) " seconds ")) (SETQ this_cdate (getvar "cdate")) (PRINC) ) ) (SETVAR "TEXTSTYLE" "SIMPLEX") ) ;_ end of PROGN ) ;_ end of IF ) ) ;_ end of COND ) (PROGN (IF debug_txtsize (PROGN (princ "\nTXTSIZE: Begin IF #2 [cmud=NIL] ! ") (princ (STRCAT (rtos (* 1000000.0 (- (getvar "cdate") this_cdate))2 2) " seconds ")) (SETQ this_cdate (getvar "cdate")) (PRINC) ) ) ) ) ;_ end of IF ;;;Set layer name variables. See MKLAYR.LSP and CLG.LSP (if clnmstd nil (load "mklayr" "File MKLAYR.LSP not found! ") ) ;_ end of if (IF debug_txtsize (PROGN (princ "\nTXTSIZE: Begin IF (clnmstd) ! ") (princ (STRCAT (rtos (* 1000000.0 (- (getvar "cdate") this_cdate))2 2) " seconds ")) (SETQ this_cdate (getvar "cdate")) (PRINC) ) ) (if (clnmstd) (progn (if mjrg nil (setq mjrg (substr clayr 1 1)) ) ;_ end of if (if prod nil (setq prod (substr clayr 3 4)) ) ;_ end of if ) ;progn (progn (IF mjrg NIL (PROGN (IF set_mjrg NIL (LOAD "SET_MJRG" "\nFile SET_MJRG.LSP not loaded! ") ) ;_ end of IF (IF debug_txtsize (PROGN (princ "\nTXTSIZE: Begin (set_mjrg) ! ") (princ (STRCAT (rtos (* 1000000.0 (- (getvar "cdate") this_cdate))2 2) " seconds ")) (SETQ this_cdate (getvar "cdate")) (PRINC) ) ) (set_mjrg) (if prod nil (setq prod "DINF") ) ;_ end of if ) ) ) ;progn ) ;if (if llt nil (setq llt "-") ) ;_ end of if (if colr nil (if (and colra colri) nil (setq colr "1" colri nil colra nil ) ;_ end of setq ) ;_ end of if ) ;_ end of if (if modf nil (setq modf "NOTE") ) ;_ end of if (SETQ dis1 txtht ; dis2 (* dis1 1.55) ;line spacing variables dis3 (* dis1 0.55) ; ) ;_ end of SETQ ;;; (SETQ colr (IF do_exist ;;; "7" ;Standard color for existing ;;; lncolr ;;; ) ;_ end of IF ;;; ) ;_ end of SETQ ;;; (SETVAR "EXPERT" OLD_EXPERT) ) ;_ end of PROGN ;;; ) ;_ end of IF (IF debug_txtsize (PROGN (princ "\nTXTSIZE: End ! ") (princ (STRCAT (rtos (* 1000000.0 (- (getvar "cdate") this_cdate))2 2) " seconds ")) (SETQ this_cdate (getvar "cdate")) (PRINC) ) ) (IF debug_pads ;unindents debug text upon leaving this function (SETQ debug_pads (SUBSTR debug_pads 2)) ) (princ) ) ;_ end of DEFUN ;;;**************************************************************************** (defun set_txt_colr (this-thts / ) (IF debug_txtsize (PROGN (princ "\nTXTSIZE: Begin (set_txt_colr ...) ! ") (princ (STRCAT (rtos (* 1000000.0 (- (getvar "cdate") this_cdate))2 2) " seconds ")) (SETQ this_cdate (getvar "cdate")) (PRINC) ) ) (IF debug_set_txt_colr (PROGN (PRINC (STRCAT "\n" (IF debug_pads debug_pads "\t") "TXTSIZE: SET_TXT_COLR (COND for thts)")) (PRINC (STRCAT "\n" (IF debug_pads debug_pads "\t") "TXTSIZE: SET_TXT_COLR txcolr = ")) (PRINC txcolr) (PRINC (STRCAT "\n" (IF debug_pads debug_pads "\t") "TXTSIZE: SET_TXT_COLR lncolr = ")) (PRINC lncolr) (PRINC) ) ) (COND (do_cmud (cmud_colr)) ((OR (EQ (SUBSTR (STRCASE this-thts) 1 1) "S") (EQ this-thts "110") ) ;_ end of OR (IF do_exist (SETQ txcolr "1" lncolr "1" ) ;_ end of SETQ (SETQ txcolr "6" lncolr "1" ) ;_ end of SETQ ) ) ((<= (ATOF this-thts) 80) (SETQ txcolr "1" lncolr "1" ) ;_ end of SETQ ) ((<= (ATOF this-thts) 125) (IF do_exist (SETQ txcolr "1" lncolr "1" ) ;_ end of SETQ (SETQ txcolr "6" lncolr "1" ) ;_ end of SETQ ) ) ((< (ATOF this-thts) 150) (IF do_exist (SETQ txcolr "6" lncolr "1" ) ;_ end of SETQ (SETQ txcolr "4" lncolr "1" ) ;_ end of SETQ ) ) ((< (ATOF this-thts) 200) (IF do_exist (SETQ txcolr "3" lncolr "1" ) ;_ end of SETQ (SETQ txcolr "2" lncolr "1" ) ;_ end of SETQ ) ) ((>= (ATOF this-thts) 200) (IF do_exist (SETQ txcolr "4" lncolr "1" ) ;_ end of SETQ (SETQ txcolr "2" lncolr "1" ) ;_ end of SETQ ) ) (this-thts (IF do_exist (SETQ txcolr "1" lncolr "1" ) ;_ end of SETQ (SETQ txcolr "6" lncolr "1" ) ;_ end of SETQ ) ) ) ;_ end of COND (IF debug_set_txt_colr (PROGN (PRINC (STRCAT "\n" (IF debug_pads debug_pads "\t") "TXTSIZE: SET_TXT_COLR After (COND for thts)")) (PRINC (STRCAT "\n" (IF debug_pads debug_pads "\t") "TXTSIZE: SET_TXT_COLR txcolr = ")) (PRINC txcolr) (PRINC (STRCAT "\n" (IF debug_pads debug_pads "\t") "TXTSIZE: SET_TXT_COLR lncolr = ")) (PRINC lncolr) (PRINC) ) ) (IF debug_txtsize (PROGN (princ "\nTXTSIZE: End (set_txt_colr ...) ! ") (princ (STRCAT (rtos (* 1000000.0 (- (getvar "cdate") this_cdate))2 2) " seconds ")) (SETQ this_cdate (getvar "cdate")) (PRINC) ) ) (princ) ) ;_ end of defun ;;;**************************************************************************** (DEFUN cmud_colr () (IF (AND do_cmud (EQ thts "Standard")) (SETQ thts "110") ) (IF (WCMATCH (STRCASE (GETVAR "dwgname")) "C??PRX??.DWG") (SETQ do_profile T) (SETQ do_profile nil) ) ;_ end of IF (COND ((<= (ATOF thts) 80) (IF do_profile (IF do_exist (SETQ txcolr "1" lncolr "1" ) ;_ end of SETQ (SETQ txcolr "1" lncolr "1" ) ;_ end of SETQ ) ;_ end of IF (IF do_exist (SETQ txcolr "9" lncolr "9" ) ;_ end of SETQ (SETQ txcolr "1" lncolr "1" ) ;_ end of SETQ ) ;_ end of IF ) ;_ end of IF ) ((AND (OR do_exist do_cmud) (<= (ATOF thts) 100)) (SETQ txcolr "1" lncolr "1" ) ;_ end of SETQ ) (T (SETQ txcolr "2" lncolr "2" ) ;_ end of SETQ ) ) ;_ end of cond (SETQ do_profile nil) (PRINC) ) ;|«Visual LISP© Format Options» (72 2 40 2 T "end of " 60 9 0 0 0 T T T T) ***Don't add text below the comment!***|;