catia : use VBA to create an InertiaVolume in the part, not just get the results.

[jissididi]

Hi,
I am looking for a way to create an InertiaVolume in catia (see picture) using VBA.
Do you have any idea ?
I need it to be created in the part, I can't afford to just get the measure results.
Thanks

 

[ferdo]

Hi

' Find the workbench
Dim TheSPAWorkbench As Workbench
Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench ( "SPAWorkbench" )

' Create the inertia for a product
Dim ProductInertia As Inertia
Set ProductInertia = TheSPAWorkbench.Inertias.Add(Product)

' Get some inertia data
Dim Mass As Double
Mass = ProductInertia.Mass
Dim Coordinates(2)
ProductInertia.GetCOGPosition Coordinates
Dim Matrix(8)

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

https://picasaweb.google.com/103462806772634246699/

- EU

 

[jissididi]

OK THANKS A LOT
BUT...
IS THERE A WAY OF DISPLAYING THE INERTIAVOLUME AT THE SCREEN ?

 

[ferdo]

Use CATIA.StartCommand.... and SendKeys... or get the values in a text file (and open that file immediately) or in message box...

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

https://picasaweb.google.com/103462806772634246699/

- EU

 

[jissididi]

YES THAT 'S WHAT i WANTED TO AVOID...
THANKS