Sub Example_PlotHidden()
    'Этот пример перебирает коллекцию Layouts для текущего рисунка и 
    'показывает должны ли объекты листа быть скрыты в течение печати.
    'Затем переключает состояние PlotHidden для "Layout1" и восстановит
    'изображение состояния PlotHidden для каждого Листа.

    Dim Layouts As AcadLayouts, Layout As ACADLayout
    Dim msg As String
    Dim IsHidden As String
    
    'Получите коллекцию листов от объекта документа
    Set Layouts = ThisDrawing.Layouts
    
    GoSub DISPLAY
    
    'Переключите объект скрытое состояние для Layout1
    Layouts("Layout1").PlotHidden = Not (Layouts("Layout1").PlotHidden)
    
    'Покажите информацию
    GoSub DISPLAY
    
    Exit Sub
    
DISPLAY:
    msg = ""    ' Cообщение
    
    'Определите, скрыты ли объекты для каждого листа в течение печати
    For Each Layout In Layouts
        'Эти объекты скрыты?
        IsHidden = IIf(Layout.PlotHidden, " скрыты ", " не скрыты ")
        
        'Формат для отображения
        msg = msg & "Объекты для " & Layout.name & IsHidden & "в течение печати." & vbCrLf
    Next
    
    'Информация отображается
    MsgBox msg
    
    Return
End Sub

Сайт управляется системой uCoz