ilogic change source of linked ipt

[Darrell.johnson]

Hi everybody,

i found this post:

https://forums.autodesk.com/t5/inventor-customization/ilogic-change-source-of-embeded-excel-sheet/m-...

Is it possible to change the source of linked inventor parts (.ipt) in a simialar way?

[machiel.veldkamp]

Do you mean derived components?

Try this:

Dim oDoc as Document
oDoc = ThisDoc.Document
Dim oRefFile As FileDescriptor
Dim oOrigRefName As Object
Dim selectedfile As String

For Each oRefFile In oDoc.File.ReferencedFileDescriptors
	'get the full file path to the original internal ref3erences
	oOrigRefName = oRefFile.FullFileName

	'present a File Selection dialog
	Dim oFileDlg As Inventor.FileDialog = Nothing
	InventorVb.Application.CreateFileDialog(oFileDlg)
	oFileDlg.InitialDirectory = oOrigRefName
	oFileDlg.CancelError = True
	On Error Resume Next
	oFileDlg.ShowOpen()
	If Err.Number <> 0 Then
		MessageBox.Show("1", "Title")

		Return
	ElseIf oFileDlg.FileName <> "" Then
		

		selectedfile = oFileDlg.FileName
		MessageBox.Show(selectedfile, "Title")
	End If

	'replace the reference
	oRefFile.ReplaceReference(selectedfile)
	
	InventorVb.DocumentUpdate()
	oOrigRefName = ""
Next

iLogicVb.UpdateWhenDone = True

[Darrell.johnson]

I want to change the marked path via iLogic.

[Sergio.D.Suárez · Accepted solution]

Hi, is this what you need?

Dim oFileDlg As Inventor.FileDialog = Nothing
InventorVb.Application.CreateFileDialog(oFileDlg)
oFileDlg.Filter = "Inventor Files (*.iam;*.ipt)|*.iam;*.ipt|All Files (*.*)|*.*"
oFileDlg.DialogTitle = "Select a File"
oFileDlg.InitialDirectory = ThisDoc.Path
oFileDlg.CancelError = True
On Error Resume Next
oFileDlg.ShowOpen()
If oFileDlg.FileName = "" Then Exit Sub
selectedfile = oFileDlg.FileName

 doc = ThisDoc.Document
 Dim oFD As FileDescriptor
 oFD = doc.ReferencedFileDescriptors(1).DocumentDescriptor.ReferencedFileDescriptor
 oFD.ReplaceReference(selectedfile)
 doc.Update()

 I hope it helps solve your problem. regards

[Darrell.johnson]

This is exactly what I needed. Thank you very much 

---

---