Autocadで作成したモデルをLISPを使って回転させたいのですがうまくいきません。
Autocadで作成したモデルをLISPを使って回転させたいのですがうまくいきません。 オブジェクトを選択しx軸周りに30°、y軸周りに45°、z軸周りに60°回転するプログラムを作成しようと下記のプログラムを作成しました。 しかし実際に動かしたところz軸周りに30°、z軸周りに45°、z軸周りに60°回転するプログラムが出来上がりました。 おそらく回転軸の指定ができていないのだと考えていますが指定の仕方が分かりません。 作成したプログラムを下に置いておきます。この手のプログラムに造詣の深い方どなたかご教授ください。よろしくお願いいたします。 (defun c:rotate_model ( / angleX angleY angleZ obj) ;; Excelファイルから回転角度を取得(ここでは仮に値を直接入力) (setq angleX 30) ;; X軸回転角度(例:30度) (setq angleY 45) ;; Y軸回転角度(例:45度) (setq angleZ 60) ;; Z軸回転角度(例:60度) ;; 回転させるオブジェクトを選択 (setq obj (ssget)) ;; X軸回転 (command "rotate" obj "" (list 0 0 0) angleX) ;; Y軸回転 (command "rotate" obj "" (list 0 0 0) angleY) ;; Z軸回転 (command "rotate" obj "" (list 0 0 0) angleZ) (princ) )