【テクニカル・上級編】【上級プロフェッショナル向け】バイナリ解析によるDWGヘッダー情報の直接取得：AutoCADを起動せずに図面の保存バージョンを判定する – AutoCAD VBA解析バイブル

【極限の知見】AutoCADインスタンスを回避せよ：バイナリ解析によるDWGバージョン判定の超高速アーキテクチャ

大規模な図面管理システムや、数千枚の図面をスキャンするバッチ処理を設計する際、多くのエンジニアが陥る致命的な設計ミスがある。それは、「図面の情報を知るために、AutoCADのインスタンスを立ち上げる」という、あまりにもコストの高い、非効率なアプローチだ。

AutoCADのCOMオブジェクト、特に`AcadApplication`の生成と初期化には、膨大なメモリ消費と、OSのリソース競合、そして何より無視できない「時間」という代償が伴う。もし、ファイルが破損していたり、バージョンが古すぎて現在のAutoCADで開けない場合、その重いインスタンスを立ち上げた直後に例外（Exception）でクラッシュさせる……。これは、プロフェッショナルが書くべきコードではない。

本稿では、AutoCADという巨大なアプリケーションの「外側」から、バイナリレベルでDWGファイルの正体を暴く、極限の高速化手法を伝授する。

1. 設計思想：低レイヤーへの回帰

図面ファイルのバージョン判定において、AutoCADのAPIを利用することは、いわば「一言の返事を聞くために、重戦車を動かす」ようなものである。

DWGファイルは、その先頭部分に特定のシグネチャ（マジックナンバー）を保持している。この数バイトを読み取るだけで、そのファイルがどのバージョンのDWGであるかは、決定論的に判別可能だ。

我々が目指すべきは、「AutoCADを1ミリも動かさずに、ファイルシステムのメタデータとバイナリヘッダーのみで判定を完結させる」アーキテクチャである。

2. DWGヘッダーの構造とマジックナンバー

DWGファイルの先頭6バイトは、常に `AC10xx` という形式をとる。この `xx` の部分が、AutoCADのバージョンを示す16進数コードだ。

この情報を取得するためには、`FileSystemObject` や `Open Statement` による Binary Access Read を用いるのが、VBAにおける最も軽量なアプローチとなる。

3. 実装：バイナリ・ヘッダー・スキャナー

以下に、実戦投入可能なレベルのVBAコードを示す。単なる判定関数ではない。エラーハンドリング、ファイルロックへの配慮、そしてメモリ効率を極限まで高めた設計だ。

Option Explicit

'---------------------------------------------------------------------------------------
' Constant Definitions
'---------------------------------------------------------------------------------------
Private Const DWG_HEADER_SIZE As Integer = 6
Private Const SUCCESS_CODE As Integer = 0
Private Const ERR_FILE_NOT_FOUND As Integer = -1
Private Const ERR_ACCESS_DENIED As Integer = -2
Private Const ERR_INVALID_FORMAT As Integer = -3

'---------------------------------------------------------------------------------------
' Function: GetDWGVersionSignature
' Purpose: AutoCADを起動せず、バイナリ解析によりDWGのバージョンヘッダーを取得する
' Argument: strFilePath - 解析対象のDWGファイルのフルパス
' Returns: String (例: "AC1032") またはエラーコード
'---------------------------------------------------------------------------------------
Public Function GetDWGVersionSignature(ByVal strFilePath As String) As String
    Dim fileNum As Integer
    Dim buffer As String
    Dim header As String
    
    ' 1. ファイル存在チェック (FileSystemObjectを介さず、高速なDir関数を使用)
    If Dir(strFilePath) = "" Then
        GetDWGVersionSignature = CStr(ERR_FILE_NOT_FOUND)
        Exit Function
    End If

    On Error GoTo ErrorHandler

    ' 2. バイナリモードでのオープン
    ' Access Read を指定することで、他プロセスによる書き込みロックの影響を最小限に抑える
    fileNum = FreeFile
    Open strFilePath For Binary Access Read As #fileNum
    
    ' 3. 先頭6バイトのみをピンポイントで読み込む
    ' Getステートメントは、ファイルポインタを移動させずに指定バイトを読み取る
    header = Space$(DWG_HEADER_SIZE)
    Get #fileNum, 1, header
    
    ' 4. ファイルのクローズ (オブジェクトのライフサイクル管理)
    Close #fileNum
    
    ' 5. バリデーション: ヘッダーが "AC" で始まっているか
    If Left(header, 2) <> "AC" Then
        GetDWGVersionSignature = CStr(ERR_INVALID_FORMAT)
        Exit Function
    End If
    
    ' 成功時、取得したシグネチャを返す
    GetDWGVersionSignature = header
    Exit Function

