Sub Example_CategoryName()
    'Этот пример демонстрирует свойства CategoryName, LayoutId, LayerState 
    'и HasVpAssociation объекта View
    
    Dim oLSM As AcadLayerStateManager

    'Обратитесь к объекту LayerStateManager
    Set oLSM = ThisDrawing.Application. _
       GetInterfaceObject("AutoCAD.AcadLayerStateManager.16")

    'Свяжите базу данных текущего рисунка с LayerStateManager
    oLSM.SetDatabase ThisDrawing.Database

    oLSM.Save "ColorLinetype", acLsColor + acLsLineType
    
    'Создайте вид "New_View" в текущем рисунке
    Dim viewObj As IAcadView2
   
    'Добавьте вид к коллекции вида
    Set viewObj = ThisDrawing.Views.Add("New_View")
    MsgBox viewObj.Name & " был добавлен." & vbCrLf & _
           "Высота: " & viewObj.Height & vbCrLf & _
           "Ширина: " & viewObj.Width, , "Example"
    
    viewObj.CategoryName = "My View Category"
    viewObj.LayerState = "My Layer State"
    
    viewObj.LayoutId = ThisDrawing.Layouts(1).ObjectID
        
    MsgBox viewObj.CategoryName & " является именем Категории." & vbCrLf & _
            viewObj.LayoutId & " является ID Листа." & vbCrLf & _
            viewObj.LayerState & " является состоянием Слоя."
   
    If viewObj.HasVpAssociation = True Then
        MsgBox "Вид связан с областью просмотра пространства листа."
    Else
        MsgBox "Вид не связан с областью просмотра пространства листа."
    
   End If
End Sub