Get Data for Fillet Feature Example (VBA)

This example shows how to get the data for the selected fillet feature.

'----------------------------------------------------------------------------
' Preconditions:
' 1. Open a model document with a simple fillet feature.
' 2. Select the simple fillet feature.
' 3. Open the Immediate window.
' 4. Run the macro.
'
' Postconditions: Inspect the Immediate window.
'---------------------------------------------------------------------------

Option Explicit

Sub main()

    Dim swApp                   As SldWorks.SldWorks
    Dim swModel                 As SldWorks.ModelDoc2
    Dim swSelMgr                As SldWorks.SelectionMgr
    Dim swFeat                  As SldWorks.Feature
    Dim swFillet                As SldWorks.SimpleFilletFeatureData2
   

    Set swApp = CreateObject("SldWorks.Application")
    Set swModel = swApp.ActiveDoc
    Set swSelMgr = swModel.SelectionManager
    Set swFeat = swSelMgr.GetSelectedObject6(1, -1)
    Set swFillet = swFeat.GetDefinition

    Debug.Print "File = " & swModel.GetPathName
    Debug.Print "Feature = " & swFeat.Name
    Debug.Print "   Constant width? " & swFillet.ConstantWidth
    Debug.Print "   Curvature continuous? " & swFillet.CurvatureContinuous
    Debug.Print "   Default radius = " & swFillet.DefaultRadius
    Debug.Print "   Number of fillet items = " & swFillet.FilletItemsCount
    Debug.Print "   Multiple radii? " & swFillet.IsMultipleRadius
    Debug.Print "   Keep existing features? " & swFillet.KeepFeatures
    Debug.Print "   Apply fillet to attachment edges? " & swFillet.OmitAttachedEdges
    Debug.Print "   Overflow type = " & swFillet.OverflowType
    Debug.Print "   Extend fillet to all affected parts? " & swFillet.PropagateFeatureToParts
    Debug.Print "   Extend fillet to all tangent faces? " & swFillet.PropagateToTangentFaces
    Debug.Print "   Reverse normal? " & swFillet.ReverseFaceNormal(0)
    Debug.Print "   Round fillet corners? " & swFillet.RoundCorners
    Debug.Print "   Trim and attach to surfaces? " & swFillet.TrimAndAttachSurfaces
    Debug.Print "   Type of fillet? " & swFillet.Type
    Debug.Print "   Number of faces associated with this fillet = " & swFillet.GetFaceCount(swSimpleFilletWhichFaces_e.swSimpleFilletSingleRadius)
 

End Sub