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

XDSoft · 发表于 2013-5-11 00:04:11

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

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

×

本次教学我们讲矩阵变换最基本的-平移变换（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 · 发表于 2013-5-11 00:21:39

占个位。沙发……。

dwg001 · 发表于 2013-5-11 13:43:53

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

wowan1314 · 发表于 2013-5-11 16:33:51

收藏之 :):)

h0404--wen · 发表于 2013-12-18 08:54:27

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

zteykmgscqh · 发表于 2014-1-3 07:24:05

学习一下啦

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

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

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

评分

相关帖子