Insert Wrap Feature Example (VBA)

This example shows how to insert a wrap feature.

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

'

' Preconditions:

'         (1) Part document is open.

'         (2) Part contains at least one nonplanar face, which is the face on which

'             to place the wrap feature, and Sketch2, which is the sketch

'             for the wrap feature.

'

' Postconditions: Wrap feature created on the selected nonplanar face.

'

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

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swModelDocExt As SldWorks.ModelDocExtension

Dim boolstatus As Boolean

Dim swFeatMgr As SldWorks.FeatureManager

Dim swSelMgr As SldWorks.SelectionMgr

Sub main()

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

swModel.ClearSelection2 True

Set swModelDocExt = swModel.Extension

' Mark the sketch to use for wrap feature as 4

boolstatus = swModelDocExt.SelectByID2("Sketch2", "SKETCH", 0, 0, 0, True, 4, Nothing, swSelectOptionDefault)

' Mark the face on which to place wrap feature as 1

boolstatus = swModelDocExt.SelectByID2("", "FACE", 0.04262519387424, 0.0996132999727, -0.02870339000378, True, 1, Nothing, swSelectOptionDefault)

Set swFeatMgr = swModel.FeatureManager

' Create a wrap feature of type scribe

swFeatMgr.InsertWrapFeature 2, 0.001, 0

swModel.ClearSelection2 True

End Sub