;;;Layer macros GOF=grid off, GON=grid on, PTOF, PTON, PTFRZ, PTTHW=point....
;;;
;;;
;;;
;;;
;;;******** THIS LISP HAS BEEN RETIRED **********
;;;******** SEE LAMACS.LSP **********
;;;(DEFUN c:gof (/)
;;;  (COMMAND ".layer"
;;;           "off"
;;;           "*gridd*,*gride*,*gridf*,c-profggrid,c-profhgrid,*vi00dgrid,*vi00egrid,*vi00ggrid,*vi00hgrid,14,15,1,5"
;;;           ""
;;;  ) ;_ end of command
;;;) ;_ end of defun
;;;(DEFUN c:pgof (/)
;;;  (COMMAND ".layer"
;;;           "off"
;;;           "*vi00dgrid,*vi00egrid,*vi00fgrid,*vi00ggrid,*vi00hgrid,c-profggrid,c-profhgrid,14,15,1,5"
;;;           ""
;;;  ) ;_ end of command
;;;) ;_ end of defun
;;;(DEFUN c:groF (/) (COMMAND ".layer" "oF" "*fgrid,*gridd*,*gride*,*gridf*,*grid,13,14,15,1,5" ""))
;;;(DEFUN c:gon (/) (COMMAND ".layer" "on" "*gridd*,*gride*,*gridf*,14,15,1,5" ""))
;;;(DEFUN c:pgon (/) (COMMAND ".layer" "on" "*grid,*vi00?grid,14,15,1,5" ""))
;;;(DEFUN c:gron (/) (COMMAND ".layer" "on" "*fgrid,*gridd*,*gride*,*gridf*,*grid,13,14,15,1,5" ""))
;;;(DEFUN c:ptof () (COMMAND "._layer" "off" "*desc,*elev,*pnts,*topo7symb" ""))
;;;(DEFUN c:pton ()
;;;  (COMMAND "._layer" "on" "*desc,*elev,*pnts,*topo7symb" "thaw" "*desc,*elev,*pnts,*topo7symb" "")
;;;) ;_ end of defun
;;;(DEFUN c:ptfrz () (COMMAND "._layer" "freeze" "*desc,*elev,*pnts,*topo7symb" ""))
;;;(DEFUN c:ptthw ()
;;;  (COMMAND "._layer" "on" "*desc,*elev,*pnts,*topo7symb" "thaw" "*desc,*elev,*pnts,*topo7symb" "")
;;;) ;_ end of defun
;;;(DEFUN c:exof (/) (COMMAND "._layer" "of" "*|*" ""))
;;;(DEFUN c:exon (/) (COMMAND "._layer" "on" "*|*" ""))
;;;(DEFUN c:txtof (/) (COMMAND "._layer" "of" "*txt,*adjpar,*owner" ""))
;;;(DEFUN c:txton (/) (COMMAND "._layer" "on" "*txt,*adjpar,*owner" ""))
;;;(DEFUN c:insof (/) (COMMAND "._layer" "f" "*-ins" ""))
;;;(DEFUN c:inson (/) (COMMAND "._layer" "t" "*-ins" ""))
;;;(DEFUN c:erof (/) (COMMAND "._layer" "of" "*eroc*" "" ""))
;;;(DEFUN c:eron (/) (COMMAND "._layer" "on" "*eroc*" ""))
;;;(DEFUN c:wdof (/) (COMMAND "._layer" "of" "*wdln*" ""))
;;;(DEFUN c:wdon (/) (COMMAND "._layer" "on" "*wdln*" ""))
;;;(DEFUN c:ctof (/) (COMMAND "._layer" "of" "*CONT-MJR*,*CONT-MNR*" ""))
;;;(DEFUN c:cton (/) (COMMAND "._layer" "on" "*CONT-MJR*,*CONT-MNR*" ""))
;;;(DEFUN c:ppof (/) (COMMAND "._layer" "of" "*[a c e f g i l m o p q s t z]?????[1 2 3 4 5 6 7 8 9 a b c d e f g h i][n d f r][s d]?#P*" ""))
;;;(DEFUN c:ppon (/) (COMMAND "._layer" "on" "*[a c e f g i l m o p q s t z]?????[1 2 3 4 5 6 7 8 9 a b c d e f g h i][n d f r][s d]?#P*" ""))
;;;(DEFUN c:hdof (/) (COMMAND "._layer" "of" "*HIDE*IMAGE*" ""))
;;;(DEFUN c:hdoN (/) (COMMAND "._layer" "oN" "*HIDE*IMAGE*" ""))

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