[LISP函数-矩阵]：获取指定UCS的转换矩阵

eachy

2. 
   
3. ;;
   
4. ;;获取指定UCS的转换矩阵
   
5. (defun xd-getucsMatrix (ucsname / code10 code11 code12 _z)
   
6.   (if (= ucsname "")
   
7.     (progn
   
8.       (setq code10 (getvar "ucsorg")
   
9.             code11 (getvar "ucsxdir")
   
10.             code12 (getvar "ucsydir")
    
11.       )
    
12.     )
    
13.     (progn
    
14.       (setq code10 (cdr (assoc 10 (tblsearch "ucs" ucsname)))
    
15.             code11 (cdr (assoc 11 (tblsearch "ucs" ucsname)))
    
16.             code12 (cdr (assoc 12 (tblsearch "ucs" ucsname)))
    
17.       )
    
18.     )
    
19.   )
    
20.   (setq _z (xd-vector_crossproduct code11 code12))
    
21.   (xd-matrix_setcoordsystem code10 code11 code12 _z)
    
22. )

<br /> ;;<br /> ;;获取指定UCS的转换矩阵<br /> (defun xd-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 (xd-vector_crossproduct code11 code12))<br />   (xd-matrix_setcoordsystem code10 code11 code12 _z)<br /> )

liuyj

xd-vector_crossproduct 没有定义，可否用GE_VecCrossProduct 来带替

是的。  eachy