Vítejte !   Přihlášení | Registrace
Hlavní menu
CATIA fórum.cz
Novinky
Seriál CATIA
Obecně o CAD
Novinky ze světa DS
Makra pro CATIA V5
Diskuse
Vytvořit téma
Koncepty
Seznam oblíbených
Soukromé zprávy
Pravidla
Live CHAT
VIP žádost
Základy Catia
Ke stažení
Doporučujeme
Pracovní příležitosti
Reklama a kampaně
O fóru
Nápověda

Export stromu ze sestavy

Kompletní přehled příspěvků v tématu Export stromu ze sestavy řazený podle data jejich publikace na fóru.

UživatelPříspěvek
tom

Poslat zprávu | Profil
Datum: 12.11. 2012 | Zobrazeno: 3525x
Konfigurace CATIA:

Text dotazu:
Dobrý den,

potřeboval bych vyexportovat strom kusovníku z .catproduct nejlépe do formátu xml případně "šikovně" xls.

Pokud dám "save as" txt tak je programově složité přeformátovat do xml. Pokud jdu přes "Bill of material" tak mi nenačte všechny díly a to z důvodu že jsou někde na externím úložišti.

Předem děkuji za odpověď

Břeťa Doležal

Poslat zprávu | Profil
[#3455] | Publikováno: 12.11. 2012 - 14:36
tom

Poslat zprávu | Profil
[#3459] | Publikováno: 16.11. 2012 - 15:03
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


Uživatel nepřihlášen

Pro zobrazení obsahu stránky / provedení akce (vytvoření nového téma, napsání odpovědi do diskuse apod.) musíte být přihlášeni.