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

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

游客，如果您要查看本帖隐藏内容请回复

具体应用：

(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)
)

(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

221423txq9o6wx9v9sqp95.gif.thumb.jpg

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

看看再说，也许以后能用上

账号		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。