（XD::Mat:UCS2WCS）UCS到WCS的变换矩阵

marting

1. (defun XD::Mat:UCS2WCS()
   
2.   (vlax-tmatrix
   
3.     (append
   
4.       (mapcar '(lambda (vector origin) (append (trans vector 1 0 t) (list origin)))
   
5.               (list '(1 0 0) '(0 1 0) '(0 0 1))
   
6.               (trans '(0 0 0) 0 1)
   
7.       )
   
8.       (list '(0 0 0 1))
   
9.     )
   
10.   )
    
11. )
    

(defun XD::Mat:UCS2WCS()<br />   (vlax-tmatrix<br />     (append<br />       (mapcar '(lambda (vector origin) (append (trans vector 1 0 t) (list origin)))<br />               (list '(1 0 0) '(0 1 0) '(0 0 1))<br />               (trans '(0 0 0) 0 1)<br />       )<br />       (list '(0 0 0 1))<br />     )<br />   )<br /> )<br />