簡単なコマンドをLISP化する

簡単なコマンドほど、LISP化すると作業効率が上がります。

例えば回転コマンドの「参照」オプションは便利ですが、毎回オプションを選ぶのは手間です。

そこで、参照オプションまでをLISP化しておけば、コマンド実行後すぐに参照回転へ進められます。

複雑な処理を作らなくても、よく使う操作を少し短縮するだけで、作業スピードは大きく変わります。

(defun c:RR ()
(command "._ROTATE" pause "" pause "R" pause pause pause ""  )
)

この形なら、RR → 選択 → 参照まで一気に進められます。
他のオプション系コマンドも同じ考え方で量産できます。

仁(じん)

画像付きのSTEPは、下で確認できますよ！

操作手順

STEP

• コマンド「RR」を入力します

STEP

• オブジェクトを選択します

STEP

• 基点をクリックします

STEP

• 参照する角度の1点目をクリックします

※LISPでオプション「参照(R)」を自動化してるので、何もしなくても自動で角度参照に移行しています

STEP

• 参照する角度の2点目をクリックします

STEP

• 回転角度を決定します

LISP解説

このLISPでは、command 関数でAutoCADの回転コマンドを呼び出しています。

(defun c:RR ()
(command "._ROTATE" pause "" pause "R" pause pause pause ""  )
)

pause はユーザー入力を待つ指定です。
そのため、オブジェクト選択や参照点の指定を通常操作と同じように行えます。

“_R” はROTATEコマンドの「参照」オプションを指定しています。

つまり、コマンド「RR」を実行すると、
回転コマンドを開始して、参照オプションまで自動で進めることができます。

凛(りん)

よく使うオプションは、LISP化すると便利です！

まとめ

関連記事