trans 功能：將pt從from坐標系變換到to坐標系 函數簽名 ~~~ (trans pt from to [disp]) ~~~ 參數： pt 類型是list，幾何含義是點或向量 from 類型是 int 或list 或ename，幾何含義是 坐標系 to 同 from disp 類型 任意，如果為非nil，表明pt是3d向量 如果from或to 的類型是int，則含義如下： 0---WCS 1---當前UCS 2---DCS 3---圖紙空間DCS 如果from或to是ename類型，則表示此參數是ename的OCS 如果from或to是list類型，則表示此參數是由這個list根據任意軸算法生成的坐標系 ucs wcs相關示例： ``` (defun test1 (disp / pt pt2 osmode) (setq oldosmode (getvar "osmode")) (setvar "osmode" (logior (getvar "osmode") 16384)) (setq pt (list 1 1 1)) (command "ucs" "") (command "ucs" '(10 0 0) "") (setq pt2 (trans pt 0 1 disp)) (princ "\\n變換后坐標是：") (princ pt2) (setvar "osmode" oldosmode) (princ) ) (defun test2 (disp / pt pt2 osmode) (setq oldosmode (getvar "osmode")) (setvar "osmode" (logior (getvar "osmode") 16384)) (setq pt (list 1 1 1)) (command "ucs" "") (command "ucs" "x" "45") (setq pt2 (trans pt 0 1 disp)) (princ "\\n變換后坐標是：") (princ pt2) (setvar "osmode" oldosmode) (princ) ) (defun test3 (disp / pt pt2 osmode) (setq oldosmode (getvar "osmode")) (setvar "osmode" (logior (getvar "osmode") 16384)) (setq pt (list 1 1 1)) (command "ucs" "") (command "ucs" '(10 0 0) "") (command "ucs" "x" "45") (setq pt2 (trans pt 0 1 disp)) (princ "\\n變換后坐標是：") (princ pt2) (setvar "osmode" oldosmode) (princ) ) (test1 nil) ;結果(-9.0 1.0 1.0) (test1 t) ;結果(1.0 1.0 1.0) (test2 nil) ;結果 (1.0 1.41421 -1.11022e-016) (test2 t) ;結果 (1.0 1.41421 -1.11022e-016) (test3 nil) ;結果 (-9.0 1.41421 -1.11022e-016) (test3 t) ;結果 (1.0 1.41421 -1.11022e-016) ```