点到点位置的矩阵转换

yaojing38

不太懂矩阵，请教下，，比如我们知道了 MTEXT的宽和高，获得了多行文字的相对于0点的包围盒，，但是我想得到的是UCS 下的文字所在位置的包围盒，怎么把这些点转到其UCS所在位置的点？想应该是通过矩阵转换过去，矩阵确实不太懂，，也看不太懂，是否根据多行文字的10点坐标跟50的角度去转换吗？？有没有大佬给个示范？

xtjd

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

统一网名

(defun c:tt ()
        (setq en (entget (car (entsel "\n选择多行文字:"))))         
        (setq
                p1 (cdr (assoc 10 en))
                w (cdr (assoc 42 en))
                h (cdr (assoc 43 en))
        )
        (setq
                p2 (polar p1 0 (* w))
                p3 (polar p2 (* -0.5 pi) h)
                p4 (polar p1 (* -0.5 pi) h)
        )
        (list p1 p2 p3 p4); 输出点顺序 左上、右上、右下、左下
        (command "rectang" "non" p1 "non" p3 );画矩形
)