【テクニカル・上級編】【実務中級者向け】「PROXYGRAPHICS」の動的制御：他社CADでの閲覧互換性を高める保存時設定の自動化 – AutoCAD VBA解析バイブル

AutoCAD VBA

2026.11.05

互換性の深淵：PROXYGRAPHICSの動的制御による、DWGデータ交換の完全自動化と整合性担保

互換性の深淵：PROXYGRAPHICSの動的制御による、DWGデータ交換の完全自動化と整合性担保

設計データのライフサイクルにおいて、最も回避すべき事態は何か。それは「データの消失」ではない。「データは存在するが、他者の環境では意味をなさない（見えない）」という、不可視の欠損である。

AutoCADの垂直アプリケーション（Civil 3D, Mechanical, Architecture等）やサードパーティ製のアドオンを使用している環境では、独自のエンティティが図面内に生成される。これらは標準のAutoCADエンジンでは解釈できない「プロキシオブジェクト」となる。他社CADや標準AutoCADユーザーへ図面を渡す際、これらのオブジェクトが「単なる空の枠」になるか、「形状を維持したプロキシ図形」として見えるかは、システム変数 `PROXYGRAPHICS` の制御にすべてがかかっている。

本稿では、単なる変数書き換えのコードを紹介するのではない。大規模な設計フローにおいて、図面の整合性を崩さず、かつ副作用を最小限に抑えながら、保存プロセスに「互換性制御」を組み込むための、アーキテクトの視点による実装手法を詳述する。

1. PROXYGRAPHICSのメカニズムと設計上のジレンマ

`PROXYGRAPHICS` は、カスタムオブジェクトの視覚的情報を、標準的な図形（ポリラインやハッチング等）に変換して図面内に埋め込むかどうかを決定する。

設定が `0` (OFF) の場合: ファイルサイズは最小化されるが、他社CADや標準環境ではオブジェクトが消失、あるいは「不明なオブジェクト」として表示される。
設定が `1` (ON) の場合: オブジェクトの形状情報が「プロキシ図形」として保存される。データの編集権限は失われるが、視覚的な整合性は保たれる。

実務における課題は、「設計者は常にONにしたいわけではない」という点にある。プロキシ図形を埋め込むとファイルサイズが肥大化し、データベースの再構築に負荷がかかる。しかし、納品時には必ずONでなければならない。この「文脈に応じた動的な切り替え」を、ユーザーの意識から切り離して自動化することこそが、我々エンジニアの責務である。

2. 堅牢な実装のための「ステート・ロールバック」戦略

VBAによる自動化において、最も初歩的かつ致命的なミスは、「システム変数を書き換えたまま、元の状態に戻さずに処理を終える」ことである。これは、ユーザーの作業環境（セッション）に対して破壊的な副作用をもたらす。

プロフェッショナルのコードは、必ず「現在の状態を保存」し、「変更を実行」し、たとえエラーが発生しても「元の状態へロールバック」する、トランザクションのような挙動を保証しなければならない。

実装例：互換性を担保するセキュアな保存ルーチン

'==============================================================================
' Module: InteropManager
' Description: 図面の互換性を制御し、安全に保存を行うためのコア・ロジック
'==============================================================================

Option Explicit

' 戻り値: True (成功), False (失敗)
Public Function SaveWithProxyGraphics(ByVal targetPath As String) As Boolean
    Dim currentProxySetting As Integer
    Dim acadDoc As AcadDocument
    Set acadDoc = ThisDrawing
    
    On Error GoTo ErrorHandler
    
    ' 1. 現在のシステム変数の状態を退避 (State Capture)
    ' これを行わないと、ユーザーの作業環境を汚染する
    currentProxySetting = acadDoc.GetVariable("PROXYGRAPHICS")
    
    ' 2. 互換性モードへの遷移
    ' 他社CAD閲覧用として、プロキシ図形を有効化(1)に設定
    acadDoc.SetVariable "PROXYGRAPHICS", 1
    
    ' 3. 保存処理の実行
    ' 注意: 書き込み権限がない、またはファイルがロックされている場合を考慮
    acadDoc.SaveAs targetPath
    
    ' 4. 成功時の後処理
    Debug.Print "Successfully saved with PROXYGRAPHICS = 1 at " & targetPath
    SaveWithProxyGraphics = True

