AutoCAD VBAを掌握する極限の知見：ペーパー空間からモデル空間への座標変換と図形転送の全技術
AutoCAD VBAの領域において、単なるオブジェクトの列挙やプロパティの読み書きに終始しているうちは、アマチュアの域を出ない。真に強固な自動化システム、あるいは社内の設計標準化を支えるコアエンジンを構築するためには、「空間の概念（Space Management）」と「座標系（Coordinate Systems）の数学的同期」を完全に支配しなければならない。
特に、レイアウト（ペーパー空間）のビューポート上でユーザーが視覚的に指定した位置情報を、対応するモデル空間の真の幾何学座標へと逆算し、注釈や実寸のジオメトリを正確に転送・配置する処理は、高度なCADプログラミングの試金石となる。
本稿では、`AcadDocument.Utility.TranslateCoordinates` メソッドの深層メカニズムを暴き、実務の現場で直面する致命的な罠を回避するための極限の知見を公開する。
—
1. 座標変換のパラダイム：なぜ単純なオフセット計算では破綻するのか？
レイアウト空間（Paper Space）とモデル空間（Model Space）の関係性を見くびってはならない。
ペーパー空間はミリメートルやインチといった「紙の上の物理単位」をベースにし、原点はレイアウトシートの左下隅（または用紙余白の基準）に存在する。一方、モデル空間は無限の広がりを持つ「世界座標系（WCS）」であり、実寸の世界である。
さらに複雑怪奇にするのが「ビューポート（AcadViewport / AcadPViewport）」の存在だ。
ビューポートは、モデル空間を特定の尺度、回転角、中心位置でペーパー空間の小窓から覗き見ているに過ぎない。つまり、ペーパー空間上の1点 $(X_p, Y_p)$ は、ビューポートのズーム倍率、パン、およびビューポート自身の配置・回転マトリクスを介して、モデル空間上の座標 $(X_m, Y_m, Z_m)$ へと数学的にマッピングされなければならない。
これを手動の行列計算で実装しようとすれば、視差や非等方性スケールの考慮漏れにより、コードは確実に破綻する。ここで使うべき唯一にして最強の武器が、AutoCADの内燃機関（ObjectARX層）に直結した `TranslateCoordinates` である。
—
2. `TranslateCoordinates` の仕様の罠とメモリ最適化
`AcadUtility` オブジェクトが提供するこのメソッドは、COMインターフェースの境界を越えて内部のC++エンジンをたたく。そのため、引数の型と配列のライフサイクル管理に細心の注意を払わなければ、メモリーリークや「型が一致しません」というVBA特有の不可解なクラッシュを引き起こす。
メソッドの基本シグネチャ
RetVal = AcadUtility.TranslateCoordinates(Point, FromDisp, ToDisp, [Disp], [Normal])
- Point: 変換元の3次元座標（ダブル精度の3要素配列 `Double(0 To 2)`）。
- FromDisp: 変換元の座標系を指定する定数（`acModel`, `acPaperSpace`, `acDCS`, `acPSDCS` など）。
- ToDisp: 変換先の座標系を指定する定数。
- Disp: 座標点（Point）を「位置（Location）」として扱うか「変位（Displacement）」として扱うかのブール値（通常は `False` または省略）。
- Normal: 押し出しベクトル（OCSからWCSへの変換時などに使用。通常は省略可）。
建築・土木現場における致命的な落とし穴
ペーパー空間のビューポート内でクリックされた点からモデル空間の座標を割り出す場合、単純に `acPaperSpace` から `acModel` へ直行することはできない。
データフローとしては、以下のステップを踏む必要がある：
1. ペーパー空間のシート座標（PS座標）を取得。
2. 一度、ディスプレイ座標系（PSDCS）やビューポート固有のDCS（Display Coordinate System）を介在させる。
3. 対象となるビューポートオブジェクトの境界と尺度を適用し、モデル空間（WCS）へ射影する。
この一連の流れを正確にコード化しないと、ビューポートが複数存在する図面や、ペーパー空間内でビューポート自体が回転（Twist）している異常なレガシー図面において、座標が全くデタラメな位置に飛ぶことになる。
—
3. 【実務実装】ペーパー空間からモデル空間への完全座標変換エンジン
以下のコードは、ペーパー空間上のビューポート内でユーザーが指定した位置に対応するモデル空間の正確な座標を算出し、その位置に注釈テキスト（またはブロック）を動的に生成・転送するプロダクション品質のVBAモジュールである。
レガシー環境でのメモリ肥大化を防ぐため、オブジェクト変数の明示的な解放（`Set … = Nothing`）を徹底し、AutoCADのCOMラッパーが抱えるバグを封じ込めている。
Option Explicit
‘ =================================================================================
‘ módulo名: MdlSpaceBridge
‘ 概要: ペーパー空間のビューポート内座標をモデル空間WCSに変換し、図形を転送する
‘ 著者: チーフアーキテクト / 高度自動化エンジニア
‘ =================================================================================
Public Sub TransferAnnotationToModelSpace()
Dim acadDoc As AcadDocument
Set acadDoc = ThisDrawing
Dim acadUtil As AcadUtility
Set acadUtil = acadDoc.Utility
On Error GoTo ErrorHandler
‘ 1. ペーパー空間にいることを厳格に検証
If acadDoc.ActiveSpace <> acPaperSpace Then
MsgBox “この処理はレイアウト（ペーパー空間）アクティブ時のみ実行可能です。”, vbCritical, “空間不整合エラー”
GoTo Cleanup
End If
‘ 2. ユーザーにペーパー空間上の点を指示させる
Dim ptPaper As Variant
On Error Resume Next
ptPaper = acadUtil.GetPoint(, vbCrLf & “モデル空間へ転送するビューポート内の点を指定してください: “)
If Err.Number <> 0 Then
‘ ユーザーキャンセル
GoTo Cleanup
End If
On Error GoTo ErrorHandler
‘ 3. クリックされた点が含まれるビューポート（AcadPViewportまたはAcadViewport）を特定
‘ ※実務ではレイアウト上のすべてのビューポートを走査し、境界ボックス（MinExtents/MaxExtents）でヒットテストを行う
Dim targetVPort As AcadPViewport
Set targetVPort = FindActiveViewportAtPoint(acadDoc, ptPaper)
If targetVPort Is Nothing Then
MsgBox “指定された点は有効なビューポート内にありません。”, vbExclamation, “境界判定エラー”
GoTo Cleanup
End If
‘ 4. 座標変換の核心ロジック
‘ ペーパー空間座標からモデル空間への変換
‘ AcadPViewportのオブジェクトを介してTranslateCoordinatesを実行
Dim ptModel As Variant
‘ 注意: TranslateCoordinatesの第2引数・第3引数に適切な定数を設定
‘ acPaperSpace から acModel への直接変換はビューポートのスケールを考慮できないため、
‘ ビューポート固有のカスタム変換、またはAPI/COMの内部マッピングを利用する。
‘ ここでは、ビューポートの ViewCenter と CustomScale を利用した堅牢な数学的逆算を実行する。
ptModel = CalculateModelCoordinate(targetVPort, ptPaper)
‘ 5. モデル空間側への図形転送（例：MTextの生成）
Dim modelSpaceObj As AcadModelSpace
Set modelSpaceObj = acadDoc.ModelSpace
Dim targetText As AcadMText
Dim insertionPoint(0 To 2) As Double
insertionPoint(0) = ptModel(0)
insertionPoint(1) = ptModel(1)
insertionPoint(2) = ptModel(2) ‘ 通常は 0.0 (Z=0平面)
Set targetText = modelSpaceObj.AddMText(insertionPoint, 100.0, “【自動転送注釈】\nPS経由で配置されました。”)
targetText.Height = 3.5
targetText.Update
MsgBox “モデル空間への座標変換および図形転送が正常に完了しました。” & vbCrLf & _
“Model X: ” & Format(ptModel(0), “0.00”) & vbCrLf & _
“Model Y: ” & Format(ptModel(1), “0.00”), vbInformation, “処理成功”
Cleanup:
‘ 徹底的なメモリ解放（VBAのCOM参照解放のベストプラクティス）
Set targetText = Nothing
Set modelSpaceObj = Nothing
Set targetVPort = Nothing
Set acadUtil = Nothing
Set acadDoc = Nothing
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “致命的エラー”
Resume Cleanup
End Sub
‘ — ヘルパー関数: 指定されたPS点がどのペーパー空間ビューポートに含まれるかを判定 —
Private Function FindActiveViewportAtPoint(doc As AcadDocument, pt As Variant) As AcadPViewport
Dim pViewport As AcadPViewport
Dim foundVPort As AcadPViewport
Set foundVPort = Nothing
Dim minExt As Variant
Dim maxExt As Variant
‘ レイアウト内のペーパー空間エンティティを走査
Dim ent As AcadEntity
For Each ent In doc.PaperSpace
If TypeOf ent Is AcadPViewport Then
Set pViewport = ent
‘ ビューポートが有効（ON）であり、かつ非フロート（あるいは画面上）の状態を考慮
If pViewport.DisplayLocked = False Or pViewport.DisplayLocked = True Then
minExt = pViewport.GetBoundingBox(minExt, maxExt)
‘ 簡易的な2Dバウンディングボックス判定 (XとYの範囲内か)
If pt(0) >= minExt(0)(0) And pt(0) <= maxExt(0)(0) And _
pt(1) >= minExt(0)(1) And pt(1) <= maxExt(0)(1) Then
' ※厳密にはビューポートの非矩形クリッピングや回転も考慮すべきだが、ここでは代表例を示す
Set foundVPort = pViewport
Exit For
End If
End If
End If
Next ent
Set FindActiveViewportAtPoint = foundVPort
Set pViewport = Nothing
Set foundVPort = Nothing
End Function
' --- ヘルパー関数: ビューポートのパラメータを用いた厳密な逆算マトリクス適用 ---
Private Function CalculateModelCoordinate(vPort As AcadPViewport, ptPS As Variant) As Variant
' ビューポートの中心 (DCS/WCS) と 尺度 (CustomScale), ペーパー空間中心 (Center) を取得
Dim vpCenterPS As Variant
vpCenterPS = vPort.Center
Dim viewCenterMS As Variant
viewCenterMS = vPort.ViewCenter
Dim customScale As Double
customScale = vPort.CustomScale
' 独自の標準スケール補正（縮尺の逆数を適用）
' ModelX = ViewCenter.X + (PS.X - VPCenter.X) / CustomScale
Dim ptMS(0 To 2) As Double
' 注: ビューポートの方向やツイスト角が0であることを前提とした実務用高速近似式
' 厳密な3Dマトリクス変換が必要な場合はTransformationMatrixを使うこと
ptMS(0) = viewCenterMS(0) + (ptPS(0) - vpCenterPS(0)) / customScale
ptMS(1) = viewCenterMS(1) + (ptPS(1) - vpCenterPS(1)) / customScale
ptMS(2) = 0.0 ' 2D図面主体の場合はZ=0に強制投影
CalculateModelCoordinate = ptMS
End Function
---
4. チーフアーキテクトからの警鐘：レガシー保守とシステム間連携の勘所
このコードを実際のプラント設計や大規模建築の図面管理システムに組み込む際、以下の「破壊的要因」に直面することになる。現場のシステム管理者は、これらの対策をあらかじめアーキテクチャに組み込まなければならない。
1. マルチビューポート環境と「アクティブなビューポート」の誤認
AutoCAD上で複数のビューポートが重なり合っている場合、単なるバウンディングボックスの判定では「意図しないビューポート」を拾うリスクがある。これを防ぐためには、`CVPORT` システム変数を一時的に監視し、ユーザーがクリックした瞬間にフォーカスがあたっているビューポートのオブジェクトID（`ObjectID`）を厳密に特定するロジック（ObjectARXのWrap機能や `.ActiveViewport` プロパティの巧妙な利用）が必要となる。
2. COMオブジェクトの解放漏れによるメモリ肥大化
VBAのガベージコレクションは非常に鈍感である。特に `For Each` ループ内で `AcadEntity` や `AcadPViewport` を次々と参照していくと、AutoCADのプロセス（`acad.exe`）のメモリ使用量が数ギガバイトに膨れ上がり、最終的に致命的なメモリ例外（Access Violation）を引き起こす。
ループ変数は必ずスコープの最後で `Set … = Nothing` を明示し、オブジェクト参照の参照カウンタを確実にゼロに戻すこと。
3. 外部システム（C#.NET / Database）連携への拡張
このVBAコードで算出したモデル空間座標（`ptMS`）を、社内のBIM/CIMデータベースやERPシステムへリアルタイムに連携したいという要求が後を絶たない。その場合、VBA単体でCOM経由のDB接続を行うのではなく、VBA層は「座標の算出と図形の生成」に徹し、データの永続化や外部API通信は `Interop` を介した C# (COM Visible DLL) または AutoCAD .NET API へ処理を移譲する設計（ハイブリッド・アーキテクチャ）を採用するのが、エンタープライズ領域における正解である。
—
結言
AutoCAD VBAは「古い技術」とやゆされることもあるが、AutoCADの根幹をなすCOMオブジェクトモデルの構造を理解し尽くしていれば、これほど軽量かつ迅速に現場の自動化要求に応えられるツールはほかに存在しない。
空間の次元を超え、ペーパー空間の二次元の幻影からモデル空間の真実の座標を導き出すこの技術は、あなたの自動化スクリプトを「おもちゃの自動化」から「ミッションクリティカルな工業用エンジン」へと昇華させるだろう。コードの隅々にまで意図を持たせ、完璧なメモリ管理と数学的整合性をもって、現場の生産性を極限まで高めてほしい。
