图案填充面积的问题

lizagen

各位老师好，我的一个图形里面有许多图案填充，都在一个层里面，但是大部分有面积，也有许多查面积时提示该对象没有面积，请问怎么才能在大量的图案填充里面把没有面积的快速找出，高亮显示或者是得到它们的句柄然后生成一个没有面积的对象表格呢？望各位老师能帮我解决一下好吗？

ludaweb

有的填充确实没有面积，不知道怎么回事，上次有个复杂的填充想算面积，没算出来，最后还是用pl线加加减减算出来的。

Gu_xl

1. (defun c:tt (/ ss filename f e)
   
2.   (if (setq ss (ssget '((0 . "hatch"))))
   
3.     (progn
   
4.       (setq filename (VL-FILENAME-MKTEMP "hand" "" ".txt"))
   
5.       (setq f (open filename "w"))
   
6.       (repeat (setq n (sslength ss))
   
7.         (if (VL-CATCH-ALL-ERROR-P
   
8.               (VL-CATCH-ALL-APPLY
   
9.                 'vla-get-area
   
10.                 (list (vlax-ename->vla-object
    
11.                         (setq e (ssname ss (setq n (1- n))))
    
12.                       )
    
13.                 )
    
14.               )
    
15.             )
    
16.           (progn
    
17.             (redraw e 3)
    
18.             (WRITE-LINE (cdr (assoc 5 (entget e))) f)
    
19.           )
    
20.         )
    
21.       )
    
22.       (close f)
    
23.       (startapp "notepad.exe" filename)
    
24.     )
    
25.   )
    
26.   (princ)
    
27. )

(defun c:tt (/ ss filename f e)<br />   (if (setq ss (ssget '((0 . "hatch"))))<br />     (progn<br />       (setq filename (VL-FILENAME-MKTEMP "hand" "" ".txt"))<br />       (setq f (open filename "w"))<br />       (repeat (setq n (sslength ss))<br />         (if (VL-CATCH-ALL-ERROR-P<br />               (VL-CATCH-ALL-APPLY<br />                 'vla-get-area<br />                 (list (vlax-ename->vla-object<br />                         (setq e (ssname ss (setq n (1- n))))<br />                       )<br />                 )<br />               )<br />             )<br />           (progn<br />             (redraw e 3)<br />             (WRITE-LINE (cdr (assoc 5 (entget e))) f)<br />           )<br />         )<br />       )<br />       (close f)<br />       (startapp "notepad.exe" filename)<br />     )<br />   )<br />   (princ)<br /> )

lizagen

太感谢版主了，我苦苦思考了2天的问题，想不到您竟然几分钟就给我回复了，这个论坛真的是高手云集，再次感谢！

edata

ludaweb 发表于 2015-9-12 12:49
有的填充确实没有面积，不知道怎么回事，上次有个复杂的填充想算面积，没算出来，最后还是用pl线加加减减算 ...

通常情况下，填充边界自交不显示面积。