填充面积合法核查工具

Lispboy

不要在相信自己制作或别人给的图中的填充了，因为有时候他们面积会为0，这样基于这个填充制作的面积工程量就发生严重错误了，这个插件就是检查图中的填充，把填充为0的填充给统计出来。

游客，如果您要查看本帖隐藏内容请回复

display18

还没遇到这种情况，收藏备用

liuyj

大师又出山了，先收藏。

77077

看看，和我的是否一样~~~~

77077

2. 
   
3. (defun c:HATCHCHK (/ ss i ent obj)
   
4.   (if (setq ss (ssget "x" '((0 . "HATCH"))))
   
5.     (progn
   
6.       (setq i 0)
   
7.       (while (setq ent (ssname ss i))
   
8.         (if (VL-CATCH-ALL-ERROR-P (VL-CATCH-ALL-APPLY 'vla-get-Area
   
9.                                                       (list (setq obj
   
10.                                                                   (vlax-ename->vla-object ent)
    
11.                                                             )
    
12.                                                       )
    
13.                                   )
    
14.             )
    
15.           (vla-put-Color obj 1)
    
16.         )
    
17.         (setq i (1+ i))
    
18.       )
    
19.     )
    
20.   )
    
21. )
    

<br /> (defun c:HATCHCHK (/ ss i ent obj)<br />   (if (setq ss (ssget "x" '((0 . "HATCH"))))<br />     (progn<br />       (setq i 0)<br />       (while (setq ent (ssname ss i))<br />         (if (VL-CATCH-ALL-ERROR-P (VL-CATCH-ALL-APPLY 'vla-get-Area<br />                                                       (list (setq obj<br />                                                                   (vlax-ename->vla-object ent)<br />                                                             )<br />                                                       )<br />                                   )<br />             )<br />           (vla-put-Color obj 1)<br />         )<br />         (setq i (1+ i))<br />       )<br />     )<br />   )<br /> )<br />

XDSoft

77077 发表于 2016-4-29 20:18

修复这样的填充有代码吗？

向嘟嘟

看看解决的方法。

xinyeyu

看看好用不

彩云

路过顶一下！

dreamqfxiao

偶尔会遇到填充不能显示面积的情况，希望能解决问题，谢谢楼主！

gg5120

试试看这个怎么样

limpidquan

似乎用的着

luminace001

感谢分享！！！！

xzs16

我来测试一下，行不行

yoyoho

感谢分享！下载学习！