I'm trying to thicken multiple surface bodies.
I have the following, but it is not creating a thickened body. I should be able to create a thicken from a selected surface body without selecting the face, correct?
any help would be greatly appreciated.
Dim i As Long
Dim Part As Object
Dim boolstatus As Boolean
Dim vBody As Variant
vBody = swPart.GetBodies2(swSheetBody, True)
For i = LBound(vBody) To UBound(vBody)
Set swBody = vBody(i)
' MsgBox i
boolstatus = Part.Extension.SelectByID2(swBody.Name, "SURFACEBODY", 0, 0, 0, False, 1, Nothing, 0)
Dim myFeature As Object
Set myFeature = Part.FeatureManager.FeatureBossThicken(0.000508, 1, 0, False, False, False, False)