;; | ----------------------------------------------------------------------------
;; | LA_GetColor
;; | ----------------------------------------------------------------------------
;; | Function : Gets the color of the specified layer
;; | Argument :
;; |       'la' - LayerName
;; |       'Clr' - Color returned
;; | Returns  : The color number of the layer
;; | Updated  : March 5, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun LA_GetColor( la / tbl Clr )

(setq
	tbl (tblsearch "LAYER" la)
	Clr nil
)
(if tbl
(progn
	(setq Clr (LI_item 62 tbl))
	(if (minusp Clr) (setq Clr nil))
))
clr
)