AutoCAD VBAを掌握する極限の知見：プロジェクト別・印刷環境自動切替システム
図面を開いた瞬間、本来使うべきではない汎用のPC3ファイルが適用され、線の太さやカスタム用紙サイズが狂った――。あるいは、プロジェクトごとにバラバラのプリンタ設定を手動で切り替えさせられた結果、重大な出力ミスが発生した。
プロの現場において、印刷設定のヒューマンエラーはコストに直結する。これを「個人の注意力」に頼るようでは、自動化エンジニアの失格だ。
今回は、`AcadApplication.Preferences.Files.PrinterConfigPath` を動的に書き換え、図面が開かれた瞬間にプロジェクト専用のPC3/PMPファイル群を自動ロードする「環境制御マクロ」の極意を伝授する。
—
なぜこのアプローチが必要なのか？（設計思想）
AutoCADのファイル検索パス（特にプリンタ環境設定ファイルへのパス）は、デフォルトではレジストリやユーザープロファイルに深く紐づいている。これを手動で切り替えるのはナンセンスだ。
素人がやりがちな非効率なアプローチを見てみよう。
❌ 愚劣なアプローチ：図面ごとにPC3をローカルに埋め込む
図面のページ設定（PlotSettings）に無理やり個別PC3を紐づける方法。これでは、会社全体のプリンタ環境が更新された際、数千枚の図面をすべて開き直して再設定する地獄が待っている。
⭕ 達人のアプローチ：環境パスの動的ジャック
図面ファイル（DWG）が存在するディレクトリ構造を解析し、そのプロジェクト専用のプリンタ設定ディレクトリを `PrinterConfigPath` へ動的にねじ込む。これにより、図面側は「どのプリンタを使うか」を意識せず、システム側が実行時に最適な環境を強制する。
—
堅牢な実装のための技術的要件
この仕組みをプロダクション環境（実務）に導入するためには、以下のリスクヘッジが不可欠である。
1. AutoCADのセッションハイジャック対策
`AcadApplication` の Preferences はアプリケーション全体に影響を与える。マクロ終了時にパスが狂ったままにならないよう、エラーハンドリング（`On Error Goto`）を徹底し、異常終了時でも環境を復元するか、安全なフォールバックを行うこと。
2. ネットワークパスの遅延対策
サーバー上のパスを指定する場合、存在しないパスを書き込むとAutoCADがフリーズする。必ず事前に `Dir` 関数等で物理的な存在確認を行うこと。
3. イベントのフックタイミング
図面オープン時（`DocumentActivate` または `AcadApp_DocumentOpen`）に発火させる必要がある。
—
プロダクションコード：プロジェクト環境自動切替エンジン
以下のコードは、図面が開かれた瞬間に実行され、同階層または親階層にある `_Config\Plotters` フォルダを検知してプリンタパスを自動変更する実装例である。
ThisDrawing またはグローバルクラスモジュールに実装する。
Option Explicit
‘================================================================================
次元を超えるCAD自動化: プロジェクト別プリンタパス動的制御エンジン
Architect: Chief Automation Engineer
================================================================================
Public Sub InitializeProjectEnvironment()
On Error GoTo ErrorHandler
Dim oApp As AcadApplication
Dim oDoc As AcadDocument
Dim currentDocPath As String
Dim targetPlotterPath As String
Set oApp = ThisDrawing.Application
Set oDoc = oApp.ActiveDocument
‘ 1. 現在開いている図面が未保存（新規作成など）の場合は処理をスキップ
If oDoc.Path = “” Then
Exit Sub
End If
currentDocPath = oDoc.Path
‘ 2. プロジェクト固有のプリンタ設定フォルダを動的に特定
‘ ※ここでは図面フォルダから上位を探索し、”_Config\Plotters” ディレクトリを探す設計とする
targetPlotterPath = ResolvePlotterConfigPath(currentDocPath)
If targetPlotterPath <> “” Then
‘ 3. AutoCADのファイル検索パス（PrinterConfigPath）を上書き
Dim originalPath As String
originalPath = oApp.Preferences.Files.PrinterConfigPath
If originalPath <> targetPlotterPath Then
oApp.Preferences.Files.PrinterConfigPath = targetPlotterPath
‘ ログ出力（実務では専用のLoggerクラスに接続することを推奨）
Debug.Print “[PrinterEnv] プリンタ設定パスを更新しました: ” & targetPlotterPath
End If
Else
Debug.Print “[PrinterEnv] 専用のプリンタ設定が見つからないため、デフォルトを維持します。”
End If
Exit Sub
ErrorHandler:
MsgBox “プリンタ環境の初期化中に致命的なエラーが発生しました。” & vbCrLf & _
エラー番号: ” & Err.Number & vbCrLf & _
詳細: ” & Err.Description, vbCritical, “環境制御システム”
‘ 必要に応じた安全なフォールバック処理をここに記述
End Sub
‘——————————————————————————–
‘ 補助関数: 図面パスからプロジェクト固有のPC3格納パスを逆算・解決する
‘——————————————————————————–
Private Function ResolvePlotterConfigPath(ByVal docPath As String) As String
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
Dim parentFolder As Object
Set parentFolder = fso.GetFolder(docPath)
‘ 階層を上に向かって “_Config\Plotters” が存在するötzを探す（最大3階層まで遡る）
Dim i As Integer
For i = 1 To 3
Dim candidatePath As String
candidatePath = parentFolder.Path & “\_Config\Plotters”
If fso.FolderExists(candidatePath) Then
ResolvePlotterConfigPath = candidatePath
Exit Function
End If
‘ ルートに到達したら終了
If parentFolder.IsRootFolder Then Exit For
Set parentFolder = parentFolder.ParentFolder
Next i
ResolvePlotterConfigPath = “”
End Function
—
運用時の極意：イベントハンドラとの統合
上記のプロシージャを単体で動かしても意味がない。図面がロードされた瞬間に自動実行されるよう、`AcadApplication` のイベント（Classモジュールによる `DocumentActivate` 等）をフックし、セッション開始時に常時監視状態を作るのがプロのアーキテクチャだ。
また、`PrinterConfigPath` を書き換えた後、AutoCAD内部のキャッシュをクリアするために、必要に応じて図面ウィンドウのアクティブ状態をリフレッシュする配慮も忘れてはならない。
結言
環境設定を自動化するとは、単に手作業を減らすことではない。「間違った環境で作業すること自体を物理的に不可能にする」という、システムによるガバナンスの確立である。
このコードをあなたの組織の標準テンプレートに組み込み、出力ミスの絶望からエンジニアたちを解放してほしい。それこそが、真の自動化エンジニアの仕事だ。
