Sub Example_UseStandardScale()
    'Этот пример обратится к коллекции Layouts для текущего рисунка и 
    'перечислит состояние UseStandardScale для каждого Layout.

    Dim Layouts As AcadLayouts, Layout As ACADLayout
    Dim msg As String
    
    'Получите коллекцию листов от объекта документа
    Set Layouts = ThisDrawing.Layouts
    
    msg = ""
    
    'Получите информацию UseStandardScale каждого листа в этом рисунке
    For Each Layout In Layouts
        If Layout.UseStandardScale Then
            msg = msg & Layout.name & " использует стандартный масштаб." & vbCrLf
        Else
            msg = msg & Layout.name & " использует выбранный масштаб." & vbCrLf
        End If
    Next
    
    'Покажите информацию
    MsgBox msg
End Sub