Sub Example_IsQuiescent()
    ' Этот пример получает объект acadState и выясняет, 
    ' находится ли AutoCAD в статическом состоянии.
    Dim State As AcadState
    Set State = GetAcadState
    If State.IsQuiescent Then
        MsgBox "AutoCAD является статическим."
    Else
        MsgBox "AutoCAD не является статическим."
    End If
End Sub