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

小菜

WCS下的实体包围盒有ActiveX方法可以直接获得，但是不能取得当前UCS下的包围盒，有什么办法可以求得当前UCS下的实体包围盒呢？

highflybird

简单啊，你加入如下代码： (comand "ucs" "w") ;先转化为世界坐标系
(vla-GetBoundingBox obj 'pta 'ptb);;;取得外框后；
(command "ucs" "p") ;;再转化回去啊

oyxx_1023

嘿嘿，兄弟，那你就想错了。
绝对不是简单的变换坐标系。
不信你做个实验试试看。

小菜

是啊，要是那么简单，我就不会问了。有时候遇到UCS的情况，真难处理

aeo

得到一个 ucs -> wcs的矩阵
把图形 transform 到wcs 求轮廓
undo
把点 trans到ucs

小菜

矩阵我一点都不会，遗憾:(
怎么transform也不会，一直觉得挺难
aeo斑竹能提供点更详细的步骤么？

snoopychen

那是否可以用这么一种代替方法：（只适用于平面情况，可能还得分类）

得到UCS的角度，将物体拷贝一个，绕UCS原点逆向转动到WCS，得到BOUNDINGBOX，画出这个矩形，再转回到UCS，得到其坐标。

这里的文章也讨论这个问题，其中有许多智慧的碰撞，LUIS E，和BOBBY C JONHES等高手都讨论了一番，其中也给出了几个LISP，希望对你有用：）
http://groups.google.com/group/a ... =3#fec0e0b40400618a

雨箭风刀

d

小菜

多谢snoopychen  ，我会继续学习一下，希望有能力的朋友一起研究这个问题
楼上的程序在2002中不能使用，出错： Automation Error. Key not found
能email一个源程序给我么？

雨箭风刀

xucsbox,支持选集
求选集ucs下的包围框


(楼下提出的问题是原来的编译错误,现在已修改并重新编译,请重新下载)[/COLOR]

雨箭风刀

test

小菜

发一个点绕基点旋转的转换函数，用于变换非常方便
楼上的程序少函数xussbox
另外，发现boundingbox方法似乎有时不正确，如附件中的图
[PHP]
;;;a dot product of the two vectors, u & v
(defun dotprod (u v)
  (apply '+ (mapcar '* u v))
)

;;;transpose a matrix
;;;code by doug Wilson
(defun transpose (m)
  (apply 'mapcar (cons 'list m))
)

;;;Apply a transformation matrix to a vector
(defun mxv (m v)
  (mapcar '(lambda (row) (dotprod row v))
          m
  )
)

;;;Multiply two matrices
(defun mxm (m q)
  (setq q (transpose q))
  (mapcar '(lambda (row) (mxv q row))
          m
  )
)

;;;Feed each point of your boundingbox
;;;to the (TransFormBy) function with the appropriate rotation angle in radians
;;;& the rotation basepoint.  The offsetXYZ arg will be '(0 0 0), unless you
;;;want to move the box and the scaleXYZ arg will be '(1 1 1), unless you want
;;;to scale it.
;;;Performs multiple transformations on a point given the Basepoint, Offset,
;;;Scale, and Rotation
;;;This example Rotates the point 5,5,0 90d from the basepoint -1,-1,0
;;;(transformby '(5 5 0) '(-1 -1 0) '(0 0 0) '(1 1 1) (* 0.5 pi))
;;;Returns (-7.0 5.0 0.0)

;;;This example Rotates the point 5,5,0 90d from the basepoint -1,-1,0
;;;AND moves it +10 in the X direction and -6 in the Y direction
;;;(transformby '(5 5 0) '(-1 -1 0) '(10 -6 0) '(1 1 1) (* 0.5 pi))
;;;Returns (3.0 -1.0 0.0)
;;;Bobby C. Jones
(defun TransFormBy (Pnt BasePnt OffsetXYZ scaleXYZ Rot / ScaleX ScaleY
                    ScaleZ Tx Ty Tz ScaleM RotateZM MoveM TransM)
  (mapcar 'set
          '(Scalex ScaleY ScaleZ)
          scaleXYZ)
  (mapcar 'set
          '(Tx Ty Tz)
           (mapcar '+ OffsetXYZ BasePnt)
          )
  (setq scaleM
        (list (list ScaleX 0 0 0)
              (list 0 ScaleY 0 0)
              (list 0 0 ScaleZ 0)
              (list 0 0 0 1)
        )
        RotateZM
        (list (list (cos Rot) (- (sin Rot)) 0 0)
              (list (sin Rot) (cos rot) 0 0)
              (list 0 0 1 0)
              (list 0 0 0 1)
        )
        MoveM
        (list (list 1 0 0 Tx)
              (list 0 1 0 Ty)
              (list 0 0 1 Tz)
              (list 0 0 0 1)
        )
        TransM (mxm MoveM (mxm ScaleM RotateZM))
        pnt (mapcar '- pnt BasePnt)
); _end of Setq
(reverse (cdr (reverse (mxv TransM (append pnt '(1))))))
) ;;defun
[/PHP]

雨箭风刀

谢谢楼上指出,已经修改,请重新下载

小菜

试了一下，有时候会有问题，不知道怎么变换的。12楼的附件中的图请测试一下，看什么原因包围盒不正确。

Hart

10楼:
画一个方形三维实体,在透视图中把坐标改为屏幕坐标,得出来的框的UCS不正确,