ErrorHandler:
    ' エラー発生時は確実にファイルをクローズし、リソースリークを防ぐ
    If fileNum > 0 Then Close #fileNum
    
    Select Case Err.Number
        Case 70 ' Permission denied
            GetDWGVersionSignature = CStr(ERR_ACCESS_DENIED)
        Case Else
            GetDWGVersionSignature = CStr(ERR_INVALID_FORMAT)
    End Select
End Function

'---------------------------------------------------------------------------------------
' Sub: TestImplementation
' Purpose: 実装テスト用
'---------------------------------------------------------------------------------------
Public Sub TestImplementation()
    Dim targetFile As String
    Dim result As String
    
    targetFile = "C:\Path\To\Your\Drawing.dwg" ' 実在するパスに変更すること
    
    Debug.Print "--- Analyzing: " & targetFile & " ---"
    result = GetDWGVersionSignature(targetFile)
    
    If Left(result, 2) = "AC" Then
        Debug.Print "Success: Detected Version Signature -> " & result
        ' ここでバージョンに応じたロジック（AutoCADの起動、あるいはスキップ）を分岐させる
    Else
        Debug.Print "Error: " & result & " (Check file integrity or path)"
    End If
End Sub

4. アーキテクトの視点：なぜこの手法が「最強」なのか

メモリとプロセスの分離

この手法の最大の利点は、AutoCADのプロセスツリーに一切干渉しないことだ。
大量の図面をスキャンする場合、AutoCADのインスタンスを生成すると、メモリのフラグメンテーションや、`AutoCAD.exe` のゾンビプロセス化（クラッシュ後にメモリ上に残り続ける現象）のリスクが飛躍的に高まる。バイナリ解析は、OSの標準的なファイルI/Oに依存するため、極めて予測可能（Deterministic）な動作を保証する。

パフォーマンスの比較

• AutoCAD API方式: ファイルオープン $\rightarrow$ インスタンス初期化 $\rightarrow$ ドキュメントロード $\rightarrow$ プロパティ取得（数秒〜数十秒）
• バイナリ解析方式: ファイルオープン $\rightarrow$ 6バイト読み込み $\rightarrow$ クローズ（数ミリ秒）

このオーダーの違いは、数千枚規模の処理において、「数時間かかる作業を数秒で終わらせる」ほどの差となって現れる。

レガシー環境への耐性

社内システムにおいては、古いバージョンのAutoCADしかインストールされていない端末で、新しいバージョンのDWGを読み込もうとしてシステム全体が停止する、といった事故が頻発する。この「事前判定（Pre-flight Check）」を組み込むことで、システムは致命的なエラーを回避し、優雅に（Gracefully）エラーをハンドリングできるようになる。

5. 結論

プロフェッショナルな自動化エンジニアにとって、ライブラリやAPIは「手段」であって「目的」ではない。
真に堅牢で高速なシステムを構築するためには、抽象化されたAPIの裏側にある、データの物理的な構造を理解していなければならない。

「AutoCADを起動せずに図面を判別する」。この小さな一歩が、大規模な設計自動化基盤における信頼性とパフォーマンスを決定づけるのである。