Sub Example_OLEQuality()
    'Этот пример читает и изменяет значение параметра, которое управляет 
    'графическим качеством объектов OLE. Когда закончено, этот пример 
    'сбрасывает значение параметра назад к его оригинальному значению.
    
    Dim ACADPref As AcadPreferencesOutput
    Dim originalValue As Variant, DisplayValue As String
    
    'Получите объект параметров вывода
    Set ACADPref = ThisDrawing.Application.preferences.Output
    
    'Сохраните оригинальное значение
    originalValue = ACADPref.OLEQuality
    
    'Читайте и показывайте оригинальное значение
    GoSub GETVALUE
    MsgBox "Параметр OLEQuality: " & DisplayValue

    'Измените параметр OLEQuality, изменяя его на Фотографическое Высокое качество
    ACADPref.OLEQuality = acOQHighPhoto
    GoSub GETVALUE
    MsgBox "Параметр OLEQuality: " & DisplayValue

    'Сбросьте параметр назад к его оригинальному значению
    '
    '* Примечание: Прокомментируйте этот последний раздел, чтобы оставить
    ' изменение этому параметру
    ACADPref.OLEQuality = originalValue
    GoSub GETVALUE
    MsgBox "Параметр OLEQuality был сброшен назад к: " & DisplayValue

    Exit Sub
    
GETVALUE:
    'Преобразуйте значение этой установки к значимой текстовой строке
    DisplayValue = ACADPref.OLEQuality
    Select Case DisplayValue
        Case acOQLineArt: DisplayValue = "Line Art"
        Case acOQText: DisplayValue = "Text"
        Case acOQGraphics: DisplayValue = "Graphics"
        Case acOQPhoto: DisplayValue = "Photo"
        Case acOQHighPhoto: DisplayValue = "High Photo"
    End Select
    
    Return

End Sub

Сайт управляется системой uCoz