Sub Example_SaveAsType()
    'Этот пример читает и изменяет значение параметра, которое управляет 
    'типом рисунка.
    'Когда закончено, этот пример сбрасывает значение параметра назад к его
    'оригинальному значению.
    
    Dim ACADPref As AcadPreferencesOpenSave
    Dim originalValue As Variant, DisplayValue As String
    
    'Получите объект параметров OpenSave
    Set ACADPref = ThisDrawing.Application.Preferences.OpenSave
    
    'Текущая установка
    originalValue = ACADPref.SaveAsType
    
    'Читайте и показывайте оригинальное значение
    GoSub GETVALUE
    MsgBox "Параметр SaveAsType: " & DisplayValue

    'Измените параметр SaveAsType, изменяя его на AutoCAD 2000 DWG
    ACADPref.SaveAsType = ac2000_dwg
    GoSub GETVALUE
    MsgBox "Параметр SaveAsType теперь: " & DisplayValue

    'Сбросьте параметр назад к его оригинальному значению
    '
    'Прокомментируйте этот последний раздел, чтобы оставить изменение 
    ' параметру
    ACADPref.SaveAsType = originalValue
    
    GoSub GETVALUE
    MsgBox "Параметр SaveAsType был сброшен назад к: " & DisplayValue
    
    Exit Sub
    
GETVALUE:
    'Преобразуйте значение этой установки к значимой текстовой строке
    DisplayValue = ACADPref.SaveAsType
    Select Case DisplayValue
        Case ac2000_dwg:  DisplayValue = "AutoCAD 2000 DWG (*.dwg)"
        Case ac2000_dxf:  DisplayValue = "AutoCAD 2000 DXF (*.dxf)"
        Case ac2000_Template: DisplayValue = "AutoCAD 2000 Drawing Template File (*.dwt)"
        Case ac2004_dwg:  DisplayValue = "AutoCAD 2004 DWG (*.dwg)"
        Case ac2004_dxf:  DisplayValue = "AutoCAD 2004 DXF (*.dxf)"
        Case ac2004_Template: DisplayValue = "AutoCAD 2004 Drawing Template File (*.dwt)"
        Case acNative:   DisplayValue = "Последний выпуск"
        Case acUnknown:  DisplayValue = "Тип рисунка неизвестен"
    End Select
    
    Return
End Sub

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