topic Torus geometry does not evaluate as expected in Inventor Programming Forum

Torus geometry does not evaluate as expected

CAD_CAM_MAN — Thu, 04 Nov 2021 19:21:43 GMT

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.

Re: Torus geometry does not evaluate as expected

J-Camper — Thu, 04 Nov 2021 23:49:05 GMT

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.

Re: Torus geometry does not evaluate as expected

CAD_CAM_MAN — Fri, 05 Nov 2021 12:36:04 GMT

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