;;;Macro to set only SWWM project layers for utilities on.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 6-6-2001
;;;>		   EDITED: 11-19-2001
;;;
(DEFUN c:utlay ()
  (SETQ old_expert (GETVAR "EXPERT"))
  (SETVAR "EXPERT" 5)
  (COMMAND ".layer" "OFf" "*" "")
  (SETQ lonlst (LIST "*|catv*"
                     "*|elec*"
                     "*|pl*"
                     "*|erw*"
                     "*|es*"
                     "*|ew*"
                     "*|gas*"
                     "*|ps*"
                     "*|sd*"
                     "*|strw*"
                     "*|tel*"
                     "*|tbm*"
                     "*|tp*"
                     "*|c????????##p"
                     "*|water"
                     "*|guywire"
                     "*|rw"
               ) ;_ end of LIST
  ) ;_ end of SETQ
  (COMMAND ".layer" "ON" lonlst "")
  (COMMAND ".layer" "ON" "~*|*" "")
  (SETVAR "EXPERT" old_expert)
  (PRINC)
) ;_ end of defun


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