CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2023 开发者帮助 › 查看内容

AutoCAD 2023 开发者帮助

WindowState 属性（ActiveX）

2024-5-18 18:58| 发布者: admin| 查看: 280| 评论: 0|原作者: admin|来自: AutoCAD

指定应用程序或文档窗口的状态。

支持的平台：仅限 Windows

签名

VBA：

object.WindowState

对象

类型：应用程序，文档

此属性应用于的对象。

属性值

只读：不

类型：枚举acWindowState

acMin：窗口最小化。
acMax：窗口最大化。
acNorm：窗口正常（既不最小化也不最大）。

言论

没有其他评论。

例子

VBA：

Sub Example_WindowState()
    ' This example reads and displays the current window state of the AutoCAD application.

    Dim CurrentState As String
    
    ' Use the "WindowState" variable to determine the window state of AutoCAD
    Select Case WindowState
        Case acMin: CurrentState = "Minimized"
        Case acMax: CurrentState = "Maximized"
        Case acNorm: CurrentState = "Normal Size"
    End Select

    ' Display window state
    MsgBox "AutoCAD is now: " & CurrentState
End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_WindowState()
    ;; This example reads and displays the current window state of the AutoCAD application.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    
    ;; Use the "WindowState" variable to determine the window state of AutoCAD
    (setq CurrentState (cond 
                           ((= (vla-get-WindowState acadObj) acMin) "Minimized")
                           ((= (vla-get-WindowState acadObj) acMax) "Maximized")
                           ((= (vla-get-WindowState acadObj) acNorm) "Normal Size")
                       ))

    ;; Display window state
    (alert (strcat "AutoCAD is now: " CurrentState))
)