提取外部引用中块属性的问题？

wharan

提取外部引用中属性块的属性，用下面方法还存在几个问题。

1、大部分情况下能提取出来，有些情况下无法提取，但打开引用文件提取没有问题。原因不明。
2、删除外部引用时，清理数据后，仍能提取到被删除的引用中的块属性。原因不明。
附提取方法源码。
该问题已通过Lisp方法解决。见本坛

2. ;;en为外部引用图元名，Bname为外部引用中的属性块名，返回属性快图元名表
   
3. (defun Xrefblk (en Bname / blks BlockName obj ty ent)
   
4.   (setq        blks (vla-get-Blocks
   
5.                (vla-get-activedocument (vlax-get-acad-object))
   
6.              )
   
7.   )
   
8.   (setq obj (vlax-ename->vla-object en))
   
9.   (setq        BlockName (vla-get-name obj)
   
10.   )
    
11.   (vlax-for ent        (vla-item blks BlockName)
    
12.     (setq ty (vla-get-objectname ent))
    
13.     (if
    
14.       (and (= ty "AcDbBlockReference")
    
15.            (wcmatch (vla-get-EffectiveName ent) Bname)
    
16.       )
    
17.        (setq sset (cons (vlax-vla-object->ename ent) sset))
    
18.     )
    
19.   )
    
20.   sset
    
21. )
    

;;en为外部引用图元名，Bname为外部引用中的属性块名，返回属性快图元名表<br /> (defun Xrefblk (en Bname / blks BlockName obj ty ent)<br />   (setq        blks (vla-get-Blocks<br />                (vla-get-activedocument (vlax-get-acad-object))<br />              )<br />   )<br />   (setq obj (vlax-ename->vla-object en))<br />   (setq        BlockName (vla-get-name obj)<br />   )<br />   (vlax-for ent        (vla-item blks BlockName)<br />     (setq ty (vla-get-objectname ent))<br />     (if<br />       (and (= ty "AcDbBlockReference")<br />            (wcmatch (vla-get-EffectiveName ent) Bname)<br />       )<br />        (setq sset (cons (vlax-vla-object->ename ent) sset))<br />     )<br />   )<br />   sset<br /> )<br />