Sub Example_WorkspacePath()
    'Этот пример читает и изменяет значение параметра, которое управляет 
    'путем для файла рабочего пространства базы данных.
    'Когда закончено, этот пример сбрасывает значение параметра.
    
    Dim ACADPref As AcadPreferencesFiles
    Dim originalValue As Variant, newValue As Variant
    
    'Получите объект параметров файлов
    Set ACADPref = ThisDrawing.Application.preferences.Files
    
    'Читайте и показывайте оригинальное значение
    originalValue = ACADPref.WorkspacePath
    MsgBox "Параметр WorkspacePath: " & originalValue

    'Измените параметр WorkspacePath, изменяя путь на "C: \"
    ACADPref.WorkspacePath = "C:\"
    newValue = ACADPref.WorkspacePath
    MsgBox "Параметр WorkspacePath теперь: " & newValue

    'Сбросьте параметр назад к его оригинальному значению
    '
    '* Примечание: Прокомментируйте этот последний раздел, чтобы оставить
    ' изменение этому параметру
    ACADPref.WorkspacePath = originalValue
    MsgBox "Параметр WorkspacePath был сброшен назад к: " & originalValue
End Sub