AutoCAD自動化の深淵：`ExportLayout`を極め、図面変換を「静かなる職人」にする
AutoCADの設計現場において、最も不毛で、かつミスが許されない作業の一つが「レイアウトからモデル空間への書き出し」だ。他部署や他社への図面納品時、複雑なビューポート設定が残ったままの図面を渡せば、相手先のCADで図面が崩れ、修正に追われることになる。
`ExportLayout`コマンドは強力だが、UIベースのコマンドをVBAで叩くのは、初心者が犯す最初の罠だ。今回は、この泥臭い作業をシステムレベルで完遂させ、メモリリークの影すら残さない、極限の自動化アーキテクチャを伝授する。
1. 鬼門を突破する：SendCommandの「非同期性」を飼いならす
VBAから`SendCommand`で`ExportLayout`を呼び出す際、多くのエンジニアが「コマンドが終わる前に次の処理が走る」という非同期の壁にぶつかる。これを回避するために`DoEvents`を連打するのは素人の所業だ。
我々が求めるのは、確実な同期とオブジェクトのライフサイクル管理だ。
‘ AutoCADのコマンドラインを同期的に制御するためのラッパー
Public Sub ExecuteExportLayout(ByVal targetLayoutName As String, ByVal outputPath As String)
Dim doc As AcadDocument
Set doc = ThisDrawing
‘ 1. レイアウトの切り替えを確認
If doc.ActiveLayout.Name <> targetLayoutName Then
doc.Layouts(targetLayoutName).Activate
End If
‘ 2. コマンドの実行：コマンド文字列はNull終端を意識せよ
‘ 連続実行時のバッファ溢れを防ぐため、SendCommandの前に意図的な空白を入れることもある
doc.SendCommand “_EXPORTLAYOUT ” & vbCr & outputPath & vbCr
‘ 3. 【重要】非同期待機ロジック
‘ ここで単純なSleepではなく、ファイル生成をIO監視するロジックを組むのがプロの流儀
WaitUntilFileCreated outputPath
End Sub
2. メモリ最適化：COMの残滓を焼き払う
AutoCAD VBAにおいて、`AcadDocument`や`AcadDatabase`の取り扱いを誤ると、バックグラウンドに「ゾンビプロセス」が蓄積される。特に大量の図面を一括変換するバッチ処理では、メモリリークは致命的なクラッシュを招く。
究極のメモリ解放術
VBAではGC（ガベージコレクション）が期待できない。オブジェクトを破棄する際は、参照カウントを確実にゼロへ導く必要がある。
Public Sub SafeDispose(ByRef obj As Object)
If Not obj Is Nothing Then
‘ オブジェクトの明示的解放
Set obj = Nothing
End If
End Sub
ループ処理の内部で`Set doc = Documents.Open(…)`を行う場合、必ず`doc.Close False`と`Set doc = Nothing`をセットで運用すること。これを怠る者は、大規模図面を扱った瞬間に「メモリー不足」という名の死神に背中を突かれることになる。
3. レガシー環境とWindows APIの連携
`ExportLayout`で生成された図面は、時に「バージョン互換性」の問題で開けなくなることがある。システム管理者としては、出力されたDWGを特定のバージョン（例えばAutoCAD 2013形式など）に強制変換しておくのがベストプラクティスだ。
Windows APIを使って、保存ダイアログの挙動を監視したり、ファイル属性を操作することで、システム間の連携を強固にする。
‘ ファイル生成を待機するためのWin32 API
Private Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Private Sub WaitUntilFileCreated(ByVal filePath As String)
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ タイムアウトを設けて無限ループを回避する
Dim timeout As Long
timeout = 0
Do While Not fso.FileExists(filePath) And timeout < 100
Sleep 100
timeout = timeout + 1
Loop
Set fso = Nothing
End Sub
4. チーフアーキテクトからの提言：自動化の真髄
「動くコード」を書くことは誰にでもできる。しかし、「1万回動かしてもメモリ消費がフラットで、異常終了時にログを吐き出し、生成された図面が整合性を保っているシステム」を作るのが、我々エンジニアの仕事だ。
今回の`ExportLayout`自動化のポイントは以下の3点に集約される。
1. コマンドの同期制御: `SendCommand`の非同期性をファイルIOの監視でハックする。
2. オブジェクトの墓場: ローカル変数は必ず`Nothing`で解放し、ゾンビプロセスを許さない。
3. 環境の正規化: 出力されたファイルに対し、確実にバージョン変換をかけるラッパーを用意する。
自動化とは、ただの手抜きではない。設計者が本来の「創造的な思考」に集中できるよう、雑音を排除する高潔なエンジニアリングである。諸君が今日書くコードが、明日の誰かの平穏に繋がることを願う。
—
追伸：もしAutoCADのバージョンが2022以降であれば、VBAではなく.NET API (C#) への移行を強く推奨する。COMの制約から解き放たれた時の圧倒的な安定感は、一度味わうとVBAには戻れなくなるだろう。
