How to recognize if two occurrences are the same virtual component?

[CattabianiI]

What I refer to is when you create a pattern of virtual component or copy and paste a virtual component.
Comparing the ComponentDefinition property of the occurrences  seems to work (check the code below), is there something more specific inside VirtualComponentDefinition object that I can check?

Dim oSS As SelectSet
oSS = ThisApplication.ActiveDocument.SelectSet

Dim occ1 As ComponentOccurrence = oSS.Item(1)
Dim occ2 As ComponentOccurrence = oSS.Item(2)
Dim cmpDef1 As VirtualComponentDefinition = occ1.Definition 
Dim cmpDef2 As VirtualComponentDefinition = occ2.Definition 

Logger.Info((cmpDef1 Is cmpDef2).ToString())

Checking the name not a good idea because it can change per occurrence.
Checking the part number or something like that not ok because I could have set the same part number for occurrences of different virtual components.

[yuzeaa]

ComponentOccurrence.Definition.Document.FullDocumentName?

[CattabianiI]

What value do you expect on a virtual component? 🙂
Nope btw, that's the assembly document that contains the virtual occurrence.

[Frederick_Law · Accepted solution]

Try DisplayName:

https://help.autodesk.com/view/INVNTOR/2023/ENU/?guid=GUID-1790E2E5-4082-4E95-AA1B-28CAC5DF05D0

[CattabianiI]

That's it! 
And it's not possible to have different VirtualComponentDefinition with same DisplayName: perfect!
Thank you!

Dim oSS As SelectSet
oSS = ThisApplication.ActiveDocument.SelectSet

Dim occ1 As ComponentOccurrence = oSS.Item(1)
Dim occ2 As ComponentOccurrence = oSS.Item(2)
Dim cmpDef1 As VirtualComponentDefinition = occ1.Definition
Dim cmpDef2 As VirtualComponentDefinition = occ2.Definition



If cmpDef1.DisplayName = cmpDef2.DisplayName Then
	Logger.Info("Selected occs refer to the same virtual component")
Else
	Logger.Info("Selected occs do not refer to the same virtual component")
	
	Logger.Info(cmpDef1.DisplayName)
	Logger.Info(cmpDef2.DisplayName)
	
	cmpDef1.DisplayName = "foo"
	Try
		cmpDef2.DisplayName = "foo"
	Catch ex As Exception
		Logger.Info("Cannot set the same name on different virtual components")
	End Try
End If