【AutoCAD VBA中級】全寸法スタイルを一括置換せよ：オブジェクトモデルを掌握する極意
こんにちは。AutoCADの自動化を極める旅へようこそ。
「マクロの記録」ボタンを押すだけの世界から卒業し、自らの手でAutoCADのエンジンを制御したい――そう願うあなたへ、今日は「図面内の全寸法スタイルを一括変更する」という、実務で最も頻繁に求められるタスクを題材に、オブジェクトモデルの真髄を伝授します。
この記事を読み終える頃には、あなたは単なるスクリプトの書き手ではなく、AutoCADの構造を理解した「設計アーキテクト」の一歩を踏み出しているはずです。
—
1. なぜ「全選択」は難しいのか？
AutoCAD VBAにおいて、図面内のオブジェクトを操作する際の鉄則は「データベースを走査（スキャン）し、型を判定する」ことです。
初心者がやりがちなのは「すべてのオブジェクトを選ぼうとしてエラーを吐く」こと。AutoCADの図面空間には、線分、円、寸法、ハッチングなど、多種多様なデータが混在しています。その中から「寸法オブジェクト（Dimension）」だけを正確に狙い撃ちする。これが自動化の第一歩です。
—
2. 実践コード：寸法スタイル一括変更プログラム
まずは、このコードを眺めてみてください。なぜこの書き方をするのか、後ほど詳しく紐解きます。
Sub UpdateDimensionStyles()
‘ 変数の定義：AutoCADのオブジェクトモデルを扱うための宣言
Dim objEnt As AcadEntity
Dim objDim As AcadDimension
Dim targetStyle As String
‘ 変更したいスタイル名をここに指定
targetStyle = “ISO-25”
‘ エラーハンドリング：もし指定したスタイルが図面に存在しない場合などを考慮
On Error Resume Next
‘ ModelSpace（モデル空間）の全オブジェクトをループで回す
For Each objEnt In ThisDrawing.ModelSpace
‘ オブジェクトの型をチェック（TypeOfで「寸法」かどうかを判別）
If TypeOf objEnt Is AcadDimension Then
Set objDim = objEnt
‘ スタイルプロパティを更新
objDim.StyleName = targetStyle
‘ 更新したことをAutoCADに通知（再描画）
objDim.Update
End If
Next objEnt
‘ 完了通知
MsgBox “寸法スタイルを「” & targetStyle & “」へ更新しました。”, vbInformation
End Sub
—
3. コードの心臓部を解剖する
① `ThisDrawing.ModelSpace` の意味
これはAutoCADのデータベースへの入り口です。「現在の図面」の「モデル空間」というコレクションにアクセスしています。VBAにとって、図面はただの絵ではなく、「オブジェクトの集合体」に過ぎません。
② `TypeOf objEnt Is AcadDimension` という魔法
ここが最も重要です。`objEnt` には線分も文字も入ってきます。もし、線分に対して「寸法スタイルを変えろ」と命令したらどうなるでしょうか？当然、プログラムはクラッシュします。
`TypeOf` を使うことで、「お前は寸法か？イエスなら操作する、ノーなら無視する」というフィルタリングを行っています。これが安全な自動化の作法です。
③ `Update` メソッドの役割
VBAで値を書き換えただけでは、画面上の見た目はすぐには変わりません。`objDim.Update` を呼ぶことで、AutoCADの描画エンジンに対し「このオブジェクトの見た目を再計算せよ」と明示的に命令を送ります。地味ですが、非常に重要な作法です。
—
4. 陥りやすい「落とし穴」とその回避策
A. 「指定したスタイルが見当たらない」エラー
コード内の `targetStyle` に存在しないスタイル名を指定すると、実行時にエラーになります。実務で使うなら、以下のように事前チェックを入れるのがプロの流儀です。
‘ スタイルの存在確認
Dim dimStyle As AcadDimStyle
Set dimStyle = ThisDrawing.DimStyles.Item(targetStyle)
If dimStyle Is Nothing Then
MsgBox “そのスタイルは存在しません！”, vbCritical
Exit Sub
End If
B. ペーパー空間との戦い
上記のコードは `ModelSpace` しか見ていません。レイアウト空間（ペーパー空間）にも寸法がある場合は、`ThisDrawing.PaperSpace` も同様にループさせる必要があります。プロとしてステップアップするなら、「全レイアウト（Layouts）をループして処理する」というアルゴリズムに挑戦してみてください。
—
5. 先輩エンジニアからのアドバイス
AutoCAD VBAをマスターする秘訣は、「一度に完璧を目指さないこと」です。
まずは、今のコードをそのままコピペして、自分の手元の図面で動かしてみてください。「動いた！」という感動こそが、あなたのエンジニアとしての血肉になります。
次に、特定の画層（Layer）にある寸法だけを変えたい、といった条件分岐を加えてみてください。
AutoCADのオブジェクトモデルは非常に広大ですが、その構造さえ理解してしまえば、あなたの手は魔法の杖になります。次は「寸法値の自動更新」や「画層ごとの一括管理」など、さらなる高みを目指していきましょう。
もし詰まったら、いつでも戻ってきてください。この場所で、また次のステップを一緒に考えましょう。あなたの自動化ライフが、より快適で創造的なものになりますように！
