Get Features of Multibody Sheet Metal Part Example (VB.NET)

This example shows how to sort a cut-list folder of a multibody sheet metal part.

'---------------------------------------------------------------------------
' Preconditions:
' 1. Open C:\Users\Public\Documents\SOLIDWORKS\SOLIDWORKS 2020\samples\tutorial\api\weldment_box3.sldprt.
' 2. Inspect the cut list folder.
' 3. Open the Immediate window.
'
' Postconditions:
' 1. Gets the number and names of the features in the cut list bodies.
' 2. Sets the cut list sorting options.
' 3. Sorts the cut list.
' 4. Inspect the sorted cut list folder in the Immediate window.
'--------------------------------------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System.Runtime.InteropServices
Imports System


Partial Class SolidWorksMacro

Sub main()

     Dim swModel As ModelDoc2
     Dim swFeat As Feature
     Dim swBodyFolder As BodyFolder
     Dim selMgr As SelectionMgr
     Dim swBody As Body2
     Dim Bodies As Object
     Dim Features As Object
     Dim CutListSortOptions As CutListSortOptions
     Dim i As Integer
     Dim j As Integer
     Dim boolstatus As Boolean

     swModel = swApp.ActiveDoc
     selMgr = swModel.SelectionManager

     boolstatus = swModel.Extension.SelectByID2("Solid Bodies", "BDYFOLDER", 0, 0, 0, False, 0, Nothing, 0)
     swFeat = selMgr.GetSelectedObject6(1, -1)

     swBodyFolder = swFeat.GetSpecificFeature2
     swBodyFolder.SetAutomaticCutList(True)
     swBodyFolder.SetAutomaticUpdate(False)
     Bodies = swBodyFolder.GetBodies()
     Debug.Print(" Number of bodies: " & swBodyFolder.GetBodyCount())
     Debug.Print(" Cut list type: " & swBodyFolder.GetCutListType())
     Debug.Print(" Generate cut list automatically? " & swBodyFolder.GetAutomaticCutList())
     Debug.Print(" Automatically update cut list? " & swBodyFolder.GetAutomaticUpdate())
     For i = 0 To (swBodyFolder.GetBodyCount() - 1)
        swBody = Bodies(i)
        Features = swBody.GetFeatures()
        Debug.Print(" Number of features in body #" & i + 1 & ": " & swBody.GetFeatureCount())
        For j = 0 To (swBody.GetFeatureCount - 1)
           Debug.Print(" Name of feature: " & Features(j).GetTypeName2())
        Next j
     Next i

     ' Sort the cut list
     CutListSortOptions = swBodyFolder.GetCutListSortOptions
     CutListSortOptions.CollectIdenticalBodies = True
     boolstatus = swBodyFolder.SortCutList(CutListSortOptions, False)

End Sub

   ''' <summary>
   ''' The SldWorks swApp variable is pre-assigned for you.
   ''' </summary>
   Public swApp As SldWorks

End Class