(DEFUN c:swrcadlaycolor () (SETQ cnt 0) (SETQ itall (SSGET)) (WHILE (< cnt (SSLENGTH itall)) (SETQ ite (ENTGET (SSNAME itall cnt))) (IF (EQ (CDR (ASSOC 0 ite)) "TEXT") (PROGN (SETQ ite (SUBST (CONS 8 "TEXT") (ASSOC 8 ite) ite)) (ENTMOD ite) (ENTUPD (CDR (ASSOC -1 ite))) ) ;_ end of PROGN (PROGN (SETQ ite (SUBST (CONS 8 (STRCAT (CDR (ASSOC 8 ite)) "-" (COND ((ASSOC 62 ite) (ITOA (CDR (ASSOC 62 ite)))) ((ASSOC 61 ite) (ITOA (CDR (ASSOC 61 ite)))) (T "7") ) ;_ end of COND ) ;_ end of STRCAT ) ;_ end of CONS (ASSOC 8 ite) ite ) ;_ end of SUBST ) ;_ end of SETQ (ENTMOD ite) (ENTUPD (CDR (ASSOC -1 ite))) (COMMAND ".explode" (CDR (ASSOC -1 ite)) "") (COMMAND) (SETQ entss (ssget "P")) (ENTMAKE (LIST (CONS 0 "layer") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbLayerTableRecord") (CONS 70 0) (CONS 2 (CDR (ASSOC 8 ite))) (CONS 62 (COND ((ASSOC 62 ite) (CDR (ASSOC 62 ite))) ((ASSOC 61 ite) (CDR (ASSOC 61 ite))) (T 7) ) ) (CONS 6 "continuous") ) ) (COMMAND ".chprop" "p" "" "LA" (CDR (ASSOC 8 ite)) "") ;;; (PRINC "\n") ;;; (PRINC (STRCAT "(\"" ;;; (CDR (ASSOC 8 ite)) ;;; "\" " ;;; (COND ((ASSOC 61 ite) (ITOA (CDR (ASSOC 61 ite)))) ;;; ((ASSOC 62 ite) (ITOA (CDR (ASSOC 62 ite)))) ;;; (T "77") ;;; ) ;_ end of COND ;;; ")" ;;; ) ;_ end of STRCAT ;;; ) ;_ end of PRINC (PRINC) ) ;_ end of PROGN ) ;_ end of IF (SETQ cnt (1+ cnt)) ) ;_ end of while ) ;_ end of defun ;|«Visual LISP© Format Options» (120 2 15 2 T "end of " 100 9 2 0 nil nil nil nil T) ;*** DO NOT add text below the comment! ***|;