Dim options As New SaveAsOptions()
Dim wssao As New WorksharingSaveAsOptions()
' Сохранение локальной версии проекта
wssao.SaveAsCentral = False
options.SetWorksharingOptions(wssao)
' Cохранение проекта
myCD.Application.ActiveUIDocument.Document.SaveAs(savingFilePath.Replace(".rvt", "_saved.rvt"), options)
Dim myModelPath As ModelPath = Nothing
Try
myModelPath = myCD.Application.ActiveUIDocument.Document.GetWorksharingCentralModelPath()
Catch ex As Exception
myModelPath = Nothing
End Try
'myCD.Application.ActiveUIDocument.Document.SaveAs(savingFilePath) - простое сохранение проекта!
' 4. Четвёртый этап - открытие пустого проекта, чтобы сделать неактивным текущий проект
myCD.Application.OpenAndActivateDocument(RFA)
' 5. Пятый этап - закрытие неактивного проекта
Dim App As Autodesk.Revit.UI.UIApplication = myCD.Application()
Dim UIDoc As UIDocument = App.ActiveUIDocument
Dim Doc As Document = App.ActiveUIDocument.Document
' Получение списка открытых документов
Dim myDocSet As DocumentSet = Doc.Application.Documents
For Each mydocset_Single As Document In myDocSet
If mydocset_Single.PathName = savingFilePath.Replace(".rvt", "_saved.rvt") Then
Try
mydocset_Single.Close(False)
' MsgBox("Файл закрыт!")
Catch ex As Exception
End Try
End If
Next
' 6. Шестой этап - открытие сохраненного проекта в режиме отключения от файла хранилища
Dim openOptions As New OpenOptions()
openOptions.DetachFromCentralOption = DetachFromCentralOption.DetachAndDiscardWorksets
Dim appRVT As Autodesk.Revit.ApplicationServices.Application = App.Application
'Process.Start(savingFilePath.Replace(".rvt", "_saved.rvt"))
Dim openedDoc As Document = appRVT.OpenDocumentFile(myModelPath, openOptions) '.OpenAndActivateDocument(myModelPath, openOptions, True) ' Здесь сбой!!!