Create Multiple-Radius Fillets Example (VBA)

This example shows how to create multiple-radius fillets.

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

'

' Preconditions:

'           (1) Part document is open.

'           (3) Three intersecting edges on the part are selected.

'

' Postconditions: The three selected edges are filleted

'           using the specified radii.

'

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

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swModelDocExt As SldWorks.ModelDocExtension

Dim swFeatMgr As SldWorks.FeatureManager

Dim VarRadArray8 As Variant

Dim radArray8(2) As Double

Dim FilletOptions As Long

Sub main()

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swModelDocExt = swModel.Extension

    Set swFeatMgr = swModel.FeatureManager

    'Multiple Radii

    radArray8(0) = 0.01

    radArray8(1) = 0.015

    radArray8(2) = 0.02

    VarRadArray8 = radArray8

'Fillet options

FilletOptions = swFeatureFilletPropagate + swFeatureFilletAttachEdges + swFeatureFilletKeepFeatures

    'Create multiple-radius fillets along selected edges

    swFeatMgr.FeatureFillet FilletOptions, 0.01, swFeatureFilletType_Simple, swFilletOverFlowType_Default, (VarRadArray8), 0, 0

End Sub