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

@Khoa_NguyenDang 

 

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

 

KC-New part.PNG

 

 

KC-2.png

 

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