Insert Gusset Feature Example (VBA)

This example shows how to create a weldment gusset feature.

'----------------------------------------------------------------------------
' Preconditions: Open install_dir\samples\tutorial\api\weldment_box3.
'
' Postconditions: Creates Gusset5.
'
' NOTE: Because the model is used elsewhere, do not save changes.
' ---------------------------------------------------------------------------

Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim myFeature As SldWorks.Feature
Dim boolstatus As Boolean

Option Explicit

Sub main()

    Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc
   

    boolstatus = Part.Extension.SelectByID2("", "FACE", 0.600909534718824, 0.15614125327869, -0.985000000000127, True, 0, Nothing, 0)
    boolstatus = Part.Extension.SelectByID2("", "FACE", 0.597259667129663, 1.49999999998727E-02, -0.944257845206607, True, 0, Nothing, 0)
   

    Set myFeature = Part.FeatureManager.InsertGussetFeature3(0.005, swGussetThicknessType_e.swGussetThicknessBothSides, swGussetProfileLocationType_e.swGussetProfileLocationCenter, False, 0.025, 0.025, 0.015, 0.78539816339745, 0.015, False, 0.005, 0, False, False, False, 0.0125, 0.0125, 0.785398163397452, True, False)
   

End Sub