[求助]：如何计算当前UCS下的实体包围盒？

雨箭风刀

to 14 楼:
这是因为你的图是块,一个块就像一个字那样,把包围块的最小矩形外框作为实体边界(方向同块插入角),而不是块内实体的外边作为边界.如下图:  (今天图发了几次都发不上)
解决的办法是炸开.(这一步是可以用程序处理的)
to 15 楼:
如果ucs和wcs平行应该没有问题. 3d的ucs下是有点问题,在查原因.

小菜

谢楼上，我原先对包围盒的计算方法不是太清楚。
15楼能不能做个图发上来啊？我不会搞三维的图形

Hart

这是在屏幕坐标下得出的包围框,其实外围尺寸是正确的,可能是在转换矩阵时出错了.

小菜

矩阵变换速度比较快

它山之石

最简单的方法
是不是先绕WCS的原点旋转为角度为0
得到外包框
再反向转回去
重新得到外包框的顶点
以上说的只是2d的在WCS的情况

就不需要进行矩阵的转换了

dandee

其实最科学合理的方法就是矩阵转换，因为acad的运用最本质的东西就是矩阵转换，学点矩阵的知识，逆矩阵，矩阵位移，矩阵旋转。。，晓东函数里就有很多这样的做好的函数，你可以打印其说明，也可以在网上找到关于矩阵的autolsp，相互验证。,其实矩阵作用在点上，就可以把点在不同坐标下变换，作用到实体上，就会对实体变换。把包围盒作为实体，试一下。

eachy

2. 
   
3. (defun c:tt (/ mat tf e obj bp up box)
   
4.   (if (and (zerop (getvar "worlducs"))
   
5.            (= (getvar "ucsname") "")
   
6.       )
   
7.     (progn
   
8.       (command ".ucs" "s" "$tmp")
   
9.       (setq
   
10.         mat
    
11.          (vla-getucsmatrix
    
12.            (vla-get-activeucs
    
13.              (vla-get-activedocument (vlax-get-acad-object))
    
14.            )
    
15.          )
    
16.         mat0 (xdl-mat-inverse
    
17.                (safearray-value
    
18.                  (variant-value mat)
    
19.                )
    
20.              )
    
21.          tf
    
22.         t
    
23.       )
    
24.     )
    
25.   )
    
26.   (if (setq e (car (entsel)))
    
27.     (progn
    
28.       (setq obj (vlax-ename->vla-object e))
    
29.       (vla-transformby obj (vlax-tmatrix mat0))
    
30.       (setq box        (vla-getboundingbox obj 'bp 'up)
    
31.             bp        (safearray-value bp)
    
32.             up        (safearray-value up)
    
33.       )
    
34.       (command "rectang" bp up)
    
35.      (vla-transformby obj mat)
    
36.     )
    
37.   )
    
38.   (if tf
    
39.     (command ".ucs" "d" "$tmp")
    
40.   )
    
41.   (princ)
    
42. )

<br /> (defun c:tt (/ mat tf e obj bp up box)<br />   (if (and (zerop (getvar "worlducs"))<br />            (= (getvar "ucsname") "")<br />       )<br />     (progn<br />       (command ".ucs" "s" "$tmp")<br />       (setq<br />         mat<br />          (vla-getucsmatrix<br />            (vla-get-activeucs<br />              (vla-get-activedocument (vlax-get-acad-object))<br />            )<br />          )<br />         mat0 (xdl-mat-inverse<br />                (safearray-value<br />                  (variant-value mat)<br />                )<br />              )<br />          tf<br />         t<br />       )<br />     )<br />   )<br />   (if (setq e (car (entsel)))<br />     (progn<br />       (setq obj (vlax-ename->vla-object e))<br />       (vla-transformby obj (vlax-tmatrix mat0))<br />       (setq box        (vla-getboundingbox obj 'bp 'up)<br />             bp        (safearray-value bp)<br />             up        (safearray-value up)<br />       )<br />       (command "rectang" bp up)<br />      (vla-transformby obj mat)<br />     )<br />   )<br />   (if tf<br />     (command ".ucs" "d" "$tmp")<br />   )<br />   (princ)<br /> )

小菜

(command "rectang" bp up)这句之前MS要先转换到WCS下

eachy

你要的是当前 UCS 的 BOX , 为什么还要转?

小菜

bp、up是obj变换到WCS下的包围盒对角点，用的是WCS坐标，因此需要在WCS下生成矩形，再变换到当前UCS，对该矩形在当前UCS下的四个顶点求点表包围盒，才能得到结果。其实矩形也可以不生成的，直接将四个顶点按mat进行矩阵变换就行了，这样程序中的两个command命令也不需要了
(= (getvar "ucsname") "")这一句多余的吧？如果有名字就不行么？

它山之石

小菜说的 其实是WCS下 转过一定角度的实体的外包框
所以俺说 通过矩阵来转换不如用旋转命令转两次来得简单易懂

当然 从写程序的角度 也许用矩阵转换才是正解

eachy

在WCS下倾斜矩形进行 GetBoundingBox 后如图所示，当将 UCS 设置为矩形的两条边时，此时需要的 Box 应该为矩形本身，上面狂刀的演示动画已经显示的很清楚。
如果仅是UCS->WCS转换并求 BOX ，将得到和图示一样的结果而不是“UCS下的BOX"

                               
登录/注册后可看大图

fengjianwei

to 雨箭风刀
如果能把包围盒的各个顶点提出来就好了？？

tc405003

像这样的，如果矩形是正放的，点1到点9可以用外包框求出来
如果矩形不是正放的，可否也能用外包框求到9个点，而不是求矩形的顶点

eachy

对角点都有了，其他点用 Polor 、Distance 求出即可