;; | ----------------------------------------------------------------------------
;; | LA_LayerOn      LA_LayerOff
;; | LA_LayerLock    LA_LayerUnlock
;; | LA_LayerFreeze  LA_LayerThaw
;; | ----------------------------------------------------------------------------
;; | Function : Turn a Given set of layer(s) On, Off, Lock, UnLock, Freeze, Thaw
;; |            them.
;; | Arguments:
;; |            'la'     - Layer Names (can be seprated by commas or be a wildcard
;; |                       or combination.
;; | Action   : Runs the Layer On/Off/Lock/Unlock/Freeze/Thaw commands.
;; |            No checking is performed on the layer existence.
;; | Updated  : March 24, 1998
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------

;; Turn layer(s) on

(defun LA_LayerOn( la )

(if (wcmatch la "*[#@.*?,]*")
(command "._Layer" "_On" la "")
(progn
	(if (tblsearch "LAYER" la)
		(command "._Layer" "_On" la "")
	)
))
)

;; Turn layer(s) off


(defun LA_LayerOff( la )

(if (wcmatch la "*[#@.*?,]*")
(command "._Layer" "_Off" la "")
(progn
	(if (tblsearch "LAYER" la)
		(command "._Layer" "_Off" la "")
	)
))
)

;; Lock Layers

(defun LA_LayerLock( la )

(if (wcmatch la "*[#@.*?,]*")
(command "._Layer" "_Lock" la "")
(progn
	(if (tblsearch "LAYER" la)
		(command "._Layer" "_Lock" la "")
	)
))
)

;; Unlock Layers

(defun LA_LayerUnLock( la )

(if (wcmatch la "*[#@.*?,]*")
(command "._Layer" "_Unlock" la "")
(progn
	(if (tblsearch "LAYER" la)
		(command "._Layer" "_Unlock" la "")
	)
))
)

;; Freeze layer(s)

(defun LA_LayerFreeze( la )

(if (wcmatch la "*[#@.*?,]*")
(command "._Layer" "_Freeze" la "")
(progn
	(if (tblsearch "LAYER" la)
		(command "._Layer" "_Freeze" la "")
	)
))
)

;; Thaw layer(s)

(defun LA_LayerThaw( la )

(if (wcmatch la "*[#@.*?,]*")
(command "._Layer" "_Thaw" la "")
(progn
	(if (tblsearch "LAYER" la)
		(command "._Layer" "_Thaw" la "")
	)
))
)