Create 360° Revolve Feature Example (VBA)

This example shows how to create a 360° revolve feature.

'----------------------------------------------------------------------------
' Preconditions:
' Open a part document that contains an axis and a sketch of a rectangle
' to revolve around the axis.
'
' Postconditions:
' 1. A 360° revolve feature is created.
' 2. The revolve type is printed to the Immediate window.
' 3. The revolve type is set to 3.
' 4. The revolve type is printed to the Immediate window.
'---------------------------------------------------------------------------

Option Explicit

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swFeatMgr As SldWorks.FeatureManager
Dim swFeat As SldWorks.Feature
Dim swRevolveFeat As SldWorks.RevolveFeatureData2
Dim boolstatus As Boolean

Sub main()

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swModelDocExt = swModel.Extension

    boolstatus = swModelDocExt.SelectByID2("Axis1", "AXIS", -0.001439, 0.008691, -0.001923, False, 4, Nothing, 0)
    boolstatus = swModelDocExt.SelectByID2("Sketch1", "SKETCH", 0, 0, 0, True, 0, Nothing, 0)

    Set swFeatMgr = swModel.FeatureManager
    Set swFeat = swFeatMgr.FeatureRevolve2(True, True, False, False, False, False, 0, 0, 6.2831853071796, 0, False, False, 0.01, 0.01, 0, 0, 0, True, True, True)

    swModel.ViewZoomtofit2

    Set swRevolveFeat = swFeat.GetDefinition

    ' Set the type of revolve as defined in swRevolveType_e
    Debug.Print "Revolve feature type before setting to 3: " & swRevolveFeat.Type
    swRevolveFeat.Type = 3
    boolstatus = swFeat.ModifyDefinition(swRevolveFeat, swModel, Nothing)
    Debug.Print "Revolve feature type after setting to 3: " swRevolveFeat.Type

End Sub