AutoCAD VBAの深淵：ブロック属性抽出・編集を「業務レベル」で実装する極意
AutoCADの自動化において、ブロック属性（Attribute）の操作は避けて通れない登竜門だ。しかし、多くのエンジニアがネットに転がる断片的なコードを繋ぎ合わせ、「図面にブロックが大量にあるとフリーズする」「動的ブロックでエラーが出る」「ネストされたブロックが無視される」といった壁にぶち当たる。
今日は、単に動くだけのコードではなく、「現場で生き残り続ける堅牢なコード」を書くための設計哲学と実装術を授ける。
—
1. なぜ「単純なループ」ではいけないのか
多くのコードが `For Each obj In ThisDrawing.ModelSpace` と書き始める。だが、大規模図面や外部参照（Xref）が絡むプロジェクトでは、これだけで致命的な脆弱性になる。
- 型推論の罠: `Object`型でのループはパフォーマンスを殺す。明確に `AcadEntity` を指定せよ。
- ネストされたブロック: モデル空間の直下にあるブロックだけを拾うのは甘い。ブロック定義内のブロック（ネスト）や、ペーパー空間、さらには外部参照内の属性をどう扱うか、要件定義の段階で決めておかなければならない。
- 属性の更新順序: `GetAttributes` メソッドで取得できる配列は、作成順序に依存する。特定のタグ名を狙い撃ちするには、インデックスではなくタグ名での照合が不可欠だ。
—
2. プロダクションコード：堅牢な属性抽出エンジンの設計
以下は、ブロック名と属性タグを指定して値を取得・変更する、現場仕様のテンプレートコードだ。
‘ —————————————————————————
‘ ブロック属性を安全に抽出・更新するメインロジック
‘ —————————————————————————
Public Sub ProcessBlockAttributes()
Dim objEntity As AcadEntity
Dim objBlockRef As AcadBlockReference
Dim varAttributes As Variant
Dim i As Integer
‘ エラーハンドリングの徹底：AutoCADのVBAでは必須
On Error GoTo ErrorHandler
‘ モデル空間内の全エンティティを走査
For Each objEntity In ThisDrawing.ModelSpace
‘ 型判定：ブロック参照のみを抽出
If TypeOf objEntity Is AcadBlockReference Then
Set objBlockRef = objEntity
‘ ブロック名が一致するか確認（例: “PART_INFO”）
If objBlockRef.EffectiveName = “PART_INFO” Then
‘ GetAttributesで属性配列を取得
varAttributes = objBlockRef.GetAttributes
For i = LBound(varAttributes) To UBound(varAttributes)
‘ タグ名で判定して処理を分岐
Select Case varAttributes(i).TagString
Case “PART_NUMBER”
‘ ここで値を抽出、または更新
Debug.Print “現在の値: ” & varAttributes(i).TextString
‘ varAttributes(i).TextString = “NEW_VALUE” ‘ 更新時はここを解除
End Select
Next i
‘ 変更を加えた場合は更新を強制
objBlockRef.Update
End If
End If
Next objEntity
MsgBox “属性処理が正常に完了しました。”, vbInformation
Exit Sub
ErrorHandler:
MsgBox “エラー発生: ” & Err.Description, vbCritical
End Sub
—
3. 設計上の「3つの鉄則」
現場で運用されるツールには、以下の3点を必ず盛り込むこと。
① `EffectiveName` を使え
動的ブロック（Dynamic Block）を扱う場合、`.Name` プロパティは匿名ブロック（`U123`のような名前）を返してしまい、判定が不可能になる。常に `EffectiveName` を使用せよ。
② 属性の「更新フラグ」を意識せよ
属性値を変更しただけでは、画面上の表示が即座に更新されないことがある。`objBlockRef.Update` は必須であり、それでも反映されない場合は、AutoCADコマンドの `ATTSYNC` や `REGEN` を自動化プロセスに組み込む設計が必要だ。
③ 外部連携（Excel/CSV）時の注意
BOM（部品表）を作成するためにCSV等へ書き出す場合、「書き込み先のファイルが既に開かれていないか」「ファイルパスの権限はあるか」をVBA側で事前チェックするルーチンを必ず実装せよ。エラーを放置すると、せっかく抽出した属性データが全てゴミになる。
—
結論：プロのエンジニアは「保守性」を売る
このコードは、そのまま業務に組み込めるレベルの「骨組み」だ。しかし、真のプロフェッショナルは、ここに「ログ出力機能」や「設定ファイル（JSONやINI）によるブロック名管理」を付け加える。
コードを書くことは、道具を作ることだ。貴方が書いたコードが、半年後の貴方自身や同僚を助ける資産になるよう、「なぜその型を選んだのか」「なぜその分岐が必要なのか」を常に意識してほしい。
次は、これをクラスモジュール化し、大規模なBOM自動生成エンジンへと昇華させる話をする準備はできているか？ 質問があれば、いつでも歓迎する。
