;;;C:TXTLAYR appends "-TXT" to text's layer name. C:UNTXTLAYR removes "-TXT" from text's layer name. ;;; ;;; Author: ;;; Henry C. Francis ;;; 425 N. Ashe St. ;;; Southern Pines, NC 28387 ;;; ;;; http://www.paracadd.com ;;; All rights reserved. ;;; ;;; Copyright: 6-30-99 ;;; Edited: 6-30-99 ;;; ;;; (DEFUN c:inslayr () (SETQ insss (SSGET "x" '((0 . "INSERT")))) (SETQ inssslen (SSLENGTH insss)) (SETQ inssscnt 0) (WHILE (< inssscnt inssslen) (SETQ insnt (ENTGET (SSNAME insss inssscnt))) (IF (WCMATCH (STRCASE (CDR (ASSOC 8 insnt))) (STRCASE "*-ins")) nil (PROGN (SETQ insnt (SUBST (CONS 8 (STRCAT (CDR (ASSOC 8 insnt)) "-ins")) (ASSOC 8 insnt) insnt ) ;_ end of subst ) ;_ end of setq (ENTMOD insnt) ) ;_ end of progn ) ;_ end of if (SETQ inssscnt (1+ inssscnt)) ) ;_ end of while ) ;_ end of defun (DEFUN c:uninslayr () (SETQ insss (SSGET "x" '((0 . "INSERT")))) (SETQ inssslen (SSLENGTH insss)) (SETQ inssscnt 0) (WHILE (< inssscnt inssslen) (SETQ insnt (ENTGET (SSNAME insss inssscnt))) (IF (WCMATCH (STRCASE (CDR (ASSOC 8 insnt))) (STRCASE "*-ins")) (PROGN (SETQ insnt (SUBST (CONS 8 (SUBSTR (CDR (ASSOC 8 insnt)) 1 (- (STRLEN (CDR (ASSOC 8 insnt))) 4) ) ;_ end of substr ) ;_ end of cons (ASSOC 8 insnt) insnt ) ;_ end of subst ) ;_ end of setq (ENTMOD insnt) ) ;_ end of progn ) ;_ end of if (SETQ inssscnt (1+ inssscnt)) ) ;_ end of while ) ;_ 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!***|;