- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
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 !
Solved! Go to Solution.