Community
Hope the code below helps:
Sub test()
Dim oDoc As AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument
Dim oAssDef As WeldmentComponentDefinition
Set oAssDef = oDoc.ComponentDefinition
Dim oSolidWeld As WeldBead
Dim oCosmeticWeld As CosmeticWeld
For Each oSolidWeld In oAssDef.Welds.WeldBeads
Dim oEachBeadFace As Face
For Each oBeadFace In oSolidWeld.BeadFaces
'oBeadFace.Edges....
Next
Next
For Each oCosmeticWeld In oAssDef.Welds.CosmeticWelds
Dim oEdge As Edge
For Each oEdge In oCosmeticWeld.Edges
' dump the info of the edge
Next
Next
End Sub