VBA: Größte Fläche am Modell ermitteln

Wenn man Abwicklungen von Bauteilen exportiert, die nicht über die Blechfunktionalität erstellt wurden, dann kann es vorkommen, das die Grundfläche der Abwicklung nicht stimmt. Das Problem lässt sich umgehen, indem man die ebene Fläche mit dem größten Flächeninhalt am Modell ermittelt und diese als Basisfläche für die Abwicklung nutzt.

Hier der Code-Ausschnitt für die Ermittlung der größten Fläche:

[…]

Dim oFaces As Faces
                        Set oFaces = oPart.ComponentDefinition.SurfaceBodies(1).Faces
                        Dim groessteFlaeche As Face
                       
                        Dim Flaecheninhalt As Double
                        Flaecheninhalt = 0
                        Dim index As Long
                        index = 1
                       
                        Dim oFace As Face
                        For Each oFace In oFaces
                       
                        If (TypeOf oFace.Geometry Is Plane) Then
                        'MsgBox (oFace.Evaluator.Area)
                                If oFace.Evaluator.Area > Flaecheninhalt Then
                                    Flaecheninhalt = oFace.Evaluator.Area
                                    Set groessteFlaeche = oFace
                                End If
                        End If
                       
                        Next

Call oSheetDef.Unfold2(groessteFlaeche)

[…]