Se puede en Cad capturar color de objeto en variable

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: 7ef8390>.

Código:

(setque Ent-color (entget Ent-color))

.

Y la lista de la entidad es.
((-1. <entity name: 7ef8390>) (0. Text) (330. <entity name: 7e53cc8>) (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 está en blayer, pero cuando el objeto tiene el color cambiado manualmente, me aparece así.
((-1. <entity name: 7ef89b8>) (0. Text) (330. <entity name: 7e53cc8>) (5. 1e8f7) (100. Acdbentity) (67. 0) (410. Model) (8. Texto_derro) [size=15](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 cuál es la forma de obtener el número del color en que está 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 de la opción de elegir un color y que me permita seleccionar solo 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. Ver sobre el tema y comentarios en el foro