【実務・中級編】【実務中級】AcadDocument.Utility.GetKwordで「Yes/No/Cancel」以外の独自キーワード（例：Left/Right/Center）をコマンドラインで受け取る方法 – AutoCAD VBA解析バイブル

AutoCAD VBAを掌握する極限の知見
第1回：コマンドラインUIの極意 — `InitializeUserInput`で独自のキーワード選択を完全制御する

こんにちは。チーフアーキテクトの私だ。
日々の図面修正、何百回と繰り返す「文字の位置合わせ」「線のタイプ選択」……マウスで右クリックしてメニューを辿る、あるいはダイアログボックスをいちいち開く。そんな非効率なUIでエンジニアの貴重な時間を溶かしていないか？

AutoCAD VBAの真価は、単なる図形の一括生成ではない。「プロフェッショナルが使うネイティブコマンドと同等の、ストレスフリーな対話型インターフェース」を構築できる点にある。

今回は、実務で圧倒的なスピード差を生み出す『`AcadDocument.Utility.GetKword` と `InitializeUserInput` の組み合わせ』について、妥協のないプロダクションコードと共に解説する。

—

1. なぜ「単なる `InputBox`」では実務で使い物にならないのか？

VBA初心者が最初に陥る罠が、`InputBox` や標準の `MsgBox` によるユーザー入力を採用することだ。

これらはCADの作図画面からユーザーの視線を強制的に外し、マウスの焦点を狂わせる。さらに、オブジェクトのスナップや選択と並行して実行できない致命的な欠点がある。

AutoCADのプロフェッショナル環境において、入力はすべて「コマンドライン（CUI）」で完結させるべきだ。作図の手を止めず、視線を動かさず、キーボードの数打で処理を分岐させる。これを実現するのが `GetKword` メソッドである。

—

2. `InitializeUserInput` の鉄則と設計思想

`GetKword` を単体で呼び出すと、デフォルトでは「Yes/No」のような限定的なキーワードしか受け付けないか、予期せぬ文字列を受け入れてしまいエラーになる。

ここで登場するのが、`AcadUtility.InitializeUserInput` だ。
このメソッドは、次に実行する入力メソッド（`GetKword`, `GetPoint` など）に対して「何を受け入れるか」の制約ルールを事前にマフィアの契約のように厳格に定義する役割を持つ。

ビットフラグの設計（実務で使える主要な値）

`InitializeUserInput` の第一引数（`BitFlags`）には、バイナリの足し算（または論理和）で挙動を制御する。

• 1：空エンター（何も入力せずにEnter）を許可する
• 2：負の数の入力を許可する（今回は文字列なので除外）
• 4：図面上のゼロ（0）入力を許可する
• 32：キーワード入力において、大文字・小文字を区別する（基本は0＝区別しない）

そして最も重要なのが第二引数（`Keywords`）だ。
ここにスペース区切りで独自キーワードを渡すことで、コマンドラインのプロンプトを完全に掌握できる。

—

3. 【プロダクションコード】実務仕様のキーワード選択ルーチン

百聞は一見に如かず。以下のコードを見てほしい。
これは、選択した文字オブジェクト（Text/MText）の位置合わせ（Left / Center / Right）を、コマンドラインからスマートに切り替える実務直結のプロシージャだ。

エラーハンドリング、ESCキーによる中断（キャンセル）の捕捉、そして大文字小文字の吸収まで完璧に実装された、そのまま現場に投入できるコードである。

Sub SetTextAlignmentPro()
Dim acadDoc As AcadDocument
Set acadDoc = ThisDrawing

‘ 1. オブジェクト選択の事前検証
Dim acadObj As AcadEntity
Dim basePt As Variant

On Error GoTo ErrorHandler

‘ ユーザーに文字オブジェクトを選択させる
acadDoc.Utility.GetEntity acadObj, basePt, vbCr & “位置を変更する文字を選択してください: ”

‘ 選択されたエンティティが Text または MText かチェック
If Not (TypeOf acadObj Is AcadText0rMText_Custom_Check(acadObj)) Then
‘ 簡易的な型判定（実務ではTypeOfで分岐）
If TypeOf acadObj Is AcadText Or TypeOf acadObj Is AcadMText Then
‘ OK
Else
MsgBox “選択されたオブジェクトは文字ではありません。”, vbExclamation, “処理中断”
Exit Sub
End If
End If

‘ 2. キーワード入力の初期化（ここが今回の核心）
‘ 第1引数: 1 = 空エンターを許可（デフォルト動作の設定に利用可）
‘ 第2引数: スペース区切りで独自キーワードを定義（略称をカッコで示すのがAutoCAD流）
Dim keywordList As String
keywordList = “Left Center Right”

acadDoc.Utility.InitializeUserInput 1, keywordList

‘ 3. キーワードの取得
‘ プロンプト内に選択肢を明示するのがプロのUIデザイン
Dim userChoice As String
userChoice = acadDoc.Utility.GetKword(vbCr & “文字揃えを選択 [左(L)/中央(C)/右(R)]