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

ludaweb · 发表于 2015-10-17 21:30:00

图块内有个多行文字。
图块大小1200X1800
图块内多行文字大约500X1600，但是文字实际占用的不到1200，都在图块内部。
现在计算物体包围盒时多行文字未使用的部分也计算进来了，如何才能生成正确的图块包围盒，多行文字未占用的不计算进来。

copy

 
(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")