AutoCAD VBAの深淵へ：図面内の全オブジェクトを自在に操る「走査」の極意
こんにちは。AutoCADの自動化の世界へようこそ。
これまで「マクロの記録」という安全な岸辺で遊んでいた皆さんが、いよいよVBAという大海原へ漕ぎ出す決心をしたこと、心から歓迎します。
AutoCADの自動化において、最も重要かつ頻繁に行うタスク。それが「図面内のオブジェクトを走査（スキャン）し、特定の条件で選別する」ことです。これができれば、数千の図形から特定の画層だけを修正したり、特定の色の線だけを抽出したりといった、手作業では数時間かかる作業が「瞬時」に終わります。
今日は、そのための「黄金の定石」を伝授しましょう。
—
1. AutoCADオブジェクトモデルの「階層」を理解する
コードを書く前に、頭の中に地図を描きましょう。AutoCADのオブジェクトは以下のようなピラミッド構造になっています。
- Application（AutoCADそのもの）
- Document（開いている図面）
- ModelSpace / PaperSpace（図形が住む空間）
- Entity（線、円、文字などの個別の図形）
私たちがやりたいのは、この「空間（Space）」の中にある「Entity」たちを、一人ずつドアをノックして確認していく作業です。
—
2. 効率的な走査のための「黄金のコード」
まずは、モデル空間にあるすべてのオブジェクトを走査し、指定した条件に合致するものを見つけるテンプレートを紹介します。これを理解すれば、応用範囲は無限に広がります。
Sub FindSpecificObjects()
‘ 1. 変数定義：AutoCADのオブジェクトを扱うための準備
Dim acadObj As AcadEntity
Dim targetLayer As String
‘ 検索条件の設定
targetLayer = “0” ‘ 例：画層「0」を探す
‘ 2. モデル空間を順番に走査
‘ For Eachを使うのが、最も読みやすく効率的です
For Each acadObj In ThisDrawing.ModelSpace
‘ 3. エラー対策：全てのオブジェクトが同じプロパティを持つとは限らない
‘ ここが初心者の方が陥りやすい罠です
On Error Resume Next
‘ 4. 条件判定
‘ 画層名が一致するか確認
If acadObj.Layer = targetLayer Then
‘ ここにやりたい処理を書く
‘ 例：オブジェクトを強調表示（ハイライト）する
acadObj.Highlight True
Debug.Print “見つかりました: ” & acadObj.ObjectName & ” (Handle: ” & acadObj.Handle & “)”
End If
On Error GoTo 0 ‘ エラーハンドリングを元に戻す
Next acadObj
MsgBox “走査が完了しました。”
End Sub
—
3. なぜ「On Error Resume Next」が必要なのか？
初心者が一番最初に直面する壁が、「実行時エラー」です。
例えば、`acadObj.Layer` にアクセスしようとしたとき、もしそのオブジェクトが「画層という概念を持たない特殊なデータ」だった場合、プログラムはそこで停止します。
AutoCADのデータベースには、目に見える線だけでなく、ブロック定義や内部的なメタデータも混在しています。これらをすべて等しく「線」として扱おうとすると、VBAは悲鳴を上げます。`On Error Resume Next` を一時的に使うことで、「プロパティがなければ無視して次へ進め」と指示を出すのです。これは手抜きではなく、堅牢なシステムを作るための「防御的プログラミング」の第一歩です。
—
4. さらに上を目指すエンジニアへのアドバイス
このコードをマスターしたら、次は以下のステップに挑戦してみてください。
1. プロパティの拡張: `acadObj.Layer` だけでなく、`acadObj.Color` や `acadObj.Linetype` も条件に加えてみましょう。「画層が『壁』で、かつ色が『赤』の線」といった複雑な条件も `And` 演算子で繋ぐだけで実現できます。
2. SelectionSetsの活用: オブジェクト数が数万を超える場合、全走査は時間がかかります。AutoCADには「選択セット（SelectionSet）」という、フィルタリング機能に特化した強力なツールがあります。これについては、また別の機会に深く解説します。
—
最後に：自動化は「愛」です
コードを書くことは、ただ楽をするためだけではありません。単純作業から解放されたあなたの脳が、よりクリエイティブな設計や問題解決に時間を使えるようになること。それこそが、私たちが自動化を追求する理由です。
今日学んだループ処理は、AutoCAD VBAの心臓部です。ここをクリアすれば、あなたはもう「マクロの記録」に頼る初心者ではありません。自信を持って、次のコードを書いてみてください。
何か詰まったら、いつでも戻ってきてくださいね。あなたの挑戦を、いつでもサポートします。
