Torus geometry does not evaluate as expected

[CAD_CAM_MAN]

Using Autodesk Inventor Professional 2020 Build: 396, Release 2020.4

I am working on a program that evaluates torus surfaces on imported .step file geometry (solid bodies). It seems on some items that are imported the torus evaluates as if it is fully revolved around its center axis which in some cases it is not. For example I would expect a rangebox to be as shown below (smaller box only containing the actual surface), Instead the result is the larger box as if the torus was fully revolved around its center axis.

Is there a way to only evaluate the actual surface? Do I need to do something else when importing the geometry?

Some imports evaluate as expected some do not. Can anyone explain the inconsistency?

'Sample code
For Each face As Face In MyBody.Faces
            If Not IsNothing(TryCast(face.Geometry, Torus)) Then
                Dim ADoc As PartDocument = InventorApp.ActiveDocument
                Dim PCdef As PartComponentDefinition = ADoc.ComponentDefinition
                Dim FaceGeo As Torus = face.Geometry
                Dim MyBox As Box = FaceGeo.Evaluator.RangeBox
                With PCdef.WorkPoints
                    .AddFixed(MyBox.MaxPoint)
                    .AddFixed(MyBox.MinPoint)
                End With
            End If
        Next

Sample code result...

I have also tried using .isParamOnFace with points that are not on the actual surface shown but would be on the surface if the torus was fully revolved around its center axis. The points still evaluate as if on the surface.

[J-Camper · Accepted solution]

The Geometry Property of the Face is a generic Geometric Shape.  Use the Face Itself:

For Each f As Face In MyBody.Faces
    If Not IsNothing(TryCast(f.Geometry, Torus)) Then
        Dim ADoc As PartDocument = ThisApplication.ActiveDocument
        Dim PCdef As PartComponentDefinition = ADoc.ComponentDefinition
        'Dim FaceGeo As Torus = f.Geometry
        Dim MyBox As Box = f.Evaluator.RangeBox 'FaceGeo.Evaluator.RangeBox
        With PCdef.WorkPoints
            .AddFixed(MyBox.MaxPoint)
            .AddFixed(MyBox.MinPoint)
        End With
    End If
Next

Let me know if you have any questions or if this is not working as intended.

[CAD_CAM_MAN]

Thank you JCamper!

This works as expected now...

'Sample Code
        For Each face As Face In MyBody.Faces
            If Not IsNothing(TryCast(face.Geometry, Torus)) Then
                Dim ADoc As PartDocument = InventorApp.ActiveDocument
                Dim PCdef As PartComponentDefinition = ADoc.ComponentDefinition
                'Dim FaceGeo As Torus = face.Geometry
                Dim MyBox As Box = face.Evaluator.RangeBox
                With PCdef.WorkPoints
                    .AddFixed(MyBox.MaxPoint)
                    .AddFixed(MyBox.MinPoint)
                End With
            End If
        Next