Extract Sub-Components from Part Body

[das583]

I need to be able to extract the sub-components of a partbody. I can do this in the "Measure Inertia" tool but need to replicate the information extract in a catia macro, preferably catvba script and export it to a text file. I have been able to extract the parameters of the part such as partnumber, name, definition, mass, etc but have not been able to extract the sub-components. So for example:

PartABC-A.1

PartBody​

MachinedBody​

ReferenceBody​

So I would want it to extract it like:
PartABC-A.1
Partbody
MachineBody
ReferenceBody

Anyone have any ideas?

Thanks

 

[tesak]

To iterate through bodies in Part, use Bodies() collection.
Not tested yet, but you can try something like this:

Set partRoot = partDoc.Part
Set bodiesColl = partRoot.Bodies

For a = 1 To bodiesColl.Count
[indent]Debug.Print bodiesColl(a).Name[/indent]
Next

Tesak

http://scripts4all.eu/txtoncurve/

- Curved text for Catia V5