---

Hallo,
Ich habe eine Funktion erstellt um den Dateinamen mit Pfad, den Instancenamen und den Partnamen von allen Products/Parts in einem Product miteinander zu vergleichen. An den Dateinamen komme ich jedoch nicht heran. Bisher habe ich nur die Möglichkeit diesem vom ActivDocument zu lesen. Hat jemand eine Idee wie ich den Code verändern muss.

Code:

Function TreeLevel(iProduct As Product, j As Integer, dSubString As String) As String

Dim oSubProducts As Product
Dim i As Integer
Dim oLevel as String
Dim oFullName As PartDocument
 
For i = 1 To iProduct.Products.Count
        Set oSubProducts = iProduct.Products.Item(i)
        oSubProducts.ActivateDefaultShape      'set the node to active
        oSubProducts.ApplyWorkMode DESIGN_MODE 'load the componet into the design mode
   
dSubString = dSubString & " " & oSubProducts.PartNumber

'Set oSubProducts =  Catia.ActiveDocument
'MsgBox oSubProducts.FullName

   

        j = j+1
   
If iProduct.Products.Count > 0 then

  oLevel = TreeLevel(oSubProducts, j, dSubString)

End If
   
Next
     
TreeLevel = dSubString
     
End Function

Danke Jan
   

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Jan,

Dateiname = oSubProducts.ReferenceProduct.Parent.FullName

Gruss
Steffen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Steffen,
VIELEN DANK!
Jan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP