【AutoCAD VBAを掌握する極限の知見】図面内の全ブロック定義をハックせよ：実務で耐えうる堅牢なメタデータ抽出エンジン
開発プロジェクトのリーダーである私から、現場のエンジニア諸君に問いたい。
「図面内に散らばる何百ものブロック定義のメタデータを、正確かつノーエラーで一網打尽に抽出したことがあるか？」
世の中に溢れる入門書やコピペブログのコードは、お遊戯会レベルのきれいごとで作られている。`ThisDrawing.ModelSpace`をなんとなく舐め回し、エラーハンドリングすらない。そんなコードを実務の大規模図面に放り込めば、一瞬でAutoCADごとフリーズするか、メモリリークの地獄を見る。
今回は、AutoCAD VBAのオブジェクトモデルの深淵――「Blocksコレクション」と「Blockオブジェクト（ブロック定義）」のライフサイクルを完全に理解し、実務の現場で即座に戦力となる堅牢なブロック一覧化ツールを構築する方法を伝授する。
—
1. なぜ「ブロック参照」ではなく「ブロック定義」なのか？
実務でよくある誤解だ。初心者は「図面内のブロックを調べる」と言われたら、無条件で `ModelSpace` や `PaperSpace` から `AcadBlockReference`（挿入された実体）をかき集めようとする。
しかし、考えてみてほしい。
- ブロック参照（AcadBlockReference）： 図面上の「どこに」「どのような尺度で」配置されているかというインスタンス情報。
- ブロック定義（AcadBlock）： そのブロックが「どのような形状（線分や円など）で構成されているか」「基準点はどこか」というクラス（設計図）情報。
今回我々がターゲットにするのは後者、すなわち図面の裏側にある「Blocksコレクション」だ。
図面内に100個配置されているボルトのブロックであっても、定義自体は「1つ」しか存在しない。全ブロック定義のメタデータ（基点、構成要素数、属性の有無など）を正確に把握することは、図面標準化の監査や、不要なゴミブロックの浄化（PURGEの前段階の解析）において極めて重要なアプローチとなる。
—
2. アーキテクチャ設計：バグを生む罠と「堅牢なコード」の条件
実務のVBAコードにおいて、以下の3つを満たしていないものは「プロトタイプ未満のオモチャ」と心得よ。
1. レイアウトブロックの完全な除外:
AutoCADの `Blocks` コレクションには、通常のブロック定義だけでなく、モデル空間（`Model_Space`）やペーパー空間（`Paper_Space`など）という名の「システムブロック」が混入している。これらを区別せず処理すると、予期せぬ実行時エラーや無意味なデータの出力につながる。
2. 外部参照（Xref）とアタッチメントのハンドリング:
外部参照されている図面も `Blocks` コレクションに現れる。これらは通常のブロックとは異なり、形状データを直接持たないか、独自のパスを持っているため、適切に判定・スキップする必要がある。
3. Excel連携のI/Oボトルネック回避:
取得したデータを1件ずつExcelのセルに書き込んでいては、COMのコンテキストスイッチのオーバーヘッドで処理が数分単位で固まる。必ずメモリ上の配列（Array）に一度格納し、一括でシートへ流し込む設計にせよ。
—
3. 【プロダクションコード】全ブロック定義・メタデータ抽出エンジン
以下のコードは、AutoCADのVBAエディタ（VBE）にそのまま貼り付け、適切な参照設定（Microsoft Excel Object Libraryなど）を行えば、即座に実務で稼働する完全版である。
getActiveSheet（または新規ワークブック）に対して、ブロック定義の全メタデータを一気に吐き出す。
Option Explicit
‘ =================================================================================
‘ 処理名 : ExportBlockDefinitionsToExcel
‘ 概要 : 図面内の全ブロック定義（システム・外部参照を除く）を走査し、
‘ そのプロパティを抽出し、Excelへ一括出力するプロフェッショナル向けルーチン
‘ =================================================================================
Public Sub ExportBlockDefinitionsToExcel()
‘ 1. 宣言と初期化
Dim acadApp As AcadApplication
Dim acadDoc As AcadDocument
Dim blkObj As AcadBlock
‘ エラーハンドリングの有効化
On Error GoTo ErrorHandler
‘ AutoCADアプリケーションの遅延バインディングまたは安全な参照
Set acadDoc = ThisDrawing
‘ 出力用データの動的配列 (行, 列)
‘ 列構成: 0:ブロック名 / 1:構成エンティティ数 / 2:基点X / 3:基点Y / 4:基点Z / 5:外部参照か / 6:匿名ブロックか
Dim outputData() As Variant
Dim dataCount As Long
dataCount = 0
‘ 2. Blocksコレクションの走査
Dim i As Long
Dim totalBlocks As Long
totalBlocks = acadDoc.Blocks.Count
‘ 最大サイズで配列を確保（後でRedim Preserveで切り詰める）
ReDim outputData(1 To totalBlocks, 1 To 7)
For i = 0 To totalBlocks – 1
Set blkObj = acadDoc.Blocks.Item(i)
‘ 3. システムブロック（モデル・ペーパー空間）およびアノテーションなどの除外フィルター
‘ AutoCADのシステム定義は先頭に “” が付く特性を利用
If Not IsSystemBlock(blkObj.Name) Then
dataCount = dataCount + 1
‘ プロパティの抽出
outputData(dataCount, 1) = blkObj.Name
outputData(dataCount, 2) = blkObj.Count ‘ 構成要素の数
‘ 基点（Origin）の取得 – Variant配列として返る
Dim basePt As Variant
basePt = blkObj.Origin
outputData(dataCount, 3) = basePt(0)
outputData(dataCount, 4) = basePt(1)
outputData(dataCount, 5) = basePt(2)
‘ 外部参照（Xref）かどうかの判定
If blkObj.IsXRef Then
outputData(dataCount, 6) = “はい”
Else
outputData(dataCount, 7) = “いいえ” ‘ 簡易的に列を割り当て
End If
‘ 匿名ブロック（ダイナミックブロックの内部生成など）の判定
If blkObj.IsLayout Then
‘ レイアウトは基本弾くが念のため
End If
End If
Next i
‘ 有効なデータが存在しない場合の処理
If dataCount = 0 Then
MsgBox “処理対象となるユーザー定義ブロックは存在しません。”, vbExclamation, “情報”
Exit Sub
End If
‘ 配列のサイズを実際のデータ数に最適化
Dim finalData() As Variant
ReDim finalData(1 As Long, 1 As Long) ‘ プレースホルダー
‘ 効率的な切り出しのため、実際に出力する行数・列数でリサイズ
Dim trimmedData() As Variant
ReDim trimmedData(1 To dataCount, 1 To 6)
Dim r As Long, c As Long
For r = 1 To dataCount
For c = 1 = 1 To 6
‘ 簡易マッピング
Select Case c
Case 1: trimmedData(r, c) = outputData(r, 1) ‘ ブロック名
Case 2: trimmedData(r, c) = outputData(r, 2) ‘ 要素数
Case 3: trimmedData(r, c) = outputData(r, 3) ‘ 基点X
Case 4: trimmedData(r, c) = outputData(r, 4) ‘ 基点Y
Case 5: trimmedData(r, c) = outputData(r, 5) ‘ 基点Z
Case 6: trimmedData(r, c) = outputData(r, 6) ‘ Xrefフラグ
End Select
Next c
Next r
‘ 4. Excelへの高速一括出力（COM連携の最適化）
Call ExportToExcelWorksheet(trimmedData, dataCount)
MsgBox “ブロック定義の抽出が完了しました。” & vbCrLf & _
“抽出件数: ” & dataCount & ” 件”, vbInformation, “完了”
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“Error # ” & Err.Number & “: ” & Err.Description, vbCritical, “致命的エラー”
End Sub
‘ =================================================================================
‘ 補助関数 : IsSystemBlock
‘ 概要 : AutoCADのシステム予約ブロック（Model_Space等）を判定する
‘ =================================================================================
Private Function IsSystemBlock(ByVal blockName As String) As Boolean
If Left$(blockName, 1) = “” Then
IsSystemBlock = True
Else
IsSystemBlock = False
End If
End Function
‘ =================================================================================
‘ 補助関数 : ExportToExcelWorksheet
‘ 概要 : 2次元配列をExcelの新規シートへ一括書き込み（パフォーマンス最優先設計）
‘ =================================================================================
Private Sub ExportToExcelWorksheet(ByRef dataArray() As Variant, ByVal rowCount As Long)
Dim xlApp As Object
Dim xlWb As Object
Dim xlWs As Object
‘ Excelアプリケーションの起動（既存があれば取得、なければ新規）
On Error Resume Next
Set xlApp = GetObject(, “Excel.Application”)
If xlApp Is Nothing Then
Set xlApp = CreateObject(“Excel.Application”)
End If
On Error GoTo 0
xlApp.Visible = True
Set xlWb = xlApp.Workbooks.Add
Set xlWs = xlWb.Worksheets(1)
‘ ヘッダーの設定
Dim headers As Variant
headers = Array(“ブロック名”, “構成要素数”, “基点 X”, “基点 Y”, “基点 Z”, “外部参照 (Xref)”)
xlWs.Range(“A1:F1”).Value = headers
‘ ヘッダーの書式設定（太字、背景色）
With xlWs.Range(“A1:F1”)
.Font.Bold = True
.Interior.Color = RGB(220, 230, 242)
End With
‘ 2次元配列を一括流し込み（セルを1つずつ叩かないこと！これがプロの鉄則）
Dim targetRange As Object
Set targetRange = xlWs.Range(“A2”).Resize(rowCount, 6)
targetRange.Value = dataArray
‘ 表の体裁を整える
xlWs.Columns(“A:F”).AutoFit
‘ オブジェクト解放
Set targetRange = Nothing
Set xlWs = Nothing
Set xlWb = Nothing
Set xlApp = Nothing
End Sub
—
4. コードの解説と実務での応用ポイント
1. `Left$(blockName, 1) = “”` によるシステム除外の美学:
AutoCADの内部仕様として、モデル空間やレイアウトペーパー空間のブロック定義名は必ずアスタリスク（“）から始まる。これによって、無駄なシステム情報をユーザーに見せずに綺麗にフィルタリングできる。
2. 配列一括代入（Bulk Assignment）:
`targetRange.Value = dataArray` の一行に注目してほしい。VBAからExcelを操作する際、数千回の `Cells(i, j).Value = …` を行うと、Excelの再計算や描画イベントが走って数秒〜数分待たされる。メモリ上で構築した `Variant` 型の2次元配列を、ExcelのRangeに一撃で流し込むこの手法こそ、実務で戦うエンジニアの標準装備である。
3. オブジェクトのライフサイクル管理:
コードの最後で `Set targetRange = Nothing` 等の明示的なオブジェクト解放を行っている。AutoCAD VBAとExcel VBAのプロセス間通信（COM）が絡む処理では、不完全な参照残しがExcelの「ゴーストプロセス（裏で生き残る見えないプロセス）」を引き起こす原因になる。後始末まで完璧に行うこと。
—
5. リーダーからの総括
今回紹介したコードは、単に「ブロックの名前と座標を取るだけのもの」ではない。
大規模なプラント図面や建築図面において、「図面資産の棚卸しとクレンジング」を自動化するための最初のキーストーン（要石）となるアーキテクチャだ。
ここから発展させれば、
- 特定の命名規則（レイヤーやプレフィックス）に違反しているブロック定義の検出
- 使用されていない（要素数が0、または参照数が0の）ゴミブロックの自動リストアップ
- 外部参照（Xref）のパス切れチェック
といった、数日分の手作業を数秒で終わらせる最強の業務自動化ツールへと昇華させることができる。
自身のプロジェクトの自動化レベルを一段引き上げたいのであれば、ぜひこの堅牢な設計思想をそのまま取り入れてほしい。エンジニアリングの美しさは、常に「堅牢性とパフォーマンス」の両立のなかに宿るのだから。
