AutoCADの環境を「一瞬」で支配せよ：AcadPreferencesを制御する極限の自動化術
AutoCADのプロフェッショナルであれば、一度は「プロジェクトごとに環境を切り替える苦痛」を味わったことがあるはずだ。部署やクライアントごとに異なるサポートパス、印刷スタイル、UIのカスタマイズ。これらを手動で切り替えるのは、21世紀のエンジニアがやるべき仕事ではない。
今回は、AutoCAD VBAの心臓部である`AcadApplication.Preferences`を叩き、環境設定プロファイルをプログラムから制御する「実戦的アーキテクチャ」を伝授する。
なぜ「手動切り替え」は排除すべきか？
現場レベルでよく見かけるのは、オプション画面をわざわざ開いてプロファイルを切り替える光景だ。これは単なる時間の無駄ではない。「ヒューマンエラーの温床」である。
- パスの不整合: 共有ライブラリの参照先が古いままになり、図面データに不整合が生じる。
- 設定の汚染: 前のプロジェクトの設定が引き継がれ、意図しないレイヤーや寸法スタイルで図面が汚染される。
自動化の目的は、単なる効率化ではない。「常に同じクリーンな環境で作業を開始させる」ための強制力（ガバナンス）をシステムに組み込むことにある。
システムアーキテクチャ：Preferencesの制御構造
AutoCADのプロファイル制御は `Preferences` オブジェクト配下の `Profiles` プロパティを操作する。ここで重要なのは、VBAからプロファイルを切り替える際の「同期のタイミング」だ。
実装の勘所
1. プロファイルの存在確認: 存在しないプロファイルを指定すれば即座にランタイムエラーとなる。まずは `GetAllProfileNames` で全容を把握する堅牢なラッパーを書く必要がある。
2. 即時適用: `ActiveProfile` を変更するだけで環境は切り替わるが、変更後に明示的に `SaveProfile` を呼び出すのが、将来的な設定破綻を防ぐ唯一の策だ。
プロダクションコード：ProfileSwitcherクラスの実装
モジュールにベタ書きするな。クラスモジュールとして設計し、再利用性を担保せよ。以下は実戦でそのまま使える、堅牢なプロファイル管理コードだ。
‘ クラス名: clsProfileSwitcher
Option Explicit
‘ プロファイルを切り替え、環境を同期するメソッド
Public Sub ApplyProfile(ByVal profileName As String)
Dim prefs As AcadPreferences
Dim profiles As AcadPreferencesProfiles
Dim currentProfiles As Variant
Dim exists As Boolean
Dim i As Long
Set prefs = ThisDrawing.Application.Preferences
Set profiles = prefs.Profiles
‘ 1. プロファイル存在チェック
profiles.GetAllProfileNames currentProfiles
For i = LBound(currentProfiles) To UBound(currentProfiles)
If currentProfiles(i) = profileName Then
exists = True
Exit For
End If
Next i
If Not exists Then
Err.Raise vbObjectError + 1001, “ProfileSwitcher”, “指定されたプロファイルが見つかりません: ” & profileName
End If
‘ 2. プロファイルの切り替え
‘ ActiveProfileプロパティを変更するだけでAutoCADの内部設定がロードされる
On Error Resume Next
profiles.ActiveProfile = profileName
If Err.Number <> 0 Then
MsgBox “プロファイルの切り替えに失敗しました。管理者権限を確認してください。”, vbCritical
Exit Sub
End If
On Error GoTo 0
‘ 3. 設定の確定（永続化）
‘ これを忘れると、次回の起動時に設定が揮発する可能性がある
profiles.SaveProfile profileName
Debug.Print “Profile switched to: ” & profileName
End Sub
運用上のクリティカルな注意点
1. 管理者権限とレジストリ
`ActiveProfile` の切り替えはレジストリへの書き込みを伴う。VBAを実行する際、AutoCADが「管理者として実行」されていない場合、権限エラーで拒絶されることがある。デプロイ時には、マニフェストや実行環境の権限構成を必ず確認せよ。
2. 外部データベースとの連携
プロジェクトごとに切り替えるべき「パス情報」をハードコードしてはならない。外部のCSVやJSON、あるいはDBに「プロジェクトID」と「プロファイル名」の紐付けを保持させ、それを読み込んでから上記のクラスを呼び出すように設計せよ。
3. イベントハンドラとの調停
ドキュメントを開く際、`DocumentOpen` イベント内でプロファイルを強制切り替えする設計は強力だが、注意が必要だ。AutoCADの起動プロセスと衝突すると、深刻なフリーズを招く。切り替えは「ユーザーが任意のタイミングでボタンを押す」か「UIの初期化時」に限定するのが、安定稼働の秘訣である。
最後に：エンジニアとしての矜持
VBAは古い言語かもしれないが、AutoCADのAPIへのアクセス権は他の言語を凌駕する。プロファイルを自動制御するということは、「CAD環境という不安定な土台を、コードによって再定義する」ということだ。
設計部署のメンバーが「設定変更」という作業から解放され、本来の図面作成に集中できる環境を、君の手で作り上げろ。それが、伝説の自動化エンジニアへの第一歩だ。
