【テクニカル・上級編】【実務中級者向け】「SaveAs」時のDWGバージョン定数一覧と、社内標準バージョンへの強制統一マクロ – AutoCAD VBA解析バイブル

バージョン不整合という名の混沌を制す：DWG形式強制統一エンジンの設計思想

エンジニアリングの現場において、データの互換性は単なる「便利さ」の問題ではない。それは、プロジェクトの継続性を担保するための「生存条件」である。

大規模な設計プロジェクトにおいて、ある設計者が最新のAutoCAD 2024で保存した図面が、レガシーな環境で稼働する自動化システムや、旧バージョンのAutoCADを使用する協力会社の手元で「開けないファイル」へと変貌する。この一瞬の油断が、数千人規模のワークフローを停止させる。

本稿では、AutoCAD VBAを用いて、図面ファイルのDWGバージョンを社内標準へと強制的に、かつ極めて堅牢に変換・統一するためのアーキテクチャについて、その深淵を解説する。

1. DWGバージョン定数の真実

AutoCADの`SaveAs`メソッドを制御する際、我々は単なる数値（定数）を渡しているのではない。それは、ファイル構造のバイナリ定義を切り替える命令である。

以下の定数は、AutoCADのバージョンごとに定義された、保存形式を指定するための列挙型（Enumeration）の値である。これらを正確に把握し、実装に組み込むことが第一歩となる。

実務において「社内標準」として設定すべきは、多くの場合 `acV2013` である。これは、高度なグラフィックス機能を維持しつつ、多くの旧世代エンジンとの互換性を担保できる、スイートスポットと言える。

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

大量の図面をバッチ処理する際、多くの開発者が陥る罠がある。それは、「メモリリークによるAutoCADのハングアップ」だ。

VBAはCOM（Component Object Model）を介してAutoCADを操作する。図面を一つ開いては閉じ、次の図面を開く……というループ処理において、`Document`オブジェクトの参照を適切に解放しない限り、AutoCADのメモリ空間には「幽霊オブジェクト」が蓄積され続け、最終的にプロセスはクラッシュする。

鉄則：

1. 明示的な解放: `Set obj = Nothing` は単なる作法ではない。COM参照カウントをゼロにするための必須儀式である。
2. ActiveDocumentへの依存回避: バッチ処理中、`ThisDrawing` や `ActiveDocument` を使用してはならない。操作対象のドキュメントを明示的に変数に格納し、その変数を通じてのみ操作を行う。

3. 実装：堅牢なバージョン強制変換エンジン

以下に、指定したディレクトリ内の全DWGファイルを、社内標準（ac2013）へ強制的に変換するプロフェッショナル仕様のコードを示す。

Option Explicit

' ==============================================================================
' Module: Module_VersionStandardizer
' Description: DWGファイルを社内標準バージョンへ一括変換する
' Author: Chief Architect
' ==============================================================================

' 定数の定義（AutoCADの列挙型を明示的に定義）
Private Const AC_2013_FORMAT As Long = 21 ' ac2013の内部値

