Sub Example_GetCanonicalMediaNames()
    ' Этот пример получает текущую графическую информацию устройства и
    ' затем показывает список графических имен устройства, имен носителей и
    ' входы таблицы стилей печати.
    Dim Layout As ACADLayout
    Set Layout = ThisDrawing.ModelSpace.Layout
    
    ' Обновите текущую графическую информацию для этого сеанса.
    Layout.RefreshPlotDeviceInfo
    
    ' Перечислите все допустимые имена устройства для системы
    Dim plotDevices As Variant
    plotDevices = Layout.GetPlotDeviceNames()
    
    Dim x As Integer
    For x = LBound(plotDevices) To UBound(plotDevices)
        MsgBox plotDevices(x)
    Next
    
    ' Перечислите все имена носителей и их ограниченную версию
    Dim mediaNames As Variant
    mediaNames = Layout.GetCanonicalMediaNames()
    
    For x = LBound(mediaNames) To UBound(mediaNames)
        MsgBox mediaNames(x)
        MsgBox Layout.GetLocaleMediaName(mediaNames(x))
    Next
    
    ' Перечислите все входы в таблице графического стиля
    Dim styleNames As Variant
    styleNames = Layout.GetPlotStyleTableNames()
    
    For x = LBound(styleNames) To UBound(styleNames)
        MsgBox styleNames(x)
    Next
    
End Sub