Get Whether Component Is Envelope And Excluded From BOM (VB.NET)

This example shows how to find out if a component is an envelope and whether the component is included in the bill of materials (BOM).

'---------------------------------------------------------------------------

' Preconditions:  Specified file exists.

'

' Postconditions: None.

'

' NOTE: ISwDMComponent5::ExcludeFromBom and

' ISwDMComponent5::IsEnvelope calls print to

' the Immediate Window for each component.

'---------------------------------------------------------------------------

Imports SolidWorks.Interop.sldworks

Imports SolidWorks.Interop.swconst

Imports System

Imports SwDocumentMgr

Imports System.Diagnostics

Partial Class SolidWorksMacro

    Public Sub main()

        Dim swClassFact As SwDocumentMgr.SwDMClassFactory

        Dim swDocMgr As SwDocumentMgr.SwDMApplication

        Dim swDoc As SwDocumentMgr.SwDMDocument7

        Dim swCfgMgr As SwDocumentMgr.SwDMConfigurationMgr

        Dim swConfiguration7 As SwDMConfiguration7

        Dim swComponents As Object

        Dim sDocFileName As String

        Dim nDocType As SwDocumentMgr.SwDmDocumentType

        Dim nRetVal As SwDocumentMgr.SwDmDocumentOpenError

        Dim sLicenseKey As String

        sLicenseKey = "your_license_key"

        sDocFileName = "C:\Program Files\SolidWorks Corp\SolidWorks\samples\tutorial\advdrawings\98food processor.sldasm"

        nDocType = SwDocumentMgr.SwDmDocumentType.swDmDocumentAssembly

        swClassFact = CreateObject("SwDocumentMgr.SwDMClassFactory")

        swDocMgr = swClassFact.GetApplication(sLicenseKey)

        swDoc = swDocMgr.GetDocument(sDocFileName, nDocType, True, nRetVal)

        swCfgMgr = swDoc.ConfigurationManager

        Dim SWConfigNames() As String

        SWConfigNames = swCfgMgr.GetConfigurationNames

        For j As Integer = 0 To UBound(SWConfigNames)

            swConfiguration7 = swCfgMgr.GetConfigurationByName(SWConfigNames(j))

            swComponents = swConfiguration7.GetComponents

            Debug.Print("Configuration Name = " & SWConfigNames(j))

            For I As Integer = 0 To UBound(swComponents)

                Dim comp As SwDMComponent5

                comp = swComponents(I)

                Debug.Print("Component Name = " & comp.Name)

                Debug.Print("       IsEnvelope = " & comp.IsEnvelope)

                Debug.Print("       ExcludeFromBOM = " & comp.ExcludeFromBOM)

            Next

            Debug.Print("_______________________________________________________")

        Next

        swDoc.CloseDoc()

    End Sub

 

    ''' <summary>

    ''' The SldWorks swApp variable is pre-assigned for you.

    ''' </summary>

    Public swApp As SldWorks

 

End Class