what is the description of the current layer

what is the description of the current layer

poornimasaigundala
Explorer Explorer
588 Views
3 Replies
Message 1 of 4

what is the description of the current layer

poornimasaigundala
Explorer
Explorer

Iam using autocad 2023

open ACAD-Layers-Description-23.dwg 

what is the description of the current layer

could you please share me the answer?

0 Likes
589 Views
3 Replies
Replies (3)
Message 2 of 4

dany_rochefort
Collaborator
Collaborator
0 Likes
Message 3 of 4

Kent1Cooper
Consultant
Consultant

The Layer Manager will show you that the Description is "Wall Brick."

 

Or, without looking at the Layer Manager:

Command: (getpropertyvalue (tblobjname "layer" (getvar 'clayer)) "Description")
"Wall Brick"

Kent Cooper, AIA
Message 4 of 4

paullimapa
Mentor
Mentor

here's a lisp function called GetLyrDes that will let you select an object on the screen and report back the Layer name it's on along with the Description:

 

; getlyrdes function to pick an object to get the layer's description
(defun c:getlyrdes (/ ActiveX-Collection la_doc la_lst lyrdes lyrnam)
 ;;;---load vl functions
 (if(not(car (atoms-family 1 '("vl-load-com"))))(vl-load-com))
 ;; Define some variables that will be used later
 (setq 
    la_doc (vlax-get-property (vlax-get-acad-object) 'activedocument) ;; Get the active AutoCAD document
    la_lst (vlax-get-property la_doc 'layers) ;; Get the collection of layers in the document
 );end_setq
 (while (ssget "_+.:E:S")
  (setq ActiveX-Collection (vla-get-activeselectionset la_doc))
  (vlax-for ent ActiveX-Collection
   (setq lyrdes (vlax-get-property(vla-Item la_lst (setq lyrnam (vla-get-layer ent)))"Description"))
  )
  (if (= lyrdes "")
   (princ(strcat"\nObject selected is on Layer: [" lyrnam "] with No Description."))
   (princ(strcat"\nObject selected is on Layer: [" lyrnam "] with Description: [" lyrdes "]."))
  )
 ) ; while
 (princ) ; clean exit
) ; defun

 


Paul Li
IT Specialist
@The Office
Apps & Publications | Video Demos