[原创]：[LSP函数]获取指定UCS到WCS的转换矩阵。

eachy

2. 
   
3. ;;获取指定UCS的转换矩阵
   
4. (defun ea:getucsMatrix (ucsname / code10 code11 code12 _z)
   
5.   (if (= ucsname "")
   
6.     (progn
   
7.       (setq code10 (getvar "ucsorg")
   
8.             code11 (getvar "ucsxdir")
   
9.             code12 (getvar "ucsydir")
   
10.       )
    
11.     )
    
12.     (progn
    
13.       (setq code10 (cdr (assoc 10 (tblsearch "ucs" ucsname)))
    
14.             code11 (cdr (assoc 11 (tblsearch "ucs" ucsname)))
    
15.             code12 (cdr (assoc 12 (tblsearch "ucs" ucsname)))
    
16.       )
    
17.     )
    
18.   )
    
19.   (setq _z (EA:VECTOR_CROSSPRODUCT code11 code12))
    
20.   (list        (list (car code11) (car code12) (car _z) (car code10))
    
21.         (list (cadr code11) (cadr code12) (cadr _z) (cadr code10))
    
22.         (list (nth 2 code11)
    
23.               (nth 2 code12)
    
24.               (nth 2 _z)
    
25.               (nth 2 code10)
    
26.         )
    
27.         '(0.0 0.0 0.0 1.0)
    
28.   )
    
29. )

<br /> ;;获取指定UCS的转换矩阵<br /> (defun ea:getucsMatrix (ucsname / code10 code11 code12 _z)<br />   (if (= ucsname "")<br />     (progn<br />       (setq code10 (getvar "ucsorg")<br />             code11 (getvar "ucsxdir")<br />             code12 (getvar "ucsydir")<br />       )<br />     )<br />     (progn<br />       (setq code10 (cdr (assoc 10 (tblsearch "ucs" ucsname)))<br />             code11 (cdr (assoc 11 (tblsearch "ucs" ucsname)))<br />             code12 (cdr (assoc 12 (tblsearch "ucs" ucsname)))<br />       )<br />     )<br />   )<br />   (setq _z (EA:VECTOR_CROSSPRODUCT code11 code12))<br />   (list        (list (car code11) (car code12) (car _z) (car code10))<br />         (list (cadr code11) (cadr code12) (cadr _z) (cadr code10))<br />         (list (nth 2 code11)<br />               (nth 2 code12)<br />               (nth 2 _z)<br />               (nth 2 code10)<br />         )<br />         '(0.0 0.0 0.0 1.0)<br />   )<br /> )