AutoCAD VBA 伝説のアーキテクトが語る：図面テキストのフォント・高さ一括変更 – 隠されたパフォーマンスの真実とレガシーシステム保守の極意
長年、CADシステムの深淵を覗き、AutoCAD VBAの黎明期からその進化の toda の一部を見てきた、者として、今回は一見単純に見える「図面内の全テキストおよびMTextオブジェクトのフォント、高さを一括変更する」というテーマに迫りたい。多くのエンジニアが「ただループしてプロパティを変えればいい」と考えるだろう。しかし、その背後には、パフォーマンス、メモリ管理、そしてレガシー環境における真の保守性という、深遠な問題が潜んでいる。
なぜ「単純なループ」では不十分なのか？
AutoCAD VBAにおけるオブジェクト操作は、単なるメモリ上の変数操作とは根本的に異なる。`AcadDocument`オブジェクトを起点とするオブジェクトツリーは、AutoCADの描画エンジンと密接に連携しており、各オブジェクトの生成、参照、破棄は、描画パフォーマンスやメモリ使用量に直接影響を与える。
特に、大量のテキストオブジェクトが存在する図面では、単純なループ処理でそれらを一つずつ参照し、プロパティを変更するだけでも、AutoCADの描画処理に多大な負荷をかける可能性がある。ましてや、頻繁にオブジェクトの生成・削除を伴うような操作を繰り返せば、図面全体の応答性が著しく低下し、最悪の場合、AutoCADがハングアップすることすらあり得る。
オブジェクトのライフサイクルとメモリの重み
VBAにおけるオブジェクトのライフサイクル管理は、VB6時代から我々が常に意識してきた最重要課題の一つである。AutoCAD VBAでは、`AcadApplication`、`AcadDocument`、`AcadModelSpace`、そして個々のエンティティオブジェクト（`AcadText`、`AcadMText`など）は、COMオブジェクトとして扱われる。
これらのオブジェクトは、使用後に明示的に解放しないと、メモリ上に残り続け、リソースを圧迫する。特に、`For Each`ループなどでコレクションを走査する際に、ループ変数にオブジェクトが代入され続けると、そのオブジェクトが解放されるまでメモリを占有し続ける。
【極意】オブジェクトの明示的解放：`Set obj = Nothing` の真価
`For Each` ループの終わりに、あるいは不要になったオブジェクト変数に対して、`Set obj = Nothing` を実行することは、単なる「お作法」ではない。これは、COMオブジェクトが管理するリソース（メモリ、AutoCAD内部でのハンドルなど）を、システムに返還する最も確実な方法である。
‘NG例: ループ終了後も objText はオブジェクトを参照し続ける
Dim objText As AcadText
For Each objText In ThisDrawing.ModelSpace.TextObjects ‘ 仮のプロパティ
‘ … objText を操作 …
Next
‘OK例: ループごとにオブジェクトを解放
Dim objText As AcadText
Dim objCollection As Variant ‘ ModelSpace.TextObjects が Variant を返す場合
objCollection = ThisDrawing.ModelSpace.TextObjects ‘ 取得
For Each objText In objCollection
‘ … objText を操作 …
Set objText = Nothing ‘ ループ内で明示的に解放
Next
Set objCollection = Nothing ‘ コレクション自体も解放
この`Set obj = Nothing`を適切に配置することで、メモリリークを防ぎ、大量のオブジェクトを処理する際のパフォーマンス低下を最小限に抑えることができる。特に、数千、数万といったオブジェクトを処理する際には、この「地味な」操作が、システム全体の安定性を左右する。
レガシー環境における保守：Windows API の出番
AutoCAD VBAは、Windows APIと連携することで、その機能を拡張できる。特に、レガシー環境で開発されたシステムを保守・運用する際には、VBA標準機能だけでは対応できない、あるいはパフォーマンス上のボトルネックとなる処理が存在することがある。
例えば、大量のテキストオブジェクトを検索・置換する際に、VBAの標準機能では限界がある場合、Windows APIの文字列処理関数などを利用することで、より高速かつ効率的な処理を実現できる可能性がある。
【実例】Windows API を利用した高速文字列検索（概念）
ここでは、`StrStr` (C言語ライブラリ関数) のような、高速な文字列検索関数をWindows API経由で呼び出すことを想定する。AutoCAD VBAから直接これらの関数を呼び出すには、`Declare`ステートメントと、適切なデータ型のマッピングが必要になる。
‘ Windows API の宣言例 (一部抜粋)
Private Declare Function StrStr Lib “shlwapi.dll” Alias “StrStrA” (ByVal lpFirst As String, ByVal lpSecond As String) As Long
‘ VBAでの利用例 (概念)
Sub FindTextWithAPI()
Dim targetString As String
Dim searchString As String
Dim foundAddress As Long
targetString = “これは検索対象の文字列です。”
searchString = “検索対象”
‘ StrStrA は、lpSecond が lpFirst に含まれる最初の位置へのポインタを返す
‘ VBA では Long 型でアドレスを受け取る
foundAddress = StrStr(targetString, searchString)
If foundAddress <> 0 Then
MsgBox “‘” & searchString & “‘ は見つかりました。位置: ” & foundAddress
‘ ここで、見つかった位置に基づいてさらに詳細な処理を行う
‘ (例: テキストオブジェクトのプロパティを更新する際の条件判定など)
Else
MsgBox “‘” & searchString & “‘ は見つかりませんでした。”
End If
End Sub
注意点:
- Windows API の呼び出しは、そのAPIが返すデータ型、文字列のエンコーディング（ANSIかUnicodeか）、ポインタの扱いなどを正確に理解する必要がある。誤ったAPI呼び出しは、アプリケーションのクラッシュに直結する。
- `shlwapi.dll` は、Windowsのシェル機能の一部であり、一般的に利用可能だが、特定のOSバージョンや環境によっては存在しない可能性も考慮する必要がある。
- API呼び出しは、VBAのオブジェクトモデルへのアクセスに比べて、パフォーマンス上のオーバーヘッドが発生する場合もある。単なるパフォーマンス向上策として安易に導入せず、VBA標準機能でボトルネックとなっている箇所を特定した上で、慎重に検討すべきである。
システム間連携の極限：API仕様への深い洞察
AutoCAD VBAは、AutoCADという巨大なアプリケーションのAPIの一部に過ぎない。真に強力なシステムを構築するには、AutoCAD VBA APIの仕様を深く理解し、必要であればAutoCADのネイティブAPIや、他のシステム（PDM、ERPなど）のAPIと連携する必要がある。
今回のテーマであるテキストオブジェクトのフォント・高さ変更も、より高度な文脈では、以下のようなシステム連携のシナリオが考えられる。
1. 設計規程管理システムとの連携:
- 設計規程管理システムに登録されている標準フォントや文字高さの情報を、AutoCAD VBAが読み込み、図面内のテキストオブジェクトに適用する。
- この際、設計規程管理システムが提供するAPI（REST API、COMインターフェースなど）をVBAから呼び出すことになる。
2. 図面管理システム (DMS) / 製品ライフサイクル管理 (PLM) システムとの連携:
- 図面 revision の変更に伴い、関連する図面内のテキスト（注釈、仕様など）のフォントや高さを一括変更する必要が生じる。
- DMS/PLMシステムから変更指示を受け取り、AutoCAD VBAがそれを実行する。逆に、変更結果をDMS/PLMシステムにフィードバックする。
【極限の知見】API仕様の「深読み」と「裏技」
AutoCAD VBA APIは、Microsoftのドキュメントに記載されているものが全てではない。AutoCADの内部実装に触れるような、より低レベルなAPIや、ドキュメント化されていない（あるいは非公式な）メソッドが存在することもある。
しかし、これらの「裏技」的なアプローチは、AutoCADのバージョンアップによって互換性が失われたり、予期せぬバグを引き起こしたりするリスクが非常に高い。レガシーシステムを保守する我々エンジニアは、常に「公式ドキュメントに沿った堅牢な実装」を最優先し、非公式な手法は、そのリスクとメリットを天秤にかけ、極めて限定的な状況でのみ、かつ十分なテストを経て採用すべきである。
実践的なVBAコード例：テキスト・MTextオブジェクトのフォント・高さ一括変更
それでは、本題であるテキストオブジェクトのフォントと高さを一括変更するVBAコードを提示する。ここでは、オブジェクトの明示的解放と、効率的なオブジェクト参照を意識した実装とする。
Option Explicit
‘==============================================================================
‘ 関数名: ChangeTextProperties
‘ 概要: 図面内の全てのAcadTextおよびAcadMTextオブジェクトのフォント名と高さを変更する。
‘ 引数:
‘ newFontName As String – 新しいフォント名 (“Arial”, “MS Gothic” など)
‘ newHeight As Double – 新しい文字高さ (0を指定すると元の高さを維持)
‘——————————————————————————
Sub ChangeTextProperties(ByVal newFontName As String, ByVal newHeight As Double)
Dim acadApp As AcadApplication
Dim acadDoc As AcadDocument
Dim acadObj As AcadObject
Dim acadText As AcadText
Dim acadMText As AcadMText
Dim objCount As Long
Dim changedCount As Long
On Error GoTo ErrorHandler
‘ AutoCAD アプリケーションオブジェクトの取得
Set acadApp = Application
Set acadDoc = ThisDrawing
‘ 念のため、 Undo の開始を記録
acadDoc.StartUndoMark
objCount = 0
changedCount = 0
‘ ModelSpace 内の全てのオブジェクトを走査
For Each acadObj In acadDoc.ModelSpace
objCount = objCount + 1
‘ AcadText オブジェクトの場合
If TypeOf acadObj Is AcadText Then
Set acadText = acadObj
‘ フォント名の変更
If newFontName <> “” Then
acadText.Style.Font.Name = newFontName
End If
‘ 文字高さの変更 (0以外の場合)
If newHeight > 0 Then
acadText.Height = newHeight
End If
changedCount = changedCount + 1
‘ オブジェクト参照の解放
Set acadText = Nothing
End If
‘ AcadMText オブジェクトの場合
If TypeOf acadObj Is AcadMText Then
Set acadMText = acadObj
‘ フォント名の変更 (MTextはStyleプロパティを持たず、直接Fontプロパティを持つ)
If newFontName <> “” Then
acadMText.Font.Name = newFontName
End If
‘ 文字高さの変更 (0以外の場合)
If newHeight > 0 Then
acadMText.Height = newHeight
End If
changedCount = changedCount + 1
‘ オブジェクト参照の解放
Set acadMText = Nothing
End If
‘ オブジェクト参照の解放 (acadObj もループごとに解放)
Set acadObj = Nothing
‘ 進捗表示 (任意、大量オブジェクト処理時に役立つ)
If objCount Mod 100 = 0 Then
DoEvents ‘ 他の処理にCPUを譲る
Application.Update ‘ 画面更新を強制
‘ Debug.Print “Processed: ” & objCount & ” objects. Changed: ” & changedCount
End If
Next acadObj
‘ Undo の終了を記録
acadDoc.EndUndoMark
MsgBox “処理が完了しました。” & vbCrLf & _
“処理対象オブジェクト数: ” & objCount & vbCrLf & _
“変更されたオブジェクト数: ” & changedCount, vbInformation
‘ オブジェクト変数の解放
Set acadDoc = Nothing
Set acadApp = Nothing
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
‘ エラー発生時も Undo マークを閉じる
If Not acadDoc Is Nothing Then
acadDoc.EndUndoMark
End If
‘ エラー発生時もオブジェクト参照を解放
Set acadText = Nothing
Set acadMText = Nothing
Set acadObj = Nothing
Set acadDoc = Nothing
Set acadApp = Nothing
End Sub
‘==============================================================================
‘ 呼び出し例:
‘ Sub RunChangeTextProperties()
‘ Dim targetFont As String
‘ Dim targetHeight As Double
‘
‘ ‘ 例1: フォントを “Arial” に、高さを 2.5 に変更
‘ targetFont = “Arial”
‘ targetHeight = 2.5
‘ Call ChangeTextProperties(targetFont, targetHeight)
‘
‘ ‘ 例2: フォントを “MS Gothic” に、高さを維持 (0を指定)
‘ ‘targetFont = “MS Gothic”
‘ ‘targetHeight = 0
‘ ‘Call ChangeTextProperties(targetFont, targetHeight)
‘ End Sub
‘==============================================================================
コード解説とパフォーマンス最適化のポイント
1. `Option Explicit`: 変数の宣言を強制し、タイポによるエラーを防ぐ。これは基本中の基本である。
2. `On Error GoTo ErrorHandler`: エラーハンドリングは、レガシーシステム保守の生命線。予期せぬエラーで処理が中断し、図面が不整合な状態になることを防ぐ。
3. `StartUndoMark` / `EndUndoMark`: ユーザーが一度の操作として元に戻せるようにする。大規模な一括処理では必須の機能である。
4. `Application` / `ThisDrawing`: `AcadApplication` および `AcadDocument` オブジェクトへの参照。`ThisDrawing` は、現在アクティブな図面を指すショートカットであり、`Application.ActiveDocument` と同義だが、より簡潔に記述できる。
5. `For Each acadObj In acadDoc.ModelSpace`: `ModelSpace` コレクションを走査する。`PaperSpace` (Layouts) も対象に含める場合は、別途処理を追加する必要がある。
6. `TypeOf … Is …`: オブジェクトの型を判定する。これにより、`AcadText`と`AcadMText`を区別し、それぞれのプロパティ（`AcadText.Style.Font.Name` vs `AcadMText.Font.Name`、`AcadText.Height` vs `AcadMText.Height`）を正しく操作できる。
7. `Set acadText = acadObj` / `Set acadMText = acadObj`: 型変換。`acadObj` が `AcadText` 型であれば、`acadText` 変数に代入することで、`AcadText` 型のプロパティやメソッドにアクセスできるようになる。
8. `newHeight > 0`: 文字高さは0を指定すると元の高さを維持するという仕様にした。これにより、フォント名だけ変更したい場合などに、高さの引数に0を指定すれば良い。
9. `Set … = Nothing`: 極意の再掲。 各オブジェクトの処理が終わるたびに、あるいはループの終わりに、関連するオブジェクト変数を明示的に`Nothing`に設定する。これにより、メモリリークを防ぎ、パフォーマンスを維持する。
10. `DoEvents` / `Application.Update`: 大量のオブジェクトを処理する際に、UIがフリーズしないように、定期的に他のWindowsメッセージを処理させ (`DoEvents`)、画面の再描画を促す (`Application.Update`)。これは、ユーザーエクスペリエンスを大きく改善する。`DoEvents` は、CPUを他のアプリケーションに譲るため、処理速度自体は若干低下する可能性があるが、システム全体の応答性を保つためには不可欠である。
11. `ErrorHandler`: エラー発生時には、必ず`EndUndoMark`を呼び出してUndoスタックを閉じる。これにより、エラー後の操作がUndo可能になる。
まとめ：真の自動化エンジニアへの道
図面内のテキストオブジェクトのフォント・高さを一括変更するという、一見単純なタスクの裏には、AutoCAD VBAのオブジェクトモデルの深い理解、メモリ管理の重要性、そしてレガシーシステム保守における現実的な課題が隠されている。
我々、伝説のアーキテクトが目指すのは、単に動くコードを書くことではない。それは、安定性、保守性、そしてパフォーマンスを兼ね備えた、真の「自動化」である。今回解説した知見は、AutoCAD VBAに限らず、あらゆる自動化システム開発に通底する原理原則である。
皆さんも、目の前のコードに潜む「深淵」を覗き込み、真のエンジニアリングを追求してほしい。
