;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 9-3-1999
;;;>		   EDITED: 09-07-1999
;;;
(DEFUN C:RELAYV	()
  (SETQ	LNM	(TBLNEXT "LAYER" T)
	LNM1LST	NIL
	LNM2LST	NIL
  ) ;_ end of SETQ
  (WHILE (SETQ LNM (TBLNEXT "LAYER"))
    (COND
      ((WCMATCH (STRCASE (CDR (ASSOC 2 LNM))) "*VI##1*")
       (SETQ LNM1LST (APPEND LNM1LST (LIST (CDR (ASSOC 2 LNM)))))
      )
      ((WCMATCH (STRCASE (CDR (ASSOC 2 LNM))) "*VI##2*")
       (SETQ LNM2LST (APPEND LNM2LST (LIST (CDR (ASSOC 2 LNM)))))
      )
    ) ;_ end of COND
  ) ;_ end of WHILE
  (SETVAR "CMDECHO" 1)
  (FOREACH N LNM2LST
    (IF	(SETQ ITN (SSGET "X" (LIST (CONS 8 N))))
      (PROGN
	(COMMAND "LAYER"
		 "M"
		 (STRCAT (SUBSTR N 1 6)
			 (ITOA (+ (ATOI (SUBSTR N 7 1)) 1))
			 (SUBSTR N 8)
		 ) ;_ end of STRCAT
		 ""
	) ;_ end of COMMAND
	(COMMAND
	  "CHANGE"
	  "P"
	  ""
	  "P"
	  "LA"
	  (STRCAT (SUBSTR N 1 6)
		  (ITOA	(+ (ATOI (SUBSTR N
					 7
					 1
				 ) ;_ end of SUBSTR
			   ) ;_ end of ATOI
			   1
			) ;_ end of +
		  ) ;_ end of ITOA
		  (SUBSTR N 8)
	  ) ;_ end of STRCAT
	  ""
	) ;_ end of COMMAND
      ) ;_ end of PROGN
    ) ;_ end of IF
  ) ;_ end of FOREACH
  (FOREACH N LNM1LST
    (IF	(SETQ ITN (SSGET "X" (LIST (CONS 8 N))))
      (PROGN
	(COMMAND "LAYER"
		 "M"
		 (STRCAT (SUBSTR N 1 6)
			 (ITOA (+ (ATOI (SUBSTR N 7 1)) 1))
			 (SUBSTR N 8)
		 ) ;_ end of STRCAT
		 ""
	) ;_ end of COMMAND
	(COMMAND
	  "CHANGE"
	  "P"
	  ""
	  "P"
	  "LA"
	  (STRCAT (SUBSTR N 1 6)
		  (ITOA	(+ (ATOI (SUBSTR N
					 7
					 1
				 ) ;_ end of SUBSTR
			   ) ;_ end of ATOI
			   1
			) ;_ end of +
		  ) ;_ end of ITOA
		  (SUBSTR N 8)
	  ) ;_ end of STRCAT
	  ""
	) ;_ end of COMMAND
      ) ;_ end of PROGN
    ) ;_ end of IF
  ) ;_ end of FOREACH
) ;_ end of DEFUN

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