印刷設定の不一致を根絶せよ：DWTを「真実の源（Source of Truth）」とするページ設定同期の設計思想
業務自動化の現場において、もっとも「静かに、しかし確実に」プロジェクトの生産性を削り取るバグ、それは「印刷設定の不一致」だ。
「図面は完璧なのに、出力してみると用紙サイズが違う」「プリンタドライバの設定が古い」「プロットスタイルが適用されていない」——。これらは一見、些細なミスに見える。しかし、数百枚の図面を納品する段階でこれが発生すれば、それは致命的な手戻りとなり、エンジニアの信頼を失墜させる。
多くの開発者は、個別の図面に対してページ設定を修正するスクリプトを書こうとする。だが、それは「対症療法」に過ぎない。真のアーキテクトが目指すべきは、「常に最新のテンプレート（DWT）を正とし、図面保存時に強制的に同期させる」という、システムとしての整合性維持である。
本稿では、単なるコードの羅列ではなく、堅牢な自動化ツールを構築するための設計思想と、プロダクションレベルのVBA実装を伝授する。
1. 設計のパラダイムシフト：なぜ「手動修正」は悪なのか
中級者が陥りがちな罠は、「現在の図面のレイアウトをループで回して、プロパティを一つずつ書き換える」という発想だ。しかし、これでは以下のリスクを排除できない。
1. 設定の分散化: 各図面が独自の「正解」を持ってしまう。
2. メンテナンスコストの増大: 用紙サイズが変更になった際、過去の全図面を修正し直さなければならない。
3. ヒューマンエラー: 修正漏れのレイアウトが必ず発生する。
我々が採用すべき設計は、「DWT（テンプレート）を唯一の正解（Single Source of Truth）とし、保存プロセスに同期処理を組み込む」という、データドリブンなアプローチだ。
2. 実装における技術的障壁と回避策
この機能を実装する際、以下の3つの技術的課題に直面する。これらをどう乗り越えるかが、プロとアマの境界線だ。
① オブジェクトのライフサイクル管理
DWTを開いて設定を読み取る際、DWT自体を `Documents.Open` で開く必要がある。ここで、エラーが発生した際にDWTが開いたまま残ってしまうと、他のユーザーがテンプレートを更新できなくなる。「開いたら必ず閉じる、失敗しても必ず閉じる」という `Finally` 相当の処理が不可欠だ。
② プリンタドライバの不一致問題
DWTで指定されているプリンタ名が、作業環境のPCにインストールされていない場合、AutoCADはエラーを吐いて停止する。コード内で「プリンタの存在確認」を行うか、あるいは「プリンタ設定以外（用紙サイズやプロットスタイル等）を優先的に同期する」といった、フォールバック戦略が必要だ。
③ プロパティ同期の粒度
`Layout.CopyFrom` メソッドは非常に強力だが、これは「レイアウト全体」をコピーしてしまう。既存の図形やビューポートを破壊せずに「ページ設定だけ」を同期するには、`Layout` オブジェクトの `Plot` 関連プロパティを個別に、かつ精密に転記しなければならない。
3. プロダクション・コード例
以下に、実務でそのまま利用可能な、堅牢性を極限まで高めたVBAコードを示す。このコードは、指定したDWT内の「マスターレイアウト」から、現在の図面の全レイアウトへページ設定を同期する。
Option Explicit
''' <summary>
''' 図面保存時に実行することを想定した、ページ設定同期メインルーチン
''' </summary>
Public Sub SyncPageSetupFromTemplate()
' --- 設定値（本来は外部設定ファイルや定数管理にすべき） ---
Const TEMPLATE_PATH As String = "C:\Standards\Company_Standard.dwt"
Const MASTER_LAYOUT_NAME As String = "Plot_Master" ' DWT内の設定済みレイアウト名
' ---------------------------------------------------------
Dim acadDoc As AcadDocument
Dim tempDoc As AcadDocument
Dim targetLayout As AcadLayout
Dim sourceLayout As AcadLayout
Dim errHandler As Long
Set acadDoc = ThisDrawing
' 1. テンプレートファイルの存在確認
If Dir(TEMPLATE_PATH) = "" Then
MsgBox "エラー: テンプレートファイルが見つかりません。" & vbCrLf & TEMPLATE_PATH, vbCritical
Exit Sub
End If
On Error GoTo ErrorHandler
' 2. テンプレートをバックグラウンドで開く
' ※ユーザーの作業を妨げないよう、極力最小限の操作で行う
Set tempDoc = Documents.Open(TEMPLATE_PATH)
' 3. テンプレート内のマスターレイアウトを取得
On Error Resume Next
Set sourceLayout = tempDoc.Layouts.Item(MASTER_LAYOUT_NAME)
On Error GoTo ErrorHandler
If sourceLayout Is Nothing Then
MsgBox "エラー: テンプレート内にマスターレイアウト '" & MASTER_LAYOUT_NAME & "' が見つかりません。", vbCritical
tempDoc.Close False
Exit Sub
End If
' 4. 現在の図面の全レイアウトに対して設定を同期
' モデル空間は除外するか、要件に応じて含める（ここでは全レイアウトを対象）
For Each targetLayout In acadDoc.Layouts
' マスターレイアウト自体や、特定の除外レイアウトがあればスキップ
If targetLayout.Name <> MASTER_LAYOUT_NAME Then
ApplyPageSettings targetLayout, sourceLayout
End If
Next targetLayout
' 5. テンプレートを保存せずに閉じる（重要！）
tempDoc.Close False
' 6. 図面を保存
acadDoc.Save
MsgBox "ページ設定の同期と保存が完了しました。", vbInformation
Exit Sub
ErrorHandler:
errHandler = Err.Number
MsgBox "予期せぬエラーが発生しました。" & vbCrLf & _
"番号: " & errHandler & vbCrLf & _
"内容: " & Err.Description, vbCritical
' リソースの解放（テンプレートが開いたままにならないよう徹底）
If Not tempDoc Is Nothing Then
tempDoc.Close False
End If
End Sub
''' <summary>
''' レイアウトオブジェクト間でページ設定プロパティを精密に転記する
''' </summary>
Private Sub ApplyPageSettings(ByRef target As AcadLayout, ByRef source As AcadLayout)
On Error Resume Next ' プリンタ名不一致等のエラーでプロセスを止めないための防御
' プロット設定の同期
' 注意: CanonicalMediaName (用紙サイズ) はドライバ依存が強いため、
' エラーが発生した場合はそのプロパティをスキップして継続する設計にする。
target.ConfigName = source.ConfigName ' プリンタ名
target.CanonicalMediaName = source.CanonicalMediaName ' 用紙サイズ
target.PlotStyleSheet = source.PlotStyleSheet ' CTB/STBファイル
target.PlotRotation = source.PlotRotation ' 回転方向
target.PlotType = source.PlotType ' プロット範囲 (Extents/Display/Layout)
target.StandardScale = source.StandardScale ' 尺度
target.PlotType = source.PlotType ' プロットタイプ
target.CenterPlot = source.CenterPlot ' 中央に配置
target.PlotWithPlotStyles = source.PlotWithPlotStyles ' スタイルを適用
' 変更を確定させるための更新
target.Update
If Err.Number <> 0 Then
' ログ出力などの処理をここに入れる（デバッグ用）
Debug.Print "Warning: Layout '" & target.Name & "' の設定同期に一部失敗しました。"
Err.Clear
End If
End Sub4. 伝説のアーキテクトからのアドバイス
このコードを実装するにあたり、以下の「プロの作法」を忘れないでほしい。
ログこそが正義である
実務環境では、エラーは必ず起きる。しかし、ユーザーに「エラーです」とだけ伝えるのは無責任だ。`ApplyPageSettings` 内で失敗したプロパティ（例：プリンタ名が違った、用紙サイズが対応していなかった）を、テキストファイルやデバッグログに記録する仕組みを組み込みなさい。それが、次なる標準化へのデータとなる。
依存性の注入（Dependency Injection）の考え方
上記のコードでは `TEMPLATE_PATH` を定数にしているが、これを外部の `.ini` ファイルや、ネットワーク上の共有設定ファイルから読み込むように変更しなさい。そうすることで、コードを書き換えることなく、全社員のツールを一斉にアップデートできるようになる。
パフォーマンスの重みを知れ
`Documents.Open` は重い処理だ。もし、このマクロを「図面を開くたび」に走らせるような設計にするなら、それは設計ミスだ。あくまで「保存時」あるいは「明示的なコマンド実行時」に限定し、ユーザーの作業リズムを破壊しない配慮をすること。
結びに代えて
自動化エンジニアの価値は、「コードを書けること」ではない。「業務の不確実性を、いかにして確実なシステムへと変換できるか」にある。
今回紹介した手法は、単なる設定のコピーではない。図面データの整合性を保証し、組織全体の品質を底上げするための「規律」をコード化したものだ。この設計思想を胸に、次なる自動化への挑戦を続けてほしい。
