Identification of Cosmetic weld via Inventor 2020 API

by Chandra shekar Gopal

In Inventor 2019 and lower versions,  Cosmetic welds were unable to recognize via Inventor API. Now, Inventor 2020 API is able to identify Cosmetic weld in weldment assembly.

Try below VBA code to know length of Cosmetic weld which is tested with attached weldment assembly (I109269.iam)

Sub Cosmetic_weld()

    Dim oDoc As AssemblyDocument
     Set oDoc = ThisApplication.ActiveDocument

    Dim oDef As WeldmentComponentDefinition
     Set oDef = oDoc.ComponentDefinition

    Dim oWeld As Weld
     For Each oWeld In oDef.Welds

        Dim TotalLength As Double
         TotalLength = 0
         Dim oEdge As Edge
         For Each oEdge In oWeld.Edges

            Dim oCurveEval As CurveEvaluator
             Set oCurveEval = oEdge.Evaluator

            Dim MinParam As Double
             Dim MaxParam As Double
             Dim Length As Double
            
             Call oCurveEval.GetParamExtents(MinParam, MaxParam)
             Call oCurveEval.GetLengthAtParam(MinParam, MaxParam, Length)
             TotalLength = TotalLength + Length

        Next

        Debug.Print "Length of " & oWeld.Name & " is " & ThisApplication.UnitsOfMeasure.GetStringFromValue(TotalLength, kMillimeterLengthUnits)

    Next
End Sub

Output of VBA code for attached weldment assembly would look like below.

Length of Cosmetic Weld 1 is 189.699 mm
Length of Cosmetic Weld 2 is 229.323 mm
Length of Cosmetic Weld 3 is 229.323 mm
Length of Cosmetic Weld 4 is 189.699 mm
Length of Cosmetic Weld 5 is 189.699 mm
Length of Cosmetic Weld 6 is 229.323 mm
Length of Cosmetic Weld 7 is 229.323 mm
Length of Cosmetic Weld 8 is 189.699 mm

Download WeldmentAssembly