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

    MsgBox msg
End Sub