Hide Table of Contents

Get All Sheet Metal Feature Data Example (VBA)

This example shows how to get all of the sheet metal part's feature data.

'------------------------------------------------
' Preconditions:
' 1. Open a sheet metal part.
' 2. Open the Immediate window.
'
' Postconditions: Inspect the Immediate window.
'------------------------------------------------
Dim swApp As SldWorks.SldWorks
Dim swSelMgr As SldWorks.SelectionMgr
Dim swFeat As SldWorks.Feature
Dim swSubFeat As SldWorks.Feature
Dim bRet As Boolean
Dim lRet As Long
Dim gaugeTableFile As String

Option Explicit

Sub Process_CustomBendAllowance _
( _
    swApp As SldWorks.SldWorks, _
    swModel As SldWorks.ModelDoc2, _
    swCustBend As SldWorks.CustomBendAllowance _
)

    Debug.Print "      BendAllowance    = " & swCustBend.BendAllowance * 1000# & " mm"
    Debug.Print "      BendDeduction    = " & swCustBend.BendDeduction * 1000# & " mm"
    Debug.Print "      BendTableFile    = " & swCustBend.BendTableFile
    Debug.Print "      KFactor          = " & swCustBend.KFactor
    Debug.Print "      Type             = " & swCustBend.Type

End Sub

Sub Process_SMBaseFlange _
( _
    swApp As SldWorks.SldWorks, _
    swModel As SldWorks.ModelDoc2, _
    swFeat As SldWorks.Feature _
)

    Debug.Print "  +" & swFeat.Name & " [" & swFeat.GetTypeName & "]"

    Dim swBaseFlange                As SldWorks.BaseFlangeFeatureData
    Set swBaseFlange = swFeat.GetDefinition

    Debug.Print "    BendRadius = " & swBaseFlange.BendRadius * 1000# & " mm"

End Sub

Sub Process_SheetMetal _
( _
    swApp As SldWorks.SldWorks, _
    swModel As SldWorks.ModelDoc2, _
    swFeat As SldWorks.Feature _
)

    Debug.Print "  +" & swFeat.Name & " [" & swFeat.GetTypeName & "]"

    Dim swSheetMetal  As SldWorks.SheetMetalFeatureData
    Set swSheetMetal = swFeat.GetDefinition

    Dim swCustBend As SldWorks.CustomBendAllowance
    Set swCustBend = swSheetMetal.GetCustomBendAllowance
    Debug.Print "    BendRadius = " & swSheetMetal.BendRadius * 1000# & " mm"

    Process_CustomBendAllowance swApp, swModel, swCustBend
   

    lRet = swSheetMetal.GetUseGaugeTable(bRet, gaugeTableFile)
    Debug.Print "    Use gauge table? " & bRet
    Debug.Print "      Error code as defined in swSheetMetalModifierError_e: " & lRet

End Sub

Sub Process_SM3dBend _
( _
    swApp As SldWorks.SldWorks, _
    swModel As SldWorks.ModelDoc2, _
    swFeat As SldWorks.Feature _
)

    Debug.Print "  +" & swFeat.Name & " [" & swFeat.GetTypeName & "]"

    Dim swSketchBend As SldWorks.SketchedBendFeatureData
    Dim swCustBend As SldWorks.CustomBendAllowance

    Set swSketchBend = swFeat.GetDefinition
    Set swCustBend = swSketchBend.GetCustomBendAllowance

    Debug.Print "    UseDefaultBendAllowance = " & swSketchBend.UseDefaultBendAllowance
    Debug.Print "    UseDefaultBendRadius = " & swSketchBend.UseDefaultBendRadius
    Debug.Print "    BendRadius = " & swSketchBend.BendRadius * 1000# & " mm"

    Process_CustomBendAllowance swApp, swModel, swCustBend

End Sub

Sub Process_SMMiteredFlange _
( _
    swApp As SldWorks.SldWorks, _
    swModel As SldWorks.ModelDoc2, _
    swFeat As SldWorks.Feature _
)

    Debug.Print "  +" & swFeat.Name & " [" & swFeat.GetTypeName & "]"

    Dim swMiterFlange As SldWorks.MiterFlangeFeatureData
    Set swMiterFlange = swFeat.GetDefinition

    Debug.Print "    UseDefaultBendAllowance = " & swMiterFlange.UseDefaultBendAllowance
    Debug.Print "    UseDefaultBendRadius = " & swMiterFlange.UseDefaultBendRadius
    Debug.Print "    BendRadius = " & swMiterFlange.BendRadius * 1000# & " mm"

End Sub

