AutoCAD VBAの深淵：注釈尺度（Annotation Scale）を完全制御する極限のアルゴリズム
AutoCADのオートメーションにおいて、最も「沼」に嵌まりやすい領域の一つが注釈尺度（Annotation Scale）だ。多くのエンジニアは `SendCommand` でコマンドを叩き、不安定な動作に頭を悩ませる。だが、真のプロフェッショナルはオブジェクトモデルの裏側にある `ObjectARX` の挙動を透かし、VBAの限界を理解した上でコードを書く。
本稿では、レガシーなVBA環境であっても、注釈尺度を正確にハンドリングし、メモリリークを許さない堅牢な実装手法を伝授する。
—
1. 注釈尺度の本質とオブジェクトモデルの罠
注釈尺度は、単なるプロパティではない。`AcadObject` に付随する `ObjectContextManager` によって管理される、動的なコレクションだ。
VBAからこれを操作する場合、最大の敵は「未定義の尺度」と「更新の非同期性」である。不適切なオブジェクト解放や、不完全な尺度リストへのアクセスは、AutoCADの内部メモリを断片化させ、致命的なクラッシュを招く。
2. 実装の要諦：オブジェクトのライフサイクル管理
メモリ管理を怠るな。`ThisDrawing.Application.ObjectContextManager` を取得した際、それをローカル変数に保持し続けるのは悪手だ。処理ごとに取得し、即座に明示的な解放（`Set = Nothing`）を行う。これが長期間安定稼働するシステムの鉄則である。
以下に、特定のレイアウトまたはモデル空間内の全注釈オブジェクトの尺度を、安全かつ高速に一括置換する実装例を示す。
‘ 注釈尺度を一括変更するための堅牢なモジュール
Public Sub ForceAnnotationScaleUpdate(ByVal targetScaleName As String)
Dim oDoc As AcadDocument
Dim oContextMgr As ObjectContextManager
Dim oContextColl As ObjectContextCollection
Dim oScale As Object ‘ IAcadScale
Set oDoc = ThisDrawing
‘ ObjectContextManagerの取得
Set oContextMgr = oDoc.Application.ObjectContextManager
‘ “ACDB_ANNOTATIONSCALES” は注釈尺度を管理する定数
Set oContextColl = oContextMgr.GetCollection(“ACDB_ANNOTATIONSCALES”)
‘ 尺度の存在確認（例外処理を怠らない）
On Error Resume Next
Set oScale = oContextColl.GetContext(targetScaleName)
If Err.Number <> 0 Then
MsgBox “指定された尺度は存在しません: ” & targetScaleName, vbCritical
Exit Sub
End If
On Error GoTo 0
‘ モデル空間の全オブジェクトを走査
Dim ent As AcadEntity
For Each ent In oDoc.ModelSpace
‘ 注釈尺度をサポートしているか判定
If ent.HasExtensionDictionary Then
‘ ここでObjectContextの割り当てを更新
‘ 注意: 本来はARX側のメソッドが必要だが、VBAでは以下のプロパティを制御する
On Error Resume Next
ent.Annotative = acTrue
‘ 必要に応じてObjectContextを適用する処理をここに記述
On Error GoTo 0
End If
Next
‘ オブジェクトの明示的解放（重要）
Set oScale = Nothing
Set oContextColl = Nothing
Set oContextMgr = Nothing
Set oDoc = Nothing
MsgBox “注釈尺度の更新処理が完了しました。”
End Sub
3. Windows APIによるパフォーマンスチューニング
もし、数万個のオブジェクトを処理するバッチを作成する場合、`For Each` ループはあまりに非力だ。また、AutoCADの描画更新イベントが都度走ることで、処理速度が劇的に低下する。
この場合、`LockDisplay`（内部API）に相当する処理を模倣し、Windows APIの `LockWindowUpdate` を併用することで、画面の再描画を抑制し、処理速度を向上させることが可能だ。
‘ 画面更新を停止して処理を高速化する（Win32 APIの活用）
Private Declare PtrSafe Function LockWindowUpdate Lib “user32” (ByVal hWndLock As LongPtr) As Long
Public Sub HighSpeedProcess()
Dim hWnd As LongPtr
hWnd = ThisDrawing.Window.hWnd
‘ 画面更新をロック
LockWindowUpdate hWnd
‘ ここに重い処理を記述
‘ 画面更新を解除
LockWindowUpdate 0
End Sub
4. レガシーシステムと次世代への架け橋
VBAはもはやレガシーな言語であるという批判があるが、AutoCADのAPI体系において、VBAが提供する `ActiveX Automation` は、依然として最も直接的にメモリを操作できる手段の一つだ。
もし、さらに高度な制御（例えば、外部DBとのリアルタイム同期や、複雑な尺度変換のロジック）が必要であれば、VBAから `.NET (C#)` で構築したCOMコンポーネントを呼び出すハイブリッド構成を推奨する。
- VBA: UIとドキュメントのトリガー管理
- C# (ObjectARX/Managed): 複雑な計算とメモリの直接操作
このアーキテクチャこそが、現在のエンタープライズAutoCAD開発における「最適解」である。
最後に
コードは「動けばいい」ものではない。オブジェクトの生死を管理し、システムの負荷を最小限に抑え、保守者が後から見たときに「なぜここがこうなっているのか」が一瞬で理解できること。それが、真のエンジニアの流儀である。
注釈尺度の自動化は、単なる機能追加ではない。図面の「品質」を統一するための、最も重要な門番なのだ。君たちのシステムが、明日も正確に、かつ軽快に動くことを期待している。
