Thanks 'parcea'
I have a lisp version already but here is something you could add to yours to place a description in your layer definition.
;;;*Syntax (ldescription name desc)
(DEFUN ldescription(LAYERNAME LAYERDESC)
(setq myLayer (vla-Add (vla-Get-Layers (vla-Get-ActiveDocument
(vlax-Get-Acad-Object))) LAYERNAME))
(vla-Put-Description myLayer LAYERDESC)
)
Regards
Dave
