PlotType Пример

Sub Example_PlotType()
    'Этот пример читает и изменяет значение PlotType Layout.
    'Когда закончено, этот пример сбрасывает значение назад.
    
    Dim ACADLayout As ACADLayout
    Dim originalValue As Integer
    
    'Получите объект листа
    Set ACADLayout = ThisDrawing.ActiveLayout
    
    'Читайте и показывайте оригинальное значение
    originalValue = ACADLayout.PlotType
    MsgBox "Значение PlotType: " & originalValue

    'Измените параметр PlotType, переключая значение
    ACADLayout.PlotType = acExtents
    MsgBox "Параметр PlotType теперь: " & ACADLayout.PlotType

    'Сбросьте параметр назад к его оригинальному значению
    ACADLayout.PlotType = originalValue
    MsgBox "Параметр PlotType был сброшен назад к: " & originalValue
End Sub
Сайт управляется системой uCoz