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

AutoCAD VBA

2026.11.08

「静的なテンプレート」を超えて：ActiveDocumentの状態を継承する擬似テンプレート生成術

「静的なテンプレート」を超えて：ActiveDocumentの状態を継承する擬似テンプレート生成術

AutoCADの自動化において、多くの開発者が「`.dwt`（テンプレートファイル）を用意すればすべて解決する」という安易な幻想に陥る。しかし、大規模な設計プラットフォームを構築・運用する立場にある者にとって、その認識はあまりに浅薄だ。

実務の現場では、テンプレートは常に「静的」であり、実行時のコンテキスト（現在の画層設定、動的な寸法スタイル、あるいはユーザーがその場で定義した特殊なブロック定義）を完全には反映できない。真に高度な自動化エンジニアが求めるのは、「現在の図面の『状態（State）』を、新しい図面へと動的に注入する」プロセスである。

本稿では、`Documents.Add` を単なる新規作成コマンドとしてではなく、「状態の継承（State Inheritance）」の起点として捉え、既存図面の設計資産を即座に別名保存する「擬似テンプレート」手法の極致を解説する。

1. テンプレートの限界と「状態注入」の概念

標準的な `Documents.Add(“template.dwt”)` は、ファイルシステム上の静的な定義を読み込むに過ぎない。しかし、複雑な業務フローにおいては、「現在開いている図面の画層構成やテキストスタイルを維持したまま、クリーンな（モデル空間が空の）図面を生成したい」という要求が頻出する。

これを実現するためのアーキテクチャは以下の3フェーズで構成される。

1. State Capture (状態の捕捉): `ActiveDocument` から、継承すべきオブジェクト（Layers, TextStyles, DimStyles等）の定義情報を走査する。
2. Context Injection (文脈の注入): `Documents.Add` で生成された新しい `Document` オブジェクトに対し、捕捉した定義を再構築・コピーする。
3. Lifecycle Termination (ライフサイクルの完結): オブジェクトのメモリ解放と、ファイルシステムへの永続化（SaveAs）。

2. オブジェクト・ライフサイクルとメモリ管理の重要性

VBA（COMオートメーション）を扱う上で、最も致命的な失敗は「オブジェクトの参照放棄」である。
AutoCADのような巨大なメモリ空間を持つアプリケーションにおいて、`Document` や `Layer` オブジェクトを適切に解放（`Set obj = Nothing`）せずにループを回すと、メモリリークが発生し、最終的にAutoCADのプロセスが不安定化、あるいは強制終了する。

特に、新しい図面を `Documents.Add` で生成した直後は、メモリ上に「ソース図面」と「ターゲット図面」の2つの巨大なコンテキストが共存する。この過渡期におけるメモリ管理こそが、システムの堅牢性を決定づける。

3. 実装：擬似テンプレート生成エンジン

以下に、現在の図面から画層（Layers）とテキストスタイル（TextStyles）を継承し、即座に別名保存する堅牢な実装例を示す。

'**
' Module: PseudoTemplateEngine
' Description: 現在の図面設定を継承した新規図面を生成する
' Author: Chief Architect
'**

Option Explicit

Public Sub CreatePseudoTemplate()
    Dim sourceDoc As AcadDocument
    Dim targetDoc As AcadDocument
    Dim newFilePath As String
    
    ' エラーハンドリングの開始
    On Error GoTo ErrorHandler

    ' 1. ソース図面の捕捉
    ' ActiveDocumentは揮発的なため、明示的に変数へ固定する
    Set sourceDoc = ThisDrawing
    
    ' 保存先のパスを決定（実務ではダイアログやシステム変数から取得）
    newFilePath = sourceDoc.Path & "\" & Format(Now, "yyyymmdd_hhnnss") & "_Derived.dwg"
    
    ' 2. 新規図面の生成 (Documents.Add)
    ' ここでは標準テンプレートを使用するが、後続の処理で「状態」を上書きする
    Set targetDoc = sourceDoc.Application.Documents.Add
    
    Debug.Print "Target Document Created: " & targetDoc.Name

    ' 3. 状態の継承プロセス (State Injection)
    ' 描画要素ではなく、「定義（Definition）」をコピーすることに注力する
    InjectLayers sourceDoc, targetDoc
    InjectTextStyles sourceDoc, targetDoc
    
    ' 4. 永続化 (SaveAs)
    ' ユーザーの介入を最小限にするため、バックグラウンドで保存を実行
    targetDoc.SaveAs newFilePath
    Debug.Print "File Saved Successfully: " & newFilePath

    ' 5. クリーンアップ (Explicit Release)
    ' COMオブジェクトのライフサイクルを確実に終了させる
    Set targetDoc = Nothing
    Set sourceDoc = Nothing
    
    MsgBox "擬似テンプレートの生成が完了しました。" & vbCrLf & newFilePath, vbInformation
    Exit Sub

ErrorHandler:
    MsgBox "致命的なエラーが発生しました。" & vbCrLf & _
           "Error No: " & Err.Number & vbCrLf & _
           "Description: " & Err.Description, vbCritical
    
    ' エラー時もメモリ解放を試みる
    If Not targetDoc Is Nothing Then Set targetDoc = Nothing
    If Not sourceDoc Is Nothing Then Set sourceDoc = Nothing
End Sub

''' <summary>
''' 画層定義をソースからターゲットへ継承する
''' </summary>
Private Sub InjectLayers(ByRef src As AcadDocument, ByRef tgt As AcadDocument)
    Dim srcLayer As AcadLayer
    Dim tgtLayer As AcadLayer
    
    ' ソース図面の全画層を走査
    For Each srcLayer In src.Layers
        ' 既に存在する画層（0画層やDefpoints等）はスキップ
        On Error Resume Next
        Set tgtLayer = tgt.Layers.Add(srcLayer.Name)
        
        If Err.Number = 0 Then
            ' プロパティの同期（色、線種、線種スケール等）
            tgtLayer.Color = srcLayer.Color
            tgtLayer.Linetype = srcLayer.Linetype
            tgtLayer.Lineweight = srcLayer.Lineweight
        End If
        Err.Clear
        On Error GoTo 0
    Next srcLayer
End Sub

''' <summary>
''' テキストスタイル定義をソースからターゲットへ継承する
''' </summary>
Private Sub InjectTextStyles(ByRef src As AcadDocument, ByRef tgt As AcadDocument)
    Dim srcStyle As AcadTextStyle
    Dim tgtStyle As AcadTextStyle
    
    For Each srcStyle In src.TextStyles
        On Error Resume Next
        ' スタイルの複製（名前ベース）
        Set tgtStyle = tgt.TextStyles.Add(srcStyle.Name)
        
        If Err.Number = 0 Then
            ' フォント名や高さの設定を同期
            ' 注意: フォントファイル自体がシステムに存在する必要がある
            tgtStyle.FontFile = srcStyle.FontFile
            tgtStyle.Height = srcStyle.Height
        End If
        Err.Clear
        On Error GoTo 0
    Next srcStyle
End Sub

4. アーキテクトの視点：実務における極限の最適化

この手法を商用レベルのシステムに組み込む場合、以下の3点に留意せよ。

A. Windows API によるファイルロックの回避

`SaveAs` を実行する際、ネットワークドライブの遅延や、他のプロセス（ウイルス対策ソフトのスキャン等）によるファイルロックが原因でエラーが発生することがある。より堅牢なシステムを構築する場合、`FileSystemObject` を用いて書き込み権限を事前に検証するか、Windows API の `CreateFile` を用いてファイルの状態を低レイヤーで監視する設計が求められる。

B. コレクション走査の計算量

`InjectLayers` のようなループ処理において、画層数が数千に及ぶ大規模図面を扱う場合、`Documents.Add` 直後のドキュメントは「未保存」の状態であるため、描画更新（Regen）が頻発するとパフォーマンスが著しく低下する。大量の定義を注入した後は、一度だけ `targetDoc.Regen acAllViewports` を実行し、表示状態を安定させるのが定石だ。

C. 循環参照とレガシー互換性

古いバージョンのAutoCAD（R2010以前など）との互換性を維持する必要があるレガシー環境では、新しい図面形式（DWG 2018形式など）での保存が失敗することがある。`SaveAs` を呼び出す前に、`targetDoc.Version` を確認し、必要に応じて保存形式を制御するロジックを組み込むことが、システム管理者としての責務である。

結論

`Documents.Add` は単なる「空のキャンバス」を作るコマンドではない。それは、「現在の文脈を切り出し、新しい文脈へと転送するためのブリッジ」である。

オブジェクトのプロパティを一つずつ丁寧に、かつメモリ管理を徹底しながら移植する。この「泥臭くも精密な設計」こそが、テンプレートという静的な枠組みを超え、動的で柔軟な設計自動化を実現するための唯一の道である。