Automatic Unsolved Identification

[ersin_karacoban]

Is there a code to automatically identify parts with changed names in the assembly?

[Andrii_Humeniuk]

Hi @ersin_karacoban . You can distinguish your documents using InternalName. Example code:

Dim oDoc As AssemblyDocument = ThisDoc.Document
For Each oRefDoc As Document In oDoc.AllReferencedDocuments
	MessageBox.Show(oRefDoc.InternalName, oRefDoc.DisplayName)
Next

InternalName - a unique static name of the object that does not change, but is set when the document is created.

[Michael.Navara]

What does it mean "parts with changed names in the assembly"? It is

• Renamed occurrence - Node text in assembly tree
• Changed DisplayName of document - Display name (root node in model tree) is different from file name
• Renamed file - missing reference
• ...

[ersin_karacoban]

• Renamed file - missing reference

[WCrihfield]

Hi @ersin_karacoban.  Maybe this example code will give you some ideas.  It is just for checking the top level (or direct) document and file references of a single document, as it is.  But a routine similar to this could be put into a separate custom Function, and called from the main routine, as it iterates through all levels of an assembly.  I am not sure what you were expecting as a result (or feedback) of running a rule like this, bit this example uses two List(Of String) type objects to keep track of only the ones that are 'missing', then shows you the list at the end of both loops.

Sub Main
	Dim oDoc As Document = ThisDoc.Document
	CheckDocuments :
	Dim oList1 As New List(Of String)
	Dim oRDDs As DocumentDescriptorsEnumerator = oDoc.ReferencedDocumentDescriptors
	If oRDDs.Count > 0 Then
		For Each oRDD As DocumentDescriptor In oRDDs
			'If oRDD.ReferenceSuppressed Then
			'If oRDD.ReferenceDisabled Then
			'If oRDD.ReferenceInternalNameDifferent Then
			If oRDD.ReferenceMissing Then
				oList1.Add(oRDD.FullDocumentName)
			End If
		Next 'oRefDoc
	End If
	If oList1.Count > 0 Then
		a = InputListBox("", oList1, "", "DocumentDescriptors Missing References")
	End If
	CheckFiles :
	Dim oList2 As New List(Of String)
	If oDoc.FileSaveCounter > 0 Then
		Dim oRFDs As FileDescriptorsEnumerator = oDoc.File.ReferencedFileDescriptors
		If oRFDs.Count > 0 Then
			For Each oRFD As FileDescriptor In oRFDs
				'If oRFD.ReferenceLocationDifferent Then
				'If oRFD.ReferenceDisabled Then
				'If oRFD.ReferenceInternalNameDifferent Then
				If oRFD.ReferenceMissing Then
					oList2.Add(oRFD.FullFileName)
				End If
			Next 'oRFD
		End If
	End If
	If oList2.Count > 0 Then
		a = InputListBox("", oList2, "", "FileDescriptors Missing References")
	End If
End Sub

If this solved your problem, or answered your question, please click ACCEPT SOLUTION .
Or, if this helped you, please click (LIKE or KUDOS) 👍.

[ersin_karacoban]

Actually, I know what I need to do but I can't code it. It will try to open all the parts in the same folder, click "no" when the "unresolved" warning appears, and try the next part. When this cycle is over, if the part with the "unresolved" warning is already in the folder, our problem will be solved.

[WCrihfield]

That sounds like you may just need to use Documents.OpenWithOptions method, instead of the Documents.Open method.  Then, just before you call that method to run, you create a new NameValueMap object, and make sure you add an entry into it with the Name = "SkipAllUnresolvedFiles", and the Value = True.  Then supply that NameValueMap as the second (of 3) input being requested by the method.