【実務・中級編】【初心者向け】「Documents.Add」での新規作成時に、既存図面の設定を継承させる「擬似テンプレート」オープン術 – AutoCAD VBA解析バイブル

.dwtの限界を超えろ：AutoCAD VBAにおける「擬似テンプレート」による環境同期の極意

業務自動化の現場において、多くの開発者が陥る「設計の罠」がある。それは、「テンプレート（.dwt）は静的なものである」という思い込みだ。

標準的なマニュアルには「`Documents.Add(“template.dwt”)` を使って新規図面を作成しましょう」と書かれている。しかし、実務の最前線はどうだ？ プロジェクトごとに画層構成が微妙に異なり、テキストスタイルや寸法スタイルが常に更新され続けている。固定されたテンプレートを使い続けることは、設計の不整合（インコンシステンシー）を招くリスクそのものだ。

今回は、単なるテンプレートの呼び出しではない。現在開いている図面の「生きた設定（Layer, Style, Linetype等）」を動的に抽出・継承し、即座に新しい作業環境を構築する「擬似テンプレート（Pseudo-Template）オープン術」を伝授する。

これは、単なるコードの書き方ではない。オブジェクトのライフサイクルを制御し、図面データベースの整合性を守るための「設計思想」である。

1. なぜ `Documents.Add` だけでは不十分なのか

一般的なエンジニアは、以下のようなコードを書く。

' 初心者が書く、メンテナンス性の低いコード
Sub BadExample()
    Dim newDoc As AcadDocument
    Set newDoc = ThisDrawing.Application.Documents.Add("C:\Standard\Company_Template.dwt")
    ' ここから、不足している画層を一つずつ追加する地獄のループが始まる...
End Sub

この設計には、致命的な欠陥が3つある。

1. 同期の遅延: テンプレートを更新するたびに、すべての自動化ツールを書き換えるか、テンプレートファイルを物理的に差し替える必要がある。
2. コンテキストの欠如: 「今、この図面で作業している設定」を反映できない。
3. スケーラビリティの欠如: 複雑な寸法スタイルや、特殊なLinetypeの依存関係を、コードで逐一再現するのは非効率の極みだ。

我々プロフェッショナルが目指すべきは、「現在の図面（ActiveDocument）を、一時的なマスター（Master State）として扱う」設計である。

2. アーキテクチャ設計：擬似テンプレート・パターンの構造

我々が実装するのは、以下のプロセスを持つ「メタデータ同期エンジン」だ。

1. State Capture (状態捕捉): 現在の図面から、画層（Layers）、文字スタイル（TextStyles）、寸法スタイル（DimStyles）の定義情報をメモリ上にスキャンする。
2. Document Instantiation (インスタンス化): `Documents.Add` でクリーンな図面を生成する。
3. Metadata Injection (注入): 捕捉した定義情報を、新しい図面のデータベースへ高速に書き込む。
4. Context Switch (文脈の移行): 新しい図面をアクティブにし、即座に保存（SaveAs）可能な状態にする。

3. プロダクション・グレードのコード実装

以下に、堅牢性とパフォーマンスを両立させた実装例を示す。このコードは、単に画層を作るだけでなく、色、線種、透過度といった「属性」までを完全に同期させる。

Option Explicit

''' <summary>
''' 現在の図面の設定を継承した新しい図面を作成する
''' </summary>
''' <param name="newFileName">保存する予定のフルパス</param>
Public Sub CreatePseudoTemplateDocument(ByVal newFileName As String)
    Dim sourceDoc As AcadDocument
    Dim targetDoc As AcadDocument
    Dim objLayer As AcadLayer
    Dim objTextStyle As AcadTextStyle
    Dim objDimStyle As AcadDimStyle
    
    On Error GoTo ErrorHandler
    
    ' 1. コンテキストの確定
    Set sourceDoc = ThisDrawing
    
    ' 2. 新規図面の生成 (標準のACAD.dwtを使用し、最小限の負荷で開始)
    ' ※テンプレートを指定しない場合、デフォルトのテンプレートが使用される
    Set targetDoc = sourceDoc.Application.Documents.Add
    
    ' 3. 画層（Layers）の同期
    ' プロダクションコードでは、既存の画層を上書きしないよう、
    ' 「存在しない場合のみ作成する」ロジックを徹底する
    Debug.Print "Starting Layer Synchronization..."
    For Each objLayer In sourceDoc.Layers
        ' Layer 0 と Defpoints は特殊な存在であるため、スキップまたは慎重に扱う
        If objLayer.Name <> "0" And objLayer.Name <> "Defpoints" Then
            Call SyncLayer(sourceDoc, targetDoc, objLayer)
        End If
    Next objLayer
    
    ' 4. 文字スタイル（TextStyles）の同期
    Debug.Print "Starting TextStyle Synchronization..."
    For Each objTextStyle In sourceDoc.TextStyles
        If objTextStyle.Name <> "Standard" Then
            Call SyncTextStyle(sourceDoc, targetDoc, objTextStyle)
        End If
    Next objTextStyle

    ' 5. 完了処理
    ' 新しい図面をアクティブにする
    targetDoc.Activate
    
    ' 即座に別名保存（これにより、ユーザーは「保存済み」の状態で作業を開始できる）
    targetDoc.SaveAs newFileName
    
    MsgBox "擬似テンプレートによる新規作成が完了しました。" & vbCrLf & _
           "保存先: " & newFileName, vbInformation, "Success"
    
    Exit Sub

