Create Revolve Feature Example (VBA)

This example shows how to create a revolve feature.

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

'

' Preconditions:

'         (1) Part document is open.

'         (2) Sketches (Line1@Sketch1 and Sketch1) for revolve feature exist.

'

' Postconditions: Revolve feature 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 axis; Mark argument must be set to 4

    bRet = swModel.Extension.SelectByID2("Line1@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.featurerevolve( _

                    0.3490658503989, False, _

                    0#, 0, 0, True, True, True): Debug.Assert Not swFeat Is Nothing

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

End Sub

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