Layer Descrition

[au-s]

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

[fixo]

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)

[Lee Mac]

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

[fixo]

I think this thing was added starting from A2005

but not sure about

 

~'J'~

[Lee Mac]

Ok, Cheers Fixo