Get Selected Faces on Processed Body (VBA)

This example shows how to get the selected faces on a processed body.

'-----------------------------

' Preconditions: Part document is open and one or

'                faces are selected on a processed body.

'

' Postconditions: None

'-----------------------------

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swDoc As SldWorks.ModelDoc2

Dim swPartDoc As SldWorks.PartDoc

Dim swBody As SldWorks.Body2

Dim swProcBody As SldWorks.Body2

Dim swBodyVar As Variant

Dim swSelFaceVar As Variant

Dim bodyCount As Long

Dim swSelFaceCount As Long

Sub main()

Set swApp = Application.SldWorks

Set swDoc = swApp.ActiveDoc

Set swPartDoc = swDoc

swBodyVar = swPartDoc.GetBodies2(swAllBodies, True)

bodyCount = 0

For bodyCount = LBound(swBodyVar) To (UBound(swBodyVar) - 1)

    Set swBody = swBodyVar(bodyCount)

Next

Set swProcBody = swBody.GetProcessedBodyWithSelFace

swSelFaceCount = swProcBody.GetSelectedFaceCount

swSelFaceVar = swProcBody.GetSelectedFaces

End Sub