梁を描くLISP 4｜入力と設定を管理して繰り返す

• AutoLISP入門その1,AutoLISP 入門その2,AutoLISP入門その3

スナップとブリップを制御する

AutoCADのスナップ（osmode）やブリップ（blipmode）は、AutoLISPルーチンに予期せぬ影響を与えることがあります。そこで、ルーチンの冒頭でこれらをオフにし、終了時に元に戻すようにしましょう。

(setq oldsnap (getvar "osmode"))      ; 元のスナップ設定を保存
(setq oldblipmode (getvar "blipmode")) ; 元のブリップ設定を保存

(setvar "osmode" 0)       ; スナップをオフ
(setvar "blipmode" 0)     ; ブリップをオフ

終了時には以下で復元：

(setvar "osmode" oldsnap)
(setvar "blipmode" oldblipmode)

不正な入力を防ぐ(initget)

ユーザーが「0」や「マイナスの値」を入力すると、図形が崩れる原因になります。これを防ぐには (initget) 関数を使います。

(initget (+ 1 2 4)) ; Enter,0,マイナスの値
(setq lb (getdist "\nLength of Beam : "))

この設定により、ユーザーは有効な数値しか入力できなくなります。

同じビームを何度も描くには？

同じ寸法のビームを複数描きたいとき、毎回入力するのは面倒ですよね。そこで (while) ループを使って、挿入点を繰り返し取得し、何度でも描けるようにします。

(while
  (setq ip (getpoint "\nInsertion Point : "))
  ;; 座標計算と描画処理をここに
)

Enterキーを押すと nil が返り、ルーチンが終了します。

最終的な構造

このパートでは、以下の3つを追加しました：

• システム設定の保存・復元
• 不正入力の防止
• 挿入点を繰り返し取得するループ処理

これで、より堅牢で使いやすいAutoLISPルーチンが完成です！