AutoCAD VBAを掌握する極限の知見：外部からAutoCADをねじ伏せる「インスタンス制御」の作法
業務効率化のミッションを帯びた開発者が最初に直面する壁。それは「Excelなどの外部アプリケーションから、いかにして背後でうごめくAutoCADを安全かつ確実に手玉にとるか」という点だ。
ネット上のありふれたサンプルコードを見て、「よし、`CreateObject`を叩けばいいんだな」と安易に実装してはならない。実務の現場において、そのアプローチは遅かれ早かれ「ゾンビプロセスの山」や「謎のCOM例外」という名のシステム障害を引き起こす。
今回は、AutoCADのオブジェクトモデルの根幹である `AcadApplication` のライフサイクルを完全に掌握し、明日から現場で使える堅牢な外部制御の構築手法をロジカルに伝授する。
—
1. なぜ「なんとなくCreateObject」では実務で破綻するのか？
外部（ExcelやVBAの独立したモジュール）からAutoCADを操作する場合、私たちはWindowsのCOM（Component Object Model）インターフェースを介してプロセス間通信を行う。
ここで重要になるのが、AutoCADのインスタンスの生死管理だ。
- `CreateObject(“AutoCAD.Application”)`
- 挙動: 常に新しいAutoCADのプロセスを強制的に起動する。
- リスク: ユーザーがすでに図面を開いて作業している最中であっても、問答無用で別プロセスのAutoCADが立ち上がる。ライセンスの無駄遣いであり、メモリを圧迫し、最悪の場合はファイルロックの競合を生む。
- `GetObject(, “AutoCAD.Application”)`
- 挙動: 現在OS上でアクティブに稼働しているAutoCADのインスタンスをキャッチする。
- リスク: AutoCADが起動していない状態で実行すると、容赦なく「実行時エラー ‘429’: コンポーネントはオブジェクトを作成できません」が発生する。
プロのエンジニアであれば、「起動していればそれを掴み、なければ新規起動する（あるいは適切にエラーハンドリングしてユーザーに通知する）」というフォールトトレラントな設計が求められる。
—
2. 堅牢なインスタンス取得ロジックの設計思想
実務で通用するコードには、「エレガントな例外処理」が不可欠だ。
以下の設計パターンを頭に叩き込んでほしい。
1. `GetObject` で既存インスタンスの取得を試みる。
2. エラー（AutoCADが起動していない）が発生したら、`On Error Resume Next` の罠にハマるのではなく、トラップして `CreateObject` へフォールバックする。
3. 取得した `AcadApplication` のポインタが本当に有効か（Nothingではないか）を検証する。
4. 必要に応じて `Visible = True` を明示し、ユーザーインターフェースを可視化する。
—
3. 【プロダクションコード】コピペで使える堅牢な外部制御モジュール
以下のコードは、Excel VBAなどの外部環境から実行し、AutoCADの生死を問わずに安全に接続、制御するためのテンプレートだ。そのままプロジェクトに組み込んで即戦力として使用してほしい。
Option Explicit
‘ ==============================================================================
‘ モジュール名: modAutoCADController
‘ 概要 : 外部アプリケーションからAutoCADインスタンスを安全に制御する
‘ 著者 : チーフアーキテクト
‘ ==============================================================================
Public Sub ControlAutoCAD_Sample()
Dim acadApp As Object
Dim isNewInstance As Boolean
isNewInstance = False
‘ 1. 実行中のAutoCADインスタンスの捕捉を試みる
On Error Resume Next
Set acadApp = GetObject(, “AutoCAD.Application”)
On Error GoTo 0 ‘ エラーハンドリングを即座にリセット（これ重要）
‘ 2. インスタンスが存在しない場合は新規起動
If acadApp Is Nothing Then
On Error GoTo ErrorHandler
Set acadApp = CreateObject(“AutoCAD.Application”)
isNewInstance = True
Debug.Print “AutoCADの新規インスタンスを起動しました。”
Else
Debug.Print “既存のAutoCADインスタンスをキャッチしました。”
End If
‘ 3. AutoCADが完全に応答可能になるまで可視化と基本操作を実行
‘ ※インスタンス直後はCOMの初期化が完了していない場合があるため Visible を明示
acadApp.Visible = True
‘ 4. 基本プロパティの取得とイミディエイトウィンドウへの出力
MsgBox “AutoCADと正常に接続しました。” & vbCrLf & _
“バージョン: ” & acadApp.Version & vbCrLf & _
“ウィンドウタイトル: ” & acadApp.Caption, _
vbInformation, “接続成功”
‘ 【実務での処理をここに記述】
‘ 例: Dim acadDoc As Object
‘ Set acadDoc = acadApp.Documents.Add(“acad.dwt”)
GoTo Finally
ErrorHandler:
‘ 致命的なエラーハンドリング
MsgBox “AutoCADの制御に失敗しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“詳細: ” & Err.Description, _
vbCritical, “致命的エラー”
Finally:
‘ 5. オブジェクトの解放（メモリリーク防止の鉄則）
‘ 新規起動した場合であっても、変数破棄時にプロセスまで勝手に落とさないよう注意
Set acadApp = Nothing
End Sub
—
4. チーフアーキテクトからの現場の知見（プロの心得）
ゾンビプロセスを生み出さないためのメモリ管理
外部から `CreateObject` で起動したAutoCADは、VBA側の変数がスコープを抜けた後もバックグラウンドで生き続けることがある。タスクマネージャーが `acad.exe` だらけになる現象の正体はこれだ。
オブジェクト変数は必ず `Set acadApp = Nothing` で明示的に参照を解放し、さらに不要になったセッションの終了が必要な場合は、`.Quit` メソッドの利用を検討すること（ただし、ユーザーが作業中の既存インスタンスに対して `.Quit` を誤爆させないよう、`isNewInstance` フラグなどで制御するのがプロの技だ）。
バージョン差異への備え
`acadApp.Version` プロパティを取得すると、AutoCAD 2024なら `”25.0″` のような文字列が返る。もし複数のAutoCADバージョンが混在する環境で早期バインディング（参照設定の追加）を行うと、コンパイルエラーやCOMの型ミスマッチの温床になる。
外部アプリからの制御では、極力今回示したようなレイトバインディング（`As Object` と `CreateObject`/`GetObject` の組み合わせ）を採用し、実行時解決を狙うのが大規模開発における定石である。
基礎の構築こそが、強固な自動化システムの命運を握る。このインスタンス制御のイロハを体に叩き込み、手戻りのない優美なVBAアーキテクチャを築き上げてほしい。
