;; | ----------------------------------------------------------------------------
;; | LA_SetLayerDesc
;; | ----------------------------------------------------------------------------
;; | Function : Sets the layer description for a layer
;; | Arguments:
;; |
;; | Action   : Sets the layer description
;; | Comments : Works only with AutoCAD 2005 and above
;; | Updated  : January 28, 2005
;; | ----------------------------------------------------------------------------


(defun LA_SetLayerDesc( la Desc / doc Layers Layer )

(setq
	doc    (vla-get-ActiveDocument (vlax-get-acad-object))
	Layers (vla-get-Layers doc)
	Layer  (vla-item Layers la)
)
(vla-put-Description Layer Desc)
)