Create Forming Tool Example (VB.NET)

This example shows how to create a forming tool with an insertion point in a sheet metal part.

'----------------------------------------------------------------------------
' Preconditions: Open:
'    install_dir\samples\tutorial\api\formingTool.sldprt
'
' Postconditions: FormTool1 appears in the FeatureManager
' design tree with the specified stopping face, face to remove,
' and insertion point.
'
' NOTE: Because the model is used elsewhere,
' do not save changes when closing it.
' ---------------------------------------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System.Runtime.InteropServices
Imports System

Partial Class SolidWorksMacro

    Dim Part As ModelDoc2
    Dim myFeature As Feature
    Dim boolstatus As Boolean

    Sub main()
        Part = swApp.ActiveDoc
        'Select the stopping face: Mark = 1
        boolstatus = Part.Extension.SelectByID2("", "FACE", 0.0283459459495816, 0.0187563215566229, 0, True, 1, Nothing, 0)
        'Select the face to remove: Mark = 2
        boolstatus = Part.Extension.SelectByID2("", "FACE", 0.0358143533097106, 0.0308169322714775, 0.0066335048657038, True, 2, Nothing, 0)
        'Create a forming tool with insertion point x=0, y=0
        myFeature = Part.FeatureManager.CreateFormTool2(0, 0)
    End Sub

  
    Public swApp As SldWorks


End Class