如何最快速地清理指定的块？

mandala

是这样的，有一个块“a”已定义，但图纸中无块实体。要清理它可以用
(command "._purge" "b" “a” "n" )

但如果多次要清理这类指定名称的块定义，比如说一个重复1000次的repeat中，每次repeat一开始都生成这个块，最后又得删除这个块，这样用command就很慢，而且每次都提示“正在删除块“a”。已删除 1 个块。”很麻烦。

有更快速的办法吗？需要注意的是要删除（清理）的只是一个块定义，而非块实体。

llsheng_73

首先可以在repeat前生成块，repeat后去清除它，repeat里边只去insert就行了
当然如果确实有必要在repeat里边来做这件事，那好象没什么太好的办法

mandala

repeat里需要生成这个块定义。

llsheng_73

那就只有想想能不能不用purge而做到清理它了，不然估计没辙

llsheng_73

疑惑的一点是，在REPEAT里边生成了块，经过一系列处理后又要清理掉这个块定义，也就是说生成的块最终被删了或者炸开了，总之没有实体依赖于这个块定义而存在了，不然也不用清理它，那么就可以不需要清理掉这个块定义而对这个块它重新定义....repeat后再清理它不就结了？

Gu_xl

1. ;;删除指定块定义
   
2. (defun delBlkdef (name)
   
3.   (if (not
   
4.         (VL-CATCH-ALL-ERROR-P
   
5.           (setq
   
6.             obj
   
7.              (VL-CATCH-ALL-APPLY
   
8.                'vla-item
   
9.                (list (vla-get-blocks
   
10.                        (vla-get-ActiveDocument (vlax-get-acad-object))
    
11.                      )
    
12.                      name
    
13.                )
    
14.              )
    
15.           )
    
16.         )
    
17.       )
    
18.     (VL-CATCH-ALL-APPLY 'vla-delete (list obj))
    
19.   )
    
20. )

;;删除指定块定义<br /> (defun delBlkdef (name)<br />   (if (not<br />         (VL-CATCH-ALL-ERROR-P<br />           (setq<br />             obj<br />              (VL-CATCH-ALL-APPLY<br />                'vla-item<br />                (list (vla-get-blocks<br />                        (vla-get-ActiveDocument (vlax-get-acad-object))<br />                      )<br />                      name<br />                )<br />              )<br />           )<br />         )<br />       )<br />     (VL-CATCH-ALL-APPLY 'vla-delete (list obj))<br />   )<br /> )

llsheng_73

Gu_xl 发表于 2013-11-24 22:27

G版又出手了，高效，刚才我调用的时候用错了参数，差点以为没能清理掉。。。
好象G版这办法可以删除图层等其它非图元数据
比如(vla-get-blocks改成layers。。。学习了