01-10-2023
02:49 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
01-10-2023
02:49 AM
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