Create and Modify Move Face Feature Example (VB.NET)

This example shows how to create a Move Face feature by translating a face on a part and then how to modify that Move Face feature.

'************************************************

' Preconditions:

'        (1) The specified SolidWorks document exists

'            on your system.

'        (2) Set a break point at the OpenDoc6 statement.

'        (3) Step through (press F8) the macro.

'

' Postconditions: A Move Face feature is created and then

'                modified.

'

' NOTE: Because the specified SolidWorks document is used by

'       a SolidWorks online tutorial, do not save any changes

'       when closing the document.

'***********************************************

Imports SolidWorks.Interop.sldworks

Imports SolidWorks.Interop.swconst

Imports System

 

Partial Class SolidWorksMacro

 

    Public Sub main()

 

        Dim swModel As ModelDoc2

        Dim swModelDocExt As ModelDocExtension

        Dim swFeatMgr As FeatureManager

        Dim swFeat As Feature

        Dim swMoveFaceFeat As MoveFaceFeatureData

        Dim transParams As Object

        Dim boolstatus As Boolean

        Dim triadParams(0 To 2) As Double

        Dim fileerror As Long

        Dim filewarning As Long

 

        ' Open the SolidWorks document

        swApp.OpenDoc6("C:\Program Files\SolidWorks Corp\SolidWorks\samples\tutorial\assemblymates\knee.sldprt", swDocumentTypes_e.swDocPART, swOpenDocOptions_e.swOpenDocOptions_Silent, "", fileerror, filewarning)

 

        swModel = swApp.ActiveDoc

        swModelDocExt = swModel.Extension

        swFeatMgr = swModel.FeatureManager

 

        ' Translation parameters

        triadParams(0) = 0

        triadParams(1) = 0.05

        triadParams(2) = 0

        transParams = triadParams

 

        ' Select face to move

        boolstatus = swModel.Extension.SelectByID2("", "FACE", 0.04239074672171, 0.01587499999999, 0.3283508339712, False, 1, Nothing, 0)

 

        ' Create the Move Face feature by

        ' moving the selected face

        swFeat = swFeatMgr.InsertMoveFace2(1, False, 0, 0, (transParams), Nothing)

 

        ' Modify the Move Face feature

        swMoveFaceFeat = swFeat.GetDefinition

 

        ' Roll back the Move Face feature

        swMoveFaceFeat.AccessSelections(swModel, Nothing)

        triadParams(0) = 0

        triadParams(1) = 0.1

        triadParams(2) = 0

        transParams = triadParams

        swMoveFaceFeat.TriadTranslationParameters = (transParams)

 

        ' Roll back the part with the modified Move Face feature

        swFeat.ModifyDefinition(swMoveFaceFeat, swModel, Nothing)

 

    End Sub

 

    ''' <summary>

    ''' The SldWorks swApp variable is pre-assigned for you.

    ''' </summary>

    Public swApp As SldWorks

 

End Class