こんにちは！AutoCAD VBAの世界へようこそ。
マクロの記録ボタンを押して図形を描くだけの自動化から一歩抜け出し、「現場で本当に使える、落ちない・壊れないアドインを作りたい」そう思っているあなたへ。
今回は、AutoCAD VBAの核心に迫る、少しディープで極めて実用的なテーマをお届けします。
題して「`AcadDocument.Database.XRefEdit` 状態の検知：外部参照インプレイス編集中の誤操作を防止する」です。
「外部参照のインプレイス編集って何？」
「なんだか難しそう……」
大丈夫。優しく、そして本質的な部分までしっかりと噛み砕いて解説していきますね。ここをクリアすれば、あなたのVBAスキルは確実にプロの領域へとステップアップします。一緒にマスターしていきましょう！
—
1. なぜ外部参照の「インプレイス編集」を意識する必要があるのか？
AutoCADで大きな図面を扱うとき、他の図面を「外部参照（Xref）」として読み込むことは日常茶飯事ですよね。そして、その外部参照をわざわざ元のファイルを開かずに、現在の図面上で直接編集する機能が「インプレイス編集（REFEDITコマンド）」です。
このインプレイス編集を行っている最中、AutoCADの内部データベース（`Database`）は非常に特殊でデリケートな状態になります。例えるなら、「手術の真っ最中に、別の医者が勝手にメスを入れてくるような状態」です。
この状態で、もしあなたのVBAプログラムが勝手に図面要素を削除したり、レイヤーを変更したりすると……どうなると思いますか？
そう、致命的なデータベースの不整合を引き起こし、最悪の場合はAutoCADが強制終了（クラッシュ）して大切なデータが吹き飛びます。
プロのエンジニアが作るべき堅牢なマクロとは、「動くコード」ではなく、「危険な状態を事前に察知して自ら身を引くコード」なのです。
—
2. インプレイス編集状態はどうやって検知するのか？
実は、AutoCADのVBAオブジェクトモデルには、この「インプレイス編集中かどうか」を直接教えてくれる `IsXRefEditing` のような都合の良いプロパティが、アプリケーションのトップレベルには用意されていません。
ここで登場するのが、システム変数です。
AutoCADには現在の状態を示す無数のシステム変数がありますが、外部参照のインプレイス編集状態は `XREFEDIT` というシステム変数に格納されています。
- `XREFEDIT = 0` : インプレイス編集を行っていない（通常状態）
- `XREFEDIT = 1` : インプレイス編集を行っている（危険！）
VBAからこのシステム変数を取得するには、`ThisDrawing.GetVariable(“XREFEDIT”)` を使います。これを使えば、プログラムの暴走を未然に防ぐ「ガード条件」を簡単に作ることができます。
—
3. 【実践】誤操作をブロックする堅牢なVBAコード
それでは、実際の現場で即戦力となるコードを見ていきましょう。
何か図面を一括処理するようなマクロを実行する前に、必ずこのチェックを入れる癖をつけてください。
Sub SafeAutomationRoutine()
On Error GoTo ErrorHandler
‘ 1. 現在の図面で外部参照のインプレイス編集が行われているかチェック
If IsExternalReferenceEditing() Then
MsgBox “【警告】現在、外部参照のインプレイス編集（REFEDIT）が実行中です。” & vbCrLf & _
“データの破損やクラッシュを防ぐため、処理を中断します。” & vbCrLf & _
“編集を保存または破棄してから再度実行してください。”, _
vbCritical + vbOKOnly, “安全装置発動”
Exit Sub
End If
‘ 2. 安全が確認されたので、本来のメイン処理を実行
MsgBox “安全な状態を確認しました。メイン処理を開始します。”, vbInformation, “実行中”
‘ — ここに実際の自動化処理（レイヤー変更や図形処理など）を記述 —
Call ExecuteMainProcess()
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical
End Sub
‘ =================================================================
‘ 外部参照のインプレイス編集状態を判定する関数
‘ =================================================================
Function IsExternalReferenceEditing() As Boolean
Dim xrefEditVal As Integer
On Error GoTo CheckError
‘ システム変数 “XREFEDIT” の値を取得
‘ ※ 0以外（通常は1）であればインプレイス編集中
xrefEditVal = ThisDrawing.GetVariable(“XREFEDIT”)
If xrefEditVal <> 0 Then
IsExternalReferenceEditing = True
Else
IsExternalReferenceEditing = False
End If
Exit Function
CheckError:
‘ 万が一、システム変数の取得に失敗した場合は安全側に倒して「編集中（True）」とみなす
IsExternalReferenceEditing = True
End Function
Sub ExecuteMainProcess()
‘ メイン処理のダミー
‘ 例: Debug.Print ThisDrawing.Name など
End Sub
コードのポイント解説
1. `ThisDrawing.GetVariable(“XREFEDIT”)` の活用
AutoCADのシステム変数をVBAから直に叩くことで、CADの内部状態を正確にスキャニングしています。
2. 安全側への倒し込み（Fail-Safe）
エラーハンドラー内であえて `IsExternalReferenceEditing = True` にしている点に注目してください。予期せぬトラブル時に「動いてしまう」のではなく、「止まる」ように設計するのが、プログラミングにおける極意です。
—
4. さらに深く：データベースオブジェクトのライフサイクルを守る
今回は `XREFEDIT` システム変数を見ましたが、AutoCAD VBAを極める上では、「オブジェクトが今どのコンテキスト（文脈）にいるか」を意識することが不可欠です。
インプレイス編集中、ユーザーは一時的に別の外部参照図面のデータベース空間に入り込んでいます。そのため、`ThisDrawing.ModelSpace` が指している実体が、いつもの親図面のものとは異なっている場合があります。ここに無造作にアクセスすることが、クラッシュの本当の原因です。
「なんとなく動くマクロ」から卒業し、「環境を汚さず、CADを絶対に落とさない堅牢なアドイン」を作る。この視点を持つだけで、あなたのアウトプットの質は周囲から圧倒的に抜きん出ることでしょう。
—
まとめ
今回は、`AcadDocument` の背後にあるデータベースの状態、そして外部参照インプレイス編集（`XRefEdit`）の危険性と、その回避策について解説しました。
- 外部参照のインプレイス編集中は、VBAの勝手な操作がクラッシュを招く
- システム変数 `XREFEDIT` を監視することで、安全に状態を検知できる
- トラブル時は「安全側（処理を止める方向）」に倒すのがプロの鉄則
ここをクリアすれば、あなたのAutoCAD VBAの基礎はもうバッチリ、胸を張って「上級者」を名乗って大丈夫です！
現場の仲間たちをあっと言わせるような、安全でスマートな自動化ツールをぜひ作ってみてくださいね。それでは、次のステップでお会いしましょう！