CleanUp:
    ' 5. システム変数のロールバック (State Restoration)
    ' 成功・失敗に関わらず、必ず元の設定に戻す
    On Error Resume Next
    acadDoc.SetVariable "PROXYGRAPHICS", currentProxySetting
    Set acadDoc = Nothing
    Exit Function

ErrorHandler:
    ' エラーログの記録（実務ではファイルやDBへ出力すべき）
    Err.Raise Err.Number, "InteropManager.SaveWithProxyGraphics", _
              "Failed to save drawing. Error: " & Err.Description
    SaveWithProxyGraphics = False
    Resume CleanUp
End Function

3. メモリ管理とオブジェクトのライフサイクル

シニアエンジニアとして、コードの美しさ以上に重視すべきは、メモリの挙動である。AutoCAD VBAはCOMインターフェースを介して動作しており、オブジェクトの参照が残っている限り、AutoCADのメモリ空間（およびそのプロセス）は解放されない。

特に、大量の図面をバッチ処理で保存する場合、`Set obj = Nothing` による明示的な解放を怠ると、メモリリークが発生し、最終的にAutoCADがクラッシュするか、Windowsのページファイルへのスワップが頻発してパフォーマンスが劇的に低下する。

極限の最適化：バッチ処理におけるオブジェクト解放の作法

Public Sub BatchProcessProxies(ByVal fileList As Collection)
    Dim dwgPath As Variant
    Dim acadApp As Object ' AutoCAD.Application
    Dim doc As AcadDocument
    
    ' AutoCADアプリケーションへの参照取得
    Set acadApp = ThisDrawing.Application
    
    For Each dwgPath In fileList
        ' 1. 図面のオープン
        ' Openメソッドは新しいオブジェクトを生成するため、スコープを意識する
        Set doc = acadApp.Documents.Open(dwgPath)
        
        ' 2. 互換性制御ロジックの実行
        If SaveWithProxyGraphics(dwgPath) Then
            Debug.Print "Processed: " & dwgPath
        Else
            Debug.Print "Error in: " & dwgPath
        End If
        
        ' 3. 閉じる前に必ず明示的に参照を解除
        ' これが漏れると、次のループでメモリ圧迫が加速する
        doc.Close False ' 変更を保存済みのためFalse
        Set doc = Nothing 
    Next dwgPath
    
    Set acadApp = Nothing
End Sub

4. レガシー環境とシステム間連携への洞察

我々が直面する現場は、最新のAutoCAD 2024だけではない。10年前のレガシーな環境や、特定のDLLに依存した特殊なアドオンが動いている現場も多い。

`PROXYGRAPHICS` を制御する際、以下の「アーキテクチャ上の懸念事項」を常に念頭に置いておくこと。

1. ファイルサイズの爆発: `PROXYGRAPHICS` を `1` にして保存した図面は、プロキシ情報（ジオメトリデータ）を保持するため、ファイルサイズが数倍に膨れ上がることがある。サーバーのストレージ容量やネットワーク帯域を考慮し、必要最小限のファイルに対してのみ適用するロジックを組むべきだ。
2. ReadOnly属性のハンドリング: Windows API（`GetFileAttributes` 等）を使用して、保存前にファイルの属性をチェックする実装を検討せよ。VBAの `Err.Number` だけに頼る実装は、エラーハンドリングとしては不完全である。
3. Transactionの概念: もしこれがVB.NET（AutoCAD .NET API）への移行フェーズにあるなら、`Transaction` オブジェクトを用いたデータベース操作へと昇華させる必要がある。VBAにおける `SetVariable` は、あくまで「セッション変数」の操作であり、データベースのトランザクションそのものではないという境界線を理解しておくこと。

結論

`PROXYGRAPHICS` の制御は、一見すると単純なシステム変数の操作に見える。しかし、それを「設計ワークフローの一部」として、堅牢かつ副作用のない形で実装することには、高度なエンジニアリングが要求される。

「動くコード」を書くのは初級者だ。「壊れない、そして環境を汚さないコード」を書くのが、我々プロフェッショナルの仕事である。