【実務・中級編】【実務中級者向け】保存時の「INCREMENTALSAVEPERCENT」最適化：フルセーブを強制してファイル破損リスクを低減する – AutoCAD VBA解析バイブル

AutoCAD VBA

2026.11.12

「高速保存」という名の技術的負債を断て。――INCREMENTALSAVEPERCENTを制御し、DWGの整合性を守る設計思想

「高速保存」という名の技術的負債を断て。――INCREMENTALSAVEPERCENTを制御し、DWGの整合性を守る設計思想

自動化エンジニアとして現場に立つ君たちに、まず問いたい。
君たちが作成しているツールは、「動けばいい」だけの代物か？それとも、数年後のデータ破損リスクまで計算に入れた「堅牢なシステム」か？

実務でAutoCAD VBAを用いた自動化ツールを開発していると、必ずと言っていいほど「保存速度」の要求に直面する。大規模な図面を扱うプロジェクトにおいて、保存待ちの時間はユーザーの生産性を著しく低下させるからだ。そこで多くの開発者は、AutoCADの標準機能である「増分保存（Incremental Save）」に頼り、処理を高速化しようとする。

しかし、私はあえて言いたい。自動化プロセスにおける「増分保存」は、時としてファイル破損への片道切符となる。

本記事では、システム変数 `INCREMENTALSAVEPERCENT` を制御することで、あえて「フルセーブ」を強制し、図面データベースの整合性を極限まで高めるための設計手法を伝授する。

1. 増分保存が孕む「構造的な脆弱性」を理解せよ

なぜ、増分保存が危険なのか？その理由は、DWGファイルの正体が「高度に構造化されたデータベース」であるという点にある。

増分保存のメカニズム

AutoCADの増分保存は、変更されたデータのみをファイルの末尾に追記（Append）していく方式をとる。

メリット: 差分のみを書き込むため、I/O負荷が低く、保存が圧倒的に速い。
デメリット: ファイル構造が「変更の履歴」を抱え込んだまま肥大化する。

蓄積される「技術的負債」

増分保存を繰り返すと、ファイル内部のデータポインタやオブジェクトの参照関係が断片化（フラグメンテーション）していく。この状態で、以下のような事象が発生した際、ファイルは容易に修復不能な破損（Corruption）へと陥る。
1. 書き込み中の強制終了: OSのクラッシュやネットワーク切断。
2. 複雑な参照関係の崩壊: Xref（外部参照）やブロック定義の更新が重なった際の不整合。
3. データベースの肥大化: 実際の内容以上にファイルサイズが膨れ上がり、メモリ管理に悪影響を与える。

プロフェッショナルな自動化エンジニアなら、「保存速度」という目先の利益のために、「データの完全性」という最も重要な資産を差し出すような設計は絶対に避けるべきだ。

2. 戦略的解決策：INCREMENTALSAVEPERCENT の強制制御

ここで登場するのが、システム変数 `INCREMENTALSAVEPERCENT` だ。

この変数は、「図面の変更率が何％を超えたらフルセーブに切り替えるか」を制御するものだ。デフォルトでは一定の値が設定されているが、これを `0` に設定することで、AutoCADは増分保存を一切行わず、常に全てのデータをゼロから書き直す「フルセーブ」を強制する。

自動化ツールにおいて、重要なマイルストーン（例えば、大量の図面をバッチ処理して保存するタイミングや、設計変更の確定時）では、この変数を一時的に書き換える制御を組み込むのが、アーキテクトとしての正解である。

3. プロダクションレベルのVBA実装

単に `SetVariable` を呼び出すだけでは、不十分だ。もし保存中にエラーが発生したら、ユーザーが普段使っている設定値を元に戻せなくなる。これは、ツールとしての「礼儀」に欠ける設計だ。

以下に、エラーハンドリングと状態復元を完備した、そのままプロダクション環境に投入可能なコード例を示す。

'==============================================================================
' Module: Module_FileManagement
' Description: 図面の整合性を維持するための堅牢な保存制御
'==============================================================================

Option Explicit

''' <summary>
''' 図面をフルセーブ（増分保存を無効化）して保存する。
''' 実行後、システム変数は元の状態に復元される。
''' </summary>
Public Sub SafeFullSave()
    Dim currentPercent As Double
    Dim targetDoc As AcadDocument
    Set targetDoc = ThisDrawing

    ' 1. 現在のシステム変数の値を保持（後で復元するため）
    On Error GoTo ErrorHandler
    currentPercent = targetDoc.GetVariable("INCREMENTALSAVEPERCENT")

    Debug.Print "Original INCREMENTALSAVEPERCENT: " & currentPercent

    ' 2. 増分保存を無効化 (0に設定することで常にフルセーブを強制)
    ' これにより、ファイル構造の断片化を防ぎ、クリーンなDWGを生成する
    targetDoc.SetVariable "INCREMENTALSAVEPERCENT", 0

    ' 3. 保存実行
    ' 注: 実際の運用では、ファイルパスの存在チェックや
    ' 書き込み権限の確認を事前に行うことが望ましい
    Debug.Print "Executing Full Save..."
    targetDoc.Save

    Debug.Print "Save completed successfully."

CleanUp:
    ' 4. システム変数を元の値に復元（ユーザー環境への影響を最小限にする）
    On Error Resume Next
    targetDoc.SetVariable "INCREMENTALSAVEPERCENT", currentPercent
    Debug.Print "Restored INCREMENTALSAVEPERCENT: " & currentPercent
    Exit Sub

ErrorHandler:
    ' エラーが発生した場合は、ログを出力し、状態を復元してから脱出する
    MsgBox "Critical Error during SafeFullSave:" & vbCrLf & _
           Err.Description, vbCritical, "Automation Error"
    
    Debug.Print "Error: " & Err.Description
    Resume CleanUp
End Sub

設計のポイント

1. ステートの保存と復元: `currentPercent` に元の値を退避させている。これにより、ツール終了後にユーザーが「なぜか保存が遅くなった」と不満を漏らすリスクを排除している。
2. 堅牢なエラーハンドリング: `On Error GoTo ErrorHandler` を使い、エラー発生時でも必ず `CleanUp` セクションを経由して変数を復元するように設計している。これは「後始末ができるコード」の基本だ。
3. デバッグ情報の出力: `Debug.Print` を適切に配置し、開発段階での挙動確認を容易にしている。

4. 外部データベース連携における重要性

君たちがもし、図面内の属性情報（Attribute）を抽出し、ExcelやSQL Serverなどの外部データベースと連携させるツールを作っているなら、この「フルセーブ」の重要性はさらに増す。

増分保存によってデータベース構造が不安定になっている図面からデータを抽出すると、「本来あるはずの属性が見つからない」「オブジェクトのIDが一致しない」といった、原因特定が極めて困難なバグを引き起こすことがある。

「データソース（DWG）が常にクリーンであること」を保証することは、後続のデータ処理パイプライン全体の信頼性を担保することと同義なのだ。

結論：エンジニアとしての矜持

「速いコード」を書くのは簡単だ。しかし、「正しいコード」を書くには、対象となるシステムの裏側（この場合はDWGのデータ構造）を深く理解し、リスクを予見する洞察力が求められる。

`INCREMENTALSAVEPERCENT` を制御するという一見小さなテクニック。しかし、この一歩が、ユーザーのデータを守り、プロジェクトの致命的なトラブルを防ぐ。

妥協は、後で必ず「技術的負債」という形で、君たちの首を絞めることになる。 常に、最も堅牢な設計を選択せよ。