Create Multiple-Radius Fillets Example (VBA)

This example shows how to create multiple-radius fillets.

'--------------------------------------------------------------------------
' Preconditions:
' 1. Open install_dir\samples\introsw\box.sldprt.
' 2. Select three intersecting edges on the inside of the part.
'
' Postconditions: The three selected edges are filleted using three
'                 different radii.
'
' Note: Because the model is used elsewhere, do not save changes to it.
'---------------------------------------------------------------------------

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