Set Options for Parting Line Example (VBA)

This example shows how to set the split faces and core/cavity split options for a parting line.

 

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

'

' Preconditions:

'         (1) Part document with a parting line feature is open.

'         (2) Parting line feature is selected.              

'

' Postconditions: The split faces and core/cavity split options are set.

'

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

Option Explicit

 

Public Enum swSplitFacesOption_e

    swSplitFacesAtPlusMinusDraftTransition = 0

    swSplitFacesAtSpecifiedAngle = 1

End Enum

 

Sub main()

    Dim swApp                   As SldWorks.SldWorks

    Dim swModel                 As SldWorks.ModelDoc2

    Dim swSelMgr                As SldWorks.SelectionMgr

    Dim swFeat                  As SldWorks.feature

    Dim swPartingLine           As SldWorks.PartingLineFeatureData

    Dim i                       As Long

    Dim bRet                    As Boolean

    Dim SplitFaceOption         As Long

    

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swSelMgr = swModel.SelectionManager

    Set swFeat = swSelMgr.GetSelectedObject6(1, 0)

    Set swPartingLine = swFeat.GetDefinition

 

    Debug.Print "File = " & swModel.GetPathName

    Debug.Print "  " & swFeat.Name

    Debug.Print "    " & swPartingLine.angle

    Debug.Print "    Split faces = " & swPartingLine.SplitFaces

    Debug.Print "    Core/cavity split = " & swPartingLine.CoreCavitySplit

    

    SplitFaceOption = swPartingLine.SplitFacesOption

    swPartingLine.SplitFacesOption = swSplitFacesAtPlusMinusDraftTransition

    Debug.Print "    Split faces option = " & swPartingLine.SplitFacesOption

 

    bRet = swPartingLine.AccessSelections(swModel, Nothing): Debug.Assert bRet

    

    swPartingLine.SplitFaces = True

    swPartingLine.CoreCavitySplit = True

    

    Debug.Print " "

    Debug.Print "    Split faces = " & swPartingLine.SplitFaces

    Debug.Print "    Core/cavity split = " & swPartingLine.CoreCavitySplit

    swPartingLine.SplitFacesOption = swSplitFacesAtSpecifiedAngle

    Debug.Print "    Split faces option = " & swPartingLine.SplitFacesOption

    

    bRet = swFeat.ModifyDefinition(swPartingLine, swModel, Nothing): Debug.Assert bRet

 

End Sub