Pb stellt die Tiefe einer dünnen Extrusion wieder her

Macro
1

Hallo, ich möchte automatisch ein Flussdiagramm aus solidwokrs erstellen. Also begann ich damit, die Informationen über Dicke, Tiefe, Länge, Schnittwinkel ...

Ich bin gerade auf eine dünne Extrusion gestoßen, die sich auf Oberflächen in einer Baugruppe bezieht. Es gibt also keine geschriebene Signatur im Stück. Gibt es eine Möglichkeit, diese Tiefe wiederherzustellen?

Ich hatte auch einen anderen Fall, in dem die Verrundung eines Rohrs direkt aus der extrusionsbezogenen Skizze erstellt wird. Wenn ich also die Bemaßungen anzeige, kann ich nicht zwischen dem Verrundungsmaß und dem Dickenmaß unterscheiden.

Hier ist mein Code

Sub GetExtrusionDimensions()
    //Initialize SolidWorks application and get the active document
    Dim swApp As SldWorks.SldWorks
    Dim Part As ModelDoc2
    Dim Feature As Feature
    Dim ExtrudeFeat As ExtrudeFeatureData
    Dim DisplayDim As DisplayDimension
    Dim DimVal As Dimension
    Dim MsgStr As String

    Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc
    // Check if the active document is a part file
    If Part Is Nothing Or Part.GetType <> swDocPART Then
        MsgBox "Veuillez ouvrir une pièce avant d'exécuter ce script.", vbCritical
        Exit Sub
    End If
    //Start with the first feature in the part
    Set Feature = Part.FirstFeature
    MsgStr = "Dimensions des extrusions :" & vbNewLine & vbNewLine

    //Loop through each feature in the feature tree
    Do While Not Feature Is Nothing

        //Check if the feature is an extrusion
        If Feature.GetTypeName2 = "Extrusion" Then
            //Access extrusion-specific data
            Set ExtrudeFeat = Feature.GetDefinition

            If Not ExtrudeFeat Is Nothing Then
                MsgStr = MsgStr & "Fonction : " & Feature.Name & vbNewLine

                //Access display dimensions
                Set DisplayDim = Feature.GetFirstDisplayDimension
                Do While Not DisplayDim Is Nothing
                    //Get the linked dimension object
                    Set DimVal = DisplayDim.GetDimension
                    Depth = ExtrudeFeat.GetDepth(True)
                    Debug.Print Depth
                    If Not DimVal Is Nothing Then
                        MsgStr = MsgStr & "  Dimension : " & DimVal.FullName & " = " & DimVal.Value & " mm" & vbNewLine
                    End If
                    //Move to the next display dimension
                    Set DisplayDim = Feature.GetNextDisplayDimension(DisplayDim)
                Loop
                MsgStr = MsgStr & vbNewLine
            End If
        End If
        //Move to the next feature in the tree
        Set Feature = Feature.GetNextFeature
    Loop
    //Display the extracted information
    MsgBox MsgStr, vbInformation, "Résultats"
End Sub