Sub Example_SetProjectFilePath()
    'Этот пример находит текущую проектную информацию файла, изменяет её
    ' и наконец сбрасывает информацию назад к оригинальным значениям.
    
    Dim preferences As AcadPreferences
    Set preferences = ThisDrawing.Application.preferences
    
    'Получите текущую проектную информацию файла
    Dim currProjPath As String
    Dim currProjName As Variant
    currProjName = ThisDrawing.GetVariable("PROJECTNAME")
    If currProjName <> "" Then
        currProjPath = preferences.GetProjectFilePath(currProjName)
    End If
    If currProjPath = "" Then
        MsgBox "Нет никакого текущего проектного файла или пути.", , "SetProjectFilePath Пример"
    Else
        MsgBox "Текущий проектный путь к файлу: " & currProjPath, , "SetProjectFilePath Пример"
        'Набор новая проектная информация файла.
        'Диск/путь измените по мере необходимости, чтобы соответствовать вашей системе
        Dim newProjPath As String
        newProjPath = "C:/AutoCAD/"
        
        preferences.SetProjectFilePath currProjName, newProjPath
        MsgBox "Новый проектный путь к файлу: " & newProjPath, , "GetProjectFilePath Пример"
        
        'Сбросьте проектную информацию файла
        preferences.SetProjectFilePath currProjName, currProjPath
        MsgBox "Проектный путь к файлу был сброшен к: " & currProjPath, , "GetProjectFilePath Пример"
    End If
    
End Sub