Topic: Help about print hatch in block!

[Lee Mac]

And Lee is correct about the dxf code not being there is the color of an entity is ByLayer.  You will have to put it in the dxf code list like he shows.

Thanks Tim, I completely overlooked the original request with my explanations... 

[duyhung]

Thanks all.
Hey I don't know much about advance lisp. I write lisp as beginner, apload and run lisp. Can you give me one complete lisp?
In my country it's 0 hour 37 minutes. When you are working I'm sleep 
Thanks!

[T.Willey]

Usually we help, we don't give, but since you are new here, here is a complete lisp.

Code: [Select]

(defun c:ChangeHatchColor ()

    (vl-load-com)
    (vlax-for blk (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-Acad-Object)))
        (vlax-for i blk
            (if (= (vla-get-ObjectName i) "AcDbHatch")
                (vla-put-Color i 250)
            )
        )
    )
    (command "_.regenall")
    (princ)
)

[duyhung]

Thanks Tim I know and I'll study more about lisp!.

[pBe]

Hence the 2nd post

plain and simple  
and it works
except the nested part of course: