Sub Example_StandardScale()
    'Этот пример обратится к активному листу текущего рисунка 
    'и перечислит стандартный масштаб для того Листа.
    'Затем изменит стандартный масштаб для листа, и наконец сбросит
    'масштаб назад к его оригинальному значению.

    Dim Layout As ACADLayout
    Dim currScale As Integer
    
    'Получите activeLayout
    Set Layout = ThisDrawing.ActiveLayout
    
    'Найдите текущий стандартный масштаб
    currScale = Layout.StandardScale
    MsgBox "Текущий стандартный масштаб: " & Layout.StandardScale
    
    'Измените стандартный масштаб на 100:1
    Layout.StandardScale = ac100_1
    MsgBox "Новый стандартный масштаб: " & Layout.StandardScale
    
    'Сбросьте оригинальный стандартный масштаб
    Layout.StandardScale = currScale
    MsgBox "Новый стандартный масштаб: " & Layout.StandardScale
    
End Sub