Get mass and volume of each weld

By Xiaodong Liang
A weldment has a single special local occurrence of the welds component. We can get the MassProperties from ComponentOccurrence.MassProperties for this welds component instance. Just walk the occurrences of the weldment assembly looking for the local occurrence whose Definition is the WeldsComponentDefinition.
But no API to get the mass/volume of each weld. This can be worked around by deleting each weld, calculating by the current mass/ volume with mass/ volume of the total weld.

Sub getWeldMassAndVolume()
 
        ' get active Inventor process
        Dim InvApp As Inventor.Application = _
             Runtime.InteropServices.Marshal. _
             GetActiveObject("Inventor.Application")
 
 
        Dim oAssDoc As AssemblyDocument
        oAssDoc = InvApp.ActiveDocument
 
 
        Dim cd As ComponentDefinition
        cd = oAssDoc.ComponentDefinition
 
        If cd.Type = _
          ObjectTypeEnum.kWeldmentComponentDefinitionObject Then
 
            Dim wcd As WeldmentComponentDefinition
            wcd = cd
 
            Debug.Print("Total mass of assembly" _
                        & wcd.MassProperties.Mass)
            Debug.Print(" Total volume of assembly" _
                        & wcd.MassProperties.Volume)
 
            'Suppose the weld occurrence is the 
            ' first one in this assembly.
            Dim oO As ComponentOccurrence
            oO = wcd.Occurrences(1)
 
            Dim oTotalWeldsMass As Double
            oTotalWeldsMass = oO.MassProperties.Mass
 
            Dim oTotalWeldsVolume As Double
            oTotalWeldsVolume = oO.MassProperties.Volume
 
 
            Debug.Print(" mass of welds" & oTotalWeldsMass)
            Debug.Print(" volume of welds" & oTotalWeldsVolume)
 
            Dim oEachWeldB As WeldBead
 
            For Each oEachWeldB In wcd.Welds.WeldBeads
 
                'oEachWeldB.FaceSetOne
                'oEachWeldB.FaceSetTwo
                'oEachWeldB.BeadLength
                'oEachWeldB.WeldInfo
                'oEachWeldB.SideFaces
 
            Next
 
            ' a workaround to get mass & volum of each weldbead
            For Each oEachWeldB In wcd.Welds.WeldBeads
 
                Dim oStr As String
                oStr = oEachWeldB.Name
 
                oEachWeldB.Delete()
 
                Debug.Print(" mass of weld [" & oStr & "]: " _
                        & oTotalWeldsMass - oO.MassProperties.Mass)
                Debug.Print(" volume of weld [" & oStr & "]: " _
                         & oTotalWeldsVolume - oO.MassProperties.Volume)
 
                'undo delete
                InvApp.CommandManager. _
                   ControlDefinitions("AppUndoCmd").Execute()
 
            Next
 
        End If
 
    End Sub