Moment of inertia to custom properties

[sgs]

I have created a sketch named "Area" 

Projected cut faces in it.

Now i look for a rule to transfer the area moment of inertia to custom properties IX IY IZ.

Cant figure the API rule for that.

Help please, I think it is simple. But still have a lot to learn 🙂

[Ralf_Krieg · Accepted solution]

Hello

Try this snippet:

    Dim oDoc As PartDocument = ThisDoc.Document
	Dim oCompdef As PartComponentDefinition = oDoc.ComponentDefinition
	Dim oSketch As Sketch = oCompdef.Sketches.Item("Area")
    Dim oProfile As Profile= oSketch.Profiles.AddForSolid
    Dim oRegionProps As RegionProperties= oProfile.RegionProperties

    oRegionProps.Accuracy = kMedium

    Dim Ixx As Double
    Dim Iyy As Double
    Dim Izz As Double
    Dim Ixy As Double
    Dim Iyz As Double
    Dim Ixz As Double
    Call oRegionProps.MomentsOfInertia(Ixx, Iyy, Izz, Ixy, Iyz, Ixz)
	
	iProperties.Value("Custom", "Ixx") = Ixx
	iProperties.Value("Custom", "Iyy") = Iyy
	iProperties.Value("Custom", "Izz") = Izz

[sgs]

you are an expert thank you very much.

Sofus