新しいリアクタ機能を追加する

レッスン 6 で、リアクタイベント :vlr-commandWillStart に、コールバック関数 gp:command-will-start をフックしました。現在、その関数は、いくつかのメッセージを表示するとともに、2 つのグローバル変数 *polyToChange* と *reactorsToRemove* を nil に初期化します。

コールバック関数 gp:command-will-start に機能を追加するには

ファイル gpreact.lsp を開きます。

gp:command‑will‑start 関数を次のように修正して、setq 関数に 2 つの変数を追加します。

;; Reset all four reactor globals to nil.
(setq   *lostAssociativity* nil
        *polyToChange* nil
        *reactorsToChange* nil
        *reactorsToRemove* nil)

最後の princ 関数呼び出しまでの gp:command‑will‑start の残りのコードを、次のコードに置き換えます。
```
(if (member (setq currentCommandName (car command-list))
       '( "U"    "UNDO"     "STRETCH"   "MOVE" 
          "ROTATE"  "SCALE"   "BREAK"  "GRIP_MOVE" 
          "GRIP_ROTATE"   "GRIP_SCALE"  "GRIP_MIRROR")
    ) ;_ end of member
    (progn
      (setq *lostAssociativity* T)
      (princ "\nNOTE: The ")
      (princ currentCommandName)
      (princ " command will break a path's associativity .")
    ) ;_ end of progn
) ;_ end of if
```
このコードは、タイルと歩道の関連性を失わせるようなコマンドを、ユーザが実行しようとしたかどうかをチェックします。そのようなコマンドをユーザが実行しようとすると、グローバル変数 *lostAssociativity* が設定され、ユーザに警告が表示されます。

庭園の歩道アプリケーションをテストすると、庭園の歩道を修正したときに、関連性を失わせる他の編集コマンドが見つかるかもしれません。これらのコマンドをクォーテーション付きリストに追加すれば、何が起こるかをユーザに警告できます。この関数が起動されると、ユーザはコマンドを起動しても、修正する図形を選択せずにすみます。ユーザは、コマンドをキャンセルし、図形を変更せずにおくことができます。