Filter current layer in a selection set

[msarqui]

Hello,

I would like to have some help here, please.

In a selection set, how can I know if among the selected objects, there is one or more of them that has the current layer?

Something like this:

(defun c:test()
(setq sel (sseget))
(if ;...one or more objects in this selection set has the current layer...
(princ "n\ There are one or more objects with the current layer in the selection set") ;do not need to know how many
);if
);defun

Thanks for any help

Marcelo 

[hmsilva · Accepted solution]

Hi Marcelo,

(defun c:test (/ sel)
   (if (setq sel (ssget))
      (if (ssget "_P" (list (cons 8 (getvar 'CLAYER))))
         (princ "\n There are one or more objects with the current layer in the selection set") ;do not need to know how many
      )
   ) ;if
   (princ)
) ;defun

Hope this helps,
Henrique

[msarqui]

Many thanks Henrique!

[hmsilva]

---

@msarqui wrote:
Many thanks Henrique!

---

You're welcome, Marcelo!
Glad I could help

Henrique