Get Fixed Face of Flatten-Bends Feature Example (VBA)
This example shows how to get the fixed face of a flatten-bends feature.
'------------------------------------------------------------------
' Preconditions:
' 1. Open a sheet metal part.
' 2. Select a flatten-bends feature in the FeatureManager design
' tree.
'
' Postconditions:
' 1. The macro rolls the FeatureManager design tree back to the feature
' that contains the fixed face of the flatten-bends feature.
' 2. The macro pauses and selects the fixed face of the
' flatten-bends feature.
' 3. Press F5 to roll the FeatureManager design tree forward
' and run the macro to completion.
'-------------------------------------------------------
Option Explicit
Sub main()
Dim swApp
As SldWorks.SldWorks
Dim swModel
As SldWorks.ModelDoc2
Dim swSelMgr
As SldWorks.SelectionMgr
Dim swFeat
As SldWorks.Feature
Dim swBends
As SldWorks.BendsFeatureData
Dim swFace
As SldWorks.Face2
Dim swEntity
As SldWorks.Entity
Dim bRet
As Boolean
Set swApp =
CreateObject("SldWorks.Application")
Set swModel = swApp.ActiveDoc
Set swSelMgr = swModel.SelectionManager
Set swFeat = swSelMgr.GetSelectedObject6(1, -1)
Set swBends = swFeat.GetDefinition
' Roll back to access the flatten-bends feature
data
bRet = swBends.AccessSelections(swModel, Nothing)
Set swFace = swBends.GetFixedFace
Set swEntity = swFace
bRet = swEntity.Select4(False, Nothing)
Stop ' The fixed face is selected in the
graphics area
' Cancel any changes made
swBends.ReleaseSelectionAccess
End Sub