Insert Forming Tool Feature Example (VBA)

This example shows how to insert a forming tool feature into a sheet metal part.

'----------------------------------------------------------------------------
' Preconditions:
' 1. Open a sheet metal part.
' 2. Replace install_dir with your SolidWorks installation path.
' 3. Select a face on which to apply the counter sink emboss forming tool from
'    the Design Library.
'
' Postconditions: The counter sink emboss1 forming tool feature is added to
' the FeatureManager design tree.
' ---------------------------------------------------------------------------

Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim myFeature As SldWorks.Feature

Option Explicit
Sub main()
    Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc

    ' Insert a counter sink emboss forming tool feature
    Set myFeature = Part.FeatureManager.InsertFormToolFeature("install_dir\data\design library\forming tools\embosses\counter sink emboss.sldprt", False, 0#, "", True, True, True, True, False)
End Sub