In this code
(setq valor_area 0.0000)
(setq sel (ssget "_x" (list '(0 . "HATCH")(cons 8 layer))))
(if (/= sel nil)
(progn
(setq i 0)
(repeat (sslength sel)
(setq entbh (ssname sel i))
(if (/= entbh nil)
(progn
(setq lentbh (entget entbh))
(setq layerbh (cdr(assoc 8 lentbh)))
(setq valor_area(+ valor_area (vla-get-area (vlax-ename->vla-object entbh))))
))
)
The error is in this line
(setq valor_area(+ valor_area (vla-get-area (vlax-ename->vla-object entbh))))
I received the Automation error, how to handling this problem ?
I need that when the error occurs and the system to zoom in on the problem with hatch.
Thanks