AutoCAD VBAを掌握する極限の知見：図面内の全円（Circle）オブジェクトを安全かつ高速にリスト化する実務アーキテクチャ
開発現場のリーダーである私たちが、日常の設計業務や検査工程で直面する課題の一つに「図面からのデータ抽出」がある。特に、膨大な図面からすべての円（Circle）オブジェクトの中心座標と半径を抜き出し、リスト化する作業は、手作業であれば致命的なヒューマンエラーを生む温床だ。
「AutoCAD VBAで図面内の円を列挙する」という要件は、入門書の最初期に出てくる非常にシンプルなテーマに見える。しかし、だからこそ「動くが、実務では使い物にならないゴミコード」が量産されやすい領域でもある。
今回は、数万件のプリミティブを抱えるヘビーな実図面であってもメモリリークを起こさず、一瞬で安全にデータを回収し、外部連携（CSV出力等）まで完結させる「プロダクションコード」の設計思想と実装を伝授しよう。
—
1. なぜ「普通のVBAコード」は実務で破綻するのか？
多くの開発者が最初に書くコードは、大体このようなものだ。
‘ 【アンチパターン例】絶対に真似してはいけないコード
Sub BadGetCircles()
Dim ent As AcadEntity
For Each ent In ThisDrawing.ModelSpace
If ent.ObjectName = “AcDbCircle” Then
Debug.Print ent.Center(0), ent.Center(1), ent.Radius
End If
Next
End Sub
このコードがなぜプロの現場で嫌われるのか。理由は3つある。
1. `ObjectName` による文字列比較のコスト: ループのたびにCOMオブジェクトのプロパティ文字列を評価するため、オブジェクト数が数万を超えると露骨にパフォーマンスが劣化する。
2. モデルスペースの直接走査（隠れたリスク）: `For Each` で `ModelSpace` を直接回すこと自体は動くが、複雑な図面において意図しないレイヤーやブロック内のゴミを拾ったり、予期せぬCOMの参照解放漏れを引き起こす原因になる。
3. エラーハンドリングと出力基盤の欠如: 取得したデータをコンソール（イミディエイトウィンドウ）に垂れ流すだけで、実務で必要な「ファイル出力」や「バリデーション」が一切考慮されていない。
プロフェッショナルなコードとは、「高速性」「安全性」「拡張性」の3つを高次元でバランスさせたものでなければならない。
—
2. 堅牢な設計アプローチ：オブジェクトモデルの正しい手綱さばき
AutoCAD VBAを極める上で最も重要なのは、「COMラッパーのライフサイクルを意識し、不必要な型評価や遅延を排除すること」だ。
今回の要件を実務レベルで満たすためのアーキテクチャを以下のように定義する。
- フィルタリングの最適化: 文字列比較ではなく、可能な限りネイティブな型安全性とスマートな走査を行う。
- データ構造の分離: 取得した幾何情報（座標・半径）は、一度メモリ上の配列（Array）に安全に格納し、描画コンテキストから切り離す。
- CSV/テキストへの堅牢な吐き出し: 単なるログ出力ではなく、外部の検査システムやExcel解析にそのまま流し込めるCSVファイル出力までをスコープに含める。
—
3. 【コピペ即実戦投入可】円情報抽出・CSV出力プロダクションコード
以下のコードは、現在のドキュメントのモデルスペースを安全に走査し、すべての円の中心座標 $(X, Y, Z)$ と半径を取得して、デスクトップにCSVとして吐き出す完全版のモジュールだ。
標準モジュールに貼り付けて実行してほしい。
Option Explicit
‘ =================================================================================
‘ módulo名: ｍ_CircleExtractor
‘ 概要: 図面内のすべての円オブジェクトの中心座標と半径を抽出し、CSVファイルとして出力する
‘ 開発現場のリーダーが送る、実務特化型堅牢コード
‘ =================================================================================
Public Sub ExportAllCirclesToCSV()
‘ 1. 宣言セクション
Dim acadDoc As AcadDocument
Dim ent As AcadEntity
Dim circleObj As AcadCircle
Dim centerPt As Variant
Dim radius As Double
Dim fileNum As Integer
Dim csvPath As String
Dim exportCount As Long
‘ エラーハンドリングの有効化
On Error GoTo ErrorHandler
‘ アクティブドキュメントの取得
Set acadDoc = ThisDrawing
‘ 2. 出力先パスの決定（ユーザーのデスクトップに “CircleList_年月日時分.csv” を生成）
csvPath = GetDesktopPath() & “\CircleList_” & Format(Now, “yyyymmdd_hhnnss”) & “.csv”
‘ 3. ファイル番号の取得とオープン
fileNum = FreeFile
Open csvPath For Output As #fileNum
‘ CSVヘッダーの書き込み
Print #fileNum, “Index,CenterX,CenterY,CenterZ,Radius”
exportCount = 0
‘ 4. モデルスペースの高速走査
‘ AutoCAD VBAでは、For Eachによるコレクション走査が最も安全で確実なイテレータとなる
For Each ent In acadDoc.ModelSpace
‘ TypeOf演算子を使用することで、文字列比較よりも高速かつ厳密に型を判定する
If TypeOf ent Is AcadCircle Then
Set circleObj = ent
‘ プロパティの安全な取得
centerPt = circleObj.Center
radius = circleObj.Radius
‘ 5. CSV行の書き込み（カンマ区切り）
‘ AutoCADの座標系は3次元（X, Y, Z）で返るため、それぞれを展開して出力する
Print #fileNum, (exportCount + 1) & “,” & _
Format(centerPt(0), “0.0000”) & “,” & _
Format(centerPt(1), “0.0000”) & “,” & _
Format(centerPt(2), “0.0000”) & “,” & _
Format(radius, “0.0000”)
exportCount = exportCount + 1
‘ オブジェクト変数の明示的な解放（メモリリーク防止の作法）
Set circleObj = Nothing
End If
Set ent = Nothing
Next
‘ ファイルを閉じる
Close #fileNum
‘ 完了通知
MsgBox “円情報の抽出が正常に完了しました。” & vbCrLf & _
“抽出件数: ” & exportCount & ” 件” & vbCrLf & _
“保存先: ” & csvPath, vbInformation, “処理成功”
Exit Sub
ErrorHandler:
‘ 異常系のクリーンアップ
If fileNum > 0 Then Close #fileNum
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“Error No: ” & Err.Number & vbCrLf & _
“Description: ” & Err.Description, vbCritical, “致命的エラー”
End Sub
‘ =================================================================================
‘ 補助関数: ユーザーのデスクトップパスを動的に取得する
‘ =================================================================================
Private Function GetDesktopPath() As String
Dim wsh As Object
Set wsh = CreateObject(“WScript.Shell”)
GetDesktopPath = wsh.SpecialFolders(“Desktop”)
Set wsh = Nothing
End Function
—
4. コードの解説とアーキテクチャの急所
このコードには、現場で生き残るための「妥協なき設計」が組み込まれている。
① `TypeOf … Is AcadCircle` による厳密な型判定
前述した `ent.ObjectName = “AcDbCircle”` は、内部で文字列の生成と照合が発生するため非効率かつ脆弱だ。VBAの `TypeOf` 演算子を使用することで、COMオブジェクトのインターフェース直接比較となり、パフォーマンスと堅牢性が飛躍的に向上する。
② 座標配列（Variant）の安全なハンドリング
AutoCADの `Center` プロパティは、3要素の `Double` 型配列（Variant）を返す。`centerPt(0)`、`centerPt(1)`、`centerPt(2)` と明示的にインデックスを指定して展開することで、2次元図面・3次元図面問わず確実に座標をキャプチャできる。
③ 徹底的なメモリ管理とエラーハンドリング
AutoCAD VBA開発で最も恐ろしいのは、COMオブジェクトの参照がメモリ上に残り続け、AutoCAD本体が不安定になる（あるいはメモリリークを起こす）現象だ。
ループ内で代入した `circleObj` や `ent` は、使い終わるごとに `Set circleObj = Nothing` で確実に解放し、万が一のエラー時も `FileNum` を閉じ忘れないようにクリーンアップルーチンを完備している。
—
5. おわりに：さらなる自動化の高みへ
このスクリプトをベースにすれば、取得したデータをデータベース（SQLiteやSQL Server）に直接投げて図面管理システムと連携させたり、許容公差と比較して不合格の円をハイライトする自動検査ツールへと発展させることが容易にできる。
「動くだけのコード」を卒業し、プロフェッショナルな設計思想に基づいたマクロを組むこと。それこそが、あなたの業務を劇的に加速させる唯一の鍵となる。
現場のエンジニア諸君、今すぐこのコードを自分の開発環境に組み込み、その圧倒的な速度と安定性を体感してほしい。
