(DEFUN c:layerlist (/ overwrite_xrl xrlay_can ;		   xrlay_lst
                    xrl_file_spec xrlay_fil)
  (SETQ xrlay_lst nil)
  (SETQ xrlay_lst (LIST (TBLNEXT "layer" T)))
  (WHILE
    (SETQ xrlay_can (TBLNEXT "layer"))
                                        ;     (IF
                                        ;       (WCMATCH (CDR (ASSOC 2 xrlay_can)) "*|*")
    (SETQ xrlay_lst (APPEND xrlay_lst (LIST xrlay_can)))
                                        ;     ) ;_ end of if
  ) ;_ end of while
  (SETQ xrl_file_spec
         (STRCAT (GETVAR "dwgprefix")
                 (SUBSTR (GETVAR "dwgname")
                         1
                         (- (STRLEN (GETVAR "dwgname")) 4)
                 ) ;_ end of substr
                 "_layer.txt"
         ) ;_ end of STRCAT
  ) ;_ end of setq
  (WHILE
    (AND (FINDFILE xrl_file_spec) (/= overwrite_xrl "Yes"))
     (SETQ overwrite_xrl
            (ukword 1
                    "Yes No"
                    (STRCAT
                      xrl_file_spec
                      " exists! Overwrite it?"
                    ) ;_ end of strcat
                    "No"
            ) ;_ end of ukword
     ) ;_ end of setq
     (COND ((EQ overwrite_xrl "No")
            (SETQ xrl_file_spec
                   (GETFILED "Create New Layer List"
                             (STRCAT
                               (GETVAR "dwgprefix")
                               "_layer"
                             ) ;_ end of STRCAT
                             "txt"
                             1
                   ) ;_ end of getfiled
            ) ;_ end of setq
           )
     ) ;_ end of cond
  ) ;_ end of WHILE
  (SETQ xrlay_fil (OPEN xrl_file_spec "w"))
  (WRITE-LINE "Name\tColor\tLinetype" xrlay_fil)
  (FOREACH n xrlay_lst
    (WRITE-LINE
      (STRCAT (CDR (ASSOC 2 n))
              "\t"
;;;              (ITOA (CDR (ASSOC 70 n)))
;;;              "\t"
              (ITOA (CDR (ASSOC 62 n)))
              "\t"
              (CDR (ASSOC 6 n))
      ) ;_ end of strcat
      xrlay_fil
    ) ;_ end of write-line
  ) ;_ end of foreach
  (CLOSE xrlay_fil)
  (PRINC (STRCAT "\nLayers, colors and linetypes saved to "
                 xrl_file_spec
                 " "
         ) ;_ end of strcat
  ) ;_ end of princ
  (PRINC)
) ;_ end of DEFUN
;|«Visual LISP© Format Options»
(72 2 40 2 T "end of " 60 9 2 1 0 nil T nil T)
;*** DO NOT add text below the comment! ***|;