Access Parent to set reference

[Leonardo_Czuy]

I am trying to change the filenames without losing references, and when I have one assembly within another assembly, the file references get lost.

On line 22, if its parent is different from 'asmDoc,' take its parent to set the reference, but I am not able to access the parent from oDoc.

	'set a reference to the assembly component definintion
	Dim asmDoc As AssemblyDocument = ThisApplication.ActiveDocument
	Dim oDoc As Inventor.Document
	
	'Store referenced documents properties
	For Each oDoc In asmDoc.AllReferencedDocuments
		Dim fileName As String = System.IO.Path.GetFileNameWithoutExtension(oDoc.FullFileName)
		Dim fileType As String = System.IO.Path.GetExtension(oDoc.FullFileName)
		
		Dim DrawCode As String
		DrawCode = FindObject(fileName, fileType)
		
		If DrawCode Is Nothing Then Continue For
		
		'iProperties.Value(oDoc.DisplayName, "Custom", "Codigo Antigo") = fileName
		
		Dim directoryPath As String = System.IO.Path.GetDirectoryName(oDoc.FullFileName)
		Dim newFilePath As String = System.IO.Path.Combine(directoryPath, DrawCode)
		Dim oldFilePath As String = oDoc.FullFileName


		If oDoc.Parent.Name <> asmDoc.DisplayName 

		' Renomeia o arquivo
		Try
			oDoc.SaveAs(newFilePath, False)
			asmDoc.File.ReferencedFileDescriptors.Item(oldFilePath).ReplaceReference(newFilePath)
        Catch ex As Exception
			errorRename.add(fileName)
        End Try
		
		' Exclui o arquivo antigo
		Try
			System.IO.File.Delete(oldFilePath)
		Catch ex As Exception
			errorRemove.add(fileName)
		End Try
	Next

[WCrihfield · Accepted solution]

Hi @Leonardo_Czuy.  I am not sure, but it sounds like you changed the name of one or more of the files that the components you have a red box around are referencing.  And now you want to replace those components or file references within the parent level assemblies.  Does that sound correct?  If so, then you will need to use a different primary path than using AssemblyDocument.AllReferencedDocuments.  I would recommend one of two routes.

• A recursive iteration of the assembly components starting from the top, and when a component (ComponentOccurrence) is found which is referencing the old file name, use its ComponentOccurrence.Replace2 method to replace it and specify the full document name of the correct file.
• A recursive iteration of all the FileDescriptors starting from the top, and when one if found for the file (before it was renamed), use its FileDescriptor.ReplaceReference method to specify the correct file.
  • AssemblyDocument.File.ReferencedFileDescriptors - those are the ones being directly referenced by the main assembly.
  • Then each FileDescriptor object has a ReferencedFile property which provides access to the actual Inventor.File object, which can again be used to step down to its File.ReferencedFileDescriptors.

[Leonardo_Czuy]

Hello @WCrihfield, yes you are correct. I will try this. Thanks for help.