I am looking for a function that will get me the main body of the workpart. There is only one body in the workpart. Then I want to get all the faces associated with that body.
Dim theBody As Body
If workPart.Bodies.ToArray.Length > 0 Then
'there is at least one body
theBody = workPart.Bodies.ToArray(0)
Else
'no bodies in part
MsgBox("no bodies in work part")
End If