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