Layer Table

[Troy]

How can I get the entity names of all of the layers in a drawing?

 

[Rudy Tovar]

(setq la (tblnext "layer" t"))
(while (setq la (tbnext "layer"))
(setq la-list (append la-list (list (cdr (assoc 2 la)))))
)

 

[Rudy Tovar]

(while (setq la (tblnext "layer")); replace sorry, quick on the send

(setq la (tblnext "layer" t"))
(while (setq la (tbnext "layer"))
(setq la-list (append la-list (list (cdr (assoc 2 la)))))
)

 

[Troy]

But does this return the entname of the layer?

(while (setq la (tblnext "layer")); replace sorry, quick on the send

 

[Paul Turvill]

(setq lyr nil LayNameList nil)
(while (setq lyr (tblnext "layer" (not lyr)))
(setq name (cdr (assoc 2 lyr))
ename (tblobjname "layer" name)
LayNameList (append LayNameList (list ename))
);;setq
)::while
___

 

[Paul Turvill]

That returns a list of LAYER nemes, not entity names.
___

 

[Paul Turvill]

No. See my other post.
___

But does this return the entname of the layer?

 

[Rudy Tovar]

Sorry about that I saw only layer name and not entname.

Do as Paul has outlined.

 

[BillZ]

Or you can upgrade to vlisp:

(setq layers (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) ) (vlax-for n layers (setq lst (cons (handent (vla-get-handle n)) lst)) )
(setq lst (reverse lst))

|B^)

Bill

 

[michael puckett]

(defun GetLayerEnames ( / result )
(vlax-for layer
(vlax-get-property
(vlax-get-property
(vlax-get-acad-object)
'ActiveDocument
)
'Layers
)
(setq result
(cons
(vlax-vla-object->ename layer)
result
)
)
)
enames
)

Observations: About 25% faster than calls to vla-get-handle / handent, and about 200% faster than equivalent dxf methods (based on limited testing).

 

[BillZ]

Thanks Michael!
I'm just starting with the vl stuff. And don't know how to do the speed tests. And of coarse, if you don't put out the bait, you don't get these nice snippets to add to the ol' tool box.

Bill

 

[michael puckett]

Actually, the code I posted is wrong, it should have read

(defun GetLayerEnames ( / result ) (vlax-for layer (vlax-get-property (vlax-get-property (vlax-get-acad-object) 'ActiveDocument ) 'Layers ) (setq result (cons (vlax-vla-object->ename layer) result ) ) ) result )

Sorry for any confusion it may have caused.