座標変換マトリクス（AutoLISP）のソースを表示

=== 座標変換の行列 ===
nentsel や nentselp, grvecs などでは変換マトリックスを使って座標値の行列ベクトル計算（いわゆるアフィン変換、アフィン写像）をしたりする。

アフィン変換については、説明が面倒なので[https://ja.wikipedia.org/wiki/%E5%A4%89%E6%8F%9B%E8%A1%8C%E5%88%97 wiki を見てもらう]として、要はオブジェクトを移動したり、回転したり、変形したりするときに座標を変換する目的で使う。
[[ファイル:アフィン変換行列.png|中央]]


座標系の変換は、[[trans]]関数を使えばいいので、わざわざ座標変換マトリクスで計算する必要はない。


座標変換リストの例
 (defun mat:move ( veclst / ) ; 単純な移動 
   (list
     (list 1.0 0   0   (car veclst)  )
     (list 0   1.0 0   (cadr veclst) )
     (list 0   0   1.0 (caddr veclst))
     (list 0   0   0   1.0           )
   )
 )
 
 (defun mat:z-axis-rotate (ang / ) ; Ｚ軸で回転
   (list
     (list (cos ang) (- (sin ang)) 0    0  )
     (list (sin ang) (cos ang)     0    0  )
     (list 0         0             1.0  0  )
     (list 0         0             0    1.0)
   )
 )
 
 (defun mat:x-scale (factor / ) ; X方向に尺度変更
   (list
     (list fact 0    0    0  )
     (list 0    1.0  0    0  )
     (list 0    0    1.0  0  )
     (list 0    0    0    1.0)
   )
 )
 
 (defun mat:y-scale (factor / ) ; XY方向に尺度変更
   (list
     (list fact 0    0    0  )
     (list 0    fact 0    0  )
     (list 0    0    1.0  0  )
     (list 0    0    0    1.0)
   )
 )


複数の移動や拡大縮小、回転などで複数内容を一度で行う変換マトリクスを作成する場合は、リストの合成が必要になるので、行列の計算を理解しないといけない。（数学が役に立つよ！）


関連記事

* [[座標の変換]]
* [[trans]]関数