AnsweredAssumed Answered

Thickening Multiple Surface Bodies

Question asked by Mike Price on Nov 6, 2017
Latest reply on Aug 29, 2018 by Mithilesh Kapre

Hi all,

 

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)

    Next

Outcomes