12-21-2020
03:03 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
12-21-2020
03:03 AM
Can you take the face object collection creation out of the loop and check? try below code. I have crated a new part using make components and tried this rule and it works fine.
Dim oDef As PartComponentDefinition = ThisApplication.ActiveDocument.ComponentDefinition Dim oSB As SurfaceBody = oDef.SurfaceBodies.Item(1) ' This is first solid after derive "Laminate" MessageBox.Show(oSB.Name) Dim oFaceCol As FaceCollection = ThisApplication.TransientObjects.CreateFaceCollection Dim oThickFeat As PartFeature i = 1 For Each oFace As Face In oSB.Faces oFaceCol.Clear oFaceCol.Add(oFace) oThickFeat = oDef.Features.ThickenFeatures.Add(oFaceCol, "5", kSymmetricExtentDirection, kNewBodyOperation, False) oThickFeat.Name = "Laminate" & i i = i + 1 Next
Hope it helps.
Regards,
Dutt Thakar
If this answer has solved your problem please ACCEPT SOLUTION and hit like if you found it helpful..!
Regards,
Dutt Thakar
LinkedIn
Regards,
Dutt Thakar