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 

 

I have created the code in VBA for a test and it works perfectly, Check out the below screencast and code as well. The code is in VBA, so please note that you need to convert it to make it work in VB.Net or C#.

 

 

 

 

Dim oPartDoc As PartDocument
Set oPartDoc = ThisApplication.ActiveEditDocument

Dim oCompDef As PartComponentDefinition
Set oCompDef = oPartDoc.ComponentDefinition

Dim oFeat As PartFeature
FCount = 1
Dim oFaceCol As FaceCollection
Set oFaceCol = ThisApplication.TransientObjects.CreateFaceCollection
For Each oFeat In oCompDef.Features
If InStr((oFeat.Name), "Patch") Then
oFaceCol.Clear
For Each oFace In oFeat.SurfaceBodies.Item(1).Faces
Call oFaceCol.Add(oFace)
Dim oThickFeat As ThickenFeature
Set oThickFeat = oCompDef.Features.ThickenFeatures.Add(oFaceCol, "0.4", kSymmetricExtentDirection, kNewBodyOperation, True)
oThickFeat.Name = "Thicken-Partition" & FCount
FCount = FCount + 1
Next
End If
Next
End Sub

 
 
 
 
Hope this will be helpful.
If this answer has solved your problem please ACCEPT SOLUTION and hit like if you found it helpful..!


Regards,
Dutt Thakar
LinkedIn