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