Create Revolve Feature Example (VBA)

This example shows how to create a revolve feature.

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

' Preconditions:

' 1. Part document is open.

' 2. Line4@Sketch1 exists.

'

' Postconditions: Revolve feature is created.

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

Option Explicit

Sub main()

    Dim swApp                   As SldWorks.SldWorks

    Dim swModel                 As SldWorks.ModelDoc

    Dim swFeat                  As SldWorks.Feature

    Dim swRevolve               As SldWorks.RevolveFeatureData2

    Dim bRet                    As Boolean

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    ' Select line to use for revolution axis; Mark argument must be set to 4

    bRet = swModel.Extension.SelectByID2("Line4@Sketch1", "EXTSKETCHSEGMENT", 0#, 0#, 0#, False, 4, Nothing, swSelectOptionDefault): Debug.Assert bRet

    ' Select the sketch to use for the revolve feature

    bRet = swModel.Extension.SelectByID2("Sketch1", "SKETCH", 0#, 0#, 0#, True, 0, Nothing, swSelectOptionDefault): Debug.Assert bRet

    Set swFeat = swModel.FeatureManager.FeatureRevolve2(True, True, False, False, False, false, 0, 0, 4.747295565425, 0, False, False, 0.01, 0.01, 0, 0, 0, True, True, True): Debug.Assert Not swFeat Is Nothing

    Set swRevolve = swFeat.GetDefinition: Debug.Assert Not swRevolve Is Nothing

End Sub

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