WCS和UCS之间的变换矩阵

Lisphk

1. ;; UCS到WCS的变换矩阵
   
2.     (defun UCS2WCSMatrix ()
   
3.       (vlax-tmatrix
   
4.         (append
   
5.           (mapcar
   
6.            '(lambda (vector origin)
   
7.             (append (trans vector 1 0 t) (list origin))
   
8.           )
   
9.           (list '(1 0 0) '(0 1 0) '(0 0 1))
   
10.           (trans '(0 0 0) 0 1)
    
11.           )
    
12.           (list '(0 0 0 1))
    
13.         )
    
14.       )
    
15.     )
    

;; UCS到WCS的变换矩阵<br />     (defun UCS2WCSMatrix ()<br />       (vlax-tmatrix<br />         (append<br />           (mapcar<br />            '(lambda (vector origin)<br />             (append (trans vector 1 0 t) (list origin))<br />           )<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 />

1.     ;; WCS到UCS的变换矩阵
   
2.     (defun WCS2UCSMatrix ()
   
3.       (vlax-tmatrix
   
4.         (append
   
5.           (mapcar
   
6.            '(lambda (vector origin)
   
7.             (append (trans vector 0 1 t) (list origin))
   
8.           )
   
9.           (list '(1 0 0) '(0 1 0) '(0 0 1))
   
10.           (trans '(0 0 0) 1 0)
    
11.           )
    
12.           (list '(0 0 0 1))
    
13.         )
    
14.       )
    
15.     )
    

    ;; WCS到UCS的变换矩阵<br />     (defun WCS2UCSMatrix ()<br />       (vlax-tmatrix<br />         (append<br />           (mapcar<br />            '(lambda (vector origin)<br />             (append (trans vector 0 1 t) (list origin))<br />           )<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 />

有了变换矩阵，就可以用 vla-transformby 对实体进行几何变换了。

434939575

这个不懂，谢谢分享！

HLCAD

楼主，能给个应用实例吗