(defun c:tl
(/ adoc layers found target en dx
) ; initialize variables ; layers = list of all layers in current drawing
) ;_ end of type
'str
) ;_ end of =
) ;_ end of and
) ;_ end of if
) ;_ end of vlax-for
;; if "found" is anything but nil, a layer name was found
;; then use XOR function (boole 6) to toggle "frozen" bit flag of that layer
;; else alert user no matching layer was found
) ;_ end of setq
) ;_ end of foreach
) ;_ end of progn
) ;_ end of if
(princ (strcat "\nLayer(s) with mask *" target
"* nou found")) ) ;_ end of if
) ;_ end of defun
(layerstate-restore "1b - ALL-Final" (acet-currentviewport-ename))
) ;_ end of defun
(layerstate-restore "1c - ALL-Final-Seismic" (acet-currentviewport-ename))
) ;_ end of defun
(layerstate-restore "1a - ALL-Prelim" (acet-currentviewport-ename))
) ;_ end of defun
(layerstate-restore "2a - A1-Layout" (acet-currentviewport-ename))
) ;_ end of defun
(layerstate-restore "2b - A1-Layout plus 799" (acet-currentviewport-ename))
) ;_ end of defun
(layerstate-restore "3 - S1-Layout" (acet-currentviewport-ename))
) ;_ end of defun
(layerstate-restore "4 - S1-Layout-Seismic" (acet-currentviewport-ename))
) ;_ end of defun
(layerstate-restore "5 - S2-Layout" (acet-currentviewport-ename))
) ;_ end of defun
(layerstate-restore "6 - E1-Layout" (acet-currentviewport-ename))
) ;_ end of defun
(layerstate-restore "7a - Ceiling" (acet-currentviewport-ename))
) ;_ end of defun
(layerstate-restore "7b - Floor" (acet-currentviewport-ename))
) ;_ end of defun