Sub Process_Bends _
( _
    swApp As SldWorks.SldWorks, _
    swModel As SldWorks.ModelDoc2, _
    swBends As SldWorks.BendsFeatureData _
)

    Dim swCustBend  As SldWorks.CustomBendAllowance
    Set swCustBend = swBends.GetCustomBendAllowance

    Debug.Print "    BendRadius                 = " & swBends.BendRadius * 1000# & " mm"
    Debug.Print "    UseDefaultBendAllowance    = " & swBends.UseDefaultBendAllowance
    Debug.Print "    UseDefaultBendRadius       = " & swBends.UseDefaultBendRadius

    Process_CustomBendAllowance swApp, swModel, swCustBend

End Sub

Sub Process_ProcessBends _
( _
    swApp As SldWorks.SldWorks, _
    swModel As SldWorks.ModelDoc2, _
    swFeat As SldWorks.Feature _
)

    Debug.Print "  +" & swFeat.Name & " [" & swFeat.GetTypeName & "]"

    Dim swBends                     As SldWorks.BendsFeatureData
    Set swBends = swFeat.GetDefinition

    Process_Bends swApp, swModel, swBends

End Sub

Sub Process_FlattenBends _
( _
    swApp As SldWorks.SldWorks, _
    swModel As SldWorks.ModelDoc2, _
    swFeat As SldWorks.Feature _
)

    Debug.Print "  +" & swFeat.Name & " [" & swFeat.GetTypeName & "]"

    Dim swBends                     As SldWorks.BendsFeatureData
    Set swBends = swFeat.GetDefinition

    Process_Bends swApp, swModel, swBends

End Sub

Sub Process_EdgeFlange _
( _
    swApp As SldWorks.SldWorks, _
    swModel As SldWorks.ModelDoc2, _
    swFeat As SldWorks.Feature _
)

    Debug.Print "  +" & swFeat.Name & " [" & swFeat.GetTypeName & "]"

    Dim swEdgeFlange                As SldWorks.EdgeFlangeFeatureData
    Set swEdgeFlange = swFeat.GetDefinition

    Debug.Print "    UseDefaultBendRadius = " & swEdgeFlange.UseDefaultBendRadius
    Debug.Print "    BendRadius = " & swEdgeFlange.BendRadius * 1000# & " mm"

End Sub

 
Sub Process_FlatPattern _
( _
    swApp As SldWorks.SldWorks, _
    swModel As SldWorks.ModelDoc2, _
    swFeat As SldWorks.Feature _
)

    Debug.Print "  +" & swFeat.Name & " [" & swFeat.GetTypeName & "]"

    Dim swFlatPatt                  As SldWorks.FlatPatternFeatureData
    Set swFlatPatt = swFeat.GetDefinition

    Debug.Print "      Simplify bends? " & swFlatPatt.SimplifyBends

End Sub

Sub Process_Hem _
( _
    swApp As SldWorks.SldWorks, _
    swModel As SldWorks.ModelDoc2, _
    swFeat As SldWorks.Feature _
)

    Debug.Print "  +" & swFeat.Name & " [" & swFeat.GetTypeName & "]"

    Dim swHem                       As SldWorks.HemFeatureData
    Dim swCustBend                  As SldWorks.CustomBendAllowance

    Set swHem = swFeat.GetDefinition
    Set swCustBend = swHem.GetCustomBendAllowance

    Debug.Print "    UseDefaultBendAllowance = " & swHem.UseDefaultBendAllowance
    Debug.Print "    Radius = " & swHem.Radius * 1000# & " mm"

    Process_CustomBendAllowance swApp, swModel, swCustBend

End Sub

Sub Process_Jog _
( _
    swApp As SldWorks.SldWorks, _
    swModel As SldWorks.ModelDoc2, _
    swFeat As SldWorks.Feature _
)

    Debug.Print "  +" & swFeat.Name & " [" & swFeat.GetTypeName & "]"

    Dim swJog                       As SldWorks.JogFeatureData
    Dim swCustBend                  As SldWorks.CustomBendAllowance

    Set swJog = swFeat.GetDefinition
    Set swCustBend = swJog.GetCustomBendAllowance

    Debug.Print "    UseDefaultBendAllowance = " & swJog.UseDefaultBendAllowance
    Debug.Print "    UseDefaultBendRadius = " & swJog.UseDefaultBendRadius
    Debug.Print "    BendRadius = " & swJog.BendRadius * 1000# & " mm"

    Process_CustomBendAllowance swApp, swModel, swCustBend

End Sub

Sub Process_LoftedBend _
( _
    swApp As SldWorks.SldWorks, _
    swModel As SldWorks.ModelDoc2, _
    swFeat As SldWorks.Feature _
)

    Debug.Print "  +" & swFeat.Name & " [" & swFeat.GetTypeName & "]"

    Dim swLoftBend                  As SldWorks.LoftedBendsFeatureData
    Set swLoftBend = swFeat.GetDefinition

   

End Sub

