AutoCAD VBAを掌握する極限の知見：SupportPathの動的書き換えによる「完全自動環境制御術」
AutoCAD VBAの開発において、最も厄介な問題の一つが「パス解決の依存性」だ。
外部参照（Xref）、フォント（SHX/TTF）、CUIファイル、そしてLISPやブロックの読み込み。これらが正しく解決されない図面を開いた瞬間、AutoCADは沈黙するか、あるいは無慈悲な「参照が見つかりません」のダイアログを吐き出す。
素人は、図面を開く前に手動でオプション画面を開き、「サポートファイルの検索パス」にプロジェクトごとのフォルダを追加する。
だが、シニアエンジニアや社内システムアーキテクトたる者、そんな非効率な手作業を許容してはならない。
今回は、マクロの実行開始時に指定フォルダを動的に検索パスへ挿入し、処理の完了または異常終了（エラー）時に、確実に元の状態へ復元するための極限のテクニックを解説する。
—
1. アーキテクチャの核心：なぜ単純な書き換えでは危険なのか？
AutoCADのアプリケーション設定は、`AcadPreferences.Files` オブジェクトを介してレジストリ（またはプロファイル）に永続化されている。
`SupportPath` プロパティは、各パスがセミコロン（`;`）で区切られた単なる文字列に過ぎない。
これを安易に書き換えると、以下の致命的なリスクが生じる。
1. プロファイルの汚染: マクロが異常終了（エラートラップ漏れなど）した際、追加した一時パスが残留し、次回起動時以降の環境を破壊する。
2. 文字列の肥大化と重複: 同じパスが何重にも追加され、AutoCAD内部の検索パフォーマンスが劣化する。
3. COMオブジェクトの参照リーク: `Preferences` や `Files` オブジェクトの解放を怠ると、AutoCADプロセス内にCOMラッパーの残骸が残り、CAD自体の不安定化を招く。
我々が目指すべきは、「トランザクション的な環境制御」である。すなわち、何が起きようとも（たとえユーザーが `Ctrl + Break` で強制中断しようとも）、確実に元の環境へロールバックされる仕組みの構築だ。
—
2. 実装コード：堅牢性を極めた `SupportPathManager` クラス
この問題をエレガントに解決するため、状態の保持と復元をカプセル化したクラスモジュール（例: `C_EnvironmentGuard`）を設計する。
以下のコードは、エラーハンドリングの鉄則である `On Error Goto` を用いた確実なクリーンアップと、文字列の重複を防ぐ正規化ロジックを実装したプロダクション品質のコードである。
クラスモジュール: `C_EnvironmentGuard`
Option Explicit
Private m_OriginalSupportPath As String
Private m_TargetFolder As String
Private m_IsInitialized As Boolean
‘ =========================================================================
‘ 初期化：一時的に追加したいパスを登録し、現在の状態を退避する
‘ =========================================================================
Public Sub Initialize(ByVal TemporaryFolderPath As String)
Dim prefs As AcadPreferences
‘ パス末尾のバックスラッシュを正規化
m_TargetFolder = NormalizePath(TemporaryFolderPath)
If Not FolderExists(m_TargetFolder) Then
Err.Raise 53, “C_EnvironmentGuard”, “指定されたサポートフォルダが存在しません: ” & m_TargetFolder
End If
On Error GoTo ErrorHandler
‘ アプリケーションプレファレンスから現在のサポートパスを取得
Set prefs = ThisDrawing.Application.Preferences
m_OriginalSupportPath = prefs.Files.SupportPath
‘ 既にパスが含まれていない場合のみ追加
If Not ContainsPath(m_OriginalSupportPath, m_TargetFolder) then
‘ 最優先で検索させるため、先頭に挿入する
prefs.Files.SupportPath = m_TargetFolder & “;” & m_OriginalSupportPath
End If
m_IsInitialized = True
‘ COMオブジェクトの明示的解放
Set prefs = Nothing
Exit Sub
ErrorHandler:
Set prefs = Nothing
Err.Raise Err.Number, “C_EnvironmentGuard:Init”, “サポートパスの退避に失敗しました: ” & Err.Description
End Sub
‘ =========================================================================
B’ 復元：環境を元の状態に戻す（デストラクタ的役割）
‘ =========================================================================
Public Sub Restore()
If Not m_IsInitialized Then Exit Sub
Dim prefs As AcadPreferences
On Error GoTo ErrorHandler
Set prefs = ThisDrawing.Application.Preferences
‘ 元のパスに戻す
prefs.Files.SupportPath = m_OriginalSupportPath
m_IsInitialized = False
Set prefs = Nothing
Exit Sub
ErrorHandler:
‘ 復元失敗時は致命的なため、イミディエイトへログ出力しつつ握りつぶさない
Debug.Print “CRITICAL ERROR: サポートパスの復元に失敗しました – ” & Err.Description
Set prefs = Nothing
End Sub
‘ クラス破棄時にも確実に復元を試みる（最後の砦）
Private Sub Class_Terminate()
Call Restore
End Sub
‘ — 補助関数群 —
Private Function NormalizePath(ByVal p As String) As String
If Right$(p, 1) <> “\” Then
NormalizePath = p & “\”
Else
NormalizePath = p
End If
End Function
Private Function FolderExists(ByVal path As String) As Boolean
FolderExists = (Dir(path, vbDirectory) <> “”)
End Function
Private Function ContainsPath(ByVal allPaths As String, ByVal target As String) As Boolean
Dim paths() As String
Dim i As Long
paths = Split(allPaths, “;”)
For i = LBound(paths) To UBound(paths)
If StrComp(Trim$(paths(i)), Trim$(target), vbTextCompare) = 0 Then
ContainsPath = True
Exit Function
End If
Next i
ContainsPath = False
End Function
—
3. 標準モジュールからの呼び出しと実践的運用
上記のクラスを利用する標準モジュールの実装例を示す。
ここで重要なのは、「エラーが発生しようとも、必ず `Restore` が実行される構造」を担保することである。
Option Explicit
Sub ProcessProjectDrawings()
Dim envGuard As C_EnvironmentGuard
Dim targetPath As String
‘ プロジェクト専用の共通リソースフォルダ（例: サーバー上の共有パス）
targetPath = “\\fileserver\cad_standards\202X_ProjectA\Support”
‘ クラスのインスタンス化
Set envGuard = New C_EnvironmentGuard
On Error GoTo ErrorHandler
‘ 1. 環境の動的書き換え（ここでパスが追加される）
envGuard.Initialize targetPath
‘ — ここからメイン処理 —
MsgBox “サポートパスに ‘” & targetPath & “‘ を一時追加しました。\n外部参照の解決テストを行います。”, vbInformation
‘ 例: 図面の処理（この中で外部参照やブロックが正常にロードされる）
‘ Call ExecuteHeavyBatchProcessing
‘ — メイン処理ここまで —
‘ 2. 正常終了時の明示的復元
envGuard.Restore
Set envGuard = Nothing
MsgBox “処理が正常終了し、環境を復元しました。”, vbInformation
Exit Sub
ErrorHandler:
‘ 3. 異常終了時のフォールバック
Dim errDesc As String
errDesc = Err.Description
If Not envGuard Is Nothing Then
envGuard.Restore ‘ クラスのTerminateでも呼ばれるが、即時解放のために明示呼出
Set envGuard = Nothing
End If
MsgBox “エラーが発生しました: ” & errDesc, vbCritical
End Sub
—
4. チーフアーキテクトからの実践的提言：VBAの限界とさらなる高みへ
この手法により、AutoCAD VBA単体でも極めて堅牢な環境制御が可能になる。しかし、シニアエンジニアとして知っておくべき限界と、より高度なシステム連携の視点も提示しておこう。
① パス文字列の長さ制限（MAX_PATH問題）
AutoCADの `SupportPath` に設定できる文字列長には上限がある（レジストリや内部バッファの制約）。あまりにも無秩序に長いパスを追加し続けると、末尾のパスが切り捨てられる現象が発生する。そのため、本稿で示したように「重複チェック」と「必要最小限のパスのみの追加・即時削除」が絶対条件となる。
② マルチドキュメント環境（MDI）における競合
AutoCADはMDI（マルチドキュメントインターフェイス）であり、複数の図面が同時に開かれる。`Preferences.Files.SupportPath` はアプリケーション全体（グローバル）の設定である。
したがって、複数の図面処理マクロが非同期（あるいは同タイミング）で走るような環境では、片方の処理がパスを削除した瞬間に、もう片方の処理が参照エラーを起こすリスクがある。
完全なエンタープライズ環境を目指すのであれば、VBAの範疇を超え、.NET API (C# / VB.NET) の `IExtensionApplication` を用いたイベントフックや、トランザクション内でのローカルなリソース解決機構の構築を視野に入れるべきだ。
—
総括
VBAはレガシーな言語と揶揄されることもあるが、オブジェクトモデルの本質を理解し、メモリ管理と例外安全性を徹底すれば、これほど軽快で強力な自動化ツールは他にない。
今回紹介した `SupportPath` の動的制御は、単なる小技ではなく、「CAD環境のステートレス化」という高度な設計思想の具現化である。
現場の信頼性を極限まで高めるこのアーキテクチャを、ぜひあなたの開発パイプラインに組み込んでほしい。
