;;;Turn off layers, freeze layers, or set to a layer by entity selection.
;;;
;;;
;;;
;;;
;;;
;;;	Made C:SHOLAY a separate file
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2-5-96
;;;>		   EDITED: 08-27-2006
;;;
(DEFUN c:laybent (/ lnlen xrnm lmsg blees nentl orig_ent)
  (SETQ old_expert (GETVAR "expert"))
  (SETVAR "expert" 5)
  (SETQ	lstr  ""
	unmkl (GETVAR "clayer")
  ) ;_ end of setq
  (IF clnmstd
    nil
    (LOAD "mklayr")
  ) ;_ end of if
  (IF ukword
    nil
    (LOAD "ukword" "\nFile UKWORD.LSP not loaded! ")
  ) ;_ end of if
  (SETQ	loper (ukword 1
		      "Off Freeze Set Isolate VPFreeze VPReset"
		      "\nOff\\Freeze\\Set\\Isolate\\VPFreeze\\VPReset"
		      (IF loper
			loper
			"Set"
		      ) ;_ end of if
	      ) ;_ end of ukword
  ) ;_ end of setq
  (IF (OR (EQ loper "Set") (EQ loper nil))
    (PROGN
      (SETQ nent (NENTSEL))
      (SETQ blees (LENGTH (CAR (REVERSE nent))))
      (IF nent
	(PROGN
	  (SETQ orig_ent nent)
	  (IF (EQ (CDR (ASSOC 0 (ENTGET (CAR nent)))) "ATTRIB")
	    (WHILE (/= (CDR (ASSOC 0 (ENTGET (CAR nent)))) "SEQEND")
	      (SETQ nent (LIST (ENTNEXT (CAR nent)) (CDR nent)))
	    ) ;_ end of while
	  ) ;_ end of if
	  (IF (EQ (TYPE (CAAR (REVERSE nent))) 'ENAME)
;;;            (COND
;;;	      ((eq(cdr(assoc 0(entget(caar (reverse nent)))))"DIMENSION")
	    (SETQ nent (CAR (REVERSE NENT)))
;;;	    )
	  ) ;_ end of if
	  (IF
	    (> (LENGTH nent) 2)
	     (IF
	       (OR (> blees 1) (= (CDR (ASSOC 8 (ENTGET (CAR nent)))) "0"))
		(SETQ nentl (CDR (ASSOC 8 (ENTGET (CAAR (REVERSE nent))))))
		(SETQ nentl (CDR (ASSOC 8 (ENTGET (CAR nent)))))
	     )				;if
	     (SETQ nentl (CDR (ASSOC 8 (ENTGET (CAR nent)))))
	  )				;if
	  (IF (AND
		(EQ loper "Set")
		(WCMATCH (CDR (ASSOC 8 (ENTGET (CAR nent)))) "*|*")
	      ) ;_ end of and
	    (SETQ loper "Make")
	  ) ;_ end of if
	  (SETQ lnlen (STRLEN nentl))
	  (WHILE (> lnlen 0)
	    (IF	(EQ (SUBSTR nentl lnlen 1) "|")
	      (SETQ nentl (SUBSTR nentl (1+ lnlen))
		    lmsg  (STRCAT "\nSet current layer to " nentl ". ")
		    lnlen 0
	      )				;setq
	      (SETQ lnlen (1- lnlen))
	    )				;if
	  )				;while
	  (IF lmsg
	    nil
	    (SETQ lmsg (STRCAT "\nLayer "
			       nentl
			       " has been made the current layer. "
		       ) ;_ end of strcat
	    ) ;_ end of setq
	  ) ;_ end of if
	  (IF loper
	    nil
	    (SETQ loper "Set")
	  ) ;_ end of if
	  (IF c:mklayr
	    nil
	    (LOAD "mklayr")
	  ) ;_ end of if
	  (SETQ clayr nentl)
	  (IF (< (STRLEN nentl) 8)
	    (SETQ modf nil)
	  ) ;_ end of if
	  (IF (AND
		(clnmstd)
		(NOT (= (STRCASE (SUBSTR clayr 1 3)) "PS-"))
	      ) ;_ end of and
	    (SETQ mjrg	(SUBSTR clayr 1 1)
		  llt	(SUBSTR clayr 2 1)
		  prod	(SUBSTR clayr 3 4)
		  colr	(IF (= (TYPE (READ (SUBSTR clayr 7 1))) 'INT)
			  (SUBSTR clayr 7 1)
			  nil
			) ;_ end of if
		  colra	(IF (= (TYPE (READ (SUBSTR clayr 7 1))) 'INT)
			  nil
			  (SUBSTR clayr 7 1)
			) ;_ end of if
	    )				;setq
	  )				;if
	  (COND
	    ((>= (STRLEN clayr) 8)
	     (SETQ
	       modf (COND
		      ((OR
			 (WCMATCH (STRCASE (SUBSTR clayr 11)) "#P")
			 (WCMATCH (STRCASE (SUBSTR clayr 11)) "#P##")
			 (WCMATCH (STRCASE (SUBSTR clayr 10)) "#[H Q]P")
			 (WCMATCH (STRCASE (SUBSTR clayr 10)) "#[H Q]P##")
			 (AND (> (STRLEN clayr) 7)(< (STRLEN clayr) 16))
		       ) ;_ end of OR
		       (SUBSTR clayr 8)
		      )
		      ((AND (> (STRLEN clayr) 12) (EQ (SUBSTR clayr 12 1) "-"))
		       (SUBSTR clayr 8 4)
		      )
;;;		      ((>= (STRLEN clayr) 11) (SUBSTR clayr 8 4))
		    ) ;_ end of COND
	     ) ;_ end of SETQ
	    )
	  ) ;_ end of cond
	  (COND
	    ((AND (>= (STRLEN clayr) 16) (EQ (SUBSTR clayr 12 1) "-"))
	     (SETQ usrd (SUBSTR clayr 13 4))
	    )
	    (T (SETQ usrd ""))
	  ) ;_ end of cond
	  (IF C:MKLAYR
	    NIL
	    (LOAD "MKLAYR" "\nFile MKLAYR.LSP not loaded! ")
	  ) ;_ end of if
	  (c:mklayr)
;;;	  (SETQ clayername (getvar "clayer"))
;;;	  (layentmake clayername (IF colra colra (IF colr colr (IF (> (STRLEN thisname) 6)(SUBSTR thisname 7 1)"7"))) (IF ltyp ltyp "Continuous"))
	  (COMMAND ".layer" loper nentl "")
	  (COND
	    ((OR
	       (WCMATCH (STRCASE nentl) "*6NOTE*")
	       (WCMATCH (STRCASE nentl) "*6DIMS*")
	       (WCMATCH (STRCASE nentl) "*6TEXT*")
	       (WCMATCH (STRCASE nentl) "*6ATTR*")
	       (WCMATCH (STRCASE nentl) "*6TX##*")
	     ) ;_ end of OR
	     (COMMAND ".layer" "c" "6" nentl "")
	    )
	    ((OR
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z][- C N T D A V H I M P Q S E X F]????U*"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z][- C N T D A V H I M P Q S E X F]????U*"
	       ) ;_ end of WCMATCH
	     ) ;_ end of OR
	     (COMMAND ".layer" "c" "250" nentl "")
	    )
	    ((OR
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z][- C N T D A V H I M P Q S E X F]????V*"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z][- C N T D A V H I M P Q S E X F]????V*"
	       ) ;_ end of WCMATCH
	     ) ;_ end of OR
	     (COMMAND ".layer" "c" "251" nentl "")
	    )
	    ((OR
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z][- C N T D A V H I M P Q S E X F]????W*"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z][- C N T D A V H I M P Q S E X F]????W*"
	       ) ;_ end of WCMATCH
	     ) ;_ end of OR
	     (COMMAND ".layer" "c" "252" nentl "")
	    )
	    ((OR
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z][- C N T D A V H I M P Q S E X F]????X*"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z][- C N T D A V H I M P Q S E X F]????X*"
	       ) ;_ end of WCMATCH
	     ) ;_ end of OR
	     (COMMAND ".layer" "c" "253" nentl "")
	    )
	    ((OR
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z][- C N T D A V H I M P Q S E X F]????Y*"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z][- C N T D A V H I M P Q S E X F]????Y*"
	       ) ;_ end of WCMATCH
	     ) ;_ end of OR
	     (COMMAND ".layer" "c" "254" nentl "")
	    )
	    ((OR
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z][- C N T D A V H I M P Q S E X F]????Z*"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z][- C N T D A V H I M P Q S E X F]????Z*"
	       ) ;_ end of WCMATCH
	     ) ;_ end of OR
	     (COMMAND ".layer" "c" "255" nentl "")
	    )
	  ) ;_ end of COND
	  (COND
	    ((OR
	       (WCMATCH (STRCASE nentl) "*6NOTE*")
	       (WCMATCH (STRCASE nentl) "*6DIMS*")
	       (WCMATCH (STRCASE nentl) "*6TEXT*")
	       (WCMATCH (STRCASE nentl) "*6ATTR*")
	       (WCMATCH (STRCASE nentl) "*6TX##*")
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]-????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]-????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]-????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]-????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]-????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????-????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]-????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????-????"
	       ) ;_ end of WCMATCH
	     ) ;_ end of OR
	     (COMMAND ".layer" "lt" "continuous" nentl "")
	    )
	    ((OR
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]C????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]*"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]C????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]*"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]C????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]C????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]C????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????-????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]C????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????-????"
	       ) ;_ end of WCMATCH
	     ) ;_ end of OR
	     (COMMAND ".layer" "LT" "CENTER" nentl "")
	    )
	    ((OR
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]N????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]*"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]N????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]*"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]N????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]N????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]N????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????-????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]N????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????-????"
	       ) ;_ end of WCMATCH
	     ) ;_ end of OR
	     (COMMAND ".layer" "LT" "center2" nentl "")
	    )
	    ((OR
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]T????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]*"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]T????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]*"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]T????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]T????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]T????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????-????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]T????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????-????"
	       ) ;_ end of WCMATCH
	     ) ;_ end of OR
	     (COMMAND ".layer" "LT" "continuous" nentl "")
	    )
	    ((OR
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]D????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]*"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]D????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]*"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]D????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]D????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]D????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????-????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]D????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????-????"
	       ) ;_ end of WCMATCH
	     ) ;_ end of OR
	     (COMMAND ".layer" "LT" "dashed" nentl "")
	    )
	    ((OR
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]A????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]*"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]A????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]*"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]A????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]A????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]A????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????-????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]A????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????-????"
	       ) ;_ end of WCMATCH
	     ) ;_ end of OR
	     (COMMAND ".layer" "LT" "dashedx2" nentl "")
	    )
	    ((OR
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]V????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]*"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]V????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]*"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]V????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]V????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]V????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????-????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]V????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????-????"
	       ) ;_ end of WCMATCH
	     ) ;_ end of OR
	     (COMMAND ".layer" "LT" "divide" nentl "")
	    )
	    ((OR
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]I????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]*"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]I????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]*"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]I????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]I????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]I????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????-????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]I????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????-????"
	       ) ;_ end of WCMATCH
	     ) ;_ end of OR
	     (COMMAND ".layer" "LT" "hidden2" nentl "")
	    )
	    ((OR
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]M????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]*"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]M????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]*"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]M????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]M????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]M????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????-????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]M????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????-????"
	       ) ;_ end of WCMATCH
	     ) ;_ end of OR
	     (COMMAND ".layer" "LT" "match" nentl "")
	    )
	    ((OR
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]Q????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]*"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]Q????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]*"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]Q????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]Q????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]Q????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????-????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]Q????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????-????"
	       ) ;_ end of WCMATCH
	     ) ;_ end of OR
	     (COMMAND ".layer" "LT" "phantom2" nentl "")
	    )
	    ((OR
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]S????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]*"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]S????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]*"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]S????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]S????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]S????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????-????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]S????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????-????"
	       ) ;_ end of WCMATCH
	     ) ;_ end of OR
	     (COMMAND ".layer" "LT" "streamd" nentl "")
	    )
	    ((OR
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]H????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]*"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]H????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]*"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]H????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]H????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]H????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????-????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]H????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????-????"
	       ) ;_ end of WCMATCH
	     ) ;_ end of OR
	     (COMMAND ".layer" "LT" "HIDDEN" nentl "")
	    )
	    ((OR
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]P????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]*"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]P????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]*"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]P????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]P????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "[A C E F G I L M O P Q S T Z]P????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????-????"
	       ) ;_ end of WCMATCH
	       (WCMATCH
		 (STRCASE nentl)
		 "*|[A C E F G I L M O P Q S T Z]P????[1 2 3 4 5 6 7 8 9 0 A B C D E F G H I]????-????"
	       ) ;_ end of WCMATCH
	     ) ;_ end of OR
	     (COMMAND ".layer" "LT" "PHANTOM" nentl "")
	    )
	  ) ;_ end of COND
	)				;progn
	(PRINC "\nNothing selected. ")
      )					;if nent
    )					;progn
    (PROGN
      (IF (OR (EQ loper "VPFreeze") (EQ loper "VPReset"))
	(COMMAND ".mspace")
      ) ;_ end of if
      (WHILE
	(AND
	  (SETQ nent (NENTSEL))
	  (<= (STRLEN lstr) 216)
	)				;and
	 (SETQ orig_ent nent)
         (SETQ blees (LENGTH (CAR (REVERSE nent))))
	 (IF (EQ (CDR (ASSOC 0 (ENTGET (CAR nent)))) "ATTRIB")
	   (PROGN
	     (SETQ attr_ent T)
	     (WHILE (/= (CDR (ASSOC 0 (ENTGET (CAR nent)))) "SEQEND")
	       (SETQ nent (LIST (ENTNEXT (CAR nent)) (CDR nent)))
	     ) ;_ end of while
	   ) ;_ end of progn
	 ) ;_ end of if
	 (IF
	   (> (LENGTH nent) 2)
	    (IF
	      (OR (> blees 1) (= (CDR (ASSOC 8 (ENTGET (CAR nent)))) "0"))
	       (SETQ nentl (CDR (ASSOC 8 (ENTGET (CAAR (REVERSE nent))))))
	       (IF (AND
		     (ENTGET (CAAR (REVERSE nent)))
		     (WCMATCH (STRCASE (CDR (ASSOC 8 (ENTGET (CAAR (REVERSE nent))))))
			    (STRCASE "*|g-nplt7hd*")
		     ) ;_ end of wcmatch
		   )
		 (SETQ nentl (CDR (ASSOC 8 (ENTGET (CAAR (REVERSE nent))))))
		 (IF (ENTGET (NTH 0 nent))
		   (SETQ nentl (CDR (ASSOC 8 (ENTGET (NTH 0 nent)))))
		   (IF (ENTGET (CAAR (REVERSE nent)))
		     (SETQ nentl (CDR (ASSOC 8 (ENTGET (CAAR (REVERSE nent))))))
		   )
		 )
	       ) ;_ end of if
	    )				;if
	    (IF	(AND attr_ent
		     (EQ (CDR (ASSOC 8 (ENTGET (CAR orig_ent)))) "0")
		) ;_ end of and
	      (SETQ nentl (CDR (ASSOC 8 (ENTGET (NTH 0 nent)))))
	      (SETQ nentl (CDR (ASSOC 8 (ENTGET (NTH 0 orig_ent)))))
	    ) ;_ end of if
	 )				;if
	 (SETQ lnlen (STRLEN nentl))
	 (COND
	   ((EQ loper "Freeze")
	    (IF	(EQ (GETVAR "clayer") nentl)
	      (SETQ lmsg (STRCAT "\nCannot freeze current layer " nentl))
	      (SETQ lmsg (STRCAT "\nLayer " nentl " selected for freezing. ")
		    lstr (IF (> (STRLEN lstr) 0)
			   (STRCAT lstr "," nentl)
			   nentl
			 ) ;_ end of if
	      ) ;_ end of setq
	    ) ;_ end of if
	    (PRINC lmsg)
	   )
	   ((OR (EQ loper "VPFreeze") (EQ loper "VPReset"))
	    (SETQ lmsg (STRCAT "\nLayer " nentl " selected for vplayer action. ")
		  lstr (IF (> (STRLEN lstr) 0)
			 (STRCAT lstr "," nentl)
			 nentl
		       ) ;_ end of if
	    ) ;_ end of setq
	    (PRINC lmsg)
	   )
	   ((EQ loper "Off")
	    (IF	(EQ (GETVAR "clayer") nentl)
	      (SETQ do_cloff (DOS_MSGBOX
			       (STRCAT "The current layer\n"
				       (GETVAR "clayer")
				       "\nwill be turned off"
			       ) ;_ end of strcat
			       "Current Layer Status"
			       2
			       1
			     ) ;_ end of dos_msgbox
	      ) ;_ end of setq
	      (SETQ do_cloff 4)
	    ) ;_ end of if
	    (IF	(EQ do_cloff 4)
	      (PROGN
		(SETQ lmsg (STRCAT "\nLayer " nentl " selected to be turned off. ")
		      lstr (IF (> (STRLEN lstr) 0)
			     (STRCAT lstr "," nentl)
			     nentl
			   ) ;_ end of if
		) ;_ end of setq
		(PRINC lmsg)
	      ) ;_ end of progn
	    ) ;_ end of if
	   )
	   ((EQ loper "Isolate")
					;            (if (eq(getvar"clayer")nentl)
					;              (princ (strcat "\nLayer " nentl " is the current layer and will not be turned off. "))
	    (SETQ lmsg (STRCAT "\nLayer " nentl " selected to be isolated. ")
		  lstr (IF (> (STRLEN lstr) 0)
			 (STRCAT lstr "," nentl)
			 nentl
		       ) ;_ end of if
	    ) ;_ end of setq
					;            )
	    (PRINC lmsg)
	   )
	 )				;cond
      )					;while
    )					;progn
  )					;if
  (IF lstr
    (PROGN
      (COND
	((EQ loper "VPFreeze")
	 (COMMAND ".vplayer" "freeze" lstr "current" "")
	)
	((EQ loper "VPReset")
	 (COMMAND ".vplayer" "reset" lstr "current" "")
	)
	((EQ loper "Isolate")
	 (COMMAND ".layer" "off" "*" "on" lstr "")
	)
	(T (COMMAND ".layer" loper lstr ""))
      ) ;_ end of cond
      (SETQ old_loper loper)
      (IF (/= loper "Make")
	(PRINC
	  (STRCAT "\nUndo now or type \"UNLAY\" at any time to reverse latest layer "
		  loper
		  " operation. "
	  ) ;_ end of strcat
	) ;_ end of princ
	(PRINC
	  (STRCAT "\nUndo now or type \"UNLAY\" at any time to Set layer back to "
		  unmkl
	  ) ;_ end of strcat
	) ;_ end of princ
      )					;if
    ) ;_ end of progn
    (PRINC "\nNothing selected. ")
  ) ;_ end of if
  (SETVAR "expert" old_expert)
  (PRINC lmsg)
  (PRINC)
)					;defun
(DEFUN c:unlay (/)
  (COND
    ((= old_loper "Off")
     (COMMAND ".layer" "on" lstr "")
    )
    ((= old_loper "Freeze")
     (COMMAND ".layer" "t" lstr "")
    )
    ((= old_loper "VPFreeze")
     (COMMAND ".vplayer" "t" lstr "current" "")
    )
    ((= old_loper "Make")
     (COMMAND ".layer" "s" unmkl "")
    )
    ((= old_loper "Isolate")
     (COMMAND ".layer" "on" lstr "")
    )
  )					;cond
  (IF (clnmstd)
    (SETQ clayr	(GETVAR "clayer")
	  mjrg	(SUBSTR clayr 1 1)
	  llt	(SUBSTR clayr 2 1)
	  prod	(SUBSTR clayr 3 4)
	  colr	(IF (= (TYPE (READ (SUBSTR clayr 7 1))) 'INT)
		  (SUBSTR clayr 7 1)
		  nil
		) ;_ end of if
	  colra	(IF (= (TYPE (READ (SUBSTR clayr 7 1))) 'INT)
		  nil
		  (SUBSTR clayr 7 1)
		) ;_ end of if
    )					;setq
  )					;if
  (PRINC)
)					;defun
;|«Visual LISP© Format Options»
(84 2 40 2 T "end of " 60 9 2 0 0 T T nil T)
;*** DO NOT add text below the comment! ***|;