Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
Aririmo
368 Views, 4 Replies

Multiple Thicken features on multiple bodies

Hello,

 

I am trying to use the thicken features on multiple faces of multiple bodies, but I cannot get more than one thicken feature, my program stops after the first iteration.

Here is the code I tried :

Private Sub MultipleThickens()

Dim oApp As Inventor.Application
Set oApp = ThisApplication

Dim oPartDoc As PartDocument
Set oPartDoc = oApp.ActiveDocument

Dim oCompDef As PartComponentDefinition
Set oCompDef = oPartDoc.ComponentDefinition

Dim oSB As SurfaceBody

Dim oFacesCol As FaceCollection
Set oFacesCol = oApp.TransientObjects.CreateFaceCollection

Dim oFace As Face

Dim oThickFeat As ThickenFeature

For Each oSB In oCompDef.SurfaceBodies
   For Each oFace In oSB.Faces
   Call oFacesCol.Add(oFace)
   Next
Set oThickFeat = oCompDef.Features.ThickenFeatures.Add(oFacesCol, 5, kNegativeExtentDirection, kCutOperation)
Call oFacesCol.Clear
Next

End Sub

 

How should I do to create a new thicken feature for each body iteration ?

 

Thanks !

 

 

Tags (2)
Labels (1)