Как средствами SldWorks 2007 API установить пути к деталям в сборке?

[Evfarion 0]

Возникла задача на базе 1С:Архив 8.2 организовать хранилище конструкторской информации (о причинах данного полового извращения я, пожалуй, умолчу ).

Реализовал загрузку/выгрузку файлов в БД, но абсолютные пути к файлам деталей в сборке несколько мешают... Можно ли программно задать их так, чтобы сборка нашла свои ресурсы на новом месте?

[IFU 6]

Пример демонстрирует подмену контекстных ссылок в детали. Аналогично подменяются любые ссылки в любых файлах.

Раюотает в SolidWorks 2009.

Option Explicit

Const sReferencingDoc As String = "D:\Деталь1.SLDPRT"

Const sOldDoc As String = "D:\Сборка1.SLDASM"

Const sNewDoc As String = "D:\Копия Сборка1.SLDASM"

Sub main()

Set swApp = CreateObject("SldWorks.Application")

Set Part = swApp.ActiveDoc

If Part Is Nothing Then ' Check to see if a document

Call main

Else

MsgBox "Закройте все файлы для продолжения работы.", vbExclamation

End If

Sub main()

Dim swApp As SldWorks.SldWorks

Dim bRet As Boolean

Set swApp = CreateObject("SldWorks.Application")

bRet = swApp.ReplaceReferencedDocument(sReferencingDoc, sOldDoc, sNewDoc)

Debug.Assert bRet

End Sub

Получение массива ссылок производится посредством процедуры:

Depends = swApp.GetDocumentDependencies2(sReferencingDoc, traverse, search, addreadonlyinfo)

Далее - анализ полученного массива и подмена)) Этот способ я реализовывал в макросе копирования проекта.

[Evfarion 0]

Спасибо

[IFU 6]

Пожалуйсто