SELECCION DE OBJETOS

Hola a todos
La pregunta es la siguiente, hay forma en Lisp de pinchar un objeto, linea, texto o cualquier otro objeto y que automaticamente se seleccionen todos los objetos de la capa del objeto designado?.
Gracias

Si Tienes instalado ya el AutoCAD 2017, solo con el comando SELECTSIMILAR puedes seleccionar por Tipo de Objetos, Layers, Color, Linetype, Name, etc.












Saludos

Hola que tal, prueba esto y luego me cuentas.

Código:


(defun c:Selay (/ Ent EntData EntLay ObjSelect)
(and (setq Ent (entsel "\nSelecciona Objeto(s): "))
(setq EntData (entget (car Ent)))
(setq EntLay (assoc 8 EntData)))
(setq ObjSelect (ssget "_X" (list EntLay)))
(sssetfirst ss ss)
(princ))


Ante todo muchas gracias, es justo eso amc.dicac, pero veo que despues de seleccionar el objeto hay que repetir cualquier orden con "p" de conjunto previo de selección, hay alguna manera de que esa selección se quede activa en la misma rutina para por ejemplo cambiarlo de capa, color etc....
Lo dicho muchas gracias por la respuesta tan rápida y eficiente

Uy lo siento habia cometido un error, aqui te la paso de nuevo.

Código:


(defun c:Selay (/ Ent EntData EntLay ObjSelect)
(and (setq Ent (entsel "\nSelecciona Objeto(s): "))
(setq EntData (entget (car Ent)))
(setq EntLay (assoc 8 EntData)))
(setq ObjSelect (ssget "_X" (list EntLay)))
(sssetfirst ObjSelect ObjSelect)
(princ))


Muuuuuuchas Graciasssss.