AutoCAD VBAの深淵：グローバル環境を掌握する「LocaleId」の静かなる支配
AutoCADのオートメーションにおいて、言語の壁はしばしば悪夢を招く。異なるOS設定、異なるインストール言語を持つグローバル拠点間で、同一のツールを「何も考えずに」配布すれば、いずれ必ず例外エラーという名の地雷を踏むことになる。
多くの初心者はハードコーディングされた文字列に頼るが、それはアーキテクトの仕事ではない。今回は、`AcadApplication.LocaleId` を軸に、メモリとパフォーマンスを一切妥協せず、環境変化を透過させるローカライズの極意を伝授する。
—
1. LocaleIdの本質と落とし穴
`AcadApplication.LocaleId` は、現在実行中のAutoCADが参照しているロケール識別子（LCID）を返す。日本版なら `1041`、米国版なら `1033` といった具合だ。
ここで肝に銘じておくべきは、「VBAはレガシーなCOMラッパーである」という事実だ。文字列リテラルを多用すればメモリの断片化を招き、実行時のオーバーヘッドが増大する。真のエンジニアは、言語判定を頻繁に行うのではなく、初期化フェーズで一度だけ判定し、定数としてメモリに焼き付ける。
2. 実装：プロフェッショナルのための言語抽象化層
以下のコードは、単なる言語切り替えではない。システム起動時のフックとして機能する、堅牢なローカライズ・マネージャの雛形である。
‘ —————————————————————————
‘ Module: LocaleManager
‘ 目的: 実行環境のロケールを判別し、UIメッセージを抽象化する
‘ —————————————————————————
Option Explicit
‘ 保持する言語定数（メモリ効率のため静的変数として管理）
Private Enum AppLanguage
Lang_Japanese = 1041
Lang_English = 1033
End Enum
Private m_CurrentLocale As Long
‘ コンストラクタ代わりの初期化処理
Public Sub InitializeLocale()
‘ アプリケーションのLocaleIdを取得してキャッシュ
m_CurrentLocale = ThisDrawing.Application.LocaleId
End Sub
‘ 抽象化されたメッセージ取得関数
Public Function GetMessage(ByVal msgKey As String) As String
Select Case m_CurrentLocale
Case Lang_Japanese
GetMessage = GetJpMessage(msgKey)
Case Else
GetMessage = GetEnMessage(msgKey)
End Select
End Function
Private Function GetJpMessage(ByVal key As String) As String
Select Case key
Case “ERR_01”: GetJpMessage = “図面が開かれていません。”
Case “SUCCESS”: GetJpMessage = “処理が完了しました。”
End Select
End Function
Private Function GetEnMessage(ByVal key As String) As String
Select Case key
Case “ERR_01”: GetEnMessage = “No drawing is currently open.”
Case “SUCCESS”: GetEnMessage = “Processing completed.”
End Select
End Function
—
3. メモリ管理とシステム連携の極限的知見
VBAのガーベジコレクションは、C#やC++のように高機能ではない。特にAutoCADのオブジェクトモデルは、COM参照を適切に解放しなければ、AutoCADを閉じた後もプロセスがゾンビとして残る（いわゆる「ゾンビ・プロセス」問題）。
オブジェクトの明示的解放の鉄則
`AcadApplication` や `AcadDocument` への参照をモジュールレベルで保持する場合は、必ず終了時に `Nothing` を代入せよ。
Private Sub TerminateApplication()
‘ 明示的な参照解除
‘ これを怠ると、大規模システムではメモリリークが蓄積する
Set m_AcadApp = Nothing
End Sub
4. シニアエンジニアへ贈る「保守の極意」
ローカライズをVBAコード内に埋め込むのは初期段階までだ。システムが大規模化し、メッセージ数が100を超えた場合、コードのハードコーディングは破綻する。その際は以下のステップへと進化させよ。
1. 外部XML/JSON定義ファイルへの移行:
メッセージ定義を外部ファイル化し、実行時に読み込む。これにより、コードを再コンパイルすることなく翻訳の修正が可能になる。
2. Windows API `GetSystemDefaultLCID` との併用:
AutoCADのロケールだけでなく、OSの地域設定とも整合性を取る必要がある場合は、`kernel32.dll` を呼び出し、システムレベルのロケールを考慮する設計に昇華させる。
結論：技術は「仕組み」で語れ
初心者は「どうやって日本語を出すか」に固執する。しかし、アーキテクトは「どうやって言語依存性を切り離すか」を考える。
`LocaleId` は単なる数字ではない。あなたの書くコードが、国境を越え、何年先もメンテナンス可能なシステムであるかを示す証明書である。コードをただ動くものから、堅牢で美しい芸術品へと磨き上げろ。それが、伝説を築く唯一の道だ。
