Ahoj,
je to možné. Přes makro. Ale muselo by se vytvořit. Možná nebude těžký zítra prodiskutuju z j.Cinertem.Dám vědět.JP

Potřebuje při exportu dodržet i hierarchii nebo by vám stačil jen jednoduchý seznam setů a body? Nebo ještě jinak, jak byste si ten export představoval?
Samozřejmě to jde.

Ještě se zeptám s jak velkým stromem pracujete, jaký bude ca počet body a setů? (lze to udělat více způsoby (jeden je snadnější, ale u velkých stromů hodně pomalý, u druhého je to obráceně).

Máte nějaké zkušenosti s makry? Že bych vás jen popostrčil...

Projděte si sekci Makra a Programování. Není tam zatím všechno, co máme naplánované, ale nějaké základy se dají najít.
Já se pokusím pro vás něco hodně jednoduchého připravit.

Tak jsem pro vás vytvořil hodně jednoduché makro, které vyexportuje všechny Body a Geometrické sety do textového souboru. Není nijak ošetřené, soubor Export.txt se vytvoří na rootu disku D:. Pokud takový disk nemáte, změňte si ve zdrojovém kódu písmeno jednotky třeba na C: (11. řádek)
Pro správnou funkci musí být při spuštění otevřený samostatný Part.

Language="VBSCRIPT"



Dim oFileSystem As FileSystem

Dim oFile As File

Dim oTextStr As CATIATextStream

Dim oText As String

Dim oRootBodies As Bodies

Dim oRootHybridBodies As HybridBodies

Dim oPart As Part



Sub CATMain()

   Set oFileSystem = CATIA.FileSystem

   Set oFile = oFileSystem.CreateFile("d:	ree_export.txt", True)

   Set oTextStr = oFile.OpenAsTextStream("ForWriting")

   Set oPart = CATIA.ActiveDocument.Part

   Set oRootBodies = oPart.Bodies

   Set oRootHybridBodies = oPart.HybridBodies

   GetSets(oRootHybridBodies)

   For Each oBody In oRootBodies

      GetBodies(oBody)

   Next

   oTextStr.Write oText

   oTextStr.Close

End Sub



Sub GetBodies(oBody)

   Dim oHybridBodies As HybridBodies

   Dim oShapes As Shapes

   oText = oText & oBody.Name & chr(13)

   Set oHybridBodies = oBody.HybridBodies

   GetSets(oHybridBodies)

   Set oShapes = oBody.Shapes

   For Each oSubShape In oShapes

   On Error Resume Next

      Set oParentBody = oShapes.Item(i).Body

      If Err.Number <> 0 Then

      GetBodies(oParentBody)

      End If 

   Next

End Sub



Sub GetSets(oHybridBodies)

   For Each oSubHybridBody In oHybridBodies

      oText = oText & oSubHybridBody.Name & chr(13)

      GetSets(oSubHybridBody.HybridBodies)

   Next

End Sub

Já se ještě zeptám k čemu ten export potřebujete? Pokud by to byla užitečná utilita, dala by se potom ještě zdokonalit.

Ahoj,

chcem Vás poprosiť o update kódu alebo pre nejaký návod ako to prerobiť pre CATIA V5-6 2020 (R30). Veľmi by mi to macro pomohlo.

Som začiatočník v programovaní a mám chuť sa učiť.

Ďakujem za pomoc.