Insert Lofted Bend Feature Example (VBA)

This example shows how to insert a lofted bend feature in a sheet metal part and get the lofted bend feature data.

'----------------------------------------------------------------------------
' Preconditions:
' 1. Open a sheet metal part that contains two sketch profiles, Sketch1 and
'    Sketch2, that reside on parallel planes.
' 2. Open the Immediate window.
'
' Postconditions:
' 1. A lofted bend is inserted in the FeatureManager design tree.
' 2. Inspect the Immediate window.
' ---------------------------------------------------------------------------
Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim feat As SldWorks.Feature
Dim lbfd As SldWorks.LoftedBendsFeatureData
Dim boolstatus As Boolean

Option Explicit
Sub main()

    Set swApp = Application.SldWorks
   

    Set Part = swApp.ActiveDoc
    boolstatus = Part.Extension.SelectByID2("Sketch1", "SKETCH", 0, 0, 0, False, 1, Nothing, 0)
    boolstatus = Part.Extension.SelectByID2("Sketch2", "SKETCH", 0, 0, 0, True, 1, Nothing, 0)
   

    ' Insert a lofted bend feature with two bends
    Set feat = Part.FeatureManager.InsertSheetMetalLoftedBend2(0, 0.0007366, False, 0.0007366, True, swBendsPerTransitionSegment, 0, 2, 0, 0)
   

    ' Get lofted bend feature data
    Set lbfd = feat.GetDefinition
    Debug.Print "Number of sketch profiles in this feature: " & lbfd.GetProfileCount
    Debug.Print "Thickness: " & lbfd.Thickness
    Debug.Print "Reverse thickness direction? " & lbfd.Direction
    Debug.Print "Faceting option as defined in swLoftedBendFacetOptions_e: " & lbfd.FacetingOption
    Debug.Print "Faceting option value: " & lbfd.FacetValue
    Debug.Print "Formed? " & lbfd.FormedMethod
    Debug.Print "Calculate facet transitions using vertexes? " & lbfd.ReferToEndPoint
   

End Sub