Sub Example_GetPlotDeviceNames()
    ' Этот пример получает текущую информацию графических устройств и
    ' затем показывает список имен графических устройств, имен носителей,
    ' ограниченных имен носителей и входы таблицы стиля печати.
    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