Get Features of Multibody Sheet Metal Part Example (VB.NET)
This example shows how to get the number and names of the features in
the cut-list folder in a multibody sheet metal part.
'---------------------------------------------------------------------------
' Preconditions:
' 1. Open a multibody sheet metal part.
' 2. Open the Immediate window.
'
' Postconditions:
' 1. Gets the number and names of the features in the cut-list folder
' in a multibody sheet metal part.
' 2. Examine the Immediate window.
'--------------------------------------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System
Imports System.Diagnostics
Partial Class SolidWorksMacro
Public
Sub main()
Dim swModel As ModelDoc2
Dim swFeatMgr As FeatureManager
Dim swFeat As Feature
Dim swBodyFolder As BodyFolder
Dim swBody As Body2
Dim FeatType As String
Dim FeatTypeName As String
Dim
Bodies As Object
Dim
Features As Object
Dim i As Integer
Dim
j As Integer
swModel = swApp.ActiveDoc
swFeatMgr = swModel.FeatureManager
swFeat = swModel.FirstFeature
Do
While Not swFeat Is Nothing
FeatType = swFeat.Name
FeatTypeName = swFeat.GetTypeName2
Debug.Print(" "
& FeatType & " [" & FeatTypeName & "]")
If FeatTypeName = "CutListFolder" Then
swBodyFolder = swFeat.GetSpecificFeature2
swBodyFolder.SetAutomaticCutList(True)
swBodyFolder.SetAutomaticUpdate(True)
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
End
If
swFeat = swFeat.GetNextFeature
Loop
End
Sub
'''
<summary> '''
The SldWorks swApp variable is pre-assigned for you.
'''
</summary>
Public
swApp As SldWorks
End Class