Lisp to select the current layer

[jorgearone_inssitu]

hello everyone, i would like to make a lisp that can select all the elements of the current layer.
I have found the code to select a layer, but it has to pick an element. I would like to just select the current layer instantly.

This is code to select the elements of the desired Layer

(defun c:SALL ()

 (setq TargEnt (car (entsel "\nSelect object on layer to select: ")))

 (setq TargLayer (assoc 8 (entget TargEnt)))

 (sssetfirst nil (ssget "_X" (list TargLayer)))

 (princ "\n items selected")

)

This is the code to select that gives us the name of the current layer

(getvar "CLAYER")

What I don't know is how to put the two codes together.

[Alexander.Rivilis · Accepted solution]

Without testing:

(sssetfirst nil (ssget "_X" (list (cons 8 (getvar "CLAYER")))))

[jorgearone_inssitu]

Thank you very much Alexander.Rivilis, yes it works!

[jorgearone_inssitu]

hello everyone
A query, I would like to add one more step to the lisp, but I have not been able to finish it, my knowledge in Lisp is very basic

I would like when the current layer is selected, the screen will focus especially on the selection, and the selection will stay.

I have tried, following the code that they provided me, but it remains selected (at least it is not seen with the classic selection boxes in each element)

(defun c:SR ()
(sssetfirst nil (ssget "_X" (list (cons 8 (getvar "CLAYER")))))
(command "zoom" "o")
(sssetfirst nil (ssget "_X" (list (cons 8 (getvar "CLAYER")))))
)

I just added the zoom command and replayed the current layer selection code.
But the elements are not (visually) selected

[Kent1Cooper]

---

@jorgearone_inssitu wrote:

.... it is not seen with the classic selection boxes in each element ....

---

Maybe you have the GRIPOBJLIMIT System Variable set too low for the quantity of objects involved.

[jorgearone_inssitu]

It's actually, I think,  a syntax problem.

when executing the code

(sssetfirst nil (ssget "_X" (list (cons 8 (getvar "CLAYER")))))

select as seen (drawing is just an example)

and adding the zoom for the selected objects, the model is restored for the selected zone (which are the elements of the current layer), the problem is that when executing the zoom command the selection is deleted

and I would like the elements of the current layer to be reselected

like this.

[Kent1Cooper · Accepted solution]

If you're just going to immediately Zoom to the objects, I don't see any point in selecting/gripping/highlighting them twice, but I don't know why the second time doesn't happen.  If you're doing it the first time to become pre-selection for the Zoom, you could instead do the Zoom first with ordinary selection instead of pre-selection, and then do the selecting/gripping/highlighting.  Also, there's no need to re-select with the same filter code all spelled out again -- you can do it to the Previous selection:

(defun c:SR ()
  (command "_.zoom" "_object" (ssget "_X" (list (cons 8 (getvar 'clayer)))) "")
  (sssetfirst nil (ssget "_P"))
)

[jorgearone_inssitu]

yes it works, thank you very much.
My level in Lisp doesn't even reach basic, from what I see. Again thank you very much.