AutoCAD VBAを掌握する極限の知見：テンプレートからの新規図面自動生成の深層
AutoCAD VBAの領域において、図面のオープン・セーブ・バージョン互換制御は、単なるファイルの入出力作業ではない。裏でうごめくCOMコンポーネントのライフサイクル、メモリリークの罠、そしてAutoCAD固有のドキュメントコンテキストを完全に支配下に置くための高度なアーキテクチャ設計である。
今回は、実務中級者からシニアエンジニアに向けて、指定したテンプレート（.dwt）を基にした新規図面作成の自動化をテーマに、現場でそのまま通用する「極限の知見」を解説する。
—
1. なぜ `Documents.Add` なのか？：背後にあるオブジェクトモデルの真実
多くの開発者が犯す最初の過ちは、既存の図面ファイルを `Open` し、それを別名で保存（`SaveAs`）するという安易なアプローチだ。これはパフォーマンスの観点からも、トランザクションの整合性の観点からも悪手である。
AutoCADのオブジェクトモデルにおいて、標準的な新規図面作成には `Documents.Add` メソッドを使用する。しかし、このメソッドにテンプレートファイルパスを渡す挙動は、AutoCADのバージョンやローカルのレジストリ設定（`QNEW` のデフォルト設定など）によって微妙に揺らぐことがある。
真に堅牢なシステムを構築するには、単に `Add` を呼ぶだけでなく、作成されたドキュメントが正しくアクティブデータベースとして認識され、意図したテンプレートのレイヤーやスタイルが継承されているかをコード側で担保しなければならない。
—
2. 実務仕様：テンプレート指定型・図面自動生成エンジン
以下に、実務の現場で耐えうる堅牢性を備えたVBAコードを示す。
エラーハンドリング、オブジェクトの明示的な解放（メモリ最適化）、そして複数ドキュメント間でのコンテキスト汚染を防ぐための設計を取り入れている。
Option Explicit
‘ ==============================================================================
‘ テンプレート指定型・新規図面自動生成プロシージャ
‘ ==============================================================================
Public Sub CreateDrawingFromTemplate()
‘ 1. 変数の宣言と初期化（COMオブジェクトは必ずNothingで初期化）
Dim acadApp As AutoCAD.AcadApplication
Dim acadDoc As AutoCAD.AcadDocument
Dim targetDWT As String
Dim savePath As String
Dim savedDocName As String
‘ 2. エラーハンドリングの準備
On Error GoTo ErrorHandler
‘ テンプレートおよび出力先のパス定義（実務ではINIファイルやダイアログから動的取得を推奨）
targetDWT = “C:\CAD\Templates\Company_Standard_A1.dwt”
savePath = “C:\CAD\Output\AutoGenerated_” & Format(Now, “YYYYMMDD_HHMMSS”) & “.dwg”
‘ 3. AutoCADアプリケーションインスタンスの取得（セーフティバインド）
‘ 起動していない場合は新規起動、起動中の場合はアクティブインスタンスをフック
On Error Resume Next
Set acadApp = GetObject(, “AutoCAD.Application”)
If acadApp Is Nothing Then
Set acadApp = New AutoCAD.AcadApplication
End If
On Error GoTo ErrorHandler ‘ エラー監視を復帰
‘ 可視化の保証（バックグラウンド処理であっても、Comオブジェクトの安定性のためにTrue推奨）
acadApp.Visible = True
‘ 4. テンプレートを指定して新規ドキュメントを作成
‘ Documents.Add の引数にDWTパスを渡すことで、指定テンプレートをベースにした新規図面が生成される
If Dir(targetDWT) = “” Then
Err.Raise vbObjectError + 1000, “CreateDrawingFromTemplate”, “指定されたテンプレートが見つかりません: ” & targetDWT
End If
Set acadDoc = acadApp.Documents.Add(targetDWT)
‘ 5. ここに図面初期化・属性注入ロジックを記述
‘ 例：レイアウト名変更やカスタムプロパティの設定など
Call InjectDrawingMetadata(acadDoc)
‘ 6. 規定のパスへ名前を付けて保存（バージョン互換性を考慮し、必要に応じて形式を指定）
‘ ac2018DWG など、対象環境に合わせた明示的な保存形式の指定がベストプラクティス
acadDoc.SaveAs savePath, ac2018DWG
MsgBox “図面の自動生成が正常に完了しました。” & vbCrLf & “出力先: ” & savePath, vbInformation, “自動化システム”
CleanUp:
‘ 7. オブジェクトの明示的な解放（メモリ最適化の極意）
‘ VBAのガベージコレクションに依存せず、COM参照を確実に解放する
Set acadDoc = Nothing
Set acadApp = Nothing
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“説明: ” & Err.Description, vbCritical, “致命的エラー”
Resume CleanUp
End Sub
‘ ==============================================================================
‘ サブプロシージャ：図面メタデータの注入（例）
‘ ==============================================================================
Private Sub InjectDrawingMetadata(ByRef doc As AutoCAD.AcadDocument)
‘ ドキュメントのデータベースに対する操作をここに集約
‘ 例：サマリー情報の更新
On Error Resume Next
With doc.SummaryInfo
.Author = “Automated CAD Engine v4.2”
.Title = “Standard Mechanical Drawing”
End With
On Error GoTo 0
End Sub
—
3. チーフアーキテクトが教える「現場の罠」とメモリ管理の極意
オブジェクトのライフサイクル管理（COMの闇）
VBAのコードブロックが終了しても、背後で動いているAutoCADのCOMサーバー（プロセス）がメモリ上に残り続ける現象に悩まされたことはないだろうか。これは、`AcadDocument` や `AcadApplication` といった参照が、コードのスコープ外に出ても暗黙的に保持されることが原因である。
前述のコードの通り、処理の終端（`CleanUp` ラベル）で `Set acadDoc = Nothing` および `Set acadApp = Nothing` を明示的に実行し、さらにローカル変数スコープを厳格に分ける ことで、メモリリークや「RPCサーバーは利用できません」といった致命的なCOM例外を完全に根絶できる。
バージョン互換性の制御
AutoCAD VBAにおける最大の爆弾は、異なるバージョン（例: AutoCAD 2013 と AutoCAD 2024）間でのファイルフォーマットの互換性である。
`SaveAs` メソッドの第二引数（保存形式）を省略すると、現在実行中のAutoCADのデフォルト形式で保存されてしまう。
下位バージョンのクライアントや、指定されたレガシー環境へ納品する必要があるシステムにおいては、以下のような列挙型を必ずコード内で明示指定せよ。
- `ac2004DWG`
- `ac2010DWG`
- `ac2013DWG`
- `ac2018DWG`
これにより、保存時の「バージョン非互換によるサイレントエラー」や「意図しない図面形式の汚染」を完全に防ぐことが可能となる。
—
総括
AutoCAD VBAによる図面自動化は、単なるマクロの域を超え、一種のシステムエンジニアリングである。テンプレートのロードから、メモリの解放、バージョンの制御までをエンジニアの完全な統制下に置くこと初めて、24時間止まらない堅牢な設計が実現する。
感覚的なコーディングを捨て、ライフサイクルを支配せよ。それこそが、現場を制する唯一の道である。
