marting 发表于 2018-4-1 18:56:53

（XD::Mat:AlignCoordSys）从一个坐标系到另一个坐标系的变换矩阵

本帖最后由 newer 于 2018-4-2 14:37 编辑

**** Hidden Message *****
具体应用：





(defun c:tt ()
(princ "\n拾取文字<退出>:")
(if (setq ss (ssget '((0 . "TEXT"))))
    (progn (setq i -1)
         (while (setq e (ssname ss (setq i (1+ i))))
             (setq box (textbox (entget e))
                   p1(car box)
                   p3(cadr box)
                   p2(list (car p3) 0.0 0.0)
                   p4(list (car p1) (cadr p3) 0.0)
                   box (list p1 p2 p3 p4)
                   obj (vlax-ename->vla-object e)
                   ori (vla-get-insertionpoint obj)
                   ori (xd::vla:variant->value ori)
                   ang (vla-get-rotation obj)
                   vx(mapcar '- (polar ori ang 1.0) ori)
                   vx(xd::vec:normalize vx)
                   vy(xd::vec:perp vx)
                   mat (xd::mat:aligncoordsys (list ori vx vy) 0)
                   box (xd::object:transform box mat)
             )
             (entmake (list '(0 . "LWPOLYLINE")
                            '(100 . "AcDbEntity")
                            '(410 . "Model")
                            '(100 . "AcDbPolyline")
                            '(62 . 2)
                            '(90 . 4)
                            '(70 . 1)
                            (cons 10 (car box))
                            (cons 10 (cadr box))
                            (cons 10 (caddr box))
                            (cons 10 (last box))
                      )
             )
         )
    )
)
(princ)
)
关于文字框坐标变换的理解见：

http://bbs.xdcad.net/forum.php?mod=redirect&goto=findpost&ptid=715211&pid=3660800&fromuid=5280



q3_2006 发表于 2018-4-1 19:01:25

看收集一下能不解决我的问题..真是不懂矩阵呢..

marting 发表于 2018-4-1 19:07:05

q3_2006 发表于 2018-4-1 19:01
看收集一下能不解决我的问题..真是不懂矩阵呢..

这个就是解决你那个文本框的。

q3_2006 发表于 2018-4-1 19:27:19

marting 发表于 2018-4-1 19:07
这个就是解决你那个文本框的。

非常感激!

434939575 发表于 2018-4-1 19:38:11

矩阵门外汉，进来学习下.

ynhh 发表于 2018-4-1 20:00:04

不懂矩阵呢
没学习啊

liuyj 发表于 2018-4-1 20:00:11

XDAPI里有不少矩阵的函数

marting 发表于 2018-4-1 20:35:05

ynhh 发表于 2018-4-1 20:00
不懂矩阵呢
没学习啊

不用懂矩阵的数学原理，知道用怎么构建，怎么变换的函数就够了。不清楚的可以单独到LISP论坛发帖。

yoyoho 发表于 2018-4-2 07:26:07

感谢高手分享程序！！！

/db_自贡黄明儒_ 发表于 2018-4-2 07:46:21

感谢高手分享程序！！！

scnjlwb 发表于 2018-4-2 14:25:54

多谢分享！

liulisheng 发表于 2018-4-3 12:47:10

支持一下顶你哦

HLCAD 发表于 2018-4-12 08:07:56

非常感谢大师！！！

taoyi0727 发表于 2018-9-26 23:22:03

r矩阵不太会

向嘟嘟 发表于 2018-10-19 17:37:10

看看再说，也许以后能用上
页: [1] 2 3 4
查看完整版本: （XD::Mat:AlignCoordSys）从一个坐标系到另一个坐标系的变换矩阵