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

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





RE: catia : use VBA to create an InertiaVolume in the part, not just get the results.
' 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
RE: catia : use VBA to create an InertiaVolume in the part, not just get the results.
BUT...
IS THERE A WAY OF DISPLAYING THE INERTIAVOLUME AT THE SCREEN ?
RE: catia : use VBA to create an InertiaVolume in the part, not just get the results.
Regards
Fernando
https://picasaweb.google.com/102257836106335725208 - Romania
https://picasaweb.google.com/103462806772634246699... - EU
RE: catia : use VBA to create an InertiaVolume in the part, not just get the results.
THANKS