Layer Descrition

Hello,

Is there a way to show LayerName and Description by clicking on a line in a drawing?

Like:

You pick a line and a popUp comes up which tells you layername and layer Descrition.

layer Desc on one row and layername on the second.

Thanx for help

Best regards

Is this what you looking for?

(defun C:WD(/ descr ent layer obj)
(while (setq ent (entsel "\nSelect object (Enter to Exit): "))
 (setq obj (vlax-ename->vla-object (car ent))
layer (vla-get-layer obj)
descr (vla-get-description
	(vla-item
	  (vla-get-layers
	    (vla-get-activedocument
	      (vlax-get-acad-object))) layer)))
 (alert (strcat "Description: " "\"" descr "\"" "\nLayer: " "\"" layer "\"" "."))
)  
(princ)
)
(prompt "\n\t***   Type WD to run   ***")
(princ)

Is a Layer Description only in later versions? - the LISP doesn't seem to work on '04

I think this thing was added starting from A2005

but not sure about

~'J'~

Ok, Cheers Fixo