I am trying to use InsertCombineFeature command in accordance with API Help documentation but having some troubles.

Here are a few lines of code:

Dim vBodyArr As Object

vBodyArr = swPart.GetBodies2(swBodyType_e.swSolidBody, True)      ' return all bodies in open part
myFeature = swModel.FeatureManager.InsertCombineFeature( _
                   swCombineBodiesOperationType_e.swCombineBodiesOperationCommon, Nothing, vBodyArr)
             

but execution is freezing at the last line.

Maybe you can advice what is wrong here?

Maybe you can suggest an example of InsertCombineFeature implementation? (I could not find anything in API Help)

Many Thanks,

Simon