Get Fixed Face of Flatten-Bends Feature Example (VB.NET)
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.
'-------------------------------------------------------
Imports
SolidWorks.Interop.sldworks
Imports
SolidWorks.Interop.swconst
Imports
System.Runtime.InteropServices
Imports
System
Partial
Class
SolidWorksMacro
Sub
main()
Dim
swModel As
ModelDoc2
Dim
swSelMgr As
SelectionMgr
Dim
swFeat As
Feature
Dim
swBends As
BendsFeatureData
Dim
swFace As
Face2
Dim
swEntity As
Entity
Dim
bRet As
Boolean
swModel = swApp.ActiveDoc
swSelMgr = swModel.SelectionManager
swFeat = swSelMgr.GetSelectedObject6(1, -1)
swBends = swFeat.GetDefinition
' Roll back to access the
flatten-bends feature data
bRet =
swBends.AccessSelections(swModel, Nothing)
swFace = swBends.GetFixedFace
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
Public
swApp As
SldWorks
End
Class