Insert Sheet Metal Hem Example (VB.NET)

'----------------------------------------------------------------------------
' Preconditions:
' 1. Open a sheet metal part.
' 2. Select the edge to which to add a hem.
'
' Postconditions:
' 1. Hem1, an open hem with a custom relief of type Obround and
'    a relief ratio of 1.0, is added to the FeatureManager design tree.
' 2. The hem type as defined in swHemTypes_e is printed to the Immediate window.
' ---------------------------------------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System.Runtime.InteropServices
Imports System
Imports System.Diagnostics

Partial Class SolidWorksMacro

    Dim Part As ModelDoc2
    Dim CBAObject As CustomBendAllowance
    Dim myFeature As Feature
    Dim myHem As HemFeatureData

    Sub main()

        Part = swApp.ActiveDoc

        CBAObject = Part.FeatureManager.CreateCustomBendAllowance()
        CBAObject.Type = 2
        CBAObject.KFactor = 0.5

        ' Insert an open hem of custom relief type Obround and relief ratio 1.0
        myFeature = Part.FeatureManager.InsertSheetMetalHem2(swHemTypes_e.swHemTypeOpen, swHemPositionTypes_e.swHemPositionTypeOutside, False, 0.01, 0.01, 0, 0.005, 0.0011, CBAObject, False, swSheetMetalReliefTypes_e.swSheetMetalReliefObround, 0, True, 1.0#, 0, 0)
        Part.ClearSelection2(True)

        myHem = myFeature.GetDefinition
        Debug.Print("Hem type as defined in swHemTypes_e: " & myHem.Type)
    End Sub

  
    Public swApp As SldWorks


End Class