¿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)
)