Create envelop surface

[dialunau]

Hello everyone,

I'm trying to create a surface around parts that have holes or cuts on them, so I can only have the external shape. I created a code to get the part as surface, but I don't want the holes and cuts to create new surfaces that cut the main surface.

The parts:

 

What I want:

What I'm getting:

How can I achieve this?
My code is as follows:

    Dim oTarg As PartDocument = ThisApplication.ActiveDocument
    Dim oTargDef As PartComponentDefinition = oTarg.ComponentDefinition
	
    ' Get the surface body
	Dim oSelbody As SurfaceBody = oTargDef.SurfaceBodies(1)
    Dim oTransbods As ObjectCollection = ThisApplication.TransientObjects.CreateObjectCollection
    Dim oPartfeats As PartFeatures = oTargDef.Features
    Dim oTran As Transaction
	
    oTran = ThisApplication.TransactionManager.StartTransaction(ThisApplication.ActiveDocument, "Temp")
    Call oTransbods.Add(ThisApplication.TransientBRep.Copy(oSelbody))
    oTran.End
    
    oTran = ThisApplication.TransactionManager.StartTransaction(ThisApplication.ActiveDocument, "")
    Dim oNewbody As SurfaceBody
    For Each body In oTransbods
         XFeature = oPartfeats.NonParametricBaseFeatures.Add(oNewbody)
    Next
    oTran.End

Thank you for the help.

[JelteDeJong · Accepted solution]

depending on your inventor version, you could look at the shrinkwrap or simplified part command. I think one of that commands will do what you want. Depending on your needs you can choose to automate workflows with those commands.

[dialunau]

I tried the shrinkwrap method, it works perfect.

Now I just have an additional question: is there a way (after breaking the link) to place the whrinkwrap in the exact position of the original part in an assembly?