AutoCAD VBAの深淵：AcadApplicationを制し、メモリの死角を排除する設計思想
AutoCADのオートメーションにおいて、`AcadApplication`をどう扱うかは、そのシステムの「寿命」と「信頼性」を決定づける。表層的なVBAの教科書には書かれていない、メモリ管理の極意と、図面ファイルを開かずにシステム情報を吸い上げる「沈黙のデータ抽出」について、現場の知見を共有しよう。
—
1. GetObject vs CreateObject：起動の哲学
多くの初心者は安易に `CreateObject` を呼び出すが、それはリソースの浪費である。既にCADが起動しているなら、それを再利用するのがエンジニアの流儀だ。
安定稼働のためのインスタンス制御
`GetObject` を用いて既存プロセスを捕捉し、失敗した場合のみ `CreateObject` で新規生成する。この「二段構え」が、多重起動によるメモリリークやライセンス枯渇を防ぐ唯一の解である。
Public Function GetAutoCADApplication() As AcadApplication
Dim acadApp As AcadApplication
On Error Resume Next
‘ 既存プロセスへの接続を試みる
Set acadApp = GetObject(, “AutoCAD.Application”)
‘ プロセスが存在しない場合は新規起動
If Err.Number <> 0 Then
Err.Clear
Set acadApp = CreateObject(“AutoCAD.Application”)
End If
On Error GoTo 0
‘ 可視化の制御（バックグラウンド処理ならFalseを検討せよ）
acadApp.Visible = True
Set GetAutoCADApplication = acadApp
End Function
—
2. 図面を開かずに「現場」を掴む：ActiveDocumentの罠
「図面情報を取得するために、いちいち `Documents.Open` を実行する」という発想は捨てろ。IO負荷はシステムのボトルネックそのものだ。
システム管理やバッチ処理において、現在アクティブな図面（`ActiveDocument`）は、「既にメモリ上に展開されている」という事実を利用する。ファイルパス、図面バージョン、単位系、あるいは名前付きオブジェクトディクショナリ。これらは開く必要すらない。
メモリを汚さないための「非侵襲的」アクセス
以下のコードは、図面を開くという重い操作をせず、現在メモリ上に存在するドキュメントのメタデータを抽出する設計である。
Public Sub InspectActiveDocument()
Dim acadApp As AcadApplication
Dim acadDoc As AcadDocument
Set acadApp = GetAutoCADApplication()
‘ アクティブなドキュメントが存在するかを確認
If acadApp.Documents.Count = 0 Then
Debug.Print “現在開かれている図面はありません。”
Exit Sub
End If
Set acadDoc = acadApp.ActiveDocument
‘ IOを伴わず、メモリ上のオブジェクト情報に直接アクセスする
Debug.Print “ファイル名: ” & acadDoc.Name
Debug.Print “フルパス: ” & acadDoc.FullName
Debug.Print “読み取り専用か: ” & acadDoc.ReadOnly
‘ 重要な設計思想：使用後は必ず参照を切断する
Set acadDoc = Nothing
Set acadApp = Nothing
End Sub
—
3. シニアエンジニアが守るべき「メモリ解放の作法」
VBAのガーベッジコレクションは優秀だが、AutoCADのような巨大なCOMオブジェクトを相手にする場合、`Set obj = Nothing` を怠れば、プロセスは確実にゾンビ化する。
特に大規模なシステム連携においては、以下の原則を厳守せよ。
- 参照のスコープを最小化する: `AcadDocument` などをモジュールレベル変数で保持し続けるのは禁忌だ。必要な時に取得し、処理が終われば即座に解放せよ。
- イベントハンドラの解除: `WithEvents` を使用している場合、クラス終了時に `Nothing` を代入するだけでは足りない。イベントから明示的にデタッチするルーチンを組み込む必要がある。
- COMスレッドの考慮: Windows APIを併用する場合、`CoInitialize` / `CoUninitialize` のペアリングを忘れると、COMコンポーネントがメモリ上に不整合な形で残る。
—
4. 総括：レガシーを「モダン」に扱うために
AutoCADのオートメーションは、もはや「マクロ」の域を超え、エンタープライズなデータパイプラインの一部として機能すべきだ。
1. 起動の再利用性: `GetObject` を徹底せよ。
2. IOの最小化: 開かずとも手に入る情報は、メモリ上のオブジェクトから直接吸い上げよ。
3. ライフサイクルの管理: オブジェクトを使い回すのではなく、常に生成と破棄のフローを意識せよ。
VBAは古臭い言語ではない。AutoCADという巨大なエンジンを制御するための、極めて強力なインターフェースだ。あなたが書く数行のコードが、数千枚の図面処理の成否を分ける。その重みを自覚し、泥臭いメモリ管理こそが、最強の自動化への近道であることを忘れないでほしい。
次回の講義では、`ObjectDBX` を用いた「図面を開かないバッチ処理の極意」について深掘りする。期待して待っていてくれ。
