块内有多行文字时的物体包围盒

ludaweb

图块内有个多行文字。
图块大小1200X1800
图块内多行文字大约500X1600，但是文字实际占用的不到1200，都在图块内部。

现在计算物体包围盒时多行文字未使用的部分也计算进来了，如何才能生成正确的图块包围盒，多行文字未占用的不计算进来。

1. 
   
2. (defun ax:GetBoundingBox (ent / ll ur)
   
3.   (vla-getboundingbox (vlax-ename->vla-object ent) 'll 'ur)
   
4.   (mapcar 'vlax-safearray->list (list ll ur))
   
5. )
   
6. (defun c:tt(/ ename box)
   
7.   (vl-load-com)
   
8.   (setq ename (car (entsel "\n指定图块:")))
   
9.   (setq box (ax:GetBoundingBox ename))
   
10.   (command "_.RECTANG" (car box) (cadr box))
    
11.   (princ)
    
12. )
    
13. (princ "\n程序加载完成")
    
14. (princ "\n")
    

<br /> (defun ax:GetBoundingBox (ent / ll ur)<br />   (vla-getboundingbox (vlax-ename->vla-object ent) 'll 'ur)<br />   (mapcar 'vlax-safearray->list (list ll ur))<br /> )<br /> (defun c:tt(/ ename box)<br />   (vl-load-com)<br />   (setq ename (car (entsel "\n指定图块:")))<br />   (setq box (ax:GetBoundingBox ename))<br />   (command "_.RECTANG" (car box) (cadr box))<br />   (princ)<br /> )<br /> (princ "\n程序加载完成")<br /> (princ "\n")<br />

smile0421

这效果 吗

smile0421

需要达到的是这种效果吗

ludaweb

这么老的帖子翻出来啦，当时想要对勾这样的效果又不想分解块，后来放弃了。