WaitWindowClose

説明

指定したタイトルを持つウインドウが閉じられるまで待機します。

書式

Object.WaitWindowClose(WindowTitle) As Boolean 

※待機する最大時間はCommandTimeOutプロパティの設定に従います。

戻り値

使用例（VBScript）

Call Main
Sub Main()
    Set Acad = CreateObject("AcadRemocon.Body")
    'ShadeをアクティブにしてDXFインポート実行
    If Not Acad.VbAppActivate("- Shade") Then Exit Sub
    If Not Acad.VbSendKeys("%(FMD)C:\Shade.dxf%(O)") Then Exit Sub
    'インポート進度表示ウインドウが閉じるまで待つ
    Acad.WaitWindowClose "ＤＸＦファイルの読み込み中..."
    '再度Shadeをアクティブにして図面に合わせて拡大する
    If Not Acad.VbAppActivate("- Shade") Then Exit Sub
    If Not Acad.VbSendKeys("%(SF)") Then Exit Sub
End Sub