Change Bend Radius of Sheet Metal Part Example (VBA)

This example shows how to change the default bend radius of a sheet metal part.

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

'

' Preconditions:

'       (1) Part document containing sheet metal part is open.

'       (2) Sheet-Metal feature is selected.

'

' Postconditions: Default bend radius value is doubled.

'

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

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 swSheetMetal            As SldWorks.SheetMetalFeatureData

    Dim bRet                    As Boolean

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swSelMgr = swModel.SelectionManager

    Set swFeat = swSelMgr.GetSelectedObject5(1)

    Set swSheetMetal = swFeat.GetDefinition

    Debug.Print "Feature = " & swFeat.Name

    Debug.Print "  BendRadius = " & swSheetMetal.BendRadius * 1000# & " mm"

    ' Rollback to change default bend radius

    bRet = swSheetMetal.AccessSelections(swModel, Nothing): Debug.Assert bRet

    ' Double the default bend radius value

    swSheetMetal.BendRadius = 2# * swSheetMetal.BendRadius

    ' Apply changes

    bRet = swFeat.ModifyDefinition(swSheetMetal, swModel, Nothing): Debug.Assert bRet

End Sub

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