hello everyone
i am try to make a lisp routine to change globally the hatch background color to none , (and nested hatch) , but I do not.
can anyone help me. thanks
here's the routine.
;;;;Global change hatch background color to none (and nested hatch)
(defun C:test ( / *error*) (vl-load-com)
;;;(setq *error* (err))
(vlax-for block (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
(if
(not (eq (vla-get-isxref block) :vlax-true))
(vlax-for obj block
(if
(eq (vla-get-objectname obj) "AcDbhatch")
(progn
(setq obj (vlax-ename->vla-object obj)
col (vla-get-backgroundcolor obj)
)
(vla-put-entitycolor col -939524096)
(vla-put-backgroundcolor obj col)
)
)
)
)
)
;;;(*error* nil)
(princ)
)
edit: code tags added