Sub Example_GetProjectFilePath()
    ' Этот пример находит текущую проектную информацию файла.
    
    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.Files.GetProjectFilePath(currProjName)
    End If
    If currProjPath = "" Then
        MsgBox "Нет никакого текущего проектного файла или пути.", , "GetProjectFilePath Пример"
    Else
        MsgBox "Текущий проектный путь к файлу: " & currProjPath, , "GetProjectFilePath Пример"
    End If
        
End Sub