¿Cómo procesar por lotes colores de capas usando lisp o macros en CAD?

Utilice el color de capa para lograr todos los colores de píxeles con un solo clic

(defun?c：tes?(? /?block?e?obj?ss) (if?(null?vlax-dump-object) ? (vl-load-com)?) (if?(setq?ss?(ssget? "X")) (progn

(vla-startundomark?(vla-get-activedocument?(vlax- get -acad-object)))

;;?Definición de bloque dentro de la entidad

(vlax-for?block?(vla-get-blocks?(vla-get-activedocument? (vlax-get-acad-object)))

(vlax-for?obj?block (vla-put-color?obj?256)

)

)

(mientras?(setq?e?(ssname?ss?0))

(setq?ss?(ssdel?e?ss)?obj?(vlax -ename-gt; vla-object?e))

(vla-put-color?obj?256)

) ) ) ) ) (princ)

)