;;;Revert Layer colors to CLG Colors.  Will set colors by character #7
;;;of any layer name.  Character must be a (color)number or a letter A-F.
;;;I.e., 1 2 3 4 5 6 7 8 9 A B C D E F correspond to colors:
;;;1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
;;;
;;;!!!CAUTION!!! ANY Layer with these characters as their 7th char. WILL BE
;;;MODIFIED by this routine, AS WILL LAYERS from XREF's with names 8
;;;characters long. (9th char is checked for "|" and then 16th char. is
;;;checked for color key as above.)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;            
;;;		All rights reserved without prejudice.
;;;	Copyright:	10-11-96
;;;	Edited:		10-11-96
;;;

(DEFUN c:rlayc (/ rlayc_list layr_list rlcolr)
  (SETQ
    shoodi
     (ukword
       1
       "Yes No"
       "!!Caution, about to reset ALL layer colors to CLG specified color, continue?!! <Yes No>"
       "No"
     ) ;_ end of ukword
  ) ;_ end of setq
  (IF
    (/= shoodi "Yes")
    nil 
    (PROGN
      (SETQ flayr (TBLNEXT "layer" T))
      (SETQ layr_list (LIST (CDR (ASSOC 2 flayr)))) 
      (WHILE (SETQ nxlayr (TBLNEXT "layer"))
	(SETQ layr_list (APPEND layr_list (LIST (CDR (ASSOC 2 nxlayr)))))
      ) ;_ end of while
      (SETQ count 2 rlcolr nil lncnt 1) 
      (FOREACH n layr_list
	(WHILE (AND (NOT rlcolr) (< count (STRLEN n)))
	  (IF (= (SUBSTR n count 1) "|") 
	      (COND ((/= 0 (ATOI (SUBSTR n (+ 7 count) 1)))
		     (SETQ rlcolr (SUBSTR n (+ 7 count) 1))
		    )
		    ((= "A" (SUBSTR n (+ 7 count) 1)) (SETQ rlcolr "10"))
		    ((= "B" (SUBSTR n (+ 7 count) 1)) (SETQ rlcolr "11"))
		    ((= "C" (SUBSTR n (+ 7 count) 1)) (SETQ rlcolr "12"))
		    ((= "D" (SUBSTR n (+ 7 count) 1)) (SETQ rlcolr "13"))
		    ((= "E" (SUBSTR n (+ 7 count) 1)) (SETQ rlcolr "14"))
		    ((= "F" (SUBSTR n (+ 7 count) 1)) (SETQ rlcolr "15"))
		    ((/= "F" (SUBSTR n (+ 7 count) 1)) (SETQ rlcolr "1000"))
	      ) ;_ end of COND
	      (SETQ count (1+ count))
	  ) ;_ end of IF
	) ;_ end of WHILE 
	(IF (= rlcolr "1000") (SETQ rlcolr nil)) 
	(IF rlcolr
	    nil 
	    (COND
	      ((/= 0 (ATOI (SUBSTR n 7 1))) (SETQ rlcolr (SUBSTR n 7 1)))
	      ((= "A" (SUBSTR n 7 1)) (SETQ rlcolr "10"))
	      ((= "B" (SUBSTR n 7 1)) (SETQ rlcolr "11"))
	      ((= "C" (SUBSTR n 7 1)) (SETQ rlcolr "12"))
	      ((= "D" (SUBSTR n 7 1)) (SETQ rlcolr "13"))
	      ((= "E" (SUBSTR n 7 1)) (SETQ rlcolr "14"))
	      ((= "F" (SUBSTR n 7 1)) (SETQ rlcolr "15"))
	    ) ;_ end of COND
	) ;_ end of IF 
	(IF rlcolr 
	    (SETQ rlayc_list
		   (APPEND rlayc_list (LIST (LIST "C" rlcolr n))) ;_ end of append
	    ) ;_ end of setq 
	) ;_ end of IF
	(SETQ count 2 rlcolr nil)
	(PRINC (STRCAT "\010\010\010\010" (ITOA lncnt)))
	(SETQ lncnt (1+ lncnt))
      ) ;_ end of FOREACH
    ) ;_ end of progn
  ) ;_ end of if
  (SETQ rlayc_file (OPEN (STRCAT (GETVAR "DWGPREFIX") "RLAYC.SCR") "W"))
  (WRITE-LINE "._LAYER" rlayc_file) 
  (FOREACH n rlayc_list
    (WRITE-LINE
      (STRCAT (NTH 0 n) " " (NTH 1 n) " " (NTH 2 n))
      rlayc_file
    ) ;_ end of WRITE-LINE
  ) ;_ end of FOREACH
  (WRITE-LINE "" rlayc_file)
  (CLOSE rlayc_file) 
  (COMMAND "._script"
	   (STRCAT (GETVAR "dwgprefix") "rlayc.scr")
  ) ;_ end of command
) ;_ end of defun
;|«ViLL© FORMAT OPTIONS...» (72 2 40 2 T "end of " 60 9 2 1 0 T T nil T)
 ***Don't add text below the comment!***|;