Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.

Got this working!

 

Final code below:

 

Dim oModelDoc As Document
Dim Face1 As Object
Dim Face2 As Object

For i = 1 To oAssDoc.ReferencedDocuments.Count

	oModelDoc = oAssDoc.ReferencedDocuments(i)
	
	If oModelDoc.AttributeManager.FindObjects("*", "*", "Kante0").Count > 0 Then
	
		Logger.Debug("Found Model: " & oModelDoc.DisplayName())
		
		If oModelDoc.DisplayName() = "93400005.ipt" Then
			
			Face1 = oModelDoc.AttributeManager.FindObjects("*", "*", "Kante0").Item(1)
		
			'Logger.Debug("Found Face 1: " & Face1.InternalName())
			
		End If			
	
	End If
	
	If oModelDoc.AttributeManager.FindObjects("*", "*", "Kante1").Count > 0 Then
	
		If oModelDoc.DisplayName() = "93400005.ipt" Then
			
			Face2 = oModelDoc.AttributeManager.FindObjects("*", "*", "Kante1").Item(1)
			
		'	Logger.Debug("Found Face 2: " & Face2.InternalName())
	
		End If	
	
	End If
	
Next