ErrorHandler:
    MsgBox "致命的なエラーが発生しました。" & vbCrLf & _
           "Error No: " & Err.Number & vbCrLf & _
           "Description: " & Err.Description, vbCritical, "Critical Error"
    ' 失敗時に中途半端な図面が残らないよう、必要に応じてtargetDoc.Closeを行う設計思想を持つ
End Sub

''' <summary>
''' 画層の属性を同期する内部メソッド
''' </summary>
Private Sub SyncLayer(ByRef srcDoc As AcadDocument, ByRef tgtDoc As AcadDocument, ByRef srcLayer As AcadLayer)
    Dim tgtLayer As AcadLayer
    On Error Resume Next
    ' ターゲットに同名画層があるか確認
    Set tgtLayer = tgtDoc.Layers.Item(srcLayer.Name)
    On Error GoTo 0
    
    If tgtLayer Is Nothing Then
        ' 画層が存在しない場合、新規作成して属性をコピー
        Set tgtLayer = tgtDoc.Layers.Add(srcLayer.Name)
    End If
    
    ' 属性の同期 (ここがエンジニアの腕の見せ所)
    tgtLayer.Color = srcLayer.Color
    tgtLayer.Linetype = srcLayer.Linetype
    tgtLayer.Lineweight = srcLayer.Lineweight
    ' 透明度の同期 (AutoCADのバージョンに依存するため注意)
    On Error Resume Next
    tgtLayer.Transparency = srcLayer.Transparency
    On Error GoTo 0
End Sub

''' <summary>
''' 文字スタイルの属性を同期する内部メソッド
''' </summary>
Private Sub SyncTextStyle(ByRef srcDoc As AcadDocument, ByRef tgtDoc As AcadDocument, ByRef srcStyle As AcadTextStyle)
    Dim tgtStyle As AcadTextStyle
    On Error Resume Next
    Set tgtStyle = tgtDoc.TextStyles.Item(srcStyle.Name)
    On Error GoTo 0
    
    If tgtStyle Is Nothing Then
        Set tgtStyle = tgtDoc.TextStyles.Add(srcStyle.Name)
    End If
    
    ' フォント名（FontFile）の同期は、システムにフォントが存在しない場合にエラーになるため慎重に
    tgtStyle.FontFile = srcStyle.FontFile
End Sub

4. 伝説のアーキテクトが教える「運用上の鉄則」

このコードをプロダクション環境に投入する前に、以下の3点を必ず頭に叩き込んでおけ。

① オブジェクトのライフサイクルと「ゾンビ・ドキュメント」

`Documents.Add` を実行すると、メモリ上に新しい `AcadDocument` インスタンスが生成される。エラーハンドリング（`ErrorHandler`）を怠ると、プログラムが異常終了した際に、「中身が空で、ユーザーが操作できない、メモリを食いつぶすだけの図面」がAutoCADの中に残り続ける。これを「ゾンビ・ドキュメント」と呼ぶ。必ず `On Error` で制御し、異常時は適切にクローズするか、ユーザーに通知する設計にせよ。

② 依存関係の連鎖（Dependency Chain）

画層をコピーする際、その画層に設定されている `Linetype` が新しい図面に存在しなければ、AutoCADはデフォルトの `Continuous` に強制的に戻してしまう。
真に堅牢なツールを作るなら、「Linetypeの同期」→「Layerの同期」→「TextStyleの同期」という順序を守らなければならない。依存関係のツリーを意識せよ。

③ パフォーマンスの重み

数千の画層を持つ巨大な図面でこのスクリプトを走らせると、ループ処理がボトルネックになる。
実務的な最適化としては、「同期が必要な画層リストを、あらかじめ外部のDBや設定ファイル（JSON/XML等）から読み込んでおく」、あるいは「特定の接頭辞（例：`PROJ_`）を持つ画層のみを対象にする」といった、フィルタリング戦略を組み込むことがプロの仕事だ。

結論

`Documents.Add` は単なる命令ではない。それは、新しい宇宙（図面データベース）を創造する儀式だ。
テンプレートという「過去の遺物」に頼るのではなく、現在のコンテキストを動的に制御する「擬似テンプレート」の手法をマスターすることで、君の作るツールは、変化し続ける実務現場において真の価値を発揮するだろう。

「コードを書くのではない。環境を設計せよ。」
これが、我々エンジニアが守るべき規律である。