特殊图块vla-getboundingbox无法识别出其边框

cghdy

软件生成的dxf，通过insert导入CAD，为一块图元，检查该图元参数正常。
尝试了很多包围盒、外边界的插件，都无效，发现用的都是vla-getboundingbox函数，
(vla-getboundingbox (vlax-ename->vla-object (car (entsel))) 'minpoint 'maxpoint)
该函数无法识别，会提示“Automation 错误。 范围无效”。
后来发现一个arx写的程序，可以识别，且速度极快，详附图。
如何通过lisp识别，请高手指点。

菜卷鱼

我是先删掉那些取不到边界范围的图元

1. (defun vl-remove-if-Boundless (vobj / aobj ADOC BLKS BLKN)
   
2.   (and
   
3.     (= (vla-get-ObjectName vobj) "AcDbBlockReference")
   
4.     (setq blkn (vla-get-Name vobj))
   
5.     (setq aobj (vlax-get-acad-object))
   
6.     (setq adoc (vla-get-ActiveDocument aobj))
   
7.     (setq blks (vla-get-blocks adoc))
   
8.     (vl-catch-all-apply
   
9.       '(lambda ()
   
10.          (vlax-for vbj (vla-item blks blkn)
    
11.           ; (wipe vbj)
    
12.            (and        (vl-catch-all-error-p
    
13.                   (vl-catch-all-apply
    
14.                     'vla-getboundingbox
    
15.                     (list vbj 'entpl 'entpr)
    
16.                   )
    
17.                 )
    
18.                 (if (= (vla-get-ObjectName vbj) "AcDbBlockReference")
    
19.                   (vl-remove-if-Boundless vbj)
    
20.                   (progn (vla-delete vbj) (mapcar 'princ (list"\n::remove[" vbj "]")))
    
21.                 )
    
22.            )
    
23.          )
    
24.        )
    
25.     )
    
26.   )
    
27.   vobj
    
28. )

(defun vl-remove-if-Boundless (vobj / aobj ADOC BLKS BLKN)<br />   (and<br />     (= (vla-get-ObjectName vobj) "AcDbBlockReference")<br />     (setq blkn (vla-get-Name vobj))<br />     (setq aobj (vlax-get-acad-object))<br />     (setq adoc (vla-get-ActiveDocument aobj))<br />     (setq blks (vla-get-blocks adoc))<br />     (vl-catch-all-apply<br />       '(lambda ()<br />          (vlax-for vbj (vla-item blks blkn)<br />           ; (wipe vbj)<br />            (and        (vl-catch-all-error-p<br />                   (vl-catch-all-apply<br />                     'vla-getboundingbox<br />                     (list vbj 'entpl 'entpr)<br />                   )<br />                 )<br />                 (if (= (vla-get-ObjectName vbj) "AcDbBlockReference")<br />                   (vl-remove-if-Boundless vbj)<br />                   (progn (vla-delete vbj) (mapcar 'princ (list"\n::remove[" vbj "]")))<br />                 )<br />            )<br />          )<br />        )<br />     )<br />   )<br />   vobj<br /> )

cghdy

原因找到了，是这个块有未显示的标注。
进块再退出使标注显示，就可以用vla-getboundingbox函数了。
但是为什么这个标注无法直接显示还未弄明白，或许是从dxf格式参入的原因。

cghdy

菜卷鱼 发表于 2022-2-28 09:28
我是先删掉那些取不到边界范围的图元

真的可以了，谢谢大佬的代码