;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1999-2002
;;;>		   EDITED: 08-06-2003
;;;
(DEFUN c:revXlay	()
  (SETQ oldcmdecho (GETVAR "CMDECHO"))
  (SETVAR "CMDECHO" 0)
  (SETQ layent_lst NIL)
  (SETQ	top_layr (CDR (ASSOC 2 (TBLNEXT "layer" T)))
	lay_incr 1
  ) ;_ end of SETQ
  (SETQ xrname (ustr 1 "Enter Xref name for operation" xrname T))
  (SETQ layent_lst (LIST (ENTGET (TBLOBJNAME "layer" top_layr))))
  (PRINC "\nFinding layers, please wait...\n")
  (WHILE (SETQ nxt_layr (TBLNEXT "layer"))
    (SETQ curlay_name (CDR (ASSOC 2 nxt_layr)))
    (IF (WCMATCH (STRCASE curlay_name) (STRCASE (STRCAT xrname "|*")))
      (SETQ layent_lst
	     (APPEND
	       layent_lst
	       (LIST (ENTGET (TBLOBJNAME "layer" curlay_name)))
	     ) ;_ end of APPEND
      ) ;_ end of SETQ
    )
    (IF	(EQ (REM lay_incr 10) 0)
      (PROGN
	(PRINC (STRCAT "\010\010\010\010" (ITOA lay_incr)))
	(PRINC)
      ) ;_ end of progn
    ) ;_ end of if
    (SETQ lay_incr (1+ lay_incr))
  ) ;_ end of while
  (PRINC (STRCAT "\010\010\010\010" (ITOA lay_incr) " layers found."))
  (PRINC)
  (SETQ lay_incr 1)
  (PRINC "\nReversing layer On/Off status, please wait...\n")
  (SETQ	layof_Lst NIL
	layon_lst NIL
  ) ;_ end of SETQ
  (SETVAR "CMDECHO" 0)
  (SETQ curlayname (GETVAR "CLAYER"))
  (COMMAND ".layer")
  (MAPCAR
    '(LAMBDA (x)
       (COND
	 ((> (CDR (ASSOC 62 x)) 0)
	  (IF (AND layof_lst (< (STRLEN layof_lst) 220))
	    (IF	(EQ (CDR (ASSOC 2 x)) curlayname)
	      NIL
	      (SETQ layof_lst (STRCAT layof_lst "," (CDR (ASSOC 2 x))))
	    ) ;_ end of IF
	    (IF	(EQ (CDR (ASSOC 2 x)) curlayname)
	      NIL
	      (SETQ layof_lst (CDR (ASSOC 2 x)))
	    ) ;_ end of IF
	  ) ;_ end of IF
	  (IF (AND layof_lst (> (STRLEN layof_lst) 219))
	    (PROGN
	      (COMMAND "off" layof_lst)
	      (SETQ layof_lst (CDR (ASSOC 2 x)))
	    ) ;_ end of PROGN
	  ) ;_ end of IF
	 )
	 ((< (CDR (ASSOC 62 x)) 0)
	  (IF (AND layon_lst (< (STRLEN layon_lst) 220))
	    (IF	(EQ (CDR (ASSOC 2 x)) curlayname)
	      NIL
	      (SETQ layon_lst (STRCAT layon_lst "," (CDR (ASSOC 2 x))))
	    ) ;_ end of IF
	    (IF	(EQ (CDR (ASSOC 2 x)) curlayname)
	      NIL
	      (SETQ layon_lst (CDR (ASSOC 2 x)))
	    ) ;_ end of IF
	  ) ;_ end of IF
	  (IF (AND layon_lst (> (STRLEN layon_lst) 219))
	    (PROGN
	      (COMMAND "on" layon_lst)
	      (SETQ layon_lst (CDR (ASSOC 2 x)))
	    ) ;_ end of PROGN
	  ) ;_ end of IF
	 )
       ) ;_ end of COND
       (IF (EQ (REM lay_incr 10) 0)
	 (PROGN
	   (PRINC (STRCAT "\010\010\010\010" (ITOA lay_incr)))
	   (PRINC)
	 ) ;_ end of progn
       ) ;_ end of if
       (SETQ lay_incr (1+ lay_incr))
     ) ;_ end of lambda
    layent_lst
  ) ;_ end of mapcar
  (IF layof_lst
    (PROGN
      (COMMAND "off" layof_lst)
      (SETQ layof_lst NIL)
    ) ;_ end of PROGN
  ) ;_ end of IF
  (IF layon_lst
    (PROGN
      (COMMAND "on" layon_lst)
      (SETQ layon_lst NIL)
    ) ;_ end of PROGN
  ) ;_ end of IF
  (COMMAND "")
  (SETVAR "CMDECHO" oldcmdecho)
;;;  (COMMAND)
;;;  (COMMAND)
;;;  (COMMAND)
  (PRINC (STRCAT "\n\010\010\010\010" (ITOA (1- lay_incr)) " layers reversed."))
  (PRINC)
) ;_ end of defun
(PRINC)

;|«Visual LISP© Format Options»
(72 2 40 2 T "end of " 60 9 2 0 0 T T nil T)
;*** DO NOT add text below the comment! ***|;