Sub Example_AutoSavePath()
    ' Этот пример возвращает текущую установку AutoSavePath. Затем
    ' изменяет значение, и наконец сбрасывает это значение назад к
    ' первоначальной установке.
    
    Dim preferences As AcadPreferences
    Dim currAutoSavePath As String
    Dim newAutoSavePath As String
    
    Set preferences = ThisDrawing.Application.preferences
    
    ' Отыщите текущее значение AutoSavePath
    currAutoSavePath = preferences.Files.AutoSavePath
    If currAutoSavePath = "" Then
        MsgBox "AutoSavePath в настоящее время не установлен.", vbInformation, "AutoSavePath Пример"
    Else
        MsgBox "Текущее значение для AutoSavePath " & currAutoSavePath, vbInformation, "AutoSavePath Пример"
    End If
    
    ' Измените значение для AutoSavePath
    newAutoSavePath = "C:\AutoCAD\"
    preferences.Files.AutoSavePath = newAutoSavePath
    MsgBox "Новое значение для AutoSavePath " & newAutoSavePath, vbInformation, "AutoSavePath Пример"
    
    ' Сбросьте AutoSavePath к его первоначальному значению
    preferences.Files.AutoSavePath = currAutoSavePath
    If currAutoSavePath = "" Then
        MsgBox "AutoSavePath сброшен к Пустому указателю.", vbInformation, "AutoSavePath 
Пример"
    Else
        MsgBox "Значение AutoSavePath сброшено к " & currAutoSavePath, vbInformation, "AutoSavePath Пример"
    End If
End Sub