窗口界面控制包括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窗口即可。