When I insert dynamic blocks with associated hatch inside some of them have corrupted hatch (and it goes normal if I change any grip which affect boundary of hatch). If drawing contains many such blocks it becomes hard to fix them all manually, so i wrote a lisp to update all their subents and regen the drawing. Also I noticed double regen is required to see the result. Here is my version
(defun c:block_hatch_fix ()
(vl-load-com)
(princ "\nStart..")
(vlax-for blk (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-Acad-Object)))
(vlax-for obj blk
(vlax-invoke-method obj 'Update)
)
)
(command "_.regenall")
(command "_.regenall")
(princ "\nComplete")
(princ)
)
Maybe somebody find this usefull or can improve the code.
