块内有多行文字时的物体包围盒
图块内有个多行文字。图块大小1200X1800
图块内多行文字大约500X1600，但是文字实际占用的不到1200，都在图块内部。
现在计算物体包围盒时多行文字未使用的部分也计算进来了，如何才能生成正确的图块包围盒，多行文字未占用的不计算进来。
(defun ax:GetBoundingBox (ent / ll ur)
(vla-getboundingbox (vlax-ename->vla-object ent) 'll 'ur)
(mapcar 'vlax-safearray->list (list ll ur))
)
(defun c:tt(/ ename box)
(vl-load-com)
(setq ename (car (entsel "\n指定图块:")))
(setq box (ax:GetBoundingBox ename))
(command "_.RECTANG" (car box) (cadr box))
(princ)
)
(princ "\n程序加载完成")
(princ "\n")
**** Hidden Message ***** 这效果 吗
http://bbs.mjtd.com/forum.php?mod=attachment&aid=MTIwODcyfDY3YzljMmY1fDE2NTkwMDI4MTF8NzMyNjkxOHwxNjk4NjQ%3D&noupdate=yes¬humb=yes
需要达到的是这种效果吗
这么老的帖子翻出来啦，当时想要对勾这样的效果又不想分解块，后来放弃了。
页:
[1]