AnsweredAssumed Answered

Macro Sheet metal cut size

Question asked by Biko Te Winkel on Sep 4, 2017
Latest reply on Sep 19, 2017 by Biko Te Winkel

Hello guys,

 

On my Solidworks 2017 sp4 version i'm running a macro to automattically create/fill a cutlist with my own property names for sheet metal body's.

Now i've got a problem with this macro.

When i'm running this macro for a PART with multiple body's (sheet metal, weldments and extrudes) it's it's also changing the custom property's for my weldment files.

 

Is there anyone right here who can add an exeption to this macro? something like only change 'sheet metal' cutlist items?

The macro:

 

Sub main()

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swModelDocExt = swModel.Extension

   

   

    ' Get the DeleteFace feature

    Set swFeat = swModel.FirstFeature

   

     Do While Not swFeat Is Nothing

       

        If swFeat Is Nothing Then

            Exit Do

        End If

 

        featureName = swFeat.Name

       

        If swFeat.GetTypeName2 = "CutListFolder" Then

             boolstatus = swModelDocExt.SelectByID2(featureName, "SUBWELDFOLDER", 0, 0, 0, False, 0, Nothing, 0)

            swModelDocExt.Create3DBoundingBox

 

 

            Set swCustPropMgr = swFeat.CustomPropertyManager

            swCustPropMgr.Add3 "Afmeting", swCustomInfoType_e.swCustomInfoText, """SW-3D-Bounding Box Width@@@" & swFeat.Name & "@" & FileName & ".SLDPRT""" & " x """ & "SW-3D-Bounding Box Length@@@" & swFeat.Name & "@" & FileName & ".SLDPRT""mm", swCustomPropertyAddOption_e.swCustomPropertyDeleteAndAdd

        

            Set swCustPropMgr = swFeat.CustomPropertyManager

            swCustPropMgr.Add3 "Benaming", swCustomInfoType_e.swCustomInfoText, "Plaat ""SW-Sheet Metal Thickness@@@" & swFeat.Name & "@" & FileName & ".SLDPRT""mm", swCustomPropertyAddOption_e.swCustomPropertyDeleteAndAdd

           

            Set swCustPropMgr = swFeat.CustomPropertyManager

            swCustPropMgr.Add3 "Materiaal", swCustomInfoType_e.swCustomInfoText, """SW-Material@@@" & swFeat.Name & "@" & FileName & ".SLDPRT""", swCustomPropertyAddOption_e.swCustomPropertyDeleteAndAdd

           

            Set swCustPropMgr = swFeat.CustomPropertyManager

            swCustPropMgr.Add3 "Opmerking", swCustomInfoType_e.swCustomInfoText, """", swCustomPropertyAddOption_e.swCustomPropertyDeleteAndAdd

           

        End If

   

        Debug.Print swFeat.GetTypeName2

        Set swFeat = swFeat.GetNextFeature

    Loop

   

    MsgBox "Done setting Afmeting, Benaming, Materiaal, Opmerking property"

End Sub

 

Only a weldment works fine (no macro needed for the right custom propertys)

after adding a sheet metal body and running the macro, the custom propertys of the sheet metal are fine

but it also changed the weldment's custom properties by adding a bounding box.

 

I hope someone can help me changing this macro, i'm a leek with macro's!

 

Kind regards,

 

Biko

Outcomes