;; | ----------------------------------------------------------------------------
;; | LA_SetColor
;; | ----------------------------------------------------------------------------
;; | Function : Sets the color of the specified layer
;; | Argument :
;; |       'la' - LayerName
;; |       'Clr' - Color to set
;; | Returns  : Sets the specified color to the layer
;; | Updated  : January 14, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun LA_SetColor( la Clr )

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