VB中对AutoCAD控制窗口界面

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