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

    'Измените параметр PlotOrigin, переключая значение
    newValue(0) = originalValue(0) + 20
    newValue(1) = originalValue(1) - 20
    ACADLayout.PlotOrigin = newValue
    MsgBox "Значение PlotOrigin теперь: " & newValue(0) & " ," & newValue(1)

    'Сбросьте параметр назад к его оригинальному значению
    ACADLayout.PlotOrigin = originalValue
    MsgBox "Значение PlotOrigin возвращено к: " & originalValue(0) & " ," & originalValue(1)
End Sub