Pb recupereert de diepte van een dunne extrusie

Macro
1

Hallo, ik ben op zoek om automatisch een stroomschema te maken van solidwokrs. Dus begon ik met het ophalen van de informatie over dikte, diepte, lengte, snijhoek...

Ik kwam net een dunne extrusie tegen, die wordt gedefinieerd door te verwijzen naar oppervlakken in een assemblage. Er staat dus geen geschreven oproepnummer in het stuk. Is er een manier om deze diepte terug te krijgen?

Ik had ook een ander geval waarbij de filet van een buis rechtstreeks wordt gemaakt van de extrusiegerelateerde schets. Dus als ik de afmetingen weergeef, kan ik geen onderscheid maken tussen de filetafmeting en de diktemaat.

Hier is mijn 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