Translate Move Face Feature Example (VB.NET)

 This example shows how to translate a Move Face feature.

 

'-----------------------------

'

' Preconditions: Part document containing a Move Face

'             feature is open and contains a Move Face1

'             feature.

'

' Postconditions: Move Face feature is translated.

'

'----------------------------

Imports SolidWorks.Interop.sldworks

Imports SolidWorks.Interop.swconst

Imports System

Imports System.Diagnostics

 

Partial Class SolidWorksMacro

 

    Public Sub main()

 

        Dim swModel As ModelDoc2

        Dim swModelDocExt As ModelDocExtension

        Dim swSelMgr As SelectionMgr

        Dim swFeat As Feature

        Dim swMoveFaceFeatData As MoveFaceFeatureData

        Dim varPara As Object

        Dim newPara(2) As Double

        Dim newVarPara As Object

        Dim i As Long

        Dim boolstatus As Boolean

 

        swModel = swApp.ActiveDoc

        swSelMgr = swModel.SelectionManager

        swModelDocExt = swModel.Extension

 

        ' Select, get, and access Move Face feature

        boolstatus = swModelDocExt.SelectByID2("Move Face1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)

        swFeat = swSelMgr.GetSelectedObject6(1, -1)

        swMoveFaceFeatData = swFeat.GetDefinition

        swMoveFaceFeatData.AccessSelections(swModel, Nothing)

 

        ' Get current translation values

        Debug.Print("Translation values before translating Move Face feature...")

        varPara = swMoveFaceFeatData.TriadTranslationParameters

        For i = LBound(varPara) To UBound(varPara)

            Debug.Print("  " & (varPara(i) * 1000 & " mm"))

        Next i

 

        ' Set new translation values

        newPara(0) = 0.0#

        newPara(1) = 0.0#

        newPara(2) = 0.01

        newVarPara = newPara

 

        ' Move Face feature is translated using the new

        ' translation values

        swMoveFaceFeatData.TriadTranslationParameters = newVarPara

        Debug.Print(" ")

        newVarPara = swMoveFaceFeatData.TriadTranslationParameters

        Debug.Print("Translation values after translating Move Face feature...")

        For i = LBound(varPara) To UBound(newVarPara)

            Debug.Print("  " & (newVarPara(i) * 1000.0# & " mm"))

        Next i

 

        ' Move Face feature is modified

        swFeat.ModifyDefinition(swMoveFaceFeatData, swModel, Nothing)

 

    End Sub

 

    ''' <summary>

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

    ''' </summary>

    Public swApp As SldWorks

 

End Class