;; | ----------------------------------------------------------------------------
;; | LA_mk_c_lyr
;; | ----------------------------------------------------------------------------
;; | Function : Create, if necessary, unlock, if necessary and make current layer
;; | Argument :
;; |       'lyr' - LayerName
;; |       'Clr' - Color to set (if new)
;; | Returns  : Makes the specified layer current with the color set and also
;; |            unlocks it if it is locked
;; | Updated  : January 14, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun LA_mk_c_lyr(lyr Clr / tbl)

(if (setq tbl (tblsearch "LAYER" lyr))
	(command "._Layer" "_Thaw" lyr "_On" lyr "_UnLock" lyr "_Set" lyr "")
	(command "._Layer" "_Make" lyr "_Color" (if (= Clr "") "_White" Clr) lyr "")
)
)