''' <summary>
''' 指定ディレクトリ内のDWGをすべてac2013形式で保存し直す
''' </summary>
''' <param name="targetFolderPath">対象フォルダのフルパス</param>
Public Sub BatchConvertDWGToStandard(ByVal targetFolderPath As String)
    Dim acadApp As Object
    Dim doc As Object
    Dim fso As Object
    Dim folder As Object
    Dim file As Object
    Dim newFilePath As String
    Dim errorCount As Long
    Dim successCount As Long

    ' FileSystemObjectの初期化
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' フォルダの存在確認
    If Not fso.FolderExists(targetFolderPath) Then
        MsgBox "Error: 指定されたパスが存在しません。", vbCritical
        Exit Sub
    End If

    On Error Resume Next
    Set acadApp = GetObject(, "AutoCAD.Application")
    If acadApp Is Nothing Then
        MsgBox "Error: AutoCADが起動していません。", vbCritical
        Exit Sub
    End If
    On Error GoTo ErrorHandler

    Set folder = fso.GetFolder(targetFolderPath)
    
    Debug.Print "--- Batch Processing Started: " & Now & " ---"

    For Each file In folder.Files
        ' DWGファイルのみを対象とする
        If LCase(fso.GetExtensionName(file.Name)) = "dwg" Then
            
            ' 既に開いているドキュメントとの衝突を避けるための設計が必要だが、
            ' ここでは新規に開くプロセスを記述
            
            On Error Resume Next
            Set doc = acadApp.Documents.Open(file.Path)
            
            If Err.Number <> 0 Then
                Debug.Print "Fail: ファイルを開けません -> " & file.Name
                errorCount = errorCount + 1
                Err.Clear
            Else
                ' 保存処理の実行
                ' SaveAs(Filename, FileType)
                ' Note: 既存ファイルに上書きするため、事前にバックアップを推奨
                doc.SaveAs file.Path, AC_2013_FORMAT
                
                ' 変更を確定して閉じる
                doc.Close True
                
                ' 【極めて重要】オブジェクトの明示的解放
                ' これを怠ると、ループの後半でメモリ不足やプロセス停止を招く
                Set doc = Nothing
                
                successCount = successCount + 1
                Debug.Print "Success: " & file.Name & " (Converted to 2013)"
            End If
            On Error GoTo ErrorHandler
        End If
    Next file

    MsgBox "処理完了" & vbCrLf & _
           "成功: " & successCount & " 件" & vbCrLf & _
           "失敗: " & errorCount & " 件", vbInformation

CleanUp:
    Set fso = Nothing
    Set folder = Nothing
    Set doc = Nothing
    Set acadApp = Nothing
    Debug.Print "--- Batch Processing Finished: " & Now & " ---"
    Exit Sub

ErrorHandler:
    Debug.Print "Critical Error: " & Err.Description
    errorCount = errorCount + 1
    Resume CleanUp
End Sub

4. アーキテクトの視点：運用のための「極限の知見」

このコードを実戦投入する際、シニアエンジニアとして考慮すべきは「コードの正しさ」の先にある「システムの堅牢性」である。

4.1. 原子性（Atomicity）の確保

`SaveAs` は既存のファイルを上書きする。もし、書き込み中にネットワーク断が発生したり、ディスクフルが発生したりした場合、元のファイルは破損する。
プロの設計では、変換前に必ず `file.Copy` を用いて一時的な作業領域（Working Directory）へコピーを作成し、変換が成功した後に元のファイルを置換する「トランザクション」の概念を取り入れるべきである。

4.2. Windows APIとの連携検討

もし、数千、数万というファイルを処理する場合、VBAの `FileSystemObject` よりも、Windows API（`FindFirstFile`, `FindNextFile`）を使用する方が、I/Oオーバーヘッドを最小限に抑えられる。ただし、VBAの保守性を考慮するならば、`FSO` の速度差は許容範囲内と言える。

4.3. プロセス分離の思想

大規模なバッチ処理を行う際、一つのAutoCADプロセスで全てを完結させるのはリスクが高い。
理想的なアーキテクチャは、「VBAで制御するメインコントローラー」と、「個別の図面を処理するクワッド（Worker）プロセス」を分けることである。一つのファイルで致命的なエラー（Access Violation等）が発生しても、システム全体が死なない設計こそが、真のプロフェッショナルによるものだ。

結び

AutoCAD VBAにおけるバージョン制御は、単なる定数の指定ではない。それは、データのライフサイクルを管理し、組織の生産性を守るための「秩序の構築」である。

オブジェクトの解放を怠らず、エラーハンドリングを徹底し、ファイル操作の原子性を意識すること。これらの規律を守ることで初めて、君の書いたコードは「単なるスクリプト」から「信頼に足るエンジニアリング・ツール」へと昇華する。