数据库系统配置
控制 AutoCAD 环境
控制“图形”窗口
控制“应用程序”窗口功能使开发人员可以灵活地创建既高效又智能的应用程序。有些时候，用户的应用程序有必要将 AutoCAD 窗口最小化，例如此时代码正在其他应用程序（如 Excel）中运行任务的时候。此外，用户通常希望在执行诸如提示用户输入之类的任务之前，验证 AutoCAD 窗口的状态。
使用 Application 对象的方法和特性可以更改“应用程序”窗口的位置、大小和可见性。另外，还可以使用 WindowState 特性来最小化、最大化“应用程序”窗口以及检查窗口的当前状态。
更改“应用程序”窗口的位置和大小
本例使用 WindowTop、WindowLeft、Width 和 Height 特性将 AutoCAD“应用程序”窗口放在屏幕的左上角，并将其大小调整为宽 400 像素、高 400 像素。
Sub Ch3_PositionApplicationWindow()
ThisDrawing.Application.WindowTop = 0
ThisDrawing.Application.WindowLeft = 0
ThisDrawing.Application.width = 400
ThisDrawing.Application.height = 400
End Sub
最大化“应用程序”窗口
Sub Ch3_MaximizeApplicationWindow()
ThisDrawing.Application.WindowState = acMax
End Sub
最小化“应用程序”窗口
Sub Ch3_MinimizeApplicationWindow()
ThisDrawing.Application.WindowState = acMin
End Sub
找出“应用程序”窗口的当前状态
本例查询“应用程序”窗口的状态，并将该状态以消息框的形式显示给用户。
Sub Ch3_CurrentWindowState()
Dim CurrWindowState As Integer
Dim msg As String
CurrWindowState = ThisDrawing.Application.WindowState
msg = Choose(CurrWindowState, "normal", _
"minimized", "maximized")
MsgBox "The application window is " + msg
End Sub
使“应用程序”窗口不可见
下面的代码使用 Visible 特性使 AutoCAD 应用程序对最终用户不可见。
Sub Ch3_HideWindowState()
ThisDrawing.Application.Visible = False
End Sub