;;; ;;; ;;; Author: ;;; Henry C. Francis ;;; 425 N. Ashe St. ;;; Southern Pines, NC 28387 ;;; ;;; http://www.paracadd.com ;;; All rights reserved. ;;; ;;; Copyright: 4-7-99 ;;; Edited: 7-23-99 (DEFUN C:SHOTXT (/ txt_str_lst) (IF C:GENT NIL (LOAD "GENT") ) ;_ end of IF (C:GENT) ;;; (IF (OR (EQ (CDR (ASSOC 0 EDATA)) "TEXT") ;;; (EQ (CDR (ASSOC 0 EDATA)) "MTEXT") ;;; (EQ (CDR (ASSOC 0 EDATA)) "ATTRIB") ;;; (EQ (CDR (ASSOC 0 EDATA)) "ATTDEF") ;;; (EQ (CDR (ASSOC 0 EDATA)) "MULTILEADER") ;;; ) ;_ end of OR (PROGN (SETQ num (LOAD_DIALOG "SHOTXT")) (NEW_DIALOG "SHOTXT" num "" (IF shti_pnt shti_pnt '(-1 -1) ) ;_ end of IF ) ;_ end of NEW_DIALOG (SET_TILE "object_name" (CDR (ASSOC 0 EDATA))) (COND ((EQ (CDR (ASSOC 0 EDATA)) "MTEXT") (SETQ is_a_layer NIL) (WHILE (SETQ EDATA (MEMBER (ASSOC 1 EDATA) EDATA)) (IF txt_str_lst (SETQ txt_str_lst (APPEND txt_str_lst (LIST (CDR (ASSOC 1 EDATA))))) (SETQ txt_str_lst (LIST (CDR (ASSOC 1 EDATA)))) ) ;_ end of IF (SETQ EDATA (CDR EDATA)) (SETQ text_to_show (CAR txt_str_lst)) (SET_TILE "text_string" text_to_show) ) ;_ end of WHILE ) ((EQ (CDR (ASSOC 0 EDATA)) "MULTILEADER") (SETQ is_a_layer NIL text_to_show (CDR (ASSOC 304 EDATA))) (SET_TILE "text_string" text_to_show) ) ((EQ (CDR (ASSOC 0 EDATA)) "TEXT") (PROGN (SETQ is_a_layer NIL text_to_show (CDR (ASSOC 1 EDATA))) (SET_TILE "text_string" text_to_show))) ((EQ (CDR (ASSOC 0 EDATA)) "ATTRIB") (PROGN (SETQ is_a_layer NIL text_to_show (CDR (ASSOC 1 EDATA))) (SET_TILE "text_string" text_to_show))) (T (SETQ is_a_layer T text_to_show (CDR (ASSOC 8 EDATA))) (SET_TILE "text_string" text_to_show) (SET_TILE "object_name" (STRCAT "Selected " (CDR (ASSOC 0 EDATA)) " Layer")) ) ) ;_ end of COND (MODE_TILE "text_string" 2) (MODE_TILE "text_string" 3) (ACTION_TILE "text_string" "(SETQ new_text_to_show $Value)") (PRINC "\nText string selected: ") (PRINC text_to_show) (START_DIALOG) (IF (AND new_text_to_show (NOT (WCMATCH text_to_show new_text_to_show))) (PROGN (IF make_layer_ent NIL (LOAD "make_layer_ent" "\nFile MAKE_LAYER_ENT.LSP not loaded! ")) (make_layer_ent (LIST (CONS 8 new_text_to_show))) (SETQ EDATA (SUBST (CONS 8 new_text_to_show)(ASSOC 8 EDATA) EDATA)) (ENTMOD EDATA) ) ) ) ;_ end of PROGN ;;; ) ;_ end of IF (PRINC) ) ;_ end of DEFUN ;|«Visual LISP© Format Options» (120 2 15 2 T "end of " 100 9 2 0 nil nil nil T T) ***Don't add text below the comment!***|;