;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	e-mail hfrancis@pinehurst.net
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
(DEFUN C:TMPR ()
  (TBLNEXT "LAYER" T)
  (WHILE (SETQ X (TBLNEXT "LAYER"))
    (SETQ LN (CDR (ASSOC 2 X)))
    (IF	(OR (WCMATCH LN "*SEWR*")
	    (WCMATCH LN "*SSWR*")
	) ;_ end of OR
      (IF (AND
	    (NOT(WCMATCH LN "*|*"))
	    (NOT (TBLSEARCH "LAYER"
			  (STRCAT (SUBSTR LN
					  1
					  2
				  ) ;_ end of SUBSTR
				  "000W"
				  (SUBSTR LN 7)
			  ) ;_ end of STRCAT
	       ) ;_ end of TBLSEARCH
	  ) ;_ end of NOT
	    )
	(COMMAND ".RENAME"
		 "LAYER"
		 LN
		 (STRCAT (SUBSTR LN
				 1
				 2
			 ) ;_ end of SUBSTR
			 "000W"
			 (IF (>(STRLEN LN)6)
			   (SUBSTR LN 7)
			   ""
			 )
		 ) ;_ end of STRCAT
		 ""
	) ;_ end of COMMAND
	(PRINC (STRCAT "\n"
		       (SUBSTR LN
			       1
			       2
		       ) ;_ end of SUBSTR
		       "000W"
			 (IF (>(STRLEN LN)6)
			   (SUBSTR LN 7)
			   ""
			 )
	       ) ;_ end of STRCAT
	)
      ) ;_ end of IF
    ) ;_ end of IF
  ) ;_ end of WHILE
) ;_ end of DEFUN

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