Sub Example_OpenSave()
    ' Этот пример получает ссылку к объекту OpenSave Preferences от объекта
    ' Application Preferences, и читает один из параметров OpenSave
    
    Dim ACADPref As AcadPreferencesOpenSave
    
    ' Получите ссылку к объекту OpenSave Preferences
    Set ACADPref = ThisDrawing.Application.preferences.OpenSave
    
    MsgBox "Теперь вы имеете доступ к свойствам и методам объекта OpenSave Preferences! "
    MsgBox "Параметр OpenSave TempFileExtension установлен в: " & ACADPref.TempFileExtension
    
    ' Освобождаем объект OpenSave Preferences
    Set ACADPref = Nothing
    MsgBox "Объект OpenSave Preferences освобождён! "
End Sub