Hola amigos
Me interesa mucho averiguar Cómo capturar color de objeto en una Variable, pero que esté en BLayer, ya que lo busco con Entget y no hay ninguna opción para capturarlo, excepto cuando a un objeto se le cambiado manualmente el color (NO el layer), entonces me lanza la opción 62, donde me indica el número del color que es justo lo que me interesa saber.
Lo hago así

Código:
(setque obj-color (ssget))
RESULTADO: <Selection set: 33b0>
Código:
(setque ent-color (ssname obj-color 0))
RESULTADO: <Entity name: 7eef8390>
Código:
(setque ent-color (entget ent-color))
Y la lista de la Entidad es
((-1 . <Entity name: 7eef8390>) (0 . "TEXT") (330 . <Entity name: 7ee53cc8>) (5 . "1E312") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "$0$1O8 PROP$0$PLUMA_4") (100 . "AcDbText") (10 74.5563 -9.48346 0.0) (40 . 2.0) (1 . "OLGA MARTA NAVARRO ZUÑIGA,") (50 . 0.0) (41 . 1.0) (51 . 0.261799) (7 . "$0$1O8 PROP$0$ROMAND") (71 . 0) (72 . 1) (11 98.9372 -9.48346 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))

Esto me resulta cuando el Objeto esta en BLayer, pero cuando el objeto tiene el color cambiado manualmente, me aparece así
((-1 . <Entity name: 7eef89b8>) (0 . "TEXT") (330 . <Entity name: 7ee53cc8>) (5 . "1E8F7") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "texto_derro") (62 . 7) (100 . "AcDbText") (10 178.636 194.731 0.0) (40 . 2.0) (1 . "17.87m") (50 . 0.0) (41 . 1.0) (51 . 0.261799) (7 . "SIMPLEX") (71 . 0) (72 . 2) (11 189.874 195.731 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 2))

Donde me aparece una opción 62, que es la que quiero, así que si alguien me pudiera decir cual es la forma de obtener el número del color en que esta un Objeto. Empiezo a sospechar que no es por ENTGET.
El punto es, que quiero hacer una rutina donde evalúe todos los objetos existentes en el archivo, que dé la opción de elegir un color y que me permita seleccionar sólo los objetos que están con ese color (no me refiero a capa), parecido a como lo hice una vez por nombre de capa
Código:
(setque obj-capa(ssget (list (cons 8 "pluma_4"))))
Muchas gracias !!!