Sub Process_Rip _
( _
    swApp As SldWorks.SldWorks, _
    swModel As SldWorks.ModelDoc2, _
    swFeat As SldWorks.Feature _
)

    Debug.Print "  +" & swFeat.Name & " [" & swFeat.GetTypeName & "]"

    Dim swRip                       As SldWorks.RipFeatureData
    Set swRip = swFeat.GetDefinition

   

End Sub

Sub Process_CornerFeat _
( _
    swApp As SldWorks.SldWorks, _
    swModel As SldWorks.ModelDoc2, _
    swFeat As SldWorks.Feature _
)

    Debug.Print "  +" & swFeat.Name & " [" & swFeat.GetTypeName & "]"

    Dim swCloseCorner               As SldWorks.ClosedCornerFeatureData
    Set swCloseCorner = swFeat.GetDefinition

   

End Sub

 
Sub Process_OneBend _
( _
    swApp As SldWorks.SldWorks, _
    swModel As SldWorks.ModelDoc2, _
    swFeat As SldWorks.Feature _
)

    Debug.Print "    +" & swFeat.Name & " [" & swFeat.GetTypeName & "]"

    Dim swOneBend  As SldWorks.OneBendFeatureData
    Dim swCustBend As SldWorks.CustomBendAllowance

    Set swOneBend = swFeat.GetDefinition
    Set swCustBend = swOneBend.GetCustomBendAllowance

    Debug.Print "      UseDefaultBendAllowance = " & swOneBend.UseDefaultBendAllowance
    Debug.Print "      UseDefaultBendRadius = " & swOneBend.UseDefaultBendRadius

    Process_CustomBendAllowance swApp, swModel, swCustBend

End Sub

 
Sub main()

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swSelMgr = swModel.SelectionManager
    Set swFeat = swModel.FirstFeature

    Debug.Print "File = " & swModel.GetPathName

    Do While Not swFeat Is Nothing
        ' Process top-level sheet metal features
        Select Case swFeat.GetTypeName
            Case "SMBaseFlange"
                Process_SMBaseFlange swApp, swModel, swFeat

            Case "SheetMetal"
                Process_SheetMetal swApp, swModel, swFeat

            Case "SM3dBend"
                Process_SM3dBend swApp, swModel, swFeat

            Case "SMMiteredFlange"
                Process_SMMiteredFlange swApp, swModel, swFeat

            Case "ProcessBends"
                Process_ProcessBends swApp, swModel, swFeat

            Case "FlattenBends"
                Process_FlattenBends swApp, swModel, swFeat

            Case "EdgeFlange"
                Process_EdgeFlange swApp, swModel, swFeat

            Case "FlatPattern"
                Process_FlatPattern swApp, swModel, swFeat

            Case "Hem"
                Process_Hem swApp, swModel, swFeat

            Case "Jog"
                Process_Jog swApp, swModel, swFeat

            Case "LoftedBend"
                Process_LoftedBend swApp, swModel, swFeat

            Case "Rip"
                Process_Rip swApp, swModel, swFeat

            Case "CornerFeat"
                Process_CornerFeat swApp, swModel, swFeat

            Case Else
                ' Probably not a sheet metal feature

        End Select

        ' process sheet metal sub-features
        Set swSubFeat = swFeat.GetFirstSubFeature

        Do While Not swSubFeat Is Nothing
            Select Case swSubFeat.GetTypeName
                Case "OneBend"
                    Process_OneBend swApp, swModel, swSubFeat

                Case Else
                    ' Probably not a sheet metal feature
            End Select

            Set swSubFeat = swSubFeat.GetNextSubFeature()
        Loop

        Set swFeat = swFeat.GetNextFeature

    Loop

End Sub



Provide feedback on this topic

SOLIDWORKS welcomes your feedback concerning the presentation, accuracy, and thoroughness of the documentation. Use the form below to send your comments and suggestions about this topic directly to our documentation team. The documentation team cannot answer technical support questions. Click here for information about technical support.

* Required

 
*Email:  
Subject:   Feedback on Help Topics
Page:   Get All Sheet Metal Feature Data Example (VBA)
*Comment:  
*   I acknowledge I have read and I hereby accept the privacy policy under which my Personal Data will be used by Dassault Systèmes

Print Topic

Select the scope of content to print:



x

We have detected you are using a browser version older than Internet Explorer 7. For optimized display, we suggest upgrading your browser to Internet Explorer 7 or newer.

 Never show this message again
x

Web Help Content Version: API Help (English only) 2018 SP05

To disable Web help from within SOLIDWORKS and use local help instead, click Help > Use SOLIDWORKS Web Help.

To report problems encountered with the Web help interface and search, contact your local support representative. To provide feedback on individual help topics, use the “Feedback on this topic” link on the individual topic page.