【AutoCAD VBAを掌握する極限の知見】社内標準テンプレートからの新規図面生成とライフサイクル管理の鉄則
AutoCAD VBAの自動化において、最も犯しやすい過ちは「ただ動くだけのコード」を書くことだ。
`Documents.Add` メソッドを用いた新規図面作成は、一見すると単純な一行の命令に思えるかもしれない。しかし、背後にあるCOMのメモリ管理、マルチドキュメント環境（SDI/MDI）の挙動、そして何より「社内標準（DWT）の強制」というガバナンスの文脈を理解していなければ、現場でスケールする堅牢なシステムは構築できない。
本稿では、単なるメソッドの使い方を超え、数千枚単位の図面を扱うプラントや建築、機械設計の現場で生き抜くための「図面オープン・セーブ制御の極意」を授ける。
—
1. なぜ「素の新規作成」ではなく「DWT指定」でなければならないのか
AutoCADを起動した際、あるいは標準の `Documents.Add` を引数なしで実行した際、システムはデフォルトのテンプレート（`acad.dwt` や `acadiso.dwt`）を読み込む。
しかし、これをそのまま業務に使ってはならない。
- 画層（Layer）の命名規則がバラバラになる
- 許容されていない線種や文字スタイルが混入する
- 異図面間で寸法スタイルが統一されず、図面としての品質が崩壊する
シニアエンジニアが担保すべきは、「自動化された図面が、最初から完全に統制された状態にあること」だ。
`Documents.Add` に社内標準のDWTパスを明示的に渡すことで、生成された瞬間にすべての画層、スタイル、レイアウト設定が完了している状態を作り出す。
—
2. 実装コード：堅牢なDWT新規図面生成プロシージャ
以下に、実務でそのまま使用できる実用コードを提示する。エラーハンドリング、パスの検証、そしてオブジェクトのライフサイクル管理を徹底した実装だ。
Option Explicit
‘ ==============================================================================
‘ 処理名: CreateNewDrawingFromStandardDWT
‘ 概要: 指定された社内標準テンプレート(DWT)から新しい図面ドキュメントを生成する
‘ ==============================================================================
Public Sub CreateNewDrawingFromStandardDWT()
Dim targetDWTPath As String
Dim targetDoc As Document
‘ 1. 社内標準DWTのパスを定義（実運用ではネットワークパスやレジストリから動的取得を推奨）
‘ ※環境に合わせてパスを書き換えてください
targetDWTPath = “C:\CAD_Standard\Templates\Corporate_Standard_2024.dwt”
‘ 2. テンプレートファイルの存在確認（ファイルシステムオブジェクトを使用）
If Not CheckFileExists(targetDWTPath) Then
MsgBox “致命的なエラー: 社内標準テンプレートが見つかりません。” & vbCrLf & _
“パス: ” & targetDWTPath, vbCritical, “テンプレート異常”
Exit Sub
End If
‘ 3. エラーハンドリングの有効化（COM例外対策）
On Error GoTo ErrorHandler
‘ AutoCADの画面更新を一時停止し、描画負荷とチラつきを排除（パフォーマンス最適化）
ThisDrawing.Application.ScreenUpdating = False
‘ 4. Documents.Add メソッドによるDWT指定の新規図面作成
‘ 第1引数にテンプレートのフルパスを渡すことで、標準設定を強制適用する
Set targetDoc = ThisDrawing.Application.Documents.Add(targetDWTPath)
‘ 5. 新規作成されたドキュメントをアクティブ化
targetDoc.Activate
‘ ここに初期設定のスクリプトを記述（例：図面プロパティの書き込みなど）
Call InitializeDrawingMetadata(targetDoc)
MsgBox “社内標準に準拠した新規図面が正常に作成されました。”, vbInformation, “完了”
CleanUp:
‘ 6. 描画更新の復元
ThisDrawing.Application.ScreenUpdating = True
‘ オブジェクト変数の明示的解放（メモリリーク防止）
Set targetDoc = Nothing
Exit Sub
ErrorHandler:
MsgBox “図面の作成中に予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー説明: ” & Err.Description, vbCritical, “Critical Error”
Resume CleanUp
End Sub
‘ — ヘルパー関数: ファイル存在確認 —
Private Function CheckFileExists(ByVal filePath As String) As Boolean
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
CheckFileExists = fso.FileExists(filePath)
Set fso = Nothing
End Function
‘ — ヘルパー関数: 初期メタデータ付与のサンプル —
Private Sub InitializeDrawingMetadata(ByRef doc As Document)
‘ 例として、カスタムプロパティや初期ビューの設定をここで行う
‘ doc.SummaryInfo等を用いた連携が可能
Dim activeSpaceName As String
activeSpaceName = IIf(doc.ActiveSpace = acModelSpace, “モデル空間”, “レイアウト空間”)
‘ デバッグ出力（イミディエイトウィンドウへ）
Debug.Print “初期化完了: ” & doc.Name & ” / 初期アクティブ空間: ” & activeSpaceName
End Sub
—
3. チーフアーキテクトが教える「裏の知見」とメモリ最適化
COMオブジェクトのライフサイクル管理
VBAはガベージコレクションがブラックボックス化されているため、COMオブジェクトの参照解放を怠ると、AutoCADのプロセス（`acad.exe`バックグラウンドプロセス）がメモリ上に残留し続ける。
特に `Documents.Add` や `Application.Documents` を操作する際は、取得した `Document` オブジェクトを処理の終了時に必ず `Set targetDoc = Nothing` によって解放しなければならない。これを怠ると、マクロを数回実行しただけでメモリリークを起こし、AutoCAD本体がフリーズする原因となる。
MDI（マルチドキュメントインターフェイス）環境の罠
AutoCADはMDIアーキテクチャを採用している。複数の図面が開いている状態において、`ThisDrawing` というグローバル参照は「現在アクティブな図面」を指す。
もしバックグラウンドで処理を行わせたい、あるいは特定のテンプレートから作った図面を非アクティブのまま操作したい場合、`ThisDrawing` を使うのは悪手である。必ず `Application.Documents` コレクションから明示的にオブジェクトを取得・指定する設計にしなければならない。
ネットワーク上のDWTを読み込む際のパフォーマンス対策
社内標準テンプレートをローカルではなく、ファイルサーバー（UNCパス）やクラウドストレージ上に置くケースが多い。この時、毎回リモートからDWTを引くと、ネットワークの遅延がそのままAutoCADのフリーズとしてユーザーに体感される。
システム管理者であれば、ログイン時やAutoCAD起動時に、ローカルのキャッシュフォルダ（例: `%LOCALAPPDATA%\MyCompany\CAD\Templates`）へDWTを自動同期させ、VBAからはそのローカルパスを参照させるアーキテクチャを組むべきだ。これにより、ネットワーク切断時の耐性も飛躍的に向上する。
—
結び
「図面を新規作成する」という極めてプリミティブな操作であっても、そこにガバナンス、メモリ管理、そしてインフラストラクチャの配慮を持ち込むことで、コードの格は一変する。
真に信頼される自動化システムとは、華やかな機能の数ではなく、こうした泥臭いまでの「例外処理とリソース管理の積み重ね」によってのみ支えられるのである。
