Querying a sketch profile to get regions

By Adam Nagy

Since many people are looking for info on the web I'm also adding here this API Help Sample, which in case of Inventor 2016 can be found in "C:\Program Files\Autodesk\Inventor 2016\Local Help\admapi_20_0.chm" 

Description 

This sample demonstrates getting region properties from a sketch profile. 

VBA Sample Code 

To run the sample you must have a sketch active that contains some sketch entities. 

Public Sub GetProfileRegionProperties()' Set a reference to the active sketch.' This assumes a 2D sketch is active.
    Dim oSketch As Sketch
    Set oSketch = ThisApplication.ActiveEditObject' Create a default profile from the sketch.
    Dim oProfile As Profile
    Set oProfile = oSketch.Profiles.AddForSolid' Set a reference to the region properties object.
    Dim oRegionProps As RegionProperties
    Set oRegionProps = oProfile.RegionProperties' Set the accuracy to medium.
    oRegionProps.Accuracy = kMedium' Display the region properties of the profile.
    Debug.Print "Area: " & oRegionProps.Area
    Debug.Print "Perimeter: " & oRegionProps.Perimeter
    Debug.Print "Centroid: " & _
                    oRegionProps.Centroid.X & ", " & _
                    oRegionProps.Centroid.Y

    Dim adPrincipalMoments(1 To 3) As Double
    Call oRegionProps.PrincipalMomentsOfInertia(adPrincipalMoments(1), _
                                                    adPrincipalMoments(2), _
                                                    adPrincipalMoments(3))
    Debug.Print "Principal Moments of Inertia: " & _
                    adPrincipalMoments(1) & ", " & _
                    adPrincipalMoments(2)

    Dim adRadiusOfGyration(1 To 3) As Double
    Call oRegionProps.RadiusOfGyration(adRadiusOfGyration(1), _
                                            adRadiusOfGyration(2), _
                                            adRadiusOfGyration(3))
    Debug.Print "Radius of Gyration: " & _
                    adRadiusOfGyration(1) & ", " & _
                    adRadiusOfGyration(2)

    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)
    Debug.Print "Moments: "
    Debug.Print " Ixx: " & Ixx
    Debug.Print " Iyy: " & Iyy
    Debug.Print " Ixy: " & Ixy
    Debug.Print "Rotation Angle from projected Sketch Origin to Principle Axes: " _& oRegionProps.RotationAngle
End Sub