控制“应用程序”窗口

数据库系统配置

控制 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