Select Named Layer

[MR MAN]

Is There Any Lisp Select Named Layer Without Click On It?

For Example I Need Select Layer Called Divide Without Click On It.

[ASMI]

(defun c:s1()(sssetfirst nil(ssget "_X" '((8 . "DIVIDE"))))(princ))

[Lee Mac]

Did you want to select everything on the "DIVIDE" layer, or just go to the layer?

 

ASMI's code will select everything on the layer, but below will just set it as the current layer:

 

(defun c:div ()
   (setvar "cmdecho" 0)
   (if    (not (tblsearch "LAYER" "DIVIDE"))
   (command "-layer" "m" "DIVIDE" "")
   (setvar "clayer" "DIVIDE")
   ) ;_  end if
   (setvar "cmdecho" 1)
   (princ)
) ;_  end defun

[Lee Mac]

Or, if indeed you just want to change the layer with a shortcut:

 

see here:

http://www.cadtutor.net/forum/showthread.php?t=24782

 

Hope this helps

[MR MAN]

Thanks Alot Guys For Your Help