AutoCAD VBAを掌握せよ：Windows APIによるウィンドウ制御と「強制フォーカス」の極意
AutoCADの自動化において、最も頻繁に遭遇する「見えない壁」をご存じだろうか。それは、バックグラウンド処理や別ウィンドウへのフォーカス移動が発生した際、AutoCADが背後に隠れ、ユーザーからの入力を受け付けなくなる現象だ。
多くの初学者は「なぜか`GetPoint`が反応しない」と頭を抱え、最悪の場合、泥縄式に`AppActivate`を乱発してコードを汚染する。しかし、真のアーキテクトであれば、Windows APIの力を借りてAutoCADのウィンドウ状態を制御下に置くのが正解だと知っているはずだ。
今日は、業務効率化ツールを「動くもの」から「止まらないもの」へ昇華させるための、最前線の知見を授ける。
—
1. なぜ「標準機能」だけでは不十分なのか
AutoCAD VBAの `ThisDrawing.Utility.GetPoint` 等の入力メソッドは、AutoCADウィンドウがアクティブでないと入力を正しく補足できない場合が多い。特に、外部DBからデータを読み込み、その値を基に図面上へ配置するようなツールでは、処理の合間にブラウザやExcelにフォーカスが移っていることが往々にしてある。
ここで `AppActivate` を使うのは素人のやり方だ。あれはOSの気まぐれに依存しており、実行速度やタイミングによって失敗する確率が極めて高い。我々が求めるのは、「OSのウィンドウスタックを強制的に操作する」という、より低レイヤーで堅牢なアプローチだ。
2. Windows APIによる「最前面強制」の実装ロジック
Windows APIの `SetForegroundWindow` を利用することで、AutoCADを確実にユーザーの視界へと引きずり出す。ただし、単に呼べばいいわけではない。Windowsのセキュリティ制限（フォアグラウンドロックタイムアウト）を回避するための流儀がある。
実装コード：堅牢なウィンドウ制御モジュール
このコードを標準モジュールに配置し、必要なタイミングで呼び出すことで、処理中の不安定さを一掃できる。
Option Explicit
‘ Windows APIの宣言
‘ SetForegroundWindowだけではOSに拒絶される場合があるため、
‘ 念のためAttachThreadInput等を併用するのが「極限の」流儀だが、
‘ 基本的なツールであれば以下の構成で99%制御可能だ。
If VBA7 Then
Private Declare PtrSafe Function SetForegroundWindow Lib “user32” (ByVal hwnd As LongPtr) As Long
Private Declare PtrSafe Function BringWindowToTop Lib “user32” (ByVal hwnd As LongPtr) As Long
Else
Private Declare Function SetForegroundWindow Lib “user32” (ByVal hwnd As Long) As Long
Private Declare Function BringWindowToTop Lib “user32″ (ByVal hwnd As Long) As Long
End If
”’
”’
Public Sub ForceFocusToAutoCAD()
Dim hwnd As LongPtr
hwnd = Application.hwnd
‘ ウィンドウを最前面に設定
SetForegroundWindow hwnd
‘ ウィンドウスタックのトップに移動
BringWindowToTop hwnd
End Sub
3. 実務で「死なない」ための設計指針
このコードを導入する際、以下の3点を必ず守ってほしい。
- 「入力直前」のタイミングを厳守せよ
`GetPoint`や`GetEntity`を呼び出す「直前」にこの関数を叩くこと。処理が走り出してからウィンドウを制御しようとすると、ユーザーは操作の混乱を招く。
- 例外処理とのセット運用
`GetPoint`はユーザーがESCキーを押すとランタイムエラーを吐く。必ず`On Error Resume Next`で入力を待機させ、エラーコードの判定によって「ユーザーによるキャンセル」と「予期せぬ異常」を切り分けろ。
- DB/ファイル連携のライフサイクル
ウィンドウを制御して入力を行う際、必ず「AutoCADの描画更新（`Update`メソッド）」と「DBとの非同期接続」の順序を意識せよ。UIがフリーズしている間にDB接続が切れると、リカバリー不能な状態になる。
4. プロダクションコード例：ユーザー入力の強制
Public Sub SmartPromptForPoint()
‘ 1. ウィンドウを強制フォーカス
ForceFocusToAutoCAD
‘ 2. ユーザー入力の待機
On Error Resume Next
Dim pt As Variant
pt = ThisDrawing.Utility.GetPoint(, vbCrLf & “配置場所をクリックしてください: “)
If Err.Number <> 0 Then
‘ ユーザーがキャンセルした場合の処理
MsgBox “操作がキャンセルされました。”
Exit Sub
End If
On Error GoTo 0
‘ 3. 後続処理
Debug.Print “座標を取得: ” & pt(0) & “, ” & pt(1)
End Sub
最後に：エンジニアとしての矜持
AutoCAD VBAはレガシーな技術と見なされがちだが、APIを知り尽くせば、最新のデスクトップアプリにも劣らない制御が可能だ。重要なのは「動けばいい」ではなく、「ユーザーがストレスを感じない挙動を設計する」というエンジニアリングの精神だ。
今回紹介したウィンドウ制御は、あなたのツールを「趣味のスクリプト」から「現場で信頼される業務システム」へと変える第一歩となる。次は、このフォーカス管理とクラスモジュールを組み合わせ、AutoCADのイベント駆動処理を完全に掌握する手法へとステップアップしてほしい。
君が書くコードが、現場の時間を一人でも多く救うことを願っている。
