Comando Vba per cambiare par collegato a dft

Ciao a tutti,

sono alla ricerca del metodo per sostituire il par collegato ad un dft.

Ho creato una macro per la ricerca di disegni (da un elenco in Excel) , trovato il file dft vorrei fare un salva con nome del dft e del par collegandoli in modo appropriato.

Grazie per la collaborazione.

Ipotizzando con 'objDft' il draft correntemente aperto, devi agire sui 'ModelLinks' ed usare il metodo 'ChangeSource' su ognuno di essi; esempio:

objDft.ModelLinks.Item(0).ChangeSource(xxx)

Grazie per la risposta ,

alla fine ieri guardando in rete ho scritto il codice utilizzando l'applicazione Revision Manager. Modificando un codice trovato sul sito di Solid Edge.

Come metodo mi sembra più veloce rispetto ad aprire tutti i file in Solidedge , non sono riuscito tuttavia contestualmente a modificare anche i nomi dei par e del dft.

Ho provato sull'SDK ma non sono riuscito a capire come si fa..

Idee??

Grazie mille



Sub Copiadft(ByVal indirizzodft As String, ByVal codice As String, ByVal indirizzo_copia As String)
Dim nFileCount As Long
Dim listOfInputFileNames(1) As Variant
Dim listOfInputActions(1) As Variant
Dim listOfNewFileNames(1) As Variant
Dim newFilePathForAllFiles As Variant

Set revMgrApp = CreateObject("RevisionManager.Application")
Set revMgrDoc = revMgrApp.OpenFileInRevisionManager(indirizzodft)
'Set revMgrDoc = revMgrApp.OpenFileInRevisionManager(sourceFileFolderName & sourceFileFileName)
'Set revMgrDoc = revMgrApp.OpenFileInRevisionManager(indirizzodft)


nFileCount = 1
listOfInputFileNames(1) = indirizzodft
listOfInputActions(1) = CopyAllAction
listOfNewFileNames(1) = codice
newFilePathForAllFiles = indirizzo_copia & codice

revMgrApp.SetActionForAllFilesInRevisionManager CopyAllAction, newFilePathForAllFiles
revMgrApp.SetActionInRevisionManager nFileCount, listOfInputFileNames, listOfInputActions, listOfNewFileNames, newFilePathForAllFiles

MsgBox revMgrApp.PerformActionInRevisionManager, vbOKOnly

revMgrApp.Quit

End Sub

In questo caso devi usare il metodo 'RedefineLinks', vedi qui