[编程申请]：求助！！！！关于填充

kehello

事情的发生：从外单拿来的大量电子图，想把图中所有的填充都取掉，但因做图很不规范，不在一个层，不好删，便又不能用fillmode=0来处理，因为这样要影响我后期在上面画图、做填充。请教呀！！！急

aidraft

(DEFUN c:rhatch(/ ss)
  (if (setq ss (ssget "x" '((0 . "HATCH"))))
    (command "erase" ss "" )
  )
  (princ)
)
或者用快速选择

kehello

我用了你写的那个，有用，但还是有些填充不能去除的嘛，我试了一下没去除的得一个一个的把它们炸开，再这样做一下，还是有点麻烦呀，有没有更自动一点的，先谢了哈！

aidraft

那些填充？

xyp1964

最初由 kehello 发布
[B]事情的发生：从外单拿来的大量电子图，想把图中所有的填充都取掉，但因做图很不规范，不在一个层，不好删，便又不能用fillmode=0来处理，因为这样要影响我后期在上面画图、做填充。请教呀！！！急 [/B]

为什么要重复发帖？！

kehello

各位老大：
    能不能帮我编一个程序，可以把图中所有填充都删掉的程序呀，我的图太大，一个一个的删不现实呀，而且又不在一个层里！
上次有位老大。
    要求：
    一个命令给做到
        1、所有常规填充
        2、所在包含在块里的填充
        3、属性为solid的填充（当然也有可以做成了块的）
先谢过了

kehello

还有一个事呀，上次我也发过求助的，可不知班主为什么给删了、？？？？

aidraft

(command "erase" (ssget "x" '((0 . "HATCH"))) "")

kehello

不得行哟，如果填充做成了块的话，删不掉哟，要炸开才行，有没有办法不炸就可以直接删块里的填充哟

梦断江南

两个主题已经合并，本论坛不允许重复发同样内容的帖子，请楼主以后注意，特此警告，下不为例。
不炸开块也可以删除填充，遍历所有块定义，遍历每个块定义实体，如果是填充类型，删除则可。

kehello

我也知道呀，但我想让程序自己来处理呀，因为我们处理图的工作量太大了呀，看起来一个简单的操作会花很多时间的呀！

dearjdz123

这个是个好主义呀,

Free-Lancer

2. 
   
3. (vl-load-com)
   
4. (defun c:test (/ ss ac b e x)
   
5.   (if (setq ss (ssget "x" '((0 . "hatch"))))
   
6.     (vl-cmdf ".erase" ss "")
   
7.   )
   
8.   (vlax-map-collection
   
9.     (vlax-get-property
   
10.       (setq
    
11.         ac (vlax-get-property (vlax-get-acad-object) 'activedocument)
    
12.       )
    
13.       'blocks
    
14.     )
    
15.     '(lambda (b)
    
16.        (if (not (wcmatch (vla-get-name b) "`**_SPAC*"))
    
17.          (vlax-map-collection
    
18.            b
    
19.            '(lambda (e)
    
20.               (if (= (vla-get-objectname e) "AcDbHatch")
    
21.                 (vla-delete e)
    
22.               )
    
23.             )
    
24.          )
    
25.        )
    
26.      )
    
27.   )
    
28.   (if (ssget "x" '((0 . "insert")))
    
29.     (vlax-map-collection
    
30.       (vlax-get-property ac 'activeselectionset)
    
31.       '(lambda (x)
    
32.          (vla-update x)
    
33.        )
    
34.     )
    
35.   )
    
36.   (princ)
    
37. )

<br /> (vl-load-com)<br /> (defun c:test (/ ss ac b e x)<br />   (if (setq ss (ssget "x" '((0 . "hatch"))))<br />     (vl-cmdf ".erase" ss "")<br />   )<br />   (vlax-map-collection<br />     (vlax-get-property<br />       (setq<br />         ac (vlax-get-property (vlax-get-acad-object) 'activedocument)<br />       )<br />       'blocks<br />     )<br />     '(lambda (b)<br />        (if (not (wcmatch (vla-get-name b) "`**_SPAC*"))<br />          (vlax-map-collection<br />            b<br />            '(lambda (e)<br />               (if (= (vla-get-objectname e) "AcDbHatch")<br />                 (vla-delete e)<br />               )<br />             )<br />          )<br />        )<br />      )<br />   )<br />   (if (ssget "x" '((0 . "insert")))<br />     (vlax-map-collection<br />       (vlax-get-property ac 'activeselectionset)<br />       '(lambda (x)<br />          (vla-update x)<br />        )<br />     )<br />   )<br />   (princ)<br /> )

aidraft

不错，申请奖励。

kehello

对不住哟，我这边网络慢，有时提交了，下一个网页就不出来了呀，我一刷新，结果就出现我发两次的结果了，我删又删不掉，不知道怎么回事哟