UCS到WCS变换矩阵和WCS到UCS变换矩阵

marting

1. (defun UCS2WCSMatrix ()
   
2.   (vlax-tmatrix
   
3.     (append
   
4.       (mapcar
   
5.         '(lambda (vector origin)
   
6.            (append (trans vector 1 0 t) (list origin))
   
7.          )
   
8.         (list '(1 0 0) '(0 1 0) '(0 0 1))
   
9.         (trans '(0 0 0) 0 1)
   
10.       )
    
11.       (list '(0 0 0 1))
    
12.     )
    
13.   )
    
14. )
    
15. ;; transform objects from the WCS to the UCS
    
16. (defun WCS2UCSMatrix ()
    
17.   (vlax-tmatrix
    
18.     (append
    
19.       (mapcar
    
20.         '(lambda (vector origin)
    
21.            (append (trans vector 0 1 t) (list origin))
    
22.          )
    
23.         (list '(1 0 0) '(0 1 0) '(0 0 1))
    
24.         (trans '(0 0 0) 1 0)
    
25.       )
    
26.       (list '(0 0 0 1))
    
27.     )
    
28.   )
    
29. )
    
30. 
    

(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 /> ;; transform objects from the WCS to the 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 /> <br />

上面代码构建UCS->WCS变换矩阵和WCS->UCS变换矩阵的VLA对象，可以接着用于vla-transformby函数变换对象

比如：

1. (vla-TransformBy (vlax-ename->vla-object ent) (UCS2WCSMatrix))
   

(vla-TransformBy (vlax-ename->vla-object ent) (UCS2WCSMatrix))<br />

kqqt6236

啥也不说了，感谢楼主分享哇！