和晓东一起学矩阵（3）-- 平移矩阵（重写ACAD命令）

XDSoft

本次教学我们讲矩阵变换最基本的-平移变换（Translation Matrix）

数学背景

平移变换是矩阵变换最基本的应用，ACAD立面的MOVE、COPY命令就是最典型的平移矩阵变换的应用。

下面我们重写ACAD的COPY命令(无拖动，仅演示COPY的效果）：



[pcode=lisp,true]
(defun c:mCopy ( / mat mat0 p1 p2 ss v)
  (if (and
          (setq ss (ssget))
          (setq p1 (getpoint "\n基点<退出>:"))
      )
    (progn
      (setq mat0 (xdrx_matrix_identity 3));;三维单位矩阵
      (while (setq p2 (getpoint p1 "\n第二点<退出>:"))
        (progn
           (setq v (mapcar '- p2 p1))   ;;得到点P2和P1的位移，方向是P1指向P2的向量
           (setq mat (xdrx_matrix_setTranslation mat0 v)) ;;得到平移变换矩阵
           (xdrx_entity_transFormedCopy ss mat);;矩阵作用到选择集
        )
      )
    )
  )
  (princ)
)
[/pcode]

如果要重新移动命令MOVE呢？修改下最后的变换函数就可以了，矩阵是一样的。



[pcode=lisp,true]
(defun c:mMove (/ mat mat0 p1 p2 ss v)
  (if (and
        (and
          (setq ss (ssget))
          (setq p1 (getpoint "\n基点<退出>:"))
          (setq p2 (getpoint p1 "\n第二点<退出>:"))
        )
      )
    (progn
      (setq mat0 (xdrx_matrix_identity 3)) ; 三维单位矩阵
      (setq v (mapcar
                '-
                p2
                p1
              )
      )                                       ; 得到点p2和p1的位移，方向是p1指向p2的向量
      (setq mat (xdrx_matrix_settranslation mat0 v)) ; 得到平移变换矩阵
      (xdrx_entity_transform ss mat) ; 矩阵作用到选择集，和上面COPY命令就差这个函数，这个是移动变换。
    )
  )
  (princ)
)
[/pcode]

xtdwynij

占个位。沙发……。

dwg001

数学原理很基本，如何更好的用于cad中，此帖甚好。

wowan1314

收藏之 :):)

h0404--wen

正在学习矩阵,向楼主学习。

zteykmgscqh

学习一下啦