座標の哲学：AutoCAD VBAにおける空間制御の真髄
AutoCAD VBAの世界へようこそ。私はこれまで、数えきれないほどのレガシーシステムを構築し、またそれらを現代のインフラへと統合してきた。
多くの初学者は「座標を取得して図形を描く」ことを、単なる数値の受け渡しだと誤解している。しかし、シニアエンジニアやシステム管理者が目指すべきは、その先にある「メモリ効率」と「堅牢なオブジェクトモデルの制御」だ。図面上の1点は、単なる3つのDouble型数値ではない。それは、AutoCADという巨大なデータベースにおける最小単位の「アドレス」である。
今回は、座標取得の基本を、プロフェッショナルが実戦で通用させるための「極限の知見」と共に解説する。
—
1. 座標データの本質とメモリレイアウト
AutoCAD VBAにおいて、座標（Point）は通常 「要素数3のDouble型配列（0 to 2）」 として扱われる。しかし、APIから返される際は多くの場合 `Variant` 型にラップされている。
ここで重要なのは、VBAの内部的なメモリ管理だ。大量の座標をループ内で処理する場合、不適切な変数宣言はメモリの断片化を招き、大規模図面でのパフォーマンス低下を引き起こす。
‘ 悪い例：型を特定しない
Dim pt
pt = ThisDrawing.Utility.GetPoint(, “点を選択:”)
‘ 良い例：明確なメモリ確保
Dim pt(0 To 2) As Double
Dim varRet As Variant
varRet = ThisDrawing.Utility.GetPoint(, “点を選択:”)
pt(0) = varRet(0): pt(1) = varRet(1): pt(2) = varRet(2)
プロフェッショナルは、`Variant` を「一時的な器」としてのみ使い、計算処理には厳密に型定義された配列を用いる。
—
2. オブジェクトモデルの階層とライフサイクル管理
座標を利用して図形を生成・移動させる際、`AcadApplication` と `AcadDocument` の関係性を無視してはならない。特に外部アプリケーション（Excel等）からAutoCADを操作する場合、オブジェクトの参照を明示的に解放しないと、AutoCADのプロセスがゾンビ化して残る原因となる。
実践：座標取得と円の生成（プロフェッショナル・プロトコル）
以下のコードは、単に円を描くだけのものではない。エラーハンドリング、オブジェクトの明示的解放、そして座標変換の基本を網羅した「実戦用」のテンプレートである。
Public Sub CoordinateMastery()
Dim acadApp As AcadApplication
Dim acadDoc As AcadDocument
Dim mSpace As AcadModelSpace
‘ 1. アプリケーション・ドキュメントへの参照取得
On Error Resume Next
Set acadApp = GetObject(, “AutoCAD.Application”)
If Err.Number <> 0 Then
MsgBox “AutoCADが起動していません。”, vbCritical
Exit Sub
End If
On Error GoTo ErrorHandler
Set acadDoc = acadApp.ActiveDocument
Set mSpace = acadDoc.ModelSpace
‘ 2. ユーザーからの座標入力（Utilityオブジェクトの活用）
Dim basePoint As Variant
On Error Resume Next ‘ ユーザーキャンセルへの対応
basePoint = acadDoc.Utility.GetPoint(, vbCrLf & “中心点を選択してください: “)
If Err.Number <> 0 Then
Debug.Print “ユーザーによって入力がキャンセルされました。”
GoTo CleanUp
End If
On Error GoTo ErrorHandler
‘ 3. 取得した座標を用いた図形生成
‘ 座標はVariantのまま AddCircle に渡せるが、内部挙動を意識せよ
Dim circleObj As AcadCircle
Dim radius As Double: radius = 10.5
Set circleObj = mSpace.AddCircle(basePoint, radius)
‘ 4. 生成したオブジェクトの属性制御
circleObj.Color = acRed
circleObj.Update
MsgBox “座標 (” & basePoint(0) & “, ” & basePoint(1) & “) に円を生成しました。”
CleanUp:
‘ 5. オブジェクトの明示的解放（メモリ最適化）
‘ 小規模スクリプトでは軽視されがちだが、大規模システムでは必須
Set circleObj = Nothing
Set mSpace = Nothing
Set acadDoc = Nothing
Set acadApp = Nothing
Exit Sub
ErrorHandler:
MsgBox “エラー発生: ” & Err.Description, vbCritical
Resume CleanUp
End Sub
—
3. Windows APIとの連携：座標取得の高速化
VBAの `GetPoint` は対話型で便利だが、UIを介さずにマウスカーソルの現在位置をシステムレベルで取得したい場合がある。その際は、Windows APIの `GetCursorPos` を利用する。
これは、AutoCADのウィンドウハンドル（HWND）を特定し、スクリーン座標をCAD内の図面座標（WCS）へ変換する高度なテクニックへの入り口だ。
‘ Windows API 宣言 (64bit環境対応)
If VBA7 Then
Declare PtrSafe Function GetCursorPos Lib “user32” (lpPoint As POINTAPI) As Long
Else
Declare Function GetCursorPos Lib “user32” (lpPoint As POINTAPI) As Long
End If
Type POINTAPI
X As Long
Y As Long
End Type
‘ ※ 実際のCAD座標変換には ScreenToClient と
‘ AutoCADの TranslateCoordinates メソッドの併用が必要。
—
4. レガシー保守とシステム間連携の知見
長年、社内システムの管理者を務める諸兄に伝えたい。AutoCAD VBAは「枯れた技術」であるがゆえに、その安定性は極めて高い。しかし、最新の .NET API やクラウド連携（Autodesk Platform Services）への移行を見据えるなら、座標データは常に 「疎結合」 に保つべきだ。
- CSV/JSON出力の標準化: 座標をCAD内に閉じ込めず、外部ファイルとして入出力するインターフェースを常に用意せよ。
- UCS（ユーザー座標系）の罠: 常に `TranslateCoordinates` を通し、WCS（世界座標系）でデータを管理せよ。ユーザーのUCS設定に依存するツールは、他部署に展開した瞬間にゴミと化す。
結論
座標を取得するという行為は、CADエンジニアリングにおける「対話」の第一歩だ。
しかし、我々チーフアーキテクトが書くコードは、単なる対話であってはならない。それは、メモリを管理し、エラーを予見し、次世代のシステムへとデータを繋ぐための「堅牢なパイプライン」でなければならない。
この基本をマスターしたとき、あなたはAutoCADという巨大な空間を、真に掌中に収めることになるだろう。
