Saving the product tree of a CATpart into a txt file

Question

I need to extract the product tree of the CATpart from CATIA. I want to do this using macro's and I have code that works for CATproducts:

Sub CATMain()
Dim productDocument1
Set productDocument1 = CATIA.ActiveDocument
'Input box to select txt or xls
Dim exportFormat
exportFormat = "txt" 
'Input box to enter name of file
Dim partName
partName = Inputbox ("Please enter the file name.")
'Input box to enter file location
Dim oLocation
oLocation = "C:\Users\xvreeswijk\Documents\Programs\Input\"
productDocument1.ExportData oLocation & partName & "." & _
exportFormat,"txt"
End Sub

But when I want to use this for a CATpart I get the error: The method of ExportData failed. Is this possible using vba macro's or is another way easier?

For a CATPart save as a txt-file is not defined. What do you want to extract/include in the txt-file (only bodies and feature or more)? — Shrotter, Mar 30 '22 at 08:46
I want to include the parts used to make the CATPart and if possible the geometrical sets for that part. — XanderVreeswijk, Mar 30 '22 at 08:51
You mean bodies of the CATPart? (or what do you mean with _parts_) — Shrotter, Mar 30 '22 at 08:54
Yes the bodies, like the names of the screws or bases used to make the CATPart — XanderVreeswijk, Mar 30 '22 at 08:55

score 0 · Accepted Answer · answered Mar 30 '22 at 09:10

Here a example to get the names of bodies and hybridbodies of a part (only top level entries)

Sub CATMain()

    Dim oPartDocument as PartDocument
    Dim sListofBodies as String
    Dim oBody as Body
    dim oHybridBody as Hybridbody

    Set oPartDocument = CATIA.ActiveDocument
    Set oPart = oPartDocument.Part
    
    for each oBody in oPart.Bodies
        if Not oBody.InBooleanOperation then
            sListofBodies = sListofBodies & oBody.Name & Chr(10)
        end if  
    next
    
    MsgBox sListofBodies

    sListofBodies = ""
    
    for each oHybridBody in oPart.HybridBodies
        sListofBodies = sListofBodies & oHybridBody.Name & Chr(10)  
    next

    MsgBox sListofBodies

End Sub

I was trying to export the sListofBodies into a txt file using the ExportData but that doesn't work. Is there another way to export the data into a txt file? — XanderVreeswijk, Mar 30 '22 at 11:45
There a several solutions: e.g. using _TextStream_ from the catia API, using _TextStream_ from the _FileSystemObject_ — Shrotter, Mar 30 '22 at 12:09

Saving the product tree of a CATpart into a txt file

1 Answers1