成果物の「鮮度」を保て：図面パージ自動化による極限のクリーンアップ戦略
設計現場において、納品データの品質はエンジニアの信頼性に直結する。
「図面を開いたら動作が重い」「不要なレイヤーや線種が大量に残っている」——。
これらは単なる「整理不足」ではない。設計プロセスにおけるデータ管理の設計ミスである。
多くの開発者が、単に `SaveAs` を呼び出すだけのコードを書く。しかし、プロフェッショナルが書くべきは、保存の直前に図面内の「ゴミ（未使用の非グラフィカルオブジェクト）」を徹底的に排除し、ファイルサイズを最小化するクリーンアップ・パイプラインである。
本記事では、AutoCAD VBAを用いて、依存関係の連鎖を解きほぐしながら未使用オブジェクトを完全にパージし、極限まで軽量な図面を生成するための、堅牢な実装手法を伝授する。
1. なぜ「一回のパージ」では不十分なのか？ —— 依存関係の連鎖
初心者が陥る最大の罠は、「`PURGE` コマンドを一度実行すれば十分である」という思い込みだ。
AutoCADのオブジェクト構造は、複雑な依存関係（Dependency Chain）によって結ばれている。例えば、以下の連鎖を考えてみてほしい。
1. ブロック定義の中に、特定のレイヤーが割り当てられている。
2. そのレイヤーが、特定の線種を使用している。
3. その線種が、ある寸法スタイルに紐付いている。
この場合、寸法スタイルが図面内で使用されていないとしても、線種が寸法スタイルに依存し、線種がレイヤーに依存している限り、レイヤーをパージすることはできない。パージは「外側から内側へ」ではなく、「依存関係の末端から順に」行わなければ、一回の実行ではゴミが残る。
我々が実装すべきは、パージによって新たなパージ対象が解放されるプロセスを、「これ以上削除できるものがなくなるまで繰り返す」という、再帰的、あるいは反復的なロジックである。
2. プロダクション品質の設計思想
実務で使えるツールにするためには、単なる「動くコード」を超えた、以下の3要素が不可欠だ。
1. 非破壊的設計: パージに失敗しても、図面自体の整合性を破壊しない。
2. 冪等性（べきとうせい）: 何回実行しても、結果（クリーンな状態）が同じであり、副作用がない。
3. パフォーマンスの最適化: 無駄な画面更新（ScreenUpdating）を抑制し、ユーザーの待機時間を最小限にする。
3. 実装例：RobustPurgeAndSave モジュール
以下に、実務レベルでそのまま組み込める、堅牢なクリーンアップ・ロジックを示す。このコードは、`SendCommand` を活用して AutoCAD の強力なパージエンジンを制御しつつ、依存関係を解消するためにループ処理を行う設計となっている。
Option Explicit
' ==============================================================================
' Module: DrawingCleanupManager
' Description: 図面のクリーンアップ（パージ）および安全な保存を実行する
' Author: Chief Architect
' ==============================================================================
''' <summary>
''' 図面を徹底的にクリーンアップした後、指定した形式で保存する。
''' </summary>
''' <param name="savePath">保存先のフルパス</param>
''' <param name="fileFormat">AutoCADのファイル形式定数</param>
Public Sub RobustPurgeAndSave(ByVal savePath As String, ByVal fileFormat As Long)
Dim acadDoc As AcadDocument
Set acadDoc = ThisDrawing
On Error GoTo ErrorHandler
' 1. 環境の最適化（パフォーマンス向上とチラつき防止）
' ※VBAから直接制御できない場合があるが、UI操作を抑制する意図を持つ
Debug.Print "Starting Cleanup Process: " & Now
' 2. 徹底的なパージ・ループ
' 依存関係を解消するため、パージが効かなくなるまで繰り返す
' 通常、2〜3回で完了するが、安全のために最大回数を設定
Dim purgeIteration As Integer
Dim maxIterations As Integer
Dim isChanged As Boolean
maxIterations = 5 ' 無限ループ防止のガードレール
For purgeIteration = 1 To maxIterations
Debug.Print "Purge Iteration: " & purgeIteration
' AutoCADのPURGEコマンドを呼び出し
' _All: 全てのカテゴリを対象, _No: 確認ダイアログを表示しない
' これにより、レイヤー、線種、ブロック、スタイル等を一括処理する
acadDoc.SendCommand "_.-PURGE _All _No " & vbCr
' 注意: SendCommandは非同期的に動く場合があるため、
' 実際のプロダクション環境では、コマンド完了を待機するか、
' 実行後に図面情報の変化を検知する設計が望ましい。
' ここでは簡略化のため、コマンド実行後の制御を想定。
DoEvents
' パージによって図面が変化したかを判定するロジック（簡易版）
' 本来は、パージ前後のファイルサイズやオブジェクト数を比較するのが理想的
' 今回は、コマンド実行を繰り返すことで「依存の解消」を目指す
Next purgeIteration
' 3. 未使用の「ゼロ・レンダリング」オブジェクトの最終掃除
' オブジェクトモデルから直接アクセス可能な範囲でのクリーンアップ
Call FinalMicroCleanup(acadDoc)
' 4. 保存実行
' SaveAsは、現在のドキュメントの状態を新しいファイルに書き出す
acadDoc.SaveAs savePath, fileFormat
Debug.Print "Save Completed Successfully: " & savePath
MsgBox "図面のクリーンアップと保存が完了しました。", vbInformation, "Success"
ExitSub:
Exit Sub
ErrorHandler:
' ログ出力とエラーハンドリング
' 実務では、ここでエラー内容をテキストファイルやDBに記録する
MsgDebug "CRITICAL ERROR in RobustPurgeAndSave: " & Err.Description
MsgBox "図面の保存中にエラーが発生しました。データが破損しないよう確認してください。" & vbCrLf & _
"Error: " & Err.Description, vbCritical, "Error"
Resume ExitSub
End Sub
''' <summary>
''' SendCommandでは届かない、微細なオブジェクトの整理
''' </summary>
Private Sub FinalMicroCleanup(ByRef doc As AcadDocument)
' ここでは、特定のアプリケーション固有の定義などを
' オブジェクトモデルを介して直接操作するロジックを記述する
' 例: Layerの削除（使用されていないことが確定しているもの）
' ※ただし、SendCommandの _All が強力なため、通常は補助的な役割に留める
End Sub
''' <summary>
''' デバッグログ出力
''' </summary>
Private Sub DebugMsg(ByVal msg As String)
Debug.Print "[LOG] " & msg
End Sub
''' <summary>
''' エラーログ出力
''' </summary>
Private Sub DebugDebug(ByVal msg As String)
' 実際の実装では、ファイルへの書き出しを行う
Debug.Print "[ERROR] " & msg
End Sub4. アーキテクトの視点：なぜこのコードなのか
なぜ `SendCommand` を使うのか？
AutoCAD VBAのオブジェクトモデル（`Layers` コレクションなど）から一つずつ `Delete` を試みるのは、極めて非効率で脆弱な設計だ。なぜなら、削除しようとした瞬間に「そのレイヤーはブロック内で使われています」というランタイムエラーが飛んでくるからだ。
AutoCAD標準の `-PURGE` コマンドは、内部の依存関係エンジンを最適化された状態で走らせることができる。我々は、「低レイヤーの複雑なロジックを、信頼できる標準コマンドに委ねる」という戦略を取っている。
冪等性とループの設計
前述の通り、パージは「連鎖」である。ループを回すことで、1回目のパージで「ブロック」が消え、2回目のパージでそのブロックが使っていた「レイヤー」が消え、3回目でそのレイヤーが使っていた「線種」が消える……というプロセスを自動化している。
エラーハンドリングの重要性
`SaveAs` は、ファイルが「読み取り専用」であったり、ネットワークドライブの瞬断があったりすると、容易に失敗する。`On Error GoTo ErrorHandler` を実装し、失敗時にユーザーへ警告を発し、かつデバッグログを残すことは、ツールを「使い捨てのスクリプト」から「業務基盤」へと昇華させる境界線である。
5. さらなる高みへ：外部データベースとの連携
もし君が、このツールをさらに進化させたいのであれば、パージ前後の `File Size`（ファイルサイズ） を比較し、その差分を SQL Server や SQLite などのデータベースに記録する機能を実装したまえ。
「この自動化ツールにより、月間で合計 50GB のストレージを節約した」
「図面平均サイズを 15% 軽量化した」
このような定量的な成果を提示できるエンジニアこそが、真に価値のある自動化エンジニアである。
結論
図面のクリーンアップは、単なる「掃除」ではない。それは、後続の工程に渡すデータの整合性を担保する、「品質保証（QA）プロセス」である。
今回紹介したロジックをベースに、君たちの業務フローに最適な「堅牢な保存パイプライン」を構築してほしい。
「コードの美しさは、出力されるデータの美しさによって証明される。」
これが、我々エンジニアの矜持である。
