[LISP函数-矩阵]：设置坐标系的合作转换矩阵

eachy

2. 
   
3. ;;设置坐标系的合作转换矩阵
   
4. (defun xd-matrix_setcoordsystem        (pt vx vy vz)
   
5.   (if (= (length pt) 2)
   
6.     (setq pt (xd-point->3d pt 0.))
   
7.   )
   
8.   (if (= (length vx) 2)
   
9.     (setq vx (xd-point->3d vx 0.))
   
10.   )
    
11.   (if (= (length vy) 2)
    
12.     (setq vy (xd-point->3d vy 0.))
    
13.   )
    
14.   (if (= (length vz) 2)
    
15.     (setq vz (xd-point->3d vz 0.))
    
16.   )
    
17.   (list        (list (car vx) (car vy) (car vz) (car pt))
    
18.         (list (cadr vx) (cadr vy) (cadr vz) (cadr pt))
    
19.         (list (last vx) (last vy) (last vz) (last pt))
    
20.         '(0. 0. 0. 1.)
    
21.   )
    
22. )

<br /> ;;设置坐标系的合作转换矩阵<br /> (defun xd-matrix_setcoordsystem        (pt vx vy vz)<br />   (if (= (length pt) 2)<br />     (setq pt (xd-point->3d pt 0.))<br />   )<br />   (if (= (length vx) 2)<br />     (setq vx (xd-point->3d vx 0.))<br />   )<br />   (if (= (length vy) 2)<br />     (setq vy (xd-point->3d vy 0.))<br />   )<br />   (if (= (length vz) 2)<br />     (setq vz (xd-point->3d vz 0.))<br />   )<br />   (list        (list (car vx) (car vy) (car vz) (car pt))<br />         (list (cadr vx) (cadr vy) (cadr vz) (cadr pt))<br />         (list (last vx) (last vy) (last vz) (last pt))<br />         '(0. 0. 0. 1.)<br />   )<br /> )