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

marting

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

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

q3_2006

(vl-cmdf "ucs" "e" s1)
这个怎么写..大师指导一下呗...