AutoCAD VBAを掌握する極限の知見：Windows API連携によるウィンドウ制御の深淵
VBA（Visual Basic for Applications）の領域において、AutoCADのオブジェクトモデルを操作することは日常茶飯事である。`AcadApplication`、`AcadDocument`、そしてそれらが内包する膨大なジオメトリ群。しかし、どれほど洗練されたVBAコードを書こうとも、我々は常に一つの「OSの壁」に直面してきた。
そう、ウィンドウのフォーカス問題である。
外部の基幹システムやExcelマクロからAutoCADをバックグラウンド起動し、重い図面生成バッチや属性抽出を走らせたとする。処理が完了した瞬間、ユーザーはこう思うはずだ。「今、処理が終わったのか？ どの画面を見ればいい？」
あるいは、AutoCAD自身からモーダレスなダイアログを立ち上げ、ユーザーに別の操作を促した後に強制的にAutoCADを最前面に引き戻したい場面もあるだろう。
標準のAutoCAD VBAには、ウィンドウのZオーダーを強制的に変更するプロパティは存在しない。ここで必要となるのが、Windows API（User32.dll）との直接対話である。
今回は、AutoCADのプロセスとウィンドウハンドル（HWND）の本質を見極め、OSレベルでウィンドウの生死・前面背面を完全に掌握するための極限の知見を授けよう。
—
1. なぜAutoCAD VBAでウィンドウ制御が難解なのか
AutoCADは、MDI（マルチドキュメントインターフェイス）の時代を経て、現在のタブドキュメントアーキテクチャに至るまで、極めて複雑なウィンドウ階層を持っている。
VBAの起点となる `ThisDrawing.Application` が指す `AcadApplication` オブジェクトには、アプリケーション自体のウィンドウハンドルを取得するプロパティが直接用意されていない。レガシーなAutoCAD環境やバージョン差異（AutoCAD 2021から2024以降など）において、ウィンドウ構造のハンドリングを誤ると、以下の致命的な問題が発生する。
- 予期せぬクラッシュ（Access Violation）: 無効なポインタや破棄されたウィンドウハンドルへのAPI呼び出し。
- フォーカスの不法占拠: タスクバーでアイコンが点滅するだけで、ユーザーの視界にウィンドウが浮上しない（Windowsのセキュリティポリシーによるフォアグラウンド権限の剥奪）。
- メモリリークとCOMのゾンビ化: 適切に参照を解放しないことで、背後で `acad.exe` プロセスがゾンビとして残り続ける現象。
これらを完全に克服するためには、OSのウィンドウマネージャー（User32）の挙動と、VBAのCOM参照モデルのライフサイクルを完全に同期させる必要がある。
—
2. アーキテクチャ設計：HWNDの取得とAPIマッピング
AutoCADのメインウィンドウハンドル（HWND）を取得する最も確実な方法は、`AcadApplication.Caption`（またはバージョン情報など）を一時的に変更し、`FindWindowEx` もしくは `FindWindow` を用いてピンポイントで特定することだ。しかし、もっとエレガントな方法は、現在のプロセスID（PID）とウィンドウの関連性をスキャンすることである。
ここでは、実務で即座に使える、極めて堅牢なモジュール設計を提示する。
実装コード：`modWindowControl.bas`
Option Explicit
‘ ==============================================================================
‘ Windows API Declarations for Window Control
‘ ==============================================================================
If VBA7 Then
‘ 64bit対応の宣言
Declare PtrSafe Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Declare PtrSafe Function SetForegroundWindow Lib “user32” (ByVal hwnd As LongPtr) As Long
Declare PtrSafe Function IsIconic Lib “user32” (ByVal hwnd As LongPtr) As Long
Declare PtrSafe Function ShowWindow Lib “user32” (ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Long
Declare PtrSafe Function GetWindowThreadProcessId Lib “user32” (ByVal hwnd As LongPtr, lpdwProcessId As Long) As Long
Declare PtrSafe Function GetActiveWindow Lib “user32” () As LongPtr
Else
‘ 32bitレガシー環境へのフォールバック
Declare Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function SetForegroundWindow Lib “user32” (ByVal hwnd As Long) As Long
Declare Function IsIconic Lib “user32” (ByVal hwnd As Long) As Long
Declare Function ShowWindow Lib “user32” (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Declare Function GetWindowThreadProcessId Lib “user32” (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Declare Function GetActiveWindow Lib “user32” () As Long
End If
‘ ShowWindow Constants
Private Const SW_RESTORE As Long = 9
Private Const SW_SHOW As Long = 5
‘ ==============================================================================
‘ AutoCADメインウィンドウのHWNDを取得する
‘ ==============================================================================
If VBA7 Then
Public Function GetAutoCADHWND() As LongPtr
Else
Public Function GetAutoCADHWND() As Long
End If
Dim acadApp As AcadApplication
Dim originalCaption As String
Dim uniqueTag As String
On Error GoTo ErrorHandler
Set acadApp = ThisDrawing.Application
‘ ウィンドウタイトルの一時的なハックによる特定
‘ AutoCADのクラス名 “AutoCADvX.X” はバージョンで変わるため、キャプションベースが最も安全
originalCaption = acadApp.Caption
uniqueTag = “ACAD_HWND_TARGET_” & Format(Timer, “0.000”)
acadApp.Caption = uniqueTag
#If VBA7 Then
Dim targetHwnd As LongPtr
#Else
Dim targetHwnd As Long
#End If
targetHwnd = FindWindow(vbNullString, uniqueTag)
‘ キャプションを即座に復元（ユーザーに違和感を与えない）
acadApp.Caption = originalCaption
GetAutoCADHWND = targetHwnd
‘ オブジェクトの明示的解放（メモリ最適化の基本）
Set acadApp = Nothing
Exit Function
ErrorHandler:
‘ 異常終了時もキャプションの復元を試みる
On Error Resume Next
If Not acadApp Is Nothing Then
acadApp.Caption = originalCaption
Set acadApp = Nothing
End If
GetAutoCADHWND = 0
End Function
‘ ==============================================================================
‘ AutoCADを強制的に最前面へポップアップさせるメインプロシージャ
‘ ==============================================================================
Public Sub ForceAutoCADToFront()
#If VBA7 Then
Dim hwnd As LongPtr
#Else
Dim hwnd As Long
#End If
hwnd = GetAutoCADHWND()
If hwnd = 0 Then
MsgBox “AutoCADのウィンドウハンドルを取得できませんでした。”, vbCritical, “API Error”
Exit Sub
End If
‘ ウィンドウが最小化されている場合は復元する
If IsIconic(hwnd) <> 0 Then
ShowWindow hwnd, SW_RESTORE
Else
ShowWindow hwnd, SW_SHOW
End If
‘ OSのフォーカス権限の制限を突破して最前面に設定
‘ ※Windowsの仕様により、バックグラウンドプロセスからの勝手な最前面化は
‘ 制限される場合があるため、APIの戻り値や代替アプローチを考慮する
Dim result As Long
result = SetForegroundWindow(hwnd)
If result = 0` Then
‘ フォアグラウンド移行がOSに拒絶された場合のフォールバック
‘ （タスクバーでの点滅通知等に切り替えるなどのログ処理）
Debug.Print “Warning: SetForegroundWindow was restricted by OS policy.”
End If
End Sub
—
3. シニアエンジニアが知るべき「メモリ最適化」と「COMのライフサイクル」
上記のコードを見て、「ただAPIを叩くだけのスクリプトか」と思ったならば、VBAのダークサイドをまだ理解していない。
AutoCAD VBAにおいて、`ThisDrawing.Application` や `AcadDocument` などのCOMオブジェクトを取得する行為は、内部で `IDispatch` インターフェイスの参照カウンタ（Reference Counter）をインクリメントしている。
もしあなたがループ内やイベントハンドラ内で、以下のようなコードを無造作に書いていたら、それはメモリリークの温床である。
‘ 【アンチパターン】これではCOMオブジェクトが解放されない
Dim i As Long
For i = 1 to 1000
MsgBox ThisDrawing.Application.Caption ‘ 隠れインスタンスや参照が残留するリスク
Next i
チーフアーキテクトからの戒め：
1. オブジェクト変数への代入は最小限にする：必要な時に取得し、スコープを抜ける前、あるいは用事が済んだ瞬間に `Set obj = Nothing` を明示する。
2. 完全修飾を避けるか、ローカル変数にキャッシュする：`ThisDrawing.Application.ActiveDocument.ModelSpace` のようなドット繋ぎの多用は、背後で暗黙のCOMラッパーオブジェクトを大量生産し、VBAのガベージコレクションを混乱させる。
3. API呼び出し時のポインタ安全型（`LongPtr` / `Long`）の厳守：Office 2010以降の64bit版VBA環境において、ウィンドウハンドルを単なる `Long` で受けているコードは、64bit環境でメモリ破壊を引き起こし、AutoCADを突然死（Fatal Error）させる。上記のコードのように `#If VBA7 Then` による条件付きコンパイルは絶対の義務である。
—
4. レガシー環境とモダンOSの狭間で：セキュリティポリシーの回避
現代のWindows（Windows 10 / 11）では、フォーカス泥棒（Background Foreground Stealing）を防ぐため、バックグラウンドで動いているアプリケーションが勝手に `SetForegroundWindow` を使ってユーザーの操作画面を強制奪取することが制限されている。
もし、他の外部アプリケーション（例えばC#で作られたタスクランチャーやExcelマクロ）からAutoCADを起動し、瞬時に最前面に持っていきたい場合、単に `SetForegroundWindow` を呼ぶだけでは、タスクバーがピカピカとオレンジ色に点滅するだけで終わる。
このOSのセキュリティ制約をクリアするための極限のテクニックとして、以下の条件のいずれかを満たす必要がある。
- 呼び出し元のプロセスがすでにフォアグラウンド権限を持っている（ユーザーが直前にExcelや別のウィンドウをクリックしていた場合など）。
- メッセージキューの添付（AttachThreadInput）を利用する（高度なハック）。
もし、単なるVBAのマクロ実行ボタン（AutoCAD上のUI、またはリボンからの実行）であれば、すでにAutoCADがフォアグラウンドにいるため、前述の `ForceAutoCADToFront` は完璧に機能する。しかし、完全なバックグラウンドバッチ処理の終了通知として使う場合は、「アクティブ化の権利」の移譲を意識しなければならない。
—
5. 結び：コードは芸術であり、防壁である
AutoCAD VBAは、レガシーな技術と揶揄されることがある。しかし、底层にあるWindows APIとCOMの仕組みを完璧に理解し、メモリの1バイト、ポインタの1ビットに至るまで制御しきったコードは、いかなる最新のモダンフレームワークにも劣らない、圧倒的な処理速度と信頼性を叩き出す。
今回解説したウィンドウ制御の知見は、単に「窓を前に出す」ためのものではない。それは、人間とCADシステムの間にある「無駄な待ち時間と認知の摩擦」を極限までゼロにするためのエンジニアリングである。
現場のシステムを極限まで自動化し、背後で完璧に調律されたシンフォニーのようにAutoCADを操る――それこそが、真のAutoCAD VBAマスターの姿なのだ。
