AutoCAD VBAを掌握する極限の知見：点（Point）オブジェクト自動配置とメモリ管理の深層
AutoCAD VBAにおいて、図面上の点（Point）オブジェクトの操作は、一見すると最もプリミティブな処理に見える。`ModelSpace.AddPoint`メソッドを呼び出し、座標配列を渡すだけ。誰が書いても同じ動くコードができる。
だが、ここで問う。
数万件に及ぶ測量座標データをインポートした際、あなたのマクロはメモリリークを引き起こさず、AutoCADのプロセスを強制終了させずに完走できているか？ 複数の図面間でトランザクションの整合性を保ちながら、爆速で基準点を同期できているか？
本稿では、レガシーなAutoCAD VBA環境の限界を見据え、オブジェクトのライフサイクル、COMの裏側でうごめくメモリの呪縛、そして実務の現場を生き抜くための極限の知見を、チーフアーキテクトの視点から淡々と、しかし徹底的に紐解いていく。
—
1. AutoCADオブジェクトモデルの本質：COMとメモリの呪縛
VBAからAutoCADを操作するとき、我々はCOM（Component Object Model）インターフェースを叩いている。ここで最も重要なのは、「VBA側で見えているオブジェクトの背後には、C++で書かれた重厚なARXオブジェクト（ObjectARX）が存在する」という事実だ。
特に`Point`オブジェクト（`AcadPoint`）や、それを格納する配列、バリアント型（`Variant`）の扱いは、メモリ管理のセオリーを無視すると、瞬く間にAutoCADのヒープ領域を蝕む。
陥りがちな罠：暗黙の参照保持とガベージコレクションの遅延
VBAはCOMオブジェクトの参照カウント（Reference Counting）によってメモリ管理を行っている。ループ内で無造作にオブジェクトを変数に格納し続けると、VBAのランタイムがメモリを解放するタイミングを失い、メモリフラグメンテーションを引き起こす。
数万点の測量データを一括処理するプロシージャでは、以下の鉄則を遵守しなければならない。
1. ループ内での変数宣言と明示的解放
2. `AcadDocument.Utility`を通じた座標変換の最適化
3. 画面描画（Redraw / Regen）の完全な抑制
—
2. 【実務実装】数万点の測量データを爆速で配置するアーキテクチャ
以下に、実務の極限環境に耐えうる、メモリ最適化済みの点配置エンジンのコードを示す。
このコードでは、画面描画のロック、エラーハンドリング、そしてCOMオブジェクトの明示的な破棄を完璧に組み込んでいる。
Option Explicit
‘ 測量データのインポートとPointオブジェクト自動配置を行う実務向けプロシージャ
Public Sub ImportSurveyPointsOptimized()
Dim tStartTime As Double
tStartTime = Timer
‘ 1. パフォーマンス最適化の極意：AutoCADの描画とイベントを完全に殺す
Dim origCmdecho As Integer
Dim origOsmode As Integer
origCmdecho = ThisDrawing.GetVariable(“CMDECHO”)
origOsmode = ThisDrawing.GetVariable(“OSMODE”)
ThisDrawing.SetVariable “CMDECHO”, 0
ThisDrawing.SetVariable “OSMODE”, 0 ‘ オスナップによる無駄な計算を排除
Application.ScreenUpdating = False
On Error GoTo ErrorHandler
‘ 2. 外部データ（例：CSV等）を想定したダミー座標配列の生成
‘ 実務ではここでテキストストリームやAPIからデータを読み込む
Dim pointCount As Long
pointCount = 10000 ‘ 1万点
Dim modelSpaceObj As AcadModelSpace
Set modelSpaceObj = ThisDrawing.ModelSpace
Dim i As Long
Dim coord(0 To 2) As Double
Dim ptObj As AcadPoint
‘ トランザクション的な一括処理の開始（Undoのグループ化）
ThisDrawing.StartUndoMark
‘ 3. 高速バルク処理ループ
For i = 1 to pointCount
‘ 座標値の生成（ここでは擬似的に計算）
coord(0) = CDbl(i 10.5)
coord(1) = CDbl(Sin(i) 100.0)
coord(2) = 0.0
‘ 点の作成
Set ptObj = modelSpaceObj.AddPoint(coord)
‘ 【極重要】プロパティの付与（レイヤや色の設定など）
‘ ループ内で重いメソッドを叩く代わりに、必要なプロパティのみ最小限に設定
ptObj.Layer = “0”
‘ COM参照を即座に解放（メモリリークの根絶）
Set ptObj = Nothing
Next i
ThisDrawing.EndUndoMark
‘ 処理終了の通知
MsgBox “基準点の配置が完了しました。” & vbCrLf & _
“処理点数: ” & pointCount & “点” & vbCrLf & _
“処理時間: ” & Format(Timer – tStartTime, “0.00秒”), vbInformation, “チーフアーキテクト・インスペクション”
CleanUp:
‘ 4. 環境の確実な復元（例外発生時も必ず通す）
ThisDrawing.SetVariable “CMDECHO”, origCmdecho
ThisDrawing.SetVariable “OSMODE”, origOsmode
Application.ScreenUpdating = True
Set modelSpaceObj = Nothing
Exit Sub
ErrorHandler:
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical
ThisDrawing.EndUndoMark
Resume CleanUp
End Sub
コードの深層解説：なぜこの書き方なのか？
- `Application.ScreenUpdating = False` と変数制御:
AutoCADは点オブジェクトが1つ追加されるたびに、内部の空間インデックス（Rツリー等）の更新と画面の再描画を試みる。これを抑制することで、処理速度が文字通り「数十倍」に跳ね上がる。
- `Set ptObj = Nothing` の徹底:
VBAの変数はスコープを抜けるまでメモリ上に残り続けることがある。数万回のループ内でこれを放置すると、VBAランタイムのメモリ消費量が膨れ上がり、最悪の場合「メモリ不足（Out of memory）」でAutoCADごと墜落する。ループの各イテレーションで参照を確実に断ち切るのがシニアの作法だ。
—
3. 応用：点（Point）オブジェクトの管理と外部システム連携
単に点を打つだけでは、単なる「図形のゴミ」にすぎない。実務では、それらの点が「どの測点か」「標高は幾らか」といったメタデータ（属性情報）を保持している必要がある。
AutoCAD VBAにおいて、非パッチ環境でメタデータを管理する手法として以下の2つが挙げられる。
1. XData（拡張データ）の付与
2. ハンドル（Handle）をキーとした外部DB（SQLiteやAccess）との連携
特に、`AcadEntity.Handle` プロパティは図面内でユニークな文字列の識別子を返す。このハンドルをキーとして外部の測量データベースと紐付けるアーキテクチャを採用することで、AutoCADを軽量なビューア兼エディタとして完全に手なづけることが可能になる。
‘ 点オブジェクトのハンドルを取得し、ログ出力するスニペット
Public Sub InspectPointHandle()
Dim selObj As AcadEntity
Dim pickPoint As Variant
On Error Resume Next
ThisDrawing.Utility.GetEntity selObj, pickPoint, “点オブジェクトを選択してください: ”
If Err.Number <> 0 Then Exit Sub
If TypeOf selObj Is AcadPoint Then
MsgBox “選択された点のハンドル: ” & selObj.Handle & vbCrLf & _
“レイヤ名: ” & selObj.Layer & vbCrLf & _
“座標: X=” & selObj.Coordinates(0) & ” Y=” & selObj.Coordinates(1), vbInformation
Else
MsgBox “指定されたオブジェクトはPointではありません。”, vbExclamation
End If
Set selObj = Nothing
End Sub
—
4. レガシー環境の保守と限界突破の心構え
AutoCAD VBAは、現代の.NET（ObjectARX / AutoCAD .NET API）全盛期において、ある種のレガシー技術として扱われることがある。しかし、現場のエンジニアにとって、開発環境の構築が不要で、図面を開いて即座にALT+F11でIDEを起動できるVBAの機動力は、いまだに代替不可能な武器だ。
VBAの限界（シングルスレッド、メモリ管理の脆弱さ、UIの古さ）を正しく理解し、今回解説したような「COMのライフサイクル管理」と「AutoCAD環境変数の厳格なコントロール」を施すことで、VBAは単なるマクロの域を超え、堅牢な「図面自動化エンジン」へと昇華する。
妥協のないコードだけが、図面とエンジニアの時間を救う。
明日からの実装に、この知見をフル活用してほしい。
