[求助]关于矩阵的问题

HuaiYu

谁能告诉我矩阵的问题的详细解说， vla-transformby 函数里的 R00 R01 R02 T0
R10 R11 R12 T1
R20 R21 R22 T2
0 0 0 1 关于 缩放，平移，旋转 的是怎么来的呢?

onej

建议看看CAD技术方面的书

HuaiYu

介绍介绍有哪些书什得看了?

onej

CAD/CAM技术

torcky

你可以去看一些关于计算几何学，线性代数方面的书籍来深入的了解这方面的知识！

龙龙仔

;;贴一个缩放的例子

;;by LUCAS

(defun C:TT ()
  (setq E (car (entsel)))
  (setq C (getpoint "\n指定基准点: "))
  (setq B (getreal "\n指定比例係数: "))
  (vla-transformby
    (vlax-ename->vla-object E)
    (vlax-tmatrix
      (MREV B C)
    )
  )
  (princ)
)

;;建立缩放转换矩阵
;;USAGEMREV 10 '(2 2 0))
;;B=缩放倍率,C=基准点
(defun MREV (B C / U V W)
  (append
    (mapcar '(lambda (V W)
        (reverse
   (cons (- W (* B W))
         (cdr (reverse (mapcar '(lambda (U) (* B U)) V)))
   )
        )
      )
     '((1.0 0.0 0.0 0.0)
       (0.0 1.0 0.0 0.0)
       (0.0 0.0 1.0 0.0)
      )
     C
    )
    '((0.0 0.0 0.0 1.0))
  )
)

 

无痕

很久没顶龙龙仔了，顶一下

Ea

在Lisp编程中矩阵用的时候很少，比如上面的缩放用 Scale 也可以。不过学习学习还是大有裨益的。

LONGXIN

使用矩阵可以解方程，有很多线性的问题就很好解决了