Select a object and open Layer Properties Manager

[itacad]

Hi, I can't do it with normal use so I ask if it is possible to select an object and through lisp open the Layer Properties Manager directly to the layer row of the selected object.

Thank you in advance

[mhupp]

I don't know about directly to it but the layer will be highlighted since this lisp sets is as the current layer.

 

(defun C:foo (/ lay)
  (setq e (car (entsel "\nSelect Entity for Layer: ")))
  (setq lay (cdr (assoc 8 (entget e))))
  (setvar 'clayer lay)
  (prompt (strcat "\nEntity is on \"" lay "\" Layer"))
  (command "_layer")
  (princ)
)

 

Entity is on "Test-Layer-123" Layer

 

Edited November 20, 2021 by mhupp
always forgetting the princ

[tombu]

With the Layer List Combo Box added to the Quick Access Toolbar it automatically displays the layer of a selected object allowing you to modify the layer's color, toggle it on/off, frozen/thawed, locked/unlocked or change selected objects to whatever layer you want.

 

If you have so many layers showing in Layer Manager that what you want is hard to find try using Layer Filters.

[BIGAL]

You could do a custom dcl that opens just that layer display color, linetype, on off etc the color would open a sub dialog (acad_colordlg), linetype a list box etc.

[itacad]

Sorry for the delay with which I thank for your help