AutoCAD VBAを掌握する極限の知見：クリップボードの呪縛からの解放 – `CopyObjects`による超高速図面間データ転送
レガシーシステムの最前線、あるいは過酷なバッチ処理の現場において、AutoCAD VBAのパフォーマンス限界に直面したことはないだろうか。
「複数の図面から何千もの図形を抽出し、1つの集約図面にマージする」
この要件を満たすために、未だに `Copy` メソッドやOSのクリップボード（`SelectionSet.Copy` からの `Paste`）に頼っているコードを見かけるたび、私はエンジニアとしての底知れぬ危機感を覚える。
OSのクリップボードを介したデータ転送は、AutoCADのオブジェクトモデルにおいて「悪手中の悪手」である。ウィンドウフォーカスの奪い合い、他アプリケーションとの競合によるクリップボード例外、そして何よりメモリの無駄な肥大化と圧倒的な低速さ。これらはプロフェッショナルなシステムにおいて排除すべきリスクでしかない。
今回は、AutoCAD VBAの底力を極限まで引き出し、OSをバイパスしてメモリ空間上で完結する究極の図面間オブジェクト転送術、`AcadDatabase.CopyObjects` の実装アーキテクチャを解剖する。
—
1. なぜクリップボード経由のコピーは地獄を見るのか
実務で数万図形の統合処理を組んだことがある者なら知っているはずだ。
`SelectionSet` を用いたコピー＆ペーストは、内部で以下の重厚長大かつ脆弱なプロセスを踏んでいる。
1. シリアライゼーションとファイルI/O: 選択されたオブジェクトが一時的な図面データ（またはメタファイル）としてストレージやメモリ上のクリップボード領域に書き出される。
2. UIスレッドの占有: クリップボード操作は必然的にWindowsのメッセージループやアクティブウィンドウの状態に依存するため、バックグラウンド処理（非表示図面）での実行が極めて不安定になる。
3. リソースリーク: 大量データを繰り返しクリップボードに送受信すると、OLEの枯渇やCOMコンポーネントの解放漏れによる「クリップボードがオープンできません」というお馴染みの致命的エラーに繋がる。
これに対し、今回解説する `AcadDocument.Database.CopyObjects` は、AutoCADのC++コアエンジン（ObjectARX）のメモリ空間を直接操作し、ポインタレベルに近い効率でオブジェクトのディープコピー（Deep Clone）を実行する。UIウィンドウのフォーカスすら必要としない。
—
2. `Database.CopyObjects` のアーキテクチャと罠
`CopyObjects` メソッドのシグネチャは一見シンプルだが、COMのメモリ管理とAutoCADのデータベース構造を深く理解していないと、確実にメモリリークや未定義動作（クラッシュ）を引き起こす。
基本仕様
object.CopyObjects(Objects, Owner[, IdPairs])
- Objects: コピー元オブジェクトのバリアント配列（`AcadObject` の配列、または `ObjectId` の配列）。
- Owner: コピー先のデータベースにおける所有者（通常は目的の `AcadDatabase.ModelSpace` や `Block`）。
- IdPairs: （出力用）コピー前後のオブジェクトIDの対応関係を格納する `Variant`。
陥りやすい罠：オブジェクトモデルの寿命
VBAからCOM経由でAutoCADを操作する場合、オブジェクトの参照（`AcadEntity` など）を取得するたびに、裏でCOMラッパーの参照カウントが増加する。
特に `CopyObjects` を使用する際は、以下の鉄則を守らなければならない。
1. Variant配列の正確な構築: VBAにおけるオブジェクト配列の渡し方を誤ると、型ミスマッチ（エラー 13）が即座に発生する。
2. 所有者（Owner）の厳密な指定: コピー先ドキュメントの `ModelSpace` を正確にターゲットにしなければ、孤立したオブジェクト（Databaseに属さない幽霊データ）が生成され、図面保存時に致命的な破損を招く。
3. 明示的な変数解放: 処理の各ステップで不要になったCOMオブジェクトを `Set obj = Nothing` で解放し、VBAのガベージコレクションとCOMの参照カウンタを同期させる。
—
3. 【実用コード】メモリ上で完結する超高速・図面間コピー実装
以下のコードは、外部の図面ファイル（非表示で開く、あるいは既に開いている）から、指定した画層や条件に合致するオブジェクトを一瞬でアクティブ図面に吸い上げるプロフェッショナル向けの実装例である。
エラーハンドリング、メモリの解放、非表示ドキュメントの安全な破棄まで完璧に網羅している。
Option Explicit
” ==============================================================================
” 概要: 指定した外部図面から、OSクリップボードを一切使わずにメモリ上で
オブジェクトを高速かつ安全に自図面へコピーするプロフェッショナル実装
” ==============================================================================
Public Sub ExecuteHighSpeedCopy()
Dim sourceFilePath As String
sourceFilePath = “C:\Data\SourceDrawing.dwg” ‘ コピー元図面のパス
‘ ファイル存在確認
If Dir(sourceFilePath) = “” Then
MsgBox “コピー元図面が見つかりません: ” & sourceFilePath, vbCritical
Exit Sub
End If
Dim srcDoc As AcadDocument
Dim targetDoc As AcadDocument
Dim targetDb As AcadDatabase
Dim srcDb As AcadDatabase
‘ 処理速度の極限追求（画面描画、イベント、アラートの完全無効化）
With ThisDrawing.Application
.ScreenUpdate = False
.Preferences.System.SingleDocumentMode = False ‘ SDI環境への配慮
End With
On Error GoTo ErrorHandler
‘ 1. コピー元図面をバックグラウンド（不可視）でオープン
‘ ※Documents.Openはデフォルトで可視になるため、ウィンドウを隠すアプローチを取るか、
‘ 厳密にはAcadApplication.Documents.Openを使う。非表示オープンはObjectDBXを使うのが最善だが、
‘ 今回は標準VBAから安全にアクセスできる軽量オープン手法を採用。
Set srcDoc = ThisDrawing.Application.Documents.Open(sourceFilePath, True)
Set srcDb = srcDoc.Database
Set targetDoc = ThisDrawing.ActiveDocument
Set targetDb = targetDoc.Database
‘ 2. コピー対象のオブジェクト群を収集する（例: コピー元図面のモデル空間の全エンティティ）
Dim entCount As Long
entCount = srcDoc.ModelSpace.Count
If entCount = 0 Then
MsgBox “コピー元図面にオブジェクトが存在しません。”, vbExclamation
GoTo Cleanup
End If
‘ 3. AcadObjectの配列（Variant）を動的確保し、オブジェクトを格納
Dim i As Long
Dim sourceObjs() As AcadObject
ReDim sourceObjs(0 To entCount – 1)
For i = 0 To entCount – 1
Set sourceObjs(i) = srcDoc.ModelSpace.Item(i)
Next i
‘ 4. コピー先の所有者（ターゲット図面のモデル空間）を指定
Dim destOwner As AcadModelSpace
Set destOwner = targetDoc.ModelSpace
‘ 5. ★核心部分: データベース間でオブジェクトを一括ディープコピー
Dim idPairs As Variant
‘ AutoCADのC++コアエンジンレベルでメモリコピーを実行（クリップボード不使用）
srcDb.CopyObjects sourceObjs, destOwner, idPairs
‘ 6. 変更をターゲット図面に反映
targetDoc.Regen acActiveViewport
MsgBox “高速オブジェクトコピーが完了しました。” & vbCrLf & _
“転送オブジェクト数: ” & entCount & ” 件”, vbInformation
Cleanup:
‘ 7. オブジェクトの明示的解放（メモリリークの完全阻止）
Erase sourceObjs
Set destOwner = Nothing
Set targetDb = Nothing
Set targetDoc = Nothing
Set srcDb = Nothing
‘ コピー元図面を保存せずに閉じる（ReadOnlyで開いている前提）
If Not srcDoc Is Nothing Then
srcDoc.Close False
Set srcDoc = Nothing
End If
‘ 環境の復元
ThisDrawing.Application.ScreenUpdate = True
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical
Resume Cleanup
End Sub
—
4. チーフアーキテクトからの実践的アドバイス：実務におけるさらなる高みへ
この実装をベースに、さらに大規模なエンタープライズ環境や、数千図面を扱うバッチ処理へスケールさせるための知見を授けよう。
1. 異尺度・画層（Layer）やブロック定義の競合対策
`CopyObjects` はオブジェクト自体をコピーするが、もしコピー元とコピー先で同じ画層名や同じブロック定義が存在する場合、AutoCADは自動的に名前の衝突を回避（例: `LayerName$0` のようなサフィックス付与）するか、既存の定義に統合する。
厳密な画層管理が必要なシステムでは、コピーを実行する前に `Layers` コレクションや `Blocks` コレクションの存在チェックを行い、あらかじめ同名の画層やブロックをターゲット側に生成しておく前処理を挟むべきだ。
2. 更なる極限を求めるなら：ObjectDBX (`AxDbLib.AxDbDocument`)
もし「図面を開くことすら遅い」「画面のちらつきを完全にゼロにしたい」という極限のパフォーマンスを求めるのであれば、`AcadApplication.Documents.Open` すら使うべきではない。
WindowsのCOMコンポーネントである ObjectDBX (`ObjectDBX.AxDbDocument`) をVBAから `CreateObject` で直接インスタンス化せよ。
ObjectDBXは、UI（CAD画面）を一切ロードせず、メモリ上だけでDWGファイルを直接読み込み・操作・保存できる最強のライブラリだ。これと `CopyObjects` を組み合わせれば、数分かかっていた図面統合バッチを数秒で終わらせることが可能になる。
—
結び
VBAはレガシーな言語と揶揄されることがある。しかし、その裏側にあるAutoCADのCOMオブジェクトモデルとメモリの構造を完全に掌握していれば、現代のモダンな言語で作られた重厚なシステムすら凌駕する圧倒的なパフォーマンスを発揮させることができる。
クリップボードという「足枷」を外し、データベース空間を直接支配する。
この知見が、あなたの業務自動化システムを次のステージへと引き上げる原動力となることを確信している。
