【AutoCAD VBA極意】ブロックを分解せず「内部」を操る！GetSubEntityによるジオメトリ抽出術
こんにちは。現場で「動けばいい」コードから「保守性が高く、美しい」コードへの脱却を目指すあなたへ。
AutoCAD VBAを触っていると、必ず一度はぶつかる壁があります。それは「ブロック参照の中に埋もれた個別の線分や円を、どうやって直接触るか」という課題です。
多くの初心者は「一度EXPLODE（分解）して…」と考えがちですが、それはエンジニアとして避けるべき道です。元の図面の整合性を壊さず、スマートに内部データを抽出する。今日はそのための強力な武器、`GetSubEntity`というメソッドの真髄を伝授しましょう。
—
1. なぜ「分解」は悪手なのか？
AutoCADの設計において、ブロックは「守られるべき構造」です。これをマクロのために分解しては、画層管理や集計に悪影響が出ます。
私たちが目指すべきは、「ブロックの殻を破らず、レントゲンのように内部のジオメトリを特定する」こと。これを実現するのが `Utility.GetSubEntity` です。
GetEntity と GetSubEntity の決定的違い
- GetEntity: ユーザーがクリックした「ブロックそのもの」をオブジェクトとして取得します。
- GetSubEntity: ユーザーがクリックした「ブロック内の構成要素（線分や円など）」まで深掘りし、そのパス（NestPath）を特定します。
—
2. 実践：ブロック内の図形を特定するコード
以下のコードは、ブロック内の特定の線分を選択し、その情報を抽出する実務コードです。まずはコピー＆ペーストして、挙動を確認してください。
Public Sub GetBlockSubEntityInfo()
Dim ent As AcadEntity
Dim pickedPoint As Variant
Dim transMatrix As Variant
Dim contextData As Variant
Dim subEnt As AcadEntity
On Error Resume Next ‘ ユーザーがキャンセルした場合の備え
‘ ユーザーにブロック内の要素を選択させる
‘ GetSubEntityは引数が多いので注意が必要
ThisDrawing.Utility.GetSubEntity ent, pickedPoint, transMatrix, contextData, “ブロック内の要素を選択してください: ”
If Err.Number <> 0 Then
MsgBox “選択がキャンセルされました。”
Exit Sub
End If
‘ 取得したエンティティがブロック参照か確認
If TypeOf ent Is AcadBlockReference Then
‘ ここでサブエンティティのパスから個別の情報を特定
‘ contextDataには階層構造が含まれています
Debug.Print “選択されたブロック名: ” & ent.Name
‘ 応用：ここからcontextDataを使って詳細解析が可能
MsgBox “ブロック内部の階層情報まで特定完了しました。”
Else
MsgBox “ブロック内の要素ではありません。”
End If
End Sub
—
3. コードの心臓部を読み解く
このコードで最も重要なのは `contextData` という引数です。
- contextData: これこそが、複雑なネスト（入れ子）構造を持つブロックを紐解く「鍵」です。単なるオブジェクトではなく、どのブロックの中の、どのパスにあるかという情報が格納されています。
- transMatrix: これは「行列」です。ブロックは回転していたり、尺度変更されていたりしますよね？ この行列情報を使うことで、ブロック内図形の「世界座標系（WCS）での正確な位置」を逆算できるのです。
初学者が陥る罠
多くの人が `GetSubEntity` を使って「なぜかオブジェクトが取れない！」と悩みます。理由は、ブロックの定義が「匿名ブロック」だったり、ネストが深すぎたりする場合があるからです。
常に `If TypeOf ent Is …` で型チェックを行う癖をつけてください。VBAは型に対して寛容すぎますが、それがバグの温床になります。
—
4. チーフアーキテクトからのアドバイス
実務でこのコードを活かすなら、以下のステップに進んでください。
1. 情報の抽出: `subEnt.ObjectName` を取得し、それが「AcDbLine（線分）」なのか「AcDbCircle（円）」なのかを判定する。
2. 座標の変換: `transMatrix` を用いて、ブロック内部座標から図面全体の座標に変換する（ここは行列計算が必要になるため、VBAの数学ライブラリを活用しましょう）。
3. 非破壊的解析: 取得した情報を元に、Excelへリスト出力する、あるいは別のレイヤーに同じ形状を描画する等の処理へつなげる。
—
最後に：自動化の先にあるもの
`GetSubEntity` を使いこなせれば、あなたはもう「マクロの記録」に頼る初心者ではありません。AutoCADという巨大なデータベースを、自分の意のままに透視できるエンジニアです。
最初は難しく感じるかもしれません。しかし、オブジェクトモデルの深い部分に触れることは、AutoCADの構造そのものを理解することに他なりません。
「なぜ動かないのか」と悩む時間は、技術力が飛躍的に向上している証拠です。また壁にぶつかったら、いつでもここへ戻ってきてください。あなたの自動化ライフが、より効率的で、よりクリエイティブなものになることを応援しています。
さあ、次のコードを書いてみましょう。あなたのPCの中で、AutoCADがもっと賢く動き出すはずです。
