Insert MidSurface in Component (VBA)

This example shows how to insert a midsurface feature in a component.

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

' Preconditions:  Assembly is open in SolidWorks and must contain at least

'                 one component. The component must contain a solid body.

'

' Postconditions: A midsurface feature is inserted in the component.

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

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As ModelDoc2

Dim swExt As ModelDocExtension

Dim swSelMgr As SldWorks.SelectionMgr

Dim swComp As SldWorks.Component2

Dim swAssem As SldWorks.AssemblyDoc

Dim featMgr As SldWorks.FeatureManager

Sub main()

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

Set swExt = swModel.Extension

Set swSelMgr = swModel.SelectionManager

Set featMgr = swModel.FeatureManager

Set swAssem = swModel

Dim vComponents As Variant

vComponents = swAssem.GetComponents(True)

Set swComp = vComponents(0)

Dim vBodies As Variant

vBodies = swComp.GetBodies2(swSolidBody)

Dim pBody As Body2

Set pBody = vBodies(0)

Dim midSurf As MidSurface3

Set midSurf = featMgr.InsertMidSurface(pBody, swComp.GetModelDoc2, 0.5, True)

Debug.Print "Face count: " & midSurf.GetFaceCount

End Sub