Seznam příspěvků uživatele
V tabulce jsou všechny příspěvky uživatele tom (giggler) řazené podle témat. Kliknutím na název
téma se zobrazíte celou diskusi.
Téma | Založeno | Odpověď |
Export stromu ze sestavy |
16.11. 2012 |
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
|