AutoCAD VBAを掌握する極限の知見
【第1回】AcadApplication.Documents.Addのテンプレート指定：社内標準DWTを強制適用する新規図面作成マクロ
—
はじめに：なぜ「生の新規図面」を開かせてはならないのか
CADオペレーターや設計者が毎朝行う定型業務。それは「新規図面の作成」である。
素のAutoCADが提供するデフォルトの `acad.dwt` や `acadiso.dwt` をそのまま使わせている現場は、エンジニアリングのガバナンスにおいて重大な機会損失を引き起こしている。
画層（Layer）の命名規則がバラバラになり、線種や文字スタイルが統一されず、レイアウト空間の枠すらない図面が乱立する。これを後からC#やVBAのバッチ処理でクレンジングしようなどというのは、地獄への片道切符を買うようなものだ。
プロフェッショナルなCAD環境構築において、「新規作成の瞬間から社内標準DWTを強制適用する」ことは絶対命題である。
今回は、`AcadApplication.Documents.Add` メソッドの真の挙動と、COMのライフサイクル管理、そして実務で耐えうる堅牢なテンプレート強制適用マクロの全貌を、チーフアーキテクトの視点から解説する。
—
オブジェクトモデルの深層：Documents.Addのメカニズム
AutoCAD VBAにおけるドキュメント管理の頂点に君臨するのが `AcadApplication.Documents` コレクションである。
この `Add` メソッドのシグネチャを正確に理解している者は意外と少ない。
RetVal = object.Add(TemplateName)
公式リファレンスには「オプションの文字列型引数」とさらっと書かれているが、この `TemplateName` の扱いに実務の成否が隠されている。
1. パスの解決とセキュリティコンテキスト
引数に渡すテンプレートパス（`.dwt`）は、相対パスではなく必ず絶対パスで指定すべきである。AutoCADのワーキングディレクトリはユーザーの操作やVBAの起動トリガーによって変動するため、相対パス指定は「ファイルが見つかりません (Error 53)」の温床となる。
2. COMオブジェクトのライフサイクルとメモリ管理
VBAからAutoCADを操作する場合、背後ではCOM（Component Object Model）サーバーが稼働している。`Documents.Add` を実行すると、メモリ上に新しい `AcadDocument` オブジェクトが生成され、それがアクティブドキュメント（`ActiveDocument`）に昇格する。
ここで注意すべきは、生成されたドキュメントオブジェクトの参照を適切に変数に保持し、処理終了時には確実に解放する（Nothingを代入する）という規律である。これを怠ると、AutoCADのプロセス（`acad.exe`）がバックグラウンドに残存し、メモリリークや次回のファイルロック競合を引き起こす。
—
実装コード：社内標準DWT強制適用マクロ
現場で即座にコピー＆ペーストして運用できる、エラーハンドリング完備のプロダクションコードを提示する。このコードは、単にテンプレートを開くだけでなく、ファイル存在確認、パスの正規化、そして例外時のクリーンアップを完璧にこなす。
Option Explicit
”=============================================================================
” モジュール名: modNewDrawingManager
” 概要 : 社内標準テンプレートを強制適用した新規図面作成モジュール
” 著者 : チーフアーキテクト
”=============================================================================
Public Sub CreateDrawingWithCorporateTemplate()
‘ 1. 定数定義（環境に合わせて社内サーバーのパス等に変更すること）
Const CORPORATE_DWT_PATH As String = “S:\CAD_Standards\Templates\CorpStandard_2024.dwt”
Dim acadApp As AcadApplication
Dim targetDoc As AcadDocument
Dim fso As Object
‘ エラーハンドリングの有効化
On Error GoTo ErrorHandler
‘ 2. FileSystemObjectによる事前存在確認（COMエラーを未然に防ぐ防衛的プログラミング）
Set fso = CreateObject(“Scripting.FileSystemObject”)
If Not fso.FileExists(CORPORATE_DWT_PATH) Then
Err.Raise vbObjectError + 1000, “CreateDrawingWithCorporateTemplate”, _
“致命的なエラー: 社内標準テンプレートが見つかりません。” & vbCrLf & _
“パスを確認してください: ” & CORPORATE_DWT_PATH
End If
‘ 3. AutoCADアプリケーションインスタンスの取得
‘ 実行中のAutoCADセッションにアタッチする
Set acadApp = ThisDrawing.Application
‘ 4. テンプレートを指定して新規ドキュメントを生成
‘ Documents.AddにDWTのパスを渡すことで、設定がロードされた状態で初期化される
Set targetDoc = acadApp.Documents.Add(CORPORATE_DWT_PATH)
‘ 5. 生成された図面に対する初期化処理（必要に応じて記述）
‘ 例: アクティブ化を確実に行う
targetDoc.Activate
‘ ログ出力（イミディエイトウィンドウ）
Debug.Print “Success: 新規図面が社内標準テンプレートから生成されました -> ” & targetDoc.Name
CleanUp:
‘ 6. オブジェクト参照の明示的な解放（メモリ最適化の極意）
Set targetDoc = Nothing
Set acadApp = Nothing
Set fso = Nothing
Exit Sub
ErrorHandler:
‘ 7. 例外処理
MsgBox “エラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“詳細: ” & Err.Description, vbCritical, “AutoCAD VBA 自動化システム”
Resume CleanUp
End Sub
—
コードの深層解説：なぜこの書き方が「極限」なのか
① `ThisDrawing.Application` の活用
外部からExcel等を通じてAutoCADを操作する場合と異なり、AutoCAD内部のVBAIDEから実行する場合、`ThisDrawing.Application` を通じて安全にインスタンスをキャプチャできる。これにより、予期せぬ別バージョンのAutoCADプロセスとのバッティングを防ぐ。
② 防衛的プログラミング（FileSystemObjectの活用）
AutoCADのCOMインターフェースは、存在しないファイルを `Documents.Add` の引数に取ると、捕捉しにくいCOM例外（`-2145386393` など）を吐き出してVBAが強制終了するか、デバッグ不能な状態に陥ることがある。
事前に `Scripting.FileSystemObject` でファイルの存在を確認し、独自の `Err.Raise` でトラップする構造にすることで、システム全体の堅牢性が飛躍的に向上する。
③ 厳格なメモリ解放
VBAのガベージコレクションは頼りにならない。特にAutoCADのCOMオブジェクトは巨大なメモリブロックを占有するため、`Set targetDoc = Nothing` を通じた参照カウントのデクリメントを明示的に行わなければならない。プロセスのゾンビ化を防ぐためのエンジニアの常識である。
—
発展：システム間連携・レガシー保守への布石
このマクロを基礎として、さらに高度なシステム連携へと拡張することが可能だ。
- PDM/PLMシステム連携: 外部データベース（SQL Server等）から案件番号や図面番号をVBA側で取得し、`Documents.Add` でテンプレートを開いた直後にレイアウトタブの名前変更や属性（属性定義/引数）の自動書き換えを行う。
- レガシーバージョン差異の吸収: AutoCAD 2010代の古いバージョンから最新の2025まで、DWTのスキーマ変更に伴うエラーを吸収するため、バージョン判定ロジックをラップ関数として前段に挟む。
テンプレートの強制適用は、単なる手間の削減ではない。「組織が生み出すすべての設計データのクオリティを、コードの一行によって担保する」という、インフラストラクチャのガバナンスそのものである。
妥協のないコードを書き、CAD管理者のストレスをゼロにせよ。
