窗口界面控制包括AutoCAD應用程序窗口界面控制和AutoCAD繪圖窗口控制,以及VB窗口界面和AutoCAD窗口界面的相互切換。
利用AutoCAD應用程序對象的屬性,可以控制或查詢AutoCAD窗口界面的現實狀態。
acadapp.WindowState = acMax
acadapp.WindowState = acMin
acadapp.WindowState = acNorm
acadapp.Visible = False
上語句分別將AutoCAD窗口設置為最大、最小和一半狀態,最后一句將AutoCAD窗口設置為不可見。
利用Document對象屬性可以控制或查詢AutoCAD繪圖窗口的現實狀態。
acadapp.ActiveDocument.Width = acadapp.Width / 2
acadapp.ActiveDocument.Height = acadapp.Height / 2
acadapp.ActiveDocument.WindowState = acMax
acadapp.ActiveDocument.WindowState = acMin
acadapp.ActiveDocument.WindowState = acNorm
上語句設置AutoCAD繪圖窗口的寬高為AutoCAD窗口界面的一半,設置AutoCAD的繪圖窗口顯示為最大、最小、一般狀態。
使用VB的AppActivate語句,可以實現VB程序界面切換到AutoCAD界面,語法如下。
AppActivate title(,wait)
參數title表示所要激活的應用程序窗口標題,wait表示在激活另外一個應用程序之前調用的應用程序是否具有焦點,如果為false,即使調用的應用程序沒有焦點,也直接激活指定的應用程序如果為true,則調用的應用程序會在等到具有焦點后,才激活指定的應用程序。
將VB程序窗口切換到AutoCAD界面語句如下。
AppActivate AcadApp.Caption
執行該語句后,AutoCAD將獲得焦點,AutoCAD窗口界面的大小保持先前的狀態,若AutoCAD窗口界面先前的狀態不為最小化,VB窗口將最小化,屏幕顯示AutoCAD窗口界面,若要重新使VB獲得焦點并顯示VB界面,單擊屏幕下方的最小化VB窗口即可。