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

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

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