【テクニカル・上級編】【実務中級者向け】図面保存と連動した「自動e-トランスミット」：外部参照とフォントをパッケージ化して保存する – AutoCAD VBA解析バイブル

AutoCAD VBA

2026.11.04

データの整合性を死守せよ：自動e-トランスミットによる納品パッケージの完全自動化

データの整合性を死守せよ：自動e-トランスミットによる納品パッケージの完全自動化

CADエンジニアリングの世界において、図面を「保存」することと、図面を「納品」することは全く別次元の概念である。

多くの開発者が、`ThisDrawing.SaveAs` の呼び出しに終始し、クライアントから「外部参照がリンク切れしている」「フォントが置き換わっている」というクレームを受けて、深夜のデバッグ作業に追われる。それは、オブジェクトモデルのライフサイクルと、AutoCADのデータベース構造に対する理解が決定的に不足している証拠である。

本稿では、単なるファイルのコピーではない。図面内に潜む外部参照（Xref）、線種（SHX）、フォント（SHP/TTF）、プロットスタイル（CTB/STB）を、データベースの深層から走査し、一貫性を保ったままパッケージ化する「自動e-トランスミット」の極限の設計思想を伝授する。

1. なぜ「ファイルコピー」では不十分なのか

初心者は `FileSystemObject` を使い、現在のDWGファイルと同じディレクトリにあるファイルを無差別にコピーしようとする。これは、設計思想として極めて脆弱である。

図面内の外部参照は、必ずしも「図面と同じフォルダ」にあるとは限らない。ネットワークパス、相対パス、あるいは別のプロジェクトディレクトリに存在する。プロフェッショナルが構築すべきは、「図面データベースを走査し、現在アクティブな参照関係から物理パスを逆引きする」 ロジックである。

2. アーキテクチャの設計：データベース・トラバーサル

自動パッケージングを実現するためには、以下の3つのレイヤーを実装する必要がある。

1. Manifest Generation Layer (走査層): `Blocks` コレクションおよび `ExternalReferences` コレクションを走査し、依存関係の全リストを抽出する。
2. Resource Acquisition Layer (収集層): 抽出されたパスに基づき、OSレベルでファイルの存在確認とコピーを実行する。
3. Integrity Verification Layer (検証層): コピー後のパッケージが、整合性を保っているかを確認する。

外部参照の深層走査

AutoCADの `ExternalReferences` コレクションは強力だが、時として複雑なネスト（参照の参照）が問題となる。堅牢なシステムを構築する場合、`Blocks` コレクションを走査し、`IsXref` プロパティをチェックする手法が最も確実だ。

3. 実装：プロフェッショナル・パッケージング・エンジン

以下に、シニアエンジニアが実戦投入するための、メモリ管理とエラーハンドリングを極めたVBAコードのプロトタイプを示す。

'==============================================================================
' Module: PackagerEngine
' Description: 図面依存リソースを走査し、パッケージ化する高度な自動化モジュール
' Author: Legendary Chief Architect
'==============================================================================

Option Explicit

' Windows API: ファイルの存在確認や属性操作を高速化・確実化するために検討すべきだが、
' ここではVBAの堅牢なエラーハンドリングを優先する。

Sub ExecuteAutomatedETransmit()
    Dim targetDWG As AcadDocument
    Set targetDWG = ThisDrawing
    
    Dim exportRoot As String
    exportRoot = targetDWG.Path & "\Delivery_Package_" & Format(Now, "yyyymmdd_hhnnss")
    
    On Error GoTo ErrorHandler
    
    ' 1. 出力ディレクトリの作成
    CreateDirectory exportRoot
    
    Debug.Print "--- Packaging Started: " & targetDWG.Name & " ---"
    
    ' 2. 外部参照の収集
    CollectExternalReferences targetDWG, exportRoot
    
    ' 3. フォント・線種等のリソース収集（実装の拡張性を持たせる）
    ' ※実際の実務では、PlotStyleManager等へのアクセスが必要
    
    ' 4. 本体図面のコピー
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CopyFile targetDWG.FullName, exportRoot & "\" & targetDWG.Name, True
    
    MsgBox "納品パッケージの生成が完了しました:" & vbCrLf & exportRoot, vbInformation
    
CleanUp:
    ' オブジェクトの明示的解放：メモリリークを防ぐための鉄則
    Set fso = Nothing
    Set targetDWG = Nothing
    Exit Sub

ErrorHandler:
    MsgBox "致命的なエラーが発生しました: " & Err.Description, vbCritical
    Resume CleanUp
End Sub

'------------------------------------------------------------------------------
' 外部参照を走査し、物理ファイルを収集する
'------------------------------------------------------------------------------
Private Sub CollectExternalReferences(doc As AcadDocument, destFolder As String)
    Dim xref As AcadExternalReference
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' ExternalReferencesコレクションを直接走査
    ' これにより、図面内に存在するすべての外部参照オブジェクトにアクセス可能
    For Each xref In doc.ExternalReferences
        Dim refPath As String
        refPath = xref.Path
        
        ' パスが絶対パスでない場合の処理や、ネットワークパスの正規化をここで行う
        If refPath <> "" And fso.FileExists(refPath) Then
            Dim fileName As String
            fileName = fso.GetFileName(refPath)
            
            ' 参照ファイルがパッケージに含まれていない場合のみコピー
            If Not fso.FileExists(destFolder & "\" & fileName) Then
                Debug.Print "Collecting Xref: " & fileName
                fso.CopyFile refPath, destFolder & "\" & fileName, True
            End If
        Else
            Debug.Print "WARNING: Unresolved Reference: " & xref.Name
        End If
    Next xref
    
    Set fso = Nothing
End Sub

'------------------------------------------------------------------------------
' ディレクトリ作成のユーティリティ
'------------------------------------------------------------------------------
Private Sub CreateDirectory(ByVal path As String)
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(path) Then
        fso.CreateFolder path
    End If
    Set fso = Nothing
End Sub

4. 極限の知見：メモリ管理とオブジェクトのライフサイクル

このコードにおいて、私が最も重要視しているのは `CleanUp` セクションにおける 「明示的なオブジェクトの解放」 である。

AutoCAD VBAはCOM（Component Object Model）上で動作している。`Set obj = Nothing` を怠ることは、AutoCADのプロセス内に「幽霊オブジェクト（Dangling Pointers）」を残すことを意味する。特に、ループ内で大量の `AcadExternalReference` オブジェクトを生成・操作する場合、適切な解放が行われないと、AutoCADのメモリ使用量は指数関数的に増大し、最終的には `Out of Memory` でクラッシュする。

また、大規模な図面を扱う場合、`doc.Regen` を実行してデータベースを最新の状態に保つことも、参照パスの整合性を確保する上で不可欠なステップとなる。

5. レガシー環境とシステム間連携への展望

もし、あなたが開発しているシステムが、古いバージョンのAutoCAD（例：2010以前）から最新のAutoCAD 2024までを跨いで運用されている場合、`ExternalReferences` コレクションの挙動には注意が必要だ。

古いバージョンでは、相対パスの解釈が現在の仕様と微妙に異なる場合がある。その場合、Windows APIの `GetFullPathName` を呼び出し、OSレベルでパスを正規化してから `FileSystemObject` に渡すという、一段上の抽象化レイヤーを設けるべきである。

結論

「自動e-トランスミット」の本質は、単なるファイルコピーではない。それは、「図面という名のデータベースが持つ、外部世界への依存関係を完全に解明し、再構築するプロセス」 である。

このレベルの自動化を実現できて初めて、エンジニアは「図面を描く」という創造的な業務に集中でき、システム管理者は「納品品質の均一化」という至上命題を達成できるのだ。