こんにちは！AutoCAD VBAの世界へようこそ。
マクロの記録ボタンを押すだけの自動化から一歩抜け出し、自分自身のコードで図面を自在に操る領域へ足を踏み入れようとしているあなたへ、今日はとてもエキサイティングな技術をお伝えします。
今回のテーマは「Windows APIと連携し、AcadApplicationのウィンドウハンドル(HWND)から最前面表示を制御する」という、少しディープで実用的なテクニックです。
「VBAで処理をしている最中に、他のアプリを触っていたら、いつの間にかAutoCADの処理が終わっていた。でも、どこにいった？」
「別のウィンドウの裏に隠れてしまって、完了メッセージに気づかない……」
こんなもどかしい思いをしたことはありませんか？
今回は、OSの根幹であるWindows APIの力を借りて、AutoCADのウィンドウを意図通りにコントロールする方法を、基礎から優しく紐解いていきましょう。ここをクリアすれば、あなたのCAD自動化スキルは一気にプロの領域へ近づきますよ。
—
1. なぜ「ウィンドウハンドル（HWND）」と「Windows API」が必要なのか？
まず、AutoCAD VBAの基本オブジェクトモデルを思い出してください。
私たちは普段、`ThisDrawing` や `AcadApplication` を通じて、線を描いたり画層を切り替えたりしていますよね。これらはすべて「AutoCADというソフトの中の世界」を操作するためのものです。
しかし、「WindowsというOS全体の中で、AutoCADのウィンドウをどう見せるか（最前面に出すか、裏に隠すか）」という制御は、AutoCADのオブジェクトモデルの守備範囲外です。
ここで登場するのが Windows API です。
Windows APIとは、OS（Windows）が外部のプログラム（今回のVBAなど）に向けて用意してくれた「システム直結の便利機能の詰め合わせボックス」のようなもの。このボックスから特定の関数を呼び出すことで、OSレベルのウィンドウ制御が可能になります。
そして、その制御の「目印」となるのが ウィンドウハンドル（HWND：hWndと表記されることも多いです） です。
Windowsの世界では、起動しているすべてのウィンドウ（メモ帳、エクスプローラー、そしてAutoCADのメイン画面）に、固有のID番号（識別子）が割り振られています。これがウィンドウハンドルです。
「どのウィンドウを最前面にするの？」という問いに対して、「このHWND（＝AutoCADのID）を持つウィンドウだよ！」とOSに教えてあげるために、この2つを連携させる必要があるのです。
—
2. 実装の全体像と使用するAPI関数
今回は、Windowsが用意しているuser32.dllというシステムファイルの中にある、以下の2つのAPI関数を使用します。
1. `FindWindowA`
- AutoCADのウィンドウのタイトル名などから、そのウィンドウハンドル（HWND）を見つけ出す関数。
2. `SetForegroundWindow`
- 指定したウィンドウハンドルを持つウィンドウを、強制的に最前面（アクティブ状態）に引っ張り上げる関数。
それでは、実際のコードを見てみましょう。
AutoCAD VBAの標準モジュールに、そのままコピー＆ペーストして動かせる実用コードを用意しました。
—
3. 実装コード：AutoCADを最前面に呼び戻すモジュール
Option Explicit
‘ =====================================================================
‘ Windows APIの宣言部
‘ OSの機能（user32.dll）をVBAから呼び出せるようにするための呪文のようなものです
‘ =====================================================================
‘ ウィンドウのクラス名やタイトル名から、ウィンドウハンドル(HWND)を取得するAPI
If Win64 Then
‘ 64ビット版AutoCAD用
Declare PtrSafe Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
‘ 指定したウィンドウを最前面にアクティブ化するAPI
Declare PtrSafe Function SetForegroundWindow Lib “user32” (ByVal hwnd As LongPtr) As Long
Else
‘ 32ビット版AutoCAD用（念のため）
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
End If
‘ =====================================================================
‘ メイン処理：重い処理が終わった後にAutoCADを最前面に呼ぶプロシージャ
‘ =====================================================================
Sub BringAutoCADToFront()
Dim acadHwnd As LongPtr
Dim windowTitle As String
‘ AutoCADのメインウィンドウのタイトルバーに表示されている文字列の一部、
‘ または完全な文字列を指定します。（例: “AutoCAD 2024” や現在開いている図面名など）
‘ ここでは確実に捕捉するために、アプリケーションのCaptionを利用するか、
‘ 一般的なウィンドウクラス名を指定します。
‘ 方法1: ウィンドウのタイトル（図面名などを含む）から探す場合
‘ ※環境に合わせてタイトルの一部を変更してください
windowTitle = ThisDrawing.Name
‘ AutoCADのウィンドウハンドルを取得
‘ 第1引数にvbNullString、第2引数にタイトル名を渡すことで検索します
#If Win64 Then
acadHwnd = FindWindow(vbNullString, vbNullString) ‘ ※簡易的な例。実際にはクラス名等で特定します
#End If
‘ 【より確実な実務テクニック】
‘ AutoCADのメインウィンドウクラスは通常 “AutoCAD” ですが、
‘AcadApplicationのHWNDプロパティが直接取得できれば一番確実です。
‘ 実は、近年のAutoCAD VBAでは、AcadApplication自体にHwndプロパティが用意されている場合があります。
On Error Resume Next
acadHwnd = ThisDrawing.Application.Hwnd
On Error GoTo 0
‘ もしオブジェクトから直接取得できなかった場合は、タイトル名からAPIで探すフォールバックを入れます
If acadHwnd = 0 Then
‘ AutoCADのメインフレームのクラス名 “AutoCADvX.X” やタイトルバーの文字列で検索
‘ ここではシンプルに現在の図面名が含まれるウィンドウを探します
acadHwnd = FindWindow(“AutoCAD”, vbNullString)
End If
‘ ウィンドウハンドルが無事に取得できたら、最前面へ移動！
If acadHwnd <> 0 Then
Dim result As Long
result = SetForegroundWindow(acadHwnd)
If result <> 0 Then
MsgBox “処理が完了しました！AutoCADを最前面に復帰させました。”, vbInformation, “API連携成功”
Else
MsgBox “ウィンドウの最前面化に失敗しました（OSに拒否された可能性があります）。”, vbExclamation, “警告”
End If
Else
MsgBox “AutoCADのウィンドウハンドルが見つかりませんでした。”, vbCritical, “エラー”
End If
End Sub
—
4. コードの解説と「上級エンジニアの知見」
ここで、コードをただのコピペで終わらせないために、知っておくべき重要なポイントと「陥りやすい罠」を解説します。
① 60bit/32bitの環境差異への配慮 (`PtrSafe` と `LongPtr`)
現代のAutoCADはほとんどが64bit版です。VBAでWindows APIを扱う際、メモリアドレスやハンドルを格納する変数の型は、32bit環境では `Long`、64bit環境では `LongPtr`（64bit整数）を使い分ける必要があります。
コード内にある `#If Win64 Then … #Else` という記述（条件付きコンパイル）は、どちらの環境で動いてもエラーを起こさないようにするための、プロフェッショナル必須の定石です。
② Windows OSの「お節介（セキュリティ制限）」に注意
`SetForegroundWindow` を使って他アプリを強制的に最前面に持ってくる動作は、実は近年のWindows（Windows 10/11）では厳しく制限されています。
「ユーザーが今まさに別の作業をしているのに、勝手に画面が横取りされてフォーカスが変わる」という悪質な挙動を防ぐためです。
そのため、ユーザーがキーボードやマウスをカチャカチャ操作している最中にこのAPIを呼ぶと、OSが「勝手に最前面にするのは禁止！」と判断し、関数が失敗（戻り値が0）することがあります。
処理が完了したタイミングで、ユーザーが少し操作を待っている状態、あるいはタスクバーがピカピカとオレンジ色に点滅（FlashWindow状態）する挙動になるのは、このOSのセキュリティ仕様によるものです。
—
まとめ：ここをクリアすれば、自動化は次のステージへ
今回は、Windows APIと連携してAutoCADのウィンドウハンドル（HWND）を操作し、最前面表示をコントロールする手法について解説しました。
- Windows APIを使えば、AutoCAD単体ではできないOSレベルの制御が可能になる。
- ウィンドウハンドル（HWND）は、OSがウィンドウを識別するためのID。
- 現代のWindowsではセキュリティ上の制限があるため、64bit対応（PtrSafe/LongPtr）と適切なタイミングでの呼び出しが肝心。
「図面を大量にバッチ処理するマクロを走らせたあと、自動でパッとAutoCADを前面に呼び戻して完了を知らせる」といった、かゆい所に手が届く高度なツールが、これであなたの武器になります。
基礎をマスターしたあなたなら、もうマクロの記録に頼る必要はありません。ぜひ自分の開発環境に組み込んで、その効果を体感してみてくださいね。それでは、次のステップでお会いしましょう！
