Diky, našel jsem tam téměř vše. Kod jsem nějak osekal ale nevim moc jak funguje. Tak sem tam nechal asi víc než je potřeba. Potřeboval bych z toho stromu získat co nejvíce informací. Zatím jsem dostal jen *.Name jako jméno. Ostatní nevím.

Vše zapisuji do txt. Stromovou strukturu ve xml chci vytvářet až budu vědět že ty informace dostanu. Protože mi tam vyvztal další problem a to že odkazy na soubory *.catpart které jsou na discích mimo, mi to nenačte.

Děkuji za rady.

Sub CATMain()

Dim acDoc

Dim acProd

Set acDoc = CATIA.ActiveDocument

Set acProd = acDoc.Product



acProd.ApplyWorkMode DESIGN_MODE

WalkThroughTree acProd

End Sub

Sub WalkThroughTree(oParent)

Dim iProduct

Dim oChild

For iProduct = 1 To oParent.Products.Count

Set oChild = oParent.Products.Item(iProduct)

If oChild.Parameters.Count <> 0 Then

If oChild.Parameters.Item(oChild.Parameters.Count).ValueAsString = "true" Then

tmp = Split(oChild.Name, ".")



a = oChild.Name

ff = FreeFile

Open "C:\Profiles\Desktop\strom.txt" For Input As #ff

povodnyText = Input(LOF(ff), #ff)

Close #ff

ff = FreeFile

Open "C:\Profiles\Desktop\strom.txt" For Output As #ff

Print #ff, povodnyText & vbNewLine

Print #ff, a

Close #ff





oChild.Name = oChild.PartNumber & "." & tmp(UBound(tmp))

WalkThroughTree oChild.ReferenceProduct

End If

End If

Next

End Sub