Sub Example_DisplayLocked()
    ' Этот пример просматривает пространство листа текущего рисунка
    ' Viewports и показывает, действительно ли любой из них блокирован.
    
    Dim pviewportObj As Object
    Dim msg As String, ClippedState As String
   
    ' Удостоверьтесь, что этот рисунок содержит области просмотра
    ' пространства листа перед продолжением
    If ThisDrawing.PaperSpace.count = 0 Then
        MsgBox "Нет никаких областей просмотра пространства листа в текущем рисунке."
        Exit Sub
    End If
    
    ' Пройдите каждый объект области просмотра в пространстве листа
    ' рисунка и определите, действительно ли он блокирован
    
    For Each pviewportObj In ThisDrawing.PaperSpace
        
        ' Определите, является ли он областью просмотра пространства листа
        If TypeName(pviewportObj) = "IAcadPViewport" Then
            
            ' Определите, блокирована ли эта область просмотра пространства листа
            ClippedState = IIf(pviewportObj.Clipped, " is locked", " is not locked")
            msg = msg & "PViewport ID " & pviewportObj.objectID & ClippedState & vbCrLf
        
        End If
    
    Next

    ' Отображение блокированное состояние пространства листа Viewports
    MsgBox msg
End Sub