【AutoCAD VBA】テンプレートから新規図面を自動生成する極限の堅牢設計〜別名保存の罠を配してプロセスの標準化を掌握する〜
実務でAutoCAD VBAを駆使して自動化ツールを開発している諸君、そして開発チームを率いるリーダー諸氏。日々、設計現場の「標準化」という名のカオスと戦っていることと思う。
図面作成の標準化において、最も基本でありながら、最もバグを誘発しやすいのが「指定のテンプレート（.dwt）を基に、新しい図面を自動的に作成する」というプロセスだ。
「そんなもの、マクロ記録やネットに転がっているコードをコピペすれば一瞬で実装できる」と思ったならば、今すぐその認識を改めてほしい。現場のユーザーは、開発者が想像もしない操作を行う。ネットワークが瞬断しただけで、あるいは1つ前のダイアログをキャンセルしただけで、VBAマクロは沈黙し、最悪の場合は図面データベースを破壊するか、AutoCAD自体をフリーズさせる。
今回は、凡百の技術ブログにあるような「ただ動くだけのコード」ではなく、実務の過酷な運用に耐えうる「堅牢極まる」テンプレート自動展開マクロの設計思想と実装を伝授する。
—
1. なぜ、あなたのコードは現場で落ちるのか？「素人コード」の致命的欠陥
まずは、よくある「動くだけ」の非効率・不安定なコードの典型例を見てみよう。
‘ ⚠️ 現場でトラブルを頻発させる典型的な「非推奨」コード
Sub BadExample()
Dim doc As AcadDocument
‘ 1. 直接Openでテンプレートを開いてしまう（書き換えリスク）
Set doc = ThisDrawing.Application.Documents.Open(“P:\Standard\Template.dwt”)
‘ 2. 別名保存して新規図面に見せかける
doc.SaveAs “C:\Work\NewDrawing.dwg”
End Sub
このアプローチには、プロフェッショナルとして見過ごせない3つの致命的欠陥がある。
1. テンプレート汚染のリスク
`Open` メソッドで `.dwt` を直接開いてしまうと、万が一 `SaveAs`（別名保存）の前にユーザーが上書き保存（`Save`）を実行したり、マクロが途中で異常終了したりした場合、マスターテンプレートそのものが書き換えられてしまう。これは標準化の崩壊を意味する。
2. UNCパスおよびネットワーク遅延の無視
実務におけるテンプレートは、通常ファイルサーバー（`\\Server\Share\`）上に配置される。ネットワークの瞬断、アクセス権の欠如、あるいはVPN経由の遅延に対する考慮がないコードは、容易に「実行時エラー 53: ファイルが見つかりません」で爆死する。
3. MDI（マルチドキュメントインターフェース）の制御不全
AutoCADがSDI（シングルドキュメント）モードで動いているのか、MDIモードで動いているのか。アクティブな図面が「コマンド実行中」ではないか。これらのコンテキスト（文脈）を無視してドキュメントコレクションを操作すると、COMの呼び出し拒否エラー（`HRESULT: 0x80010001 (RPC_E_CALL_REJECTED)`）を誘発する。
—
2. 堅牢な自動化ツールに必要な「3つの防壁」
プロフェッショナルが設計する自動化ツールは、以下の「3つの防壁」をコード内に構築しなければならない。
① `Documents.Add` メソッドによる「完全な新規ドキュメント」としての展開
テンプレートを「開く」のではなく、「テンプレートをベースにして新しい図面を『作成』する」。これには `AcadDocuments.Add` メソッドの第2引数（TemplateName）を使用する。これにより、元ファイルへの書き込みロックを発生させず、完全に無垢な `Drawing1.dwg`（メモリ上の一時図面）として展開できる。
② ファイルシステムの二重チェック（ローカルキャッシュへのフォールバック）
ファイルサーバー上のテンプレートがネットワーク障害で読み込めない場合、即座にエラーで落ちるツールは三流だ。
本物のツールは、「サーバー上のマスターを確認し、アクセス不可ならローカルのバックアップ用テンプレートから生成する。同時にログを吐き、ユーザーに警告する」という多重安全弁（フェイルセーフ）を持つ。
③ COMオブジェクトのライフサイクルと例外処理の徹底
AutoCADのCOMインターフェース（VBA）はデリケートだ。エラーが発生した際に、中途半端に作成されたオブジェクトや、非表示に設定された画面更新（`ScreenUpdating`）を確実に復元する `Try-Catch-Finally` 構造（VBAにおいては `On Error GoTo` によるクリーンアップ・ルーチン）が必須となる。
—
3. 実戦配備用：プロダクションコード
以下に、実務でそのまま使用できる、極限まで堅牢性を高めたVBAコードを示す。このコードは、ファイル存在チェック、ネットワーク遅延対策、MDI制御、そしてエラーハンドリングを網羅している。
Option Explicit
”’
”’
Public Sub CreateNewDrawingFromTemplate()
On Error GoTo ErrorHandler
‘ — 1. 定数・環境設定 —
‘ 実務ではデータベースや設定ファイル（INI/JSON）から動的に取得することを推奨
Const TEMPLATE_PRIMARY_PATH As String = “\\FileServer\Standard\Templates\A3_Standard.dwt”
Const TEMPLATE_BACKUP_PATH As String = “C:\AutoCAD_Local\Templates\A3_Standard_Backup.dwt”
Dim targetTemplatePath As String
Dim app As AcadApplication
Dim docs As AcadDocuments
Dim newDoc As AcadDocument
Set app = ThisDrawing.Application
Set docs = app.Documents
‘ 画面描画を停止してパフォーマンス向上（ちらつき防止）
‘ ※VBAからはAcadApplication.VisibleやScreenUpdatingの制御に注意
‘ ここではユーザー体験向上のため、安全なオブジェクトバインドのみに留める
‘ — 2. テンプレートパスの検証（フェイルセーフ設計） —
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
If fso.FileExists(TEMPLATE_PRIMARY_PATH) Then
targetTemplatePath = TEMPLATE_PRIMARY_PATH
ElseIf fso.FileExists(TEMPLATE_BACKUP_PATH) Then
targetTemplatePath = TEMPLATE_BACKUP_PATH
‘ ユーザーに警告（実務ではサイレントログへの書き出しが望ましい）
MsgBox “サーバー上のマスターテンプレートに接続できませんでした。” & vbCrLf & _
“ローカルのバックアップテンプレートを使用します。”, vbExclamation, “警告”
Else
Err.Raise vbObjectError + 1001, “TemplateInitializer”, _
“マスターおよびローカルのテンプレートファイルがいずれも見つかりません。” & vbCrLf & _
“ネットワーク接続を確認するか、システム管理者に連絡してください。”
End If
‘ — 3. 新規図面の作成（Documents.Add の真価） —
‘ 第2引数にテンプレートパスを渡すことで、そのテンプレートを基にした新規図面（メモリ上）が生成される。
‘ テンプレート自体は読み込み専用ですら開かれず、安全が担保される。
Set newDoc = docs.Add(targetTemplatePath)
‘ — 4. ユーザーインターフェースの制御 —
‘ 作成したドキュメントをアクティブにする
newDoc.Activate
‘ コマンドラインへの通知
newDoc.Utility.Prompt vbCrLf & “>> テンプレート [” & fso.GetFileName(targetTemplatePath) & “] から新規図面を正常に作成しました。” & vbCrLf
‘ クリーンアップ
Set fso = Nothing
Exit Sub
ErrorHandler:
‘ 堅牢なエラーハンドリング
Dim errSource As String
Dim errDesc As String
errSource = Err.Source
errDesc = Err.Description
‘ リソースの解放
Set fso = Nothing
‘ ユーザーへの詳細なフィードバック
MsgBox “図面作成プロセス中に致命的なエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラーソース: ” & errSource & vbCrLf & _
“エラー内容: ” & errDesc, vbCritical, “システムエラー”
End Sub
—
4. ディープダイブ：プロが実践する最適化と拡張アプローチ
上記の実装をベースに、さらに大規模な業務システムへ組み込む際のアーキテクト視点のアドバイスを記述しておく。
① `Documents.Add` と `Documents.Open` の決定的な違い
VBAの `AcadDocuments.Add` メソッドは、内部的にAutoCADの `NEW` または `QNEW` コマンドと同等の挙動を示す。
第2引数にテンプレートのフルパスを渡すと、AutoCADは「そのテンプレートのデータベース構造（レイヤー、寸法スタイル、ブロック定義、レイアウト）をコピーして、新規の無名図面（DrawingX.dwg）をメモリ上に生成」する。
一方、`Open` メソッドは実ファイルを直接開きに行くため、ファイルロックが発生し、他ユーザーがアクセスできなくなる。マルチユーザー環境では `Add` 一択であることを肝に銘じてほしい。
② 外部データ連携（SQL Server / Access / CSV）によるパスの動的解決
実務中級者であれば、テンプレートのパスをコード内にハードコードする愚は避けるべきだ。
プロジェクト管理システムや社内データベースと連携し、以下のようなフローを構築するのがプロの設計である。
[社内データベース(SQL Server/Access)]
│ (プロジェクトコードでクエリ)
▼
[VBAアドイン] ────＞ [適切なテンプレートパス（A1、A3、プラント用等）を動的決定]
│
▼
[Documents.Add(動的パス)]
テンプレートの仕様変更（レイアウト枠の更新など）があった際、コードを1行も書き換えることなく、データベース側のマスターテーブルを1レコード更新するだけで、数万人のユーザーの環境を翌日から一斉に移行させることが可能になる。
③ サイレント実行（バッチ処理）時の注意点
もしこのマクロを、夜間にバッチ処理で数百枚の図面を自動生成するようなシステムの一部として組み込む場合、`AcadApplication.Visible = False` （サイレントモード）で実行したくなるだろう。
しかし、AutoCADは画面非表示状態（`Visible = False`）でのドキュメント操作において、ダイアログのポップアップ（例：フォントの代替、外部参照の未解決など）が発生すると、プロセスが完全にフリーズして応答なしになる特性がある。
サイレント実行を行う場合は、事前に以下のシステム変数をVBAから制御すること。
- `FILEDIA` = 0 （ファイル選択ダイアログの非表示）
- `CMDDIA` = 0 （コマンドダイアログの非表示）
- `EXPERT` = 5 （警告メッセージの自動スキップ）
また、処理終了時には必ずこれらの変数を元の値（通常は `1` や `0`）に復元する「ロールバック処理」を `Finally` 領域（エラーハンドラーの直前）に記述することを忘れてはならない。
—
5. まとめ：アーキテクトからの提言
図面の自動生成は、業務自動化の「入り口」でありながら、同時に「最も設計思想が問われる関門」でもある。
今回紹介した `Documents.Add` を用いたテンプレート展開手法、および二重のフェイルセーフ設計は、ツールが「おもちゃ」から「エンタープライズシステム」へと昇華するための必須条件だ。
「とりあえず動く」コードを量産し、のちに多発するバグの火消しに追われるのか。それとも、最初から堅牢な防壁を巡らせ、何年もメンテナンスフリーで稼働し続けるシステムを構築するのか。
この記事を手にした諸君が、後者の「真のプロフェッショナル」として、設計現場の生産性を劇的に向上させることを期待して止まない。
