;;;Save, Restore and Make layer utilities.  (uses modified CLG format)
;;;
;;;       This function is to save layer settings before running a utility
;;;       that sets its own layer so that the previous condition can be
;;;       restored.
;;;
;;;              
;;;
;;;
;;;****************************************************************************
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 5-18-95
;;;>		   EDITED: 07-19-2006
;;;
(DEFUN MKLAYR_ERROR (msg /)
  (DONE_DIALOG)
  (TERM_DIALOG)
  (SETQ *ERROR* OLD_MKLAYRERROR)
  (PRINC "\nERROR: ")
  (PRINC msg)
  (PRINC)
) ;_ end of defun
;;;****************************************************************************
(DEFUN c:svlayr	()
  (IF tracefuns
    (PROGN (PRINC "\nEntering SVLAYR ") (PRINC))
  ) ;_ end of IF
  (SETQ OLD_MKLAYRERROR *ERROR*)
  (SETQ *error* mklayr_error)
  (SETQ clayr (GETVAR "clayer"))
  (SETQ ntwang (- 0 (* (/ (GETVAR "viewtwist") PI) 180)))
  (SETQ	cmjrg  mjrg
	ccolr  colr
	ccolra colra
	ccolri colri
	cprod  prod
	cllt   llt
	cltyp  ltyp
	cmodf  modf
	cusrd  usrd
  ) ;_ end of setq
  (IF tracefuns
    (PROGN (PRINC "\nExiting SVLAYR ") (PRINC))
  ) ;_ end of IF
  (SETQ *ERROR* OLD_MKLAYRERROR)
) ;_ end of defun
;;;
;;;
;;;       This function is to restore layer settings after running a utility
;;;       that sets its own layer so that the previous condition is restored.
;;;
;;;              
;;;
;;;
;;;****************************************************************************
(DEFUN c:rslayr	()
  (IF tracefuns
    (PROGN (PRINC "\nEntering RSLAYR ") (PRINC))
  ) ;_ end of IF
  (SETQ OLD_ERROR *ERROR*)
  (SETQ *error* mklayr_error)
  (IF (AND clayr
	   (TBLSEARCH "LAYER" clayr)
	   (EQ (CDR (ASSOC 70 (TBLSEARCH "LAYER" clayr))) 0)
      ) ;_ end of AND
    (PROGN
      (SETVAR "clayer" clayr)
      (SETQ mjrg  cmjrg
	    colr  ccolr
	    colra ccolra
	    colri ccolri
	    prod  cprod
	    llt	  cllt
	    ltyp  cltyp
	    modf  cmodf
	    usrd  cusrd
      ) ;_ end of setq
    ) ;_ end of PROGN
    (IF	(AND
	  clayr
	  (EQ (TYPE clayr) 'STR)
	) ;_ end of AND
      (PRINC (STRCAT "\nUnable to set current layer to "
		     clayr
	     ) ;_ end of STRCAT
      ) ;_ end of PRINC
    ) ;_ end of IF
  ) ;_ end of IF
  (IF tracefuns
    (PROGN (PRINC "\nExiting RSLAYR ") (PRINC))
  ) ;_ end of IF
  (SETQ *ERROR* OLD_ERROR)
) ;_ end of defun
;;;****************************************************************************
;;;
;;;       This function is to make layers that conform (*) to the CAD Layer
;;;      Guidelines published by the AIA.
;;;       * The CLG have been modified to accomodate both color and linetype
;;;         specifications.  Since only one character is used for each they
;;;         are necessarily restricted in number to as many unique characters
;;;         that are valid in layer names.
;;;
;;;              
;;;
;;;
(DEFUN c:mklayr	(/ al_msg vp_msg lo_msg of_msg)
  (IF tracefuns
    (PROGN (PRINC "\nEntering MKLAYR ") (PRINC))
  ) ;_ end of IF
  (SETQ OLD_ERROR *ERROR*)
  (SETQ *error* mklayr_error)
  (SETQ cmde (GETVAR "cmdecho"))
  (SETVAR "cmdecho" 0)

;;;  (SETQ	vwtwst (GETVAR "viewtwist")
;;;	ntwang (- 0 (* (/ vwtwst PI) 180))
;;;  ) ;_ end of setq
  (IF colra
    (PROGN
      (IF debug_mklayr
	(PROGN
	  (PRINC "\ncolra = ")
	  (PRINC colra)
	  (PRINC)
	) ;_ end of PROGN
      ) ;_ end of IF
      (COND ((= (STRCASE colra) "A") (SETQ colri "10"))
	    ((= (STRCASE colra) "B") (SETQ colri "11"))
	    ((= (STRCASE colra) "C") (SETQ colri "12"))
	    ((= (STRCASE colra) "D") (SETQ colri "13"))
	    ((= (STRCASE colra) "E") (SETQ colri "14"))
	    ((= (STRCASE colra) "F") (SETQ colri "15"))
	    ((= (STRCASE colra) "G") (SETQ colri "16"))
	    ((= (STRCASE colra) "H") (SETQ colri "17"))
	    ((= (STRCASE colra) "I") (SETQ colri "18"))
	    ((= (STRCASE colra) "J") (SETQ colri "19"))
	    ((= (STRCASE colra) "K") (SETQ colri "20"))
	    ((= (STRCASE colra) "L") (SETQ colri "21"))
	    ((= (STRCASE colra) "M") (SETQ colri "22"))
	    ((= (STRCASE colra) "N") (SETQ colri "23"))
	    ((= (STRCASE colra) "O") (SETQ colri "24"))
	    ((= (STRCASE colra) "P") (SETQ colri "25"))
	    ((= (STRCASE colra) "Q") (SETQ colri "26"))
	    ((= (STRCASE colra) "R") (SETQ colri "27"))
	    ((= (STRCASE colra) "S") (SETQ colri "28"))
	    ((= (STRCASE colra) "T") (SETQ colri "29"))
	    ((= (STRCASE colra) "U") (SETQ colri "250"))
	    ((= (STRCASE colra) "V") (SETQ colri "251"))
	    ((= (STRCASE colra) "W") (SETQ colri "252"))
	    ((= (STRCASE colra) "X") (SETQ colri "253"))
	    ((= (STRCASE colra) "Y") (SETQ colri "254"))
	    ((= (STRCASE colra) "Z") (SETQ colri "255"))
      ) ;_ end of cond
      (IF debug_mklayr
	(PROGN
	  (PRINC "\ncolri should have been set to = ")
	  (PRINC colri)
	  (PRINC)
	) ;_ end of PROGN
      ) ;_ end of IF
    ) ;_ end of PROGN
  ) ;_ end of if
;;;  (IF clayr
;;;    nil
  (SETQ clayr (STRCASE (GETVAR "clayer")))
;;;  ) ;_ end of if
  (IF
    (OR
      (clnmstd)
      (AND mjrg llt prod (OR colr colra))
      (EQ (SETQ	set_clg_groups
		 (UKWORD
		   1
		   "Yes No"
		   "Shall we set the CLG Layer Name Groups?"
		   (IF set_clg_groups
		     set_clg_groups
		     "No"
		   ) ;_ end of IF
		 ) ;_ end of UKWORD
	  ) ;_ end of SETQ
	  "Yes"
      ) ;_ end of EQ
    ) ;_ end of OR
     (PROGN
       (IF debug_mklayr
	 (PROGN
	   (PRINC
	     "\n     WE ARE DOING THE \"A\" PART OF THE FIRST IF!!! "
	   ) ;_ end of PRINC
	   (PRINC)
	 ) ;_ end of PROGN
       ) ;_ end of IF
       (IF ukword NIL (LOAD "ukword" "\nFile UKWORD.LSP not loaded! "))
       (IF mjrg
	 (SETQ mjrg (STRCASE mjrg))
	 (IF (SETQ mjrg
		    (UKWORD
		      0
		      "G C L A S M P F E I O Q T Z"
		      "Could not determine CLG Major Group.  Enter single character Major Group [G C L A S M P F E I O Q T Z]"
		      nil
		    ) ;_ end of UKWORD
	     ) ;_ end of SETQ
	   (IF (AND mjrg (EQ (STRLEN mjrg) 1))
	     (SETQ mjrg (STRCASE mjrg))
	     (SETQ mjrg NIL)
	   ) ;_ end of IF
	 ) ;_ end of IF
       ) ;_ end of if
       (IF ustr NIL (LOAD "ustr" "\nFile USTR.LSP not loaded! "))
       (IF prod
	 (SETQ prod (STRCASE prod))
	 (WHILE
	   (NOT
	     (AND
	       (SETQ prod
		      (USTR
			1
			""
			"Could not determine CLG Minor Group.  Enter 4 character Minor Group"
			nil
		      ) ;_ end of USTR
	       ) ;_ end of SETQ
	       (IF prod
		 (EQ (STRLEN prod) 4)
	       ) ;_ end of IF
	     ) ;_ end of AND
	   ) ;_ end of NOT
	    (IF	(AND prod (EQ (STRLEN prod) 4))
	      (SETQ prod (STRCASE prod))
	      (SETQ prod NIL)
	    ) ;_ end of IF
	 ) ;_ end of WHILE
       ) ;_ end of if
       (COND
	 (colr nil)
	 ((= (STRCASE (SUBSTR clayr 7 1)) "-")
	  (IF modf
	    (SETQ colr "1")		;default color
	    (SETQ colr nil)
	  ) ;_ end of if
	 )
	 ((= (SUBSTR clayr 7 1) "1") (SETQ colr "1"))
	 ((= (SUBSTR clayr 7 1) "2") (SETQ colr "2"))
	 ((= (SUBSTR clayr 7 1) "3") (SETQ colr "3"))
	 ((= (SUBSTR clayr 7 1) "4") (SETQ colr "4"))
	 ((= (SUBSTR clayr 7 1) "5") (SETQ colr "5"))
	 ((= (SUBSTR clayr 7 1) "6") (SETQ colr "6"))
	 ((= (SUBSTR clayr 7 1) "7") (SETQ colr "7"))
	 ((= (SUBSTR clayr 7 1) "8") (SETQ colr "8"))
	 ((= (SUBSTR clayr 7 1) "9") (SETQ colr "9"))
	 ((AND colra (> (STRLEN clayr) 6))
	  (COND	((= (STRCASE colra) "A") (SETQ colri "10"))
		((= (STRCASE colra) "B") (SETQ colri "11"))
		((= (STRCASE colra) "C") (SETQ colri "12"))
		((= (STRCASE colra) "D") (SETQ colri "13"))
		((= (STRCASE colra) "E") (SETQ colri "14"))
		((= (STRCASE colra) "F") (SETQ colri "15"))
		((= (STRCASE colra) "G") (SETQ colri "16"))
		((= (STRCASE colra) "H") (SETQ colri "17"))
		((= (STRCASE colra) "I") (SETQ colri "18"))
		((= (STRCASE colra) "J") (SETQ colri "19"))
		((= (STRCASE colra) "K") (SETQ colri "20"))
		((= (STRCASE colra) "L") (SETQ colri "21"))
		((= (STRCASE colra) "M") (SETQ colri "22"))
		((= (STRCASE colra) "N") (SETQ colri "23"))
		((= (STRCASE colra) "O") (SETQ colri "24"))
		((= (STRCASE colra) "P") (SETQ colri "25"))
		((= (STRCASE colra) "Q") (SETQ colri "26"))
		((= (STRCASE colra) "R") (SETQ colri "27"))
		((= (STRCASE colra) "S") (SETQ colri "28"))
		((= (STRCASE colra) "T") (SETQ colri "29"))
		((= (STRCASE colra) "U") (SETQ colri "250"))
		((= (STRCASE colra) "V") (SETQ colri "251"))
		((= (STRCASE colra) "W") (SETQ colri "252"))
		((= (STRCASE colra) "X") (SETQ colri "253"))
		((= (STRCASE colra) "Y") (SETQ colri "254"))
		((= (STRCASE colra) "Z") (SETQ colri "255"))
	  ) ;_ end of COND
	 )
	 ((= (SUBSTR clayr 7 1) "A")
	  (SETQ	colra "A"
		colri "10"
	  ) ;_ end of setq
	 )
	 ((= (SUBSTR clayr 7 1) "B")
	  (SETQ	colra "B"
		colri "11"
	  ) ;_ end of setq
	 )
	 ((= (SUBSTR clayr 7 1) "C")
	  (SETQ	colra "C"
		colri "12"
	  ) ;_ end of setq
	 )
	 ((= (SUBSTR clayr 7 1) "D")
	  (SETQ	colra "D"
		colri "13"
	  ) ;_ end of setq
	 )
	 ((= (SUBSTR clayr 7 1) "E")
	  (SETQ	colra "E"
		colri "14"
	  ) ;_ end of setq
	 )
	 ((= (SUBSTR clayr 7 1) "F")
	  (SETQ	colra "F"
		colri "15"
	  ) ;_ end of setq
	 )
	 ((= (SUBSTR clayr 7 1) "G")
	  (SETQ	colra "G"
		colri "16"
	  ) ;_ end of setq
	 )
	 ((= (SUBSTR clayr 7 1) "H")
	  (SETQ	colra "H"
		colri "17"
	  ) ;_ end of setq
	 )
	 ((= (SUBSTR clayr 7 1) "I")
	  (SETQ	colra "I"
		colri "18"
	  ) ;_ end of setq
	 )
	 ((= (SUBSTR clayr 7 1) "J")
	  (SETQ	colra "J"
		colri "19"
	  ) ;_ end of setq
	 )
	 ((= (SUBSTR clayr 7 1) "K")
	  (SETQ	colra "K"
		colri "20"
	  ) ;_ end of setq
	 )
	 ((= (SUBSTR clayr 7 1) "L")
	  (SETQ	colra "L"
		colri "21"
	  ) ;_ end of setq
	 )
	 ((= (SUBSTR clayr 7 1) "M")
	  (SETQ	colra "M"
		colri "22"
	  ) ;_ end of setq
	 )
	 ((= (SUBSTR clayr 7 1) "N")
	  (SETQ	colra "N"
		colri "23"
	  ) ;_ end of setq
	 )
	 ((= (SUBSTR clayr 7 1) "O")
	  (SETQ	colra "O"
		colri "24"
	  ) ;_ end of setq
	 )
	 ((= (SUBSTR clayr 7 1) "P")
	  (SETQ	colra "P"
		colri "25"
	  ) ;_ end of setq
	 )
	 ((= (SUBSTR clayr 7 1) "Q")
	  (SETQ	colra "Q"
		colri "26"
	  ) ;_ end of setq
	 )
	 ((= (SUBSTR clayr 7 1) "R")
	  (SETQ	colra "R"
		colri "27"
	  ) ;_ end of setq
	 )
	 ((= (SUBSTR clayr 7 1) "S")
	  (SETQ	colra "S"
		colri "28"
	  ) ;_ end of setq
	 )
	 ((= (SUBSTR clayr 7 1) "T")
	  (SETQ	colra "T"
		colri "29"
	  ) ;_ end of setq
	 )
	 ((= (SUBSTR clayr 7 1) "U")
	  (SETQ	colra "U"
		colri "252"
	  ) ;_ end of setq
	 )
	 ((= (SUBSTR clayr 7 1) "V")
	  (SETQ	colra "V"
		colri "252"
	  ) ;_ end of setq
	 )
	 ((= (SUBSTR clayr 7 1) "W")
	  (SETQ	colra "W"
		colri "252"
	  ) ;_ end of setq
	 )
	 ((= (SUBSTR clayr 7 1) "X")
	  (SETQ	colra "X"
		colri "253"
	  ) ;_ end of setq
	 )
	 ((= (SUBSTR clayr 7 1) "Y")
	  (SETQ	colra "Y"
		colri "254"
	  ) ;_ end of setq
	 )
	 ((= (SUBSTR clayr 7 1) "Z")
	  (SETQ	colra "Z"
		colri "255"
	  ) ;_ end of setq
	 )
       ) ;_ end of cond
       (COND
	 (llt
	  (COND
	    ((= llt "-") (SETQ ltyp "continuous"))
	    ((= (STRCASE llt) "C") (SETQ ltyp "center"))
	    ((= (STRCASE llt) "N") (SETQ ltyp "center2"))
	    ((= (STRCASE llt) "D") (SETQ ltyp "dashed"))
	    ((= (STRCASE llt) "T") (SETQ ltyp "continuous"))
	    ((= (STRCASE llt) "V") (SETQ ltyp "divide"))
	    ((= (STRCASE llt) "H") (SETQ ltyp "hidden"))
	    ((= (STRCASE llt) "M") (SETQ ltyp "match"))
	    ((= (STRCASE llt) "P") (SETQ ltyp "phantom"))
	    ((= (STRCASE llt) "Q") (SETQ ltyp "phantom2"))
	    ((AND
	       (= (STRCASE llt) "S")
	       (NOT (= mjrg "P"))
	       (NOT (= (SUBSTR prod 1 1) "-"))
	     ) ;_ end of AND
	     (SETQ ltyp "streamd")
	    )
	    ((= (STRCASE llt) "E") (SETQ ltyp "continuous")) ;(get_lt)
	    ((= (STRCASE llt) "X") (SETQ ltyp "continuous")) ;(get_lt)
	    ((= (STRCASE llt) "F") (SETQ ltyp "phantom"))
	  ) ;_ end of cond
	 )
	 ((AND (= (SUBSTR clayr 2 1) "-") (clnmstd))
	  (SETQ llt "-")
	  (SETQ ltyp "continuous")
	 )
	 ((AND (= (SUBSTR clayr 2 1) "C") (clnmstd))
	  (SETQ llt "C")
	  (SETQ ltyp "center")
	 )
	 ((AND (= (SUBSTR clayr 2 1) "N") (clnmstd))
	  (SETQ llt "N")
	  (SETQ ltyp "center2")
	 )
	 ((AND (= (SUBSTR clayr 2 1) "D") (clnmstd))
	  (SETQ llt "D")
	  (SETQ ltyp "dashed")
	 )
	 ((AND (= (SUBSTR clayr 2 1) "T") (clnmstd))
	  (SETQ llt "T")
	  (SETQ ltyp "dashdot")
	 )
	 ((AND (= (SUBSTR clayr 2 1) "V") (clnmstd))
	  (SETQ llt "V")
	  (SETQ ltyp "divide")
	 )
	 ((AND (= (SUBSTR clayr 2 1) "H") (clnmstd))
	  (SETQ llt "H")
	  (SETQ ltyp "hidden")
	 )
	 ((AND (= (SUBSTR clayr 2 1) "M") (clnmstd))
	  (SETQ llt "M")
	  (SETQ ltyp "match")
	 )
	 ((AND (= (SUBSTR clayr 2 1) "P") (clnmstd))
	  (SETQ llt "P")
	  (SETQ ltyp "phantom")
	 )
	 ((AND (= (SUBSTR clayr 2 1) "Q") (clnmstd))
	  (SETQ llt "Q")
	  (SETQ ltyp "phantom2")
	 )
	 ((AND (= (SUBSTR clayr 2 1) "S") (clnmstd))
	  (SETQ llt "S")
	  (SETQ ltyp "streamd")
	 )
	 ((AND (= (SUBSTR clayr 2 1) "E") (clnmstd))
	  (SETQ llt "E")
	  (SETQ ltyp "continuous")
	 )
	 ((AND (= (SUBSTR clayr 2 1) "X") (clnmstd))
	  (SETQ llt "X")
	  (SETQ ltyp "continuous")
	 )
	 ((AND (= (SUBSTR clayr 2 1) "F") (clnmstd))
	  (SETQ llt "F")
	  (SETQ ltyp "phantom")
	 )
       ) ;_ end of cond
;;;       (COND
;;;	 (modf nil)
;;;	 ((>= (STRLEN clayr) 8) (SETQ modf (SUBSTR clayr 8)))
;;;       ) ;_ end of cond
       (IF (AND mjrg prod)
	 (SETQ new_ln
		(STRCASE (STRCAT mjrg
				 (IF (AND llt
					  (NOT (WCMATCH llt "* *"))
					  (NOT (WCMATCH llt "*`**"))
				     ) ;_ end of AND
				   llt
				   "-"
				 ) ;_ end of if
				 prod
				 (IF colra
				   colra
				   (IF (AND colr
					    (/= colr "-")
					    (NOT (WCMATCH colr "*`**"))
				       ) ;_ end of AND
				     colr
				     (IF (AND modf
					      (/= modf "")
					      (NOT (WCMATCH modf "*`**"))
					 ) ;_ end of and
				       "-"
				       ""
				     ) ;_ end of if
				   ) ;_ end of if
				 ) ;_ end of if
				 (IF (AND modf
					  (/= modf "")
					  (NOT (WCMATCH modf "* *"))
					  (NOT (WCMATCH modf "*`**"))
				     ) ;_ end of AND
				   modf
				   ""
				 ) ;_ end of if
				 (IF (AND usrd
					  (/= usrd "")
					  (NOT (WCMATCH usrd "* *"))
					  (NOT (WCMATCH usrd "*`**"))
				     ) ;_ end of AND
				   (STRCAT "-" usrd)
				   ""
				 ) ;_ end of if
			 ) ;_ end of strcat
		) ;_ end of STRCASE
	 ) ;_ end of setq
       ) ;_ end of IF
       (SETQ tbl_le (TBLSEARCH "layer" new_ln))
       (IF
	 (AND tbl_le
	      (OR
		(AND
		  (EQ (TYPE (READ (SUBSTR new_ln 7 1))) 'INT)
		  (EQ (ABS (CDR (ASSOC 62 tbl_le)))
		      (IF
			(AND
			  (EQ (SUBSTR new_ln 7 1) "6")
			  (OR
			    (EQ (SUBSTR new_ln 8 4) "DIMS")
			    (EQ (SUBSTR new_ln 8 4) "TEXT")
			    (EQ (SUBSTR new_ln 8 4) "NOTE")
			    (EQ (SUBSTR new_ln 8 4) "ATTR")
			    (WCMATCH (SUBSTR new_ln 8 4) "TX##")
			  ) ;_ end of OR
			) ;_ end of AND
			 6
			 (READ (SUBSTR new_ln 7 1))
		      ) ;_ end of IF
		  ) ;_ end of EQ
		) ;_ end of AND
		(AND
		  (EQ (TYPE (READ (SUBSTR new_ln 7 1))) 'SYM)
		  (EQ (ABS (CDR (ASSOC 62 tbl_le)))
		      (COND
			((EQ (SUBSTR new_ln 7 1) "A") 10)
			((EQ (SUBSTR new_ln 7 1) "B") 11)
			((EQ (SUBSTR new_ln 7 1) "C") 12)
			((EQ (SUBSTR new_ln 7 1) "D") 13)
			((EQ (SUBSTR new_ln 7 1) "E") 14)
			((EQ (SUBSTR new_ln 7 1) "F") 15)
			((EQ (SUBSTR new_ln 7 1) "G") 16)
			((EQ (SUBSTR new_ln 7 1) "H") 17)
			((EQ (SUBSTR new_ln 7 1) "I") 18)
			((EQ (SUBSTR new_ln 7 1) "J") 19)
			((EQ (SUBSTR new_ln 7 1) "K") 20)
			((EQ (SUBSTR new_ln 7 1) "L") 21)
			((EQ (SUBSTR new_ln 7 1) "M") 22)
			((EQ (SUBSTR new_ln 7 1) "N") 23)
			((EQ (SUBSTR new_ln 7 1) "O") 24)
			((EQ (SUBSTR new_ln 7 1) "P") 25)
			((EQ (SUBSTR new_ln 7 1) "Q") 26)
			((EQ (SUBSTR new_ln 7 1) "R") 27)
			((EQ (SUBSTR new_ln 7 1) "S") 28)
			((EQ (SUBSTR new_ln 7 1) "T") 29)
			((EQ (SUBSTR new_ln 7 1) "U") 250)
			((EQ (SUBSTR new_ln 7 1) "V") 251)
			((EQ (SUBSTR new_ln 7 1) "W") 252)
			((EQ (SUBSTR new_ln 7 1) "X") 253)
			((EQ (SUBSTR new_ln 7 1) "Y") 254)
			((EQ (SUBSTR new_ln 7 1) "Z") 255)
		      ) ;_ end of COND
		  ) ;_ end of EQ
		) ;_ end of AND
	      ) ;_ end of or
	 ) ;_ end of and
	  (PROGN
;;;	   (PRINC "\n\tMJRG=\t")
;;;	   (princ MJRG)
;;;	   (PRINC "\n\tLLT=\t")
;;;	   (princ LLT)
;;;	   (PRINC "\n\tPROD=\t")
;;;	   (princ PROD)
;;;	   (PRINC "\n\tCOLR=\t")
;;;	   (princ COLR)
;;;	   (PRINC "\n\tCOLRI=\t")
;;;	   (princ COLRI)
;;;	   (PRINC "\n\tCOLRA=\t")
;;;	   (princ COLRA)
;;;	   (PRINC "\n\tMODF=\t")
;;;	   (princ MODF)
;;;	   (PRINC)
	    (SETVAR "clayer" new_ln)
	  ) ;_ end of PROGN
	  (PROGN
	    (IF	(= colr "-")
	      (hycolr)
	    ) ;_ end of if
;;;(princ "\nnew_ln = ")
;;;(princ new_ln)
;;;(princ "\ncolr   = ")
;;;(princ colr)
;;;(princ "\ncolra  = ")
;;;(princ colra)
;;;(princ "\ncolri  = ")
;;;(princ colri)
;;;(princ "\nlaycol = ")
;;;(princ laycol)
;;;(princ "\nltyp   = ")
;;;(princ ltyp)
	    (COND
	      ((AND new_ln
		    (EQ (TYPE (READ (SUBSTR new_ln 7 1))) 'INT)
		    (NOT
		      (AND
			(EQ (SUBSTR new_ln 7 1) "6")
			modf
			(OR
			  (EQ (STRCASE modf) "DIMS")
			  (EQ (STRCASE modf) "TEXT")
			  (EQ (STRCASE modf) "NOTE")
			  (EQ (STRCASE modf) "ATTR")
			  (WCMATCH (STRCASE modf) "TX##")
			) ;_ end of OR
		      ) ;_ end of AND
		    ) ;_ end of NOT
	       ) ;_ end of and
	       (SETQ use_pcolor (SUBSTR new_ln 7 1))
	      )
	      ((AND (EQ (SUBSTR new_ln 7 1) "6")
		    (OR
		      (EQ (SUBSTR new_ln 8 4) "DIMS")
		      (EQ (SUBSTR new_ln 8 4) "TEXT")
		      (EQ (SUBSTR new_ln 8 4) "NOTE")
		      (EQ (SUBSTR new_ln 8 4) "ATTR")
		      (WCMATCH (SUBSTR new_ln 8 4) "TX##")
		    ) ;_ end of OR
	       ) ;_ end of AND
	       (SETQ use_pcolor "6")
	      )
	      ((EQ (TYPE (READ (SUBSTR new_ln 7 1))) 'SYM)
	       (COND
		 ((EQ (SUBSTR new_ln 7 1) "A")
		  (SETQ use_pcolor "10")
		 )
		 ((EQ (SUBSTR new_ln 7 1) "B")
		  (SETQ use_pcolor "11")
		 )
		 ((EQ (SUBSTR new_ln 7 1) "C")
		  (SETQ use_pcolor "12")
		 )
		 ((EQ (SUBSTR new_ln 7 1) "D")
		  (SETQ use_pcolor "13")
		 )
		 ((EQ (SUBSTR new_ln 7 1) "E")
		  (SETQ use_pcolor "14")
		 )
		 ((EQ (SUBSTR new_ln 7 1) "F")
		  (SETQ use_pcolor "15")
		 )
		 ((EQ (SUBSTR new_ln 7 1) "G")
		  (SETQ use_pcolor "16")
		 )
		 ((EQ (SUBSTR new_ln 7 1) "H")
		  (SETQ use_pcolor "17")
		 )
		 ((EQ (SUBSTR new_ln 7 1) "I")
		  (SETQ use_pcolor "18")
		 )
		 ((EQ (SUBSTR new_ln 7 1) "J")
		  (SETQ use_pcolor "19")
		 )
		 ((EQ (SUBSTR new_ln 7 1) "K")
		  (SETQ use_pcolor "20")
		 )
		 ((EQ (SUBSTR new_ln 7 1) "L")
		  (SETQ use_pcolor "21")
		 )
		 ((EQ (SUBSTR new_ln 7 1) "M")
		  (SETQ use_pcolor "22")
		 )
		 ((EQ (SUBSTR new_ln 7 1) "N")
		  (SETQ use_pcolor "23")
		 )
		 ((EQ (SUBSTR new_ln 7 1) "O")
		  (SETQ use_pcolor "24")
		 )
		 ((EQ (SUBSTR new_ln 7 1) "P")
		  (SETQ use_pcolor "25")
		 )
		 ((EQ (SUBSTR new_ln 7 1) "Q")
		  (SETQ use_pcolor "26")
		 )
		 ((EQ (SUBSTR new_ln 7 1) "R")
		  (SETQ use_pcolor "27")
		 )
		 ((EQ (SUBSTR new_ln 7 1) "S")
		  (SETQ use_pcolor "28")
		 )
		 ((EQ (SUBSTR new_ln 7 1) "T")
		  (SETQ use_pcolor "29")
		 )
		 ((EQ (SUBSTR new_ln 7 1) "U")
		  (SETQ use_pcolor "250")
		 )
		 ((EQ (SUBSTR new_ln 7 1) "V")
		  (SETQ use_pcolor "251")
		 )
		 ((EQ (SUBSTR new_ln 7 1) "W")
		  (SETQ use_pcolor "252")
		 )
		 ((EQ (SUBSTR new_ln 7 1) "X")
		  (SETQ use_pcolor "253")
		 )
		 ((EQ (SUBSTR new_ln 7 1) "Y")
		  (SETQ use_pcolor "254")
		 )
		 ((EQ (SUBSTR new_ln 7 1) "Z")
		  (SETQ use_pcolor "255")
		 )
		 (T (SETQ use_pcolor "1"))
	       ) ;_ end of COND
	      )
;;;	     ((AND laycol (EQ (TYPE laycol) 'STR))
;;;	      (SETQ use_pcolor laycol)
;;;	     )
	      (T (SETQ use_pcolor "1"))
	    ) ;_ end of COND
	    (IF	(AND ltyp
		     (EQ (TYPE ltyp) 'STR)
		     (NOT (TBLSEARCH "LTYPE" ltyp))
		     (/= ltyp "-")
		) ;_ end of AND
	      (IF (FINDFILE "custom.lin")
		(COMMAND "-LINETYPE" "L" ltyp "custom.lin" "")
		(COMMAND "-LINETYPE" "L" ltyp "acad.lin" "")
	      ) ;_ end of IF
	      NIL
	    ) ;_ end of IF
	    (IF
	      (= (STRCASE (SUBSTR new_ln 1 3)) "PS-")
	       (layentmake
		 new_ln
		 (IF (AND colr (/= colr "-"))
		   colr
		   (IF colri
		     colri
		     1
		   ) ;_ end of IF
		 ) ;_ end of IF
		 (IF ltyp
		   ltyp
		   "Continuous"
		 ) ;_ end of IF
	       ) ;_ end of layentmake
;;;	      (COMMAND ".-layer"
;;;		       "make"
;;;		       new_ln
;;;		       ""
;;;	      ) ;_ end of command
	       (layentmake
		 new_ln
		 (IF use_pcolor
		   use_pcolor
		   (IF (AND colr (/= colr "-"))
		     colr
		     (IF colri
		       colri
		       1
		     ) ;_ end of IF
		   ) ;_ end of IF
		 ) ;_ end of IF
		 (IF ltyp
		   ltyp
		   "Continuous"
		 ) ;_ end of IF
	       ) ;_ end of layentmake
;;;	      (COMMAND ".-layer"
;;;		       "make"
;;;		       new_ln
;;;		       "color"
;;;		       use_pcolor
;;;		       new_ln
;;;		       "ltype"
;;;		       (IF ltyp
;;;			 ltyp
;;;			 "continuous"
;;;		       ) ;_ end of if
;;;		       new_ln
;;;		       ""
;;;	      ) ;_ end of command
	    ) ;_ end of IF
	  ) ;_ end of progn
       ) ;_ end of if
     ) ;_ end of progn
     (IF (AND mjrg prod)
       (PROGN
	 (IF debug_mklayr
	   (PROGN
	     (PRINC
	       "\n     WE ARE DOING THE \"B.1\" PART OF THE FIRST IF!!! "
	     ) ;_ end of princ
	     (PRINC)
	   ) ;_ end of PROGN
	 ) ;_ end of IF
	 (SETQ
	   new_ln
	    (STRCAT
	      mjrg
	      (IF llt
		llt
		"-"
	      ) ;_ end of if
	      prod
	      (IF colra
		colra
		(IF (AND colr (/= colr "-"))
		  colr
		  (IF (AND modf (/= modf ""))
		    "-"
		    ""
		  ) ;_ end of if
		) ;_ end of if
	      ) ;_ end of if
	      (IF
		(AND modf (/= modf "") (NOT (WCMATCH modf "* *")))
		 modf
		 ""
	      ) ;_ end of if
	      (IF
		(AND usrd (/= usrd "") (NOT (WCMATCH usrd "* *")))
		 (STRCAT "-" usrd)
		 ""
	      ) ;_ end of if
	    ) ;_ end of strcat
	 ) ;_ end of setq
	 (SETQ tbl_le (TBLSEARCH "layer" new_ln))
	 (IF
	   (AND
	     tbl_le
	     (OR
	       (AND
		 (EQ (TYPE (READ (SUBSTR new_ln 7 1))) 'INT)
		 (EQ (ABS (CDR (ASSOC 62 tbl_le)))
		     (IF
		       (AND
			 (EQ (SUBSTR new_ln 7 1) "6")
			 (OR
			   (EQ (SUBSTR new_ln 8 4) "DIMS")
			   (EQ (SUBSTR new_ln 8 4) "TEXT")
			   (EQ (SUBSTR new_ln 8 4) "NOTE")
			   (EQ (SUBSTR new_ln 8 4) "ATTR")
			   (WCMATCH (SUBSTR new_ln 8 4) "TX##")
			 ) ;_ end of OR
		       ) ;_ end of AND
			6
			(READ (SUBSTR new_ln 7 1))
		     ) ;_ end of IF
		 ) ;_ end of EQ
	       ) ;_ end of AND
	       (AND
		 (EQ (TYPE (READ (SUBSTR new_ln 7 1))) 'SYM)
		 (EQ (ABS (CDR (ASSOC 62 tbl_le)))
		     (COND
		       ((EQ (SUBSTR new_ln 7 1) "A") 10)
		       ((EQ (SUBSTR new_ln 7 1) "B") 11)
		       ((EQ (SUBSTR new_ln 7 1) "C") 12)
		       ((EQ (SUBSTR new_ln 7 1) "D") 13)
		       ((EQ (SUBSTR new_ln 7 1) "E") 14)
		       ((EQ (SUBSTR new_ln 7 1) "F") 15)
		       ((EQ (SUBSTR new_ln 7 1) "G") 16)
		       ((EQ (SUBSTR new_ln 7 1) "H") 17)
		       ((EQ (SUBSTR new_ln 7 1) "I") 18)
		       ((EQ (SUBSTR new_ln 7 1) "J") 19)
		       ((EQ (SUBSTR new_ln 7 1) "K") 20)
		       ((EQ (SUBSTR new_ln 7 1) "L") 21)
		       ((EQ (SUBSTR new_ln 7 1) "M") 22)
		       ((EQ (SUBSTR new_ln 7 1) "N") 23)
		       ((EQ (SUBSTR new_ln 7 1) "O") 24)
		       ((EQ (SUBSTR new_ln 7 1) "P") 25)
		       ((EQ (SUBSTR new_ln 7 1) "Q") 26)
		       ((EQ (SUBSTR new_ln 7 1) "R") 27)
		       ((EQ (SUBSTR new_ln 7 1) "S") 28)
		       ((EQ (SUBSTR new_ln 7 1) "T") 29)
		       ((EQ (SUBSTR new_ln 7 1) "U") 250)
		       ((EQ (SUBSTR new_ln 7 1) "V") 251)
		       ((EQ (SUBSTR new_ln 7 1) "W") 252)
		       ((EQ (SUBSTR new_ln 7 1) "X") 253)
		       ((EQ (SUBSTR new_ln 7 1) "Y") 254)
		       ((EQ (SUBSTR new_ln 7 1) "Z") 255)
		     ) ;_ end of COND
		 ) ;_ end of EQ
	       ) ;_ end of AND
	     ) ;_ end of or
	   ) ;_ end of and
	    (SETVAR "clayer" new_ln)
	    (PROGN
	      (IF (= colr "-")
		(hycolr)
	      ) ;_ end of if
	      (COND
		((AND new_ln
		      (EQ (TYPE (SUBSTR new_ln 7 1)) 'INT)
		      (NOT
			(AND
			  (EQ colr "6")
			  modf
			  (OR
			    (EQ (STRCASE modf) "DIMS")
			    (EQ (STRCASE modf) "TEXT")
			    (EQ (STRCASE modf) "NOTE")
			    (EQ (STRCASE modf) "ATTR")
			    (WCMATCH (STRCASE modf) "TX##")
			  ) ;_ end of OR
			) ;_ end of AND
		      ) ;_ end of NOT
		 ) ;_ end of and
		 (SETQ use_pcolor (SUBSTR new_ln 7 1))
		)
		((AND (EQ (SUBSTR new_ln 7 1) "6")
		      (OR
			(EQ (SUBSTR new_ln 8 4) "DIMS")
			(EQ (SUBSTR new_ln 8 4) "TEXT")
			(EQ (SUBSTR new_ln 8 4) "NOTE")
			(EQ (SUBSTR new_ln 8 4) "ATTR")
			(WCMATCH (SUBSTR new_ln 8 4) "TX##")
		      ) ;_ end of OR
		 ) ;_ end of AND
		 (SETQ use_pcolor "6")
		)
		((EQ (TYPE (SUBSTR new_ln 7 1)) 'STR)
		 (COND
		   ((EQ (SUBSTR new_ln 7 1) "A")
		    (SETQ use_pcolor "10")
		   )
		   ((EQ (SUBSTR new_ln 7 1) "B")
		    (SETQ use_pcolor "11")
		   )
		   ((EQ (SUBSTR new_ln 7 1) "C")
		    (SETQ use_pcolor "12")
		   )
		   ((EQ (SUBSTR new_ln 7 1) "D")
		    (SETQ use_pcolor "13")
		   )
		   ((EQ (SUBSTR new_ln 7 1) "E")
		    (SETQ use_pcolor "14")
		   )
		   ((EQ (SUBSTR new_ln 7 1) "F")
		    (SETQ use_pcolor "15")
		   )
		   ((EQ (SUBSTR new_ln 7 1) "G")
		    (SETQ use_pcolor "16")
		   )
		   ((EQ (SUBSTR new_ln 7 1) "H")
		    (SETQ use_pcolor "17")
		   )
		   ((EQ (SUBSTR new_ln 7 1) "I")
		    (SETQ use_pcolor "18")
		   )
		   ((EQ (SUBSTR new_ln 7 1) "J")
		    (SETQ use_pcolor "19")
		   )
		   ((EQ (SUBSTR new_ln 7 1) "K")
		    (SETQ use_pcolor "20")
		   )
		   ((EQ (SUBSTR new_ln 7 1) "L")
		    (SETQ use_pcolor "21")
		   )
		   ((EQ (SUBSTR new_ln 7 1) "M")
		    (SETQ use_pcolor "22")
		   )
		   ((EQ (SUBSTR new_ln 7 1) "N")
		    (SETQ use_pcolor "23")
		   )
		   ((EQ (SUBSTR new_ln 7 1) "O")
		    (SETQ use_pcolor "24")
		   )
		   ((EQ (SUBSTR new_ln 7 1) "P")
		    (SETQ use_pcolor "25")
		   )
		   ((EQ (SUBSTR new_ln 7 1) "Q")
		    (SETQ use_pcolor "26")
		   )
		   ((EQ (SUBSTR new_ln 7 1) "R")
		    (SETQ use_pcolor "27")
		   )
		   ((EQ (SUBSTR new_ln 7 1) "S")
		    (SETQ use_pcolor "28")
		   )
		   ((EQ (SUBSTR new_ln 7 1) "T")
		    (SETQ use_pcolor "29")
		   )
		   ((EQ (SUBSTR new_ln 7 1) "U")
		    (SETQ use_pcolor "250")
		   )
		   ((EQ (SUBSTR new_ln 7 1) "V")
		    (SETQ use_pcolor "251")
		   )
		   ((EQ (SUBSTR new_ln 7 1) "W")
		    (SETQ use_pcolor "252")
		   )
		   ((EQ (SUBSTR new_ln 7 1) "X")
		    (SETQ use_pcolor "253")
		   )
		   ((EQ (SUBSTR new_ln 7 1) "Y")
		    (SETQ use_pcolor "254")
		   )
		   ((EQ (SUBSTR new_ln 7 1) "Z")
		    (SETQ use_pcolor "255")
		   )
		 ) ;_ end of COND
		)
;;;	     ((AND laycol (EQ (TYPE laycol) 'STR))
;;;	      (SETQ use_pcolor laycol)
;;;	     )
		(T (SETQ use_pcolor "1"))
	      ) ;_ end of COND
	      (IF (AND ltyp
		       (EQ (TYPE ltyp) 'STR)
		       (NOT (TBLSEARCH "LTYPE" ltyp))
		       (/= ltyp "-")
		  ) ;_ end of AND
		(IF (FINDFILE "custom.lin")
		  (COMMAND "-LINETYPE" "L" ltyp "custom.lin" "")
		  (COMMAND "-LINETYPE" "L" ltyp "acad.lin" "")
		) ;_ end of IF
		NIL
	      ) ;_ end of IF
	      (IF
		(= (STRCASE (SUBSTR new_ln 1 3)) "PS-")
		 (layentmake
		   new_ln
		   (IF (AND colr (/= colr "-"))
		     colr
		     (IF colri
		       colri
		       1
		     ) ;_ end of IF
		   ) ;_ end of IF
		   (IF ltyp
		     ltyp
		     "Continuous"
		   ) ;_ end of IF
		 ) ;_ end of layentmake
;;;		(COMMAND ".layer"
;;;			 "make"
;;;			 new_ln
;;;			 ""
;;;		) ;_ end of command
		 (layentmake
		   new_ln
		   (IF use_pcolor
		     use_pcolor
		     (IF (AND colr (/= colr "-"))
		       colr
		       (IF colri
			 colri
			 1
		       ) ;_ end of IF
		     ) ;_ end of IF
		   ) ;_ end of IF
		   (IF ltyp
		     ltyp
		     "Continuous"
		   ) ;_ end of IF
		 ) ;_ end of layentmake
;;;		(COMMAND ".layer"
;;;			 "make"
;;;			 new_ln
;;;			 "color"
;;;			 use_pcolor
;;;			 ""
;;;			 "ltype"
;;;			 (IF ltyp
;;;			   ltyp
;;;			   ""
;;;			 ) ;_ end of if
;;;			 ""
;;;			 ""
;;;		) ;_ end of command
	      ) ;_ end of IF
	    ) ;_ end of progn
	 ) ;_ end of if
       ) ;_ end of progn
       (PROGN
	 (IF debug_mklayr
	   (PROGN
	     (PRINC
	       "\n     WE ARE DOING THE \"B.2\" PART OF THE FIRST IF!!! "
	     ) ;_ end of princ
	     (PRINC)
	   ) ;_ end of PROGN
	 ) ;_ end of IF
	 (PROMPT "\nSet CLG Layer Name first! ")
       ) ;_ end of progn
     ) ;_ end of if
  ) ;_ end of if
  (SETQ curvno (GETVAR "cvport"))
  (IF (AND (> curvno 1) (EQ (GETVAR "tilemode") 0))
    (PROGN
      (SETQ prvss (SSGET "P"))
      (SETQ cvpss (SSGET "X" (LIST (CONS 69 curvno))))
      (SETQ cvpent (ENTGET (SSNAME cvpss 0) (LIST "ACAD")))
      (SETQ acad_eed (MEMBER "ACAD" (CADR (ASSOC -3 cvpent))))
      (IF (MEMBER (CONS 1003 (GETVAR "clayer")) acad_eed)
	(SETQ vp_msg "Current layer is frozen in this Viewport")
	(SETQ vp_msg "")
      ) ;_ end of if
      (IF prvss
	(COMMAND ".select" prvss "")
      ) ;_ end of IF
      (COMMAND)
    ) ;_ end of progn
  ) ;_ end of if
  (SETQ cur_le (TBLSEARCH "layer" (GETVAR "clayer")))
  (IF (EQ (BOOLE 1 4 (CDR (ASSOC 70 cur_le))) 4)
    (SETQ lo_msg "Current layer is Locked")
    (SETQ lo_msg "")
  ) ;_ end of if
;;;  (IF (< (CDR (ASSOC 62 cur_le)) 0)
;;;    (SETQ of_msg "Current layer is Off")
;;;    (SETQ of_msg "")
;;;  ) ;_ end of if
  (IF (AND vp_msg (/= vp_msg ""))
    (IF	(AND lo_msg (/= lo_msg ""))
      (IF (AND of_msg (/= of_msg ""))
	(SETQ al_msg (STRCAT vp_msg "\n" lo_msg "\n" of_msg))
	(SETQ al_msg (STRCAT vp_msg "\n" lo_msg))
      ) ;_ end of if
      (IF (AND of_msg (/= of_msg ""))
	(SETQ al_msg (STRCAT vp_msg "\n" of_msg))
	(SETQ al_msg vp_msg)
      ) ;_ end of if
    ) ;_ end of if
    (IF	(AND lo_msg (/= lo_msg ""))
      (IF (AND of_msg (/= of_msg ""))
	(SETQ al_msg (STRCAT lo_msg "\n" of_msg))
	(SETQ al_msg lo_msg)
      ) ;_ end of if
      (IF (AND of_msg (/= of_msg ""))
	(SETQ al_msg of_msg)
	(SETQ al_msg nil)
      ) ;_ end of if
    ) ;_ end of if
  ) ;_ end of if
  (IF (AND al_msg (/= (GETVAR "cmdactive") 4))
    (ALERT al_msg)
  ) ;_ end of if
  (SETVAR "cmdecho" cmde)
  (IF tracefuns
    (PROGN (PRINC "\nExiting MKLAYR ") (PRINC))
  ) ;_ end of IF
  (SETQ *ERROR* OLD_ERROR)
   (IF debug_gen_symbols
    (PROGN
      (PRINC "\nEnding MKLAYR\nmjrg=")
      (PRINC mjrg)
      (PRINC "\nllt=")
      (PRINC llt)
      (PRINC "\nltyp=")
      (PRINC ltyp)
      (PRINC "\nprod=")
      (PRINC prod)
      (PRINC "\ncolr=")
      (PRINC colr)
      (PRINC "\ncolri=")
      (PRINC colri)
      (PRINC "\ncolra=")
      (PRINC colra)
      (PRINC "\n=modf")
      (PRINC modf)
      (PRINC "\nusrd=")
      (PRINC usrd)
      (PRINC "\nusrsfx=")
      (PRINC usrsfx)
      (PRINC "\n")
      (PRINC)
    )
  ) (IF debug_mklayr
    (PROGN
      (PRINC "\nclayr = ")
      (PRINC clayr)
      (PRINC "\nclayer = ")
      (PRINC (GETVAR "clayer"))
      (PRINC "\nDone with C:MKLAYR\n")
      (PRINC)
    ) ;_ end of PROGN
  ) ;_ end of IF
  (PRINC)
) ;_ end of defun
;;;****************************************************************************
(DEFUN clmgxst ()			;does current layer major group exist?
  (IF (NOT clayr)
    (SETQ clayr (GETVAR "clayer"))
  ) ;_ end of IF
  (MEMBER (SUBSTR clayr 1 1)
	  (LIST	"G" "C"	"L" "A"	"S" "M"	"P" "F"	"E" "I"	"O" "Q"	"T" "Z") ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of list
 ;_ end of list
 ;_ end of list
 ;_ end of list
  ) ;_ end of member
) ;_ end of defun
;;;****************************************************************************
(DEFUN clltxst ()			;does current layer linetype exist?
  (IF (NOT clayr)
    (SETQ clayr (GETVAR "clayer"))
  ) ;_ end of IF
  (MEMBER (SUBSTR clayr 2 1)
	  (LIST	"-" "C"	"N" "T"	"D" "A"	"V" "H"	"I" "M"	"P" "Q"	"S" "E"
		"X" "F") ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of list
 ;_ end of list
 ;_ end of list
 ;_ end of list
  ) ;_ end of member
) ;_ end of defun
;;;****************************************************************************
(DEFUN clcoxst ()			;does current layer color exist
  (IF (NOT clayr)
    (SETQ clayr (GETVAR "clayer"))
  ) ;_ end of IF
  (MEMBER (SUBSTR clayr 7 1)
	  (LIST	"-"   "1"   "2"	  "3"	"4"   "5"   "6"	  "7"	"8"
		"9"   "A"   "B"	  "C"	"D"   "E"   "F"	  "G"	"H"
		"I"   "J"   "K"	  "L"	"M"   "N"   "O"	  "P"	"Q"
		"R"   "S"   "T"	  "U"	"V"   "W"   "X"	  "Y"	"Z"
	       ) ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of list
 ;_ end of list
 ;_ end of list
 ;_ end of list
  ) ;_ end of member
) ;_ end of defun
;;;****************************************************************************
(DEFUN clnmstd ()			;is current layer name standard?
  (IF (NOT clayr)
    (SETQ clayr (STRCASE (GETVAR "clayer")))
  ) ;_ end of IF
  (OR
    (AND
      (> (STRLEN clayr) 6)
      (MEMBER (SUBSTR clayr 1 1)
	      (LIST "G"	"C" "L"	"A" "S"	"M" "P"	"F" "E"	"I" "O"	"Q" "T"
		    "Z") ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of list
 ;_ end of list
 ;_ end of list
 ;_ end of list
      ) ;_ end of member
      (MEMBER (SUBSTR clayr 2 1)
	      (LIST "-"	  "C"	"N"   "T"   "D"	  "A"	"V"   "H"
		    "I"	  "M"	"P"   "Q"   "S"	  "E"	"X"   "F"
		   ) ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of list
 ;_ end of list
 ;_ end of list
 ;_ end of list
      ) ;_ end of member
      (MEMBER (SUBSTR clayr 7 1)
	      (LIST "-"	  "1"	"2"   "3"   "4"	  "5"	"6"   "7"
		    "8"	  "9"	"A"   "B"   "C"	  "D"	"E"   "F"
		    "G"	  "H"	"I"   "J"   "K"	  "L"	"M"   "N"
		    "O"	  "P"	"Q"   "R"   "S"	  "T"	"U"   "V"
		    "W"	  "X"	"Y"   "Z"
		   ) ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of LIST
 ;_ end of list
 ;_ end of list
 ;_ end of list
 ;_ end of list
      ) ;_ end of member
    ) ;_ end of and
    (WCMATCH clayr "*|*")
    (EQ (SUBSTR clayr 2 1) "|")
    (EQ (SUBSTR clayr 3 1) "|")
    (EQ (SUBSTR clayr 4 1) "|")
    (EQ (SUBSTR clayr 5 1) "|")
    (EQ (SUBSTR clayr 6 1) "|")
    (EQ (SUBSTR clayr 7 1) "|")
    (EQ (SUBSTR clayr 8 1) "|")
    (EQ (SUBSTR clayr 9 1) "|")
  ) ;_ end of or
) ;_ end of defun
;;;****************************************************************************
(DEFUN hycolr ()
  (SETQ	laycol (ITOA (uint 0
			   ""
			   "Enter color number for this layer"
			   (IF laycol
			     (ATOI laycol)
			     nil
			   ) ;_ end of if
		     ) ;_ end of uint
	       ) ;_ end of itoa
	colr   nil
	colra  nil
  ) ;_ end of setq
) ;_ end of defun
;;;****************************************************************************
(DEFUN get_lt ()
  (IF nentl
    (PROGN
      (SETQ lentd (TBLSEARCH "layer" nentl))
      (SETQ tltyp (CDR (ASSOC 6 lentd)))
    ) ;_ end of progn
  ) ;_ end of if
  (SETQ	ltyp (ustr 1
		   "Linetype: "
		   (IF tltyp
		     tltyp
		     "continuous"
		   ) ;_ end of if
		   nil
	     ) ;_ end of ustr
  ) ;_ end of setq
  (PRINC)
) ;_ end of defun
;;;****************************************************************************
(DEFUN layentmake (thisname thiscolor thisltype /)
  (IF debug_mklayr
    (PROGN
      (PRINC "\nthisname = ")
      (PRINC thisname)
      (PRINC "\nthiscolor = ")
      (PRINC thiscolor)
      (PRINC "\nthisltype = ")
      (PRINC thisltype)
      (PRINC)
    ) ;_ end of PROGN
  ) ;_ end of IF
  (IF (SETQ thislayenam (TBLOBJNAME "LAYER" thisname))
    (layentupdate)
    (PROGN
      (IF
	(ENTMAKE
	  (LIST
	    (CONS 0 "LAYER")
	    (CONS 100 "AcDbSymbolTableRecord")
	    (CONS 100 "AcDbLayerTableRecord")
	    (CONS 2 thisname)
	    (CONS 70 0)
	    (CONS
	      62
	      (IF
		(AND (>= (ATOI thiscolor) 0) (<= (ATOI thiscolor) 255))
		 (ATOI thiscolor)
		 1
	      ) ;_ end of IF
	    ) ;_ end of CONS
	    (CONS 6
		  (IF (TBLSEARCH "ltype" thisltype)
		    thisltype
		    "Continuous"
		  ) ;_ end of IF
	    ) ;_ end of CONS
	    (CONS 290 1)
	  ) ;_ end of LIST
	) ;_ end of ENTMAKE
	 (layentupdate)
      ) ;_ end of IF
    ) ;_ end of PROGN
  ) ;_ end of IF
  (IF (AND thisname (TBLOBJNAME "LAYER" thisname))
    (SETVAR "CLAYER" thisname)
  ) ;_ end of IF
  (IF debug_mklayr
    (PROGN
      (PRINC "\nthisname = ")
      (PRINC thisname)
      (PRINC "\ at end of LAYENTMAKE ")
      (PRINC)
    ) ;_ end of PROGN
  ) ;_ end of IF
  (PRINC)
) ;_ end of DEFUN
;;;****************************************************************************
(DEFUN layentupdate ()
  (IF (SETQ thislayenam (TBLOBJNAME "LAYER" thisname))
    (PROGN (SETQ thislayent (ENTGET thislayenam))
	   (SETQ thislayent
		  (SUBST (CONS 62
			       (IF
				 (AND (>= (ATOI thiscolor) 0)
				      (<= (ATOI thiscolor) 255)
				 ) ;_ end of AND
				  (ATOI thiscolor)
				  1
			       ) ;_ end of IF
			 ) ;_ end of CONS
			 (ASSOC 62 thislayent)
			 thislayent
		  ) ;_ end of SUBST
	   ) ;_ end of SETQ
;;;	   (ENTMOD thislayent)
;;;	   (ENTUPD (CDR (ASSOC -1 thislayent)))
;;;           (SETQ thislayent (ENTGET thislayenam))
	   (SETQ thislayent
		  (SUBST (CONS 6
			       (IF (TBLSEARCH "ltype" thisltype)
				 thisltype
				 "Continuous"
			       ) ;_ end of IF
			 ) ;_ end of CONS
			 (ASSOC 6 thislayent)
			 thislayent
		  ) ;_ end of SUBST
	   ) ;_ end of SETQ
	   (ENTMOD thislayent)
	   (ENTUPD (CDR (ASSOC -1 thislayent)))
	   (IF debug_mklayr
	     (PROGN
	       (PRINC "\nthislayenam = ")
	       (PRINC (CDR (ASSOC -1 thislayent)))
	       (PRINC "\nthisname = ")
	       (PRINC (CDR (ASSOC 2 thislayent)))
	       (PRINC "\nthiscolor = ")
	       (PRINC (CDR (ASSOC 62 thislayent)))
	       (PRINC "\nthisltype = ")
	       (PRINC (CDR (ASSOC 6 thislayent)))
	       (PRINC "\nDONE with LAYENTMAKE!\n")
	       (PRINC)
	     ) ;_ end of PROGN
	   ) ;_ end of IF
	   (SETQ			;thisname NIL
	     thiscolor NIL
	     thisltype NIL
	     thislayent
	      NIL
	     thislayenam
	      NIL
	   ) ;_ end of SETQ
    ) ;_ end of PROGN
  ) ;_ end of IF
) ;_ end of DEFUN
(PRINC)

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