AutoCAD VBAを掌握する極限の知見：外部プロセスからのAutoCAD制御とオブジェクトモデルの真実
多くの開発者は、AutoCAD VBAを「CADの内部でマクロを動かすための簡易的なツール」程度に捉えている。しかし、それは氷山の一角に過ぎない。COM（Component Object Model）のアーキテクチャを理解すれば、Excel、Access、あるいは独立したVBScriptや外部アプリケーションから、背後で稼働するAutoCADの巨体を完全にリモート制御することが可能となる。
本稿では、外部アプリケーション（主にExcelやVBAホスト）から`AcadApplication`を取得し、AutoCADのライフサイクルを掌握するための極限の知見を授ける。
—
1. 創世記の選択：`CreateObject` vs `GetObject` の深層
外部からAutoCADを操作する場合、最初に直面するのがインスタンスの取得方法だ。ここでの選択を誤ると、メモリリーク、ゾンビプロセスの発生、あるいは多重起動によるリソース枯渇という悪夢を招く。
`CreateObject`：新規インスタンスの強制生成
Dim acadApp As Object
Set acadApp = CreateObject(“AutoCAD.Application”)
このコードは、強制的に新しいAutoCADのプロセスをバックグラウンド（またはフォアグラウンド）で立ち上げる。
- チーフアーキテクトの警告: `CreateObject`を安易に使うな。AutoCADの起動は重い。初期化フェーズにおいて、図面テンプレートの読み込みやアドインのロードに伴い膨大なメモリとCPUを消費する。特別な理由（完全なプロセス隔離が必要な場合など）がない限り、実務でこれを乱用すべきではない。
`GetObject`：既存インスタンスの安全なキャッチ
Dim acadApp As Object
On Error Resume Next
Set acadApp = GetObject(, “AutoCAD.Application”)
On Error GoTo 0
現在稼働しているAutoCADのインスタンスがあればそれを捉え、なければエラーを返す（上記の `On Error` でトラップしている）。
- チーフアーキテクトの知見: 実務システムの基本は「既存のものを再利用する」ことだ。ユーザーがすでに図面を開いている状態で新規プロセスを立ち上げるのは、ライセンス的にもリソース的にも悪手である。まずは `GetObject` で既存インスタンスをキャッチし、存在しない場合のみ `CreateObject` にフォールバックする実装パターンが鉄則となる。
—
2. 実践：堅牢なインスタンス取得とプロパティ操作のアーキテクチャ
以下に、外部（例：Excel VBA）から実行中のAutoCADを安全にキャッチし、基本プロパティ（`Version`, `Caption`, `Visible`）を操作するプロダクション品質のコードを示す。
Option Explicit
Sub ConnectToAutoCAD_Pro()
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
‘ 新規起動直後はCOMの初期化にわずかなタイムラグがあるため安定化を待つ
System.Cursor = xlWait ‘ 処理中のカーソル変更等（Excelの場合）
End If
‘ 3. 可視化の保証（バックグラウンド起動している場合の対策）
If acadApp.Visible = False Then
acadApp.Visible = True
End If
‘ 4. 基本プロパティの監査と操作
Debug.Print “=== AutoCAD System Information ===”
Debug.Print “Version : ” & acadApp.Version
Debug.Print “Caption : ” & acadApp.Caption
Debug.Print “Document Count: ” & acadApp.Documents.Count
‘ キャプションの動的変更（外部制御中であることをユーザーに明示）
acadApp.Caption = “AutoCAD [Controlled by External Automation Engine]”
‘ 正常終了時の処理
MsgBox “AutoCADとの接続に成功しました。Version: ” & acadApp.Version, vbInformation, “architectural-grade”
CleanUp:
‘ 5. オブジェクト参照の適切な解放
‘ 【重要】変数に Nothing を代入しても、COMサーバーのプロセス自体は消滅しない。
Set acadApp = Nothing
Exit Sub
ErrorHandler:
MsgBox “AutoCADの初期化に失敗しました。エラーコード: ” & Err.Number & ” – ” & Err.Description, vbCritical
Resume CleanUp
End Sub
—
3. オブジェクトのライフサイクルとメモリ最適化の極意
VBA初学者が陥る最大の罠が、「COMオブジェクトの解放漏れ」と「ゾンビプロセス」である。
COMの参照カウンタと解放の真実
VBAから `CreateObject` または `GetObject` を実行した瞬間、WindowsのRPC（リモートプロシージャコール）を介してAutoCADのCOMサーバーとの間にコネクションが確立される。この時、AutoCAD側のプロセス内では参照カウンタがインクリメントされる。
処理が終了した際、コード内で `Set acadApp = Nothing` を実行することは、VBA側が持っていたポインタを破棄し、COMコンポーネントに対する参照を解放することを意味する。
Set acadApp = Nothing
これを怠ると、VBAの実行が終了しても背後で `acad.exe` プロセスがメモリ上に残り続け（ゾンビプロセス）、次回起動時のリソース競合やメモリリークの原因となる。タスクマネージャーの裏で無数の `acad.exe` がひそかにCPUを食いつぶしている光景は、未熟な設計が生んだ悲劇に他ならない。
—
4. チーフアーキテクトからの提言：レガシー環境における堅牢性
AutoCADのバージョン（2013から最新版まで）によって、COMのProgID（`AutoCAD.Application`）は共通化されているものの、内部のType Library（TLB）の構造やドキュメントモデル（`AcadDocument` / `AcadDatabase`）の振る舞いには微妙な差異が存在する。
- レイイト・ビインディング（実行時バインディング）の徹底:
コード内で `Dim acadApp As AcadApplication` のような早期バインディング（Early Binding）を行うと、参照設定したAutoCADのバージョンに依存してしまう。異なるバージョンが混在するエンタープライズ環境では、本稿で示したように `Dim acadApp As Object` による遅延バインディング（Late Binding）を採用し、実行時に動的にインターフェースを解決するのがプロフェッショナルの選択である。
AutoCAD VBAは、単なるマクロの域を超えた強力なIPC（プロセス間通信）の武器となる。オブジェクトのライフサイクルを支配し、システムを意図通りに制御せよ。
