lyy前辈，mccad老总，caoyin版主，抽几分钟看看YAD的动态查询程序

qjchen

:)
以前我对这些UCS和WCS不是很在意的，因为很少用
上述代码写的很漂亮，仔细拜读之后，虽然还有一部分代码不是很懂，但是还是贸然修改了一下。应该可以在带角度的世界坐标下得到boundarybox。用的方法只是将这种情况下的坐标系也作为一种UCS来看待而已。
添加了

2. (setq TwistFlag (getvar "viewtwist"))

(setq TwistFlag (getvar "viewtwist"))

2. (if (/= TwistFlag 0)
3.     (setq alpha (- (* 2 pi) (getvar "viewtwist"))
4.           UcsFlag T         ; 设置标志位为true
5.    xdir (list (cos alpha) (sin alpha) 0) ; X方向矢量
6.    ydir (list (- (sin alpha)) (cos alpha) 0)         ; Y方向矢量
7.    zdir (G:CrossProductor xdir ydir) ; X和Y的方向矢量的叉积
8.    origin (getvar "UCSORG")     ; 原点
9.    WcsOrg (trans '(0 0 0) 0 1)  ; WCS的原点相对UCS的坐标
10.    matLst (list xdir ydir zdir) ; 旋转的变换矩阵表
11.    matrix (GetMatrix matLst origin nil) ; 从WCS到UCS的变换矩阵
12.    revMat (GetMatrix matLst WcsOrg T) ; 从UCS到WCS的变换矩阵
13.     )
14.     (setq UcsFlag nil)
15.    )

(if (/= TwistFlag 0)     (setq alpha (- (* 2 pi) (getvar "viewtwist"))           UcsFlag T         ; 设置标志位为true    xdir (list (cos alpha) (sin alpha) 0) ; X方向矢量    ydir (list (- (sin alpha)) (cos alpha) 0)         ; Y方向矢量    zdir (G:CrossProductor xdir ydir) ; X和Y的方向矢量的叉积    origin (getvar "UCSORG")     ; 原点    WcsOrg (trans '(0 0 0) 0 1)  ; WCS的原点相对UCS的坐标    matLst (list xdir ydir zdir) ; 旋转的变换矩阵表    matrix (GetMatrix matLst origin nil) ; 从WCS到UCS的变换矩阵    revMat (GetMatrix matLst WcsOrg T) ; 从UCS到WCS的变换矩阵     )     (setq UcsFlag nil)    )

这样两段代码。

淮上

好像不是狂刀的吧，似曾相识在——

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=66618

qjchen

谢谢淮上兄提醒，原来这段UCS变换是Highflybird兄的作品。

我只是看了xshrimp说的，倒没有仔细去查证，不好意思了。

qjchen

不好意思，第11楼的程序已经更新。

有个角度没有写好，这次应该可以吧。

qjchen

:)

我不是很确定你的目标大概是什么样子，能大概告诉我这个程序有什么用么？

假如你的目标是无论如何TWIST和UCS等，都希望得到横平竖直的BOUNDINGBOX，那么

这个问题大概包括四种情况

1）无TWIST的WCS

2）有TWIST的WCS

3）无TWIST的UCS

4）有TWIST的UCS

其中，前三种都比较容易实现，第四种情况就反而比较麻烦，要涉及到矩阵相乘。

我也问了下highflybird兄，咨询下他的看法，假如由他来写无疑会更好一些。

第四种情况，我需要对源程序的矩阵转换部分再仔细看看，大概需要一段时间才能解决。