(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! ***|;