AnsweredAssumed Answered

Insert a BOM with option "configurations of the same part as one item"

Question asked by Mahmoud Ebesh on Sep 24, 2019
Latest reply on Sep 25, 2019 by Mahmoud Ebesh



I'm trying to insert a BOM into a drawing with the option of merging the configuration of the same part as one.

Thanks to a previous threads, I managed to copy the macro and it worked, except for merging the configurations.

here is the macro that i found:


Option Explicit

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Dim swFeatMgr As SldWorks.FeatureManager
Dim swView As SldWorks.View
Dim swBomAnn As BomTableAnnotation
Dim swBomFeat As SldWorks.BomFeature
Dim AnchorType As Long
Dim BomType As Long
Dim Configuration As String
Dim TableTemplate As String
Dim Names As Variant
Dim Visible As Variant
Dim boolstatus As Boolean

Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swSelMgr = swModel.SelectionManager
Set swFeatMgr = swModel.FeatureManager

' Get selected drawing view
Set swView = swSelMgr.GetSelectedObject6(1, 0)
AnchorType = swBOMConfigurationAnchorType_e.swBOMConfigurationAnchor_TopRight
BomType = swBomType_e.swBomType_TopLevelOnly
Configuration = ""
TableTemplate = ""

' Insert BOM table
Set swBomAnn = swView.InsertBomTable2(True, 0.4, 0.3, AnchorType, BomType, Configuration, TableTemplate)
swModel.ClearSelection2 True

' Because BOM type is swBomType_TopLevelOnly,
' then work with BomFeature to get and set configurations
Set swBomFeat = swBomAnn.BomFeature
Names = swBomFeat.GetConfigurations(False, Visible)
Visible(0) = True

boolstatus = swBomFeat.SetConfigurations(True, Visible, Names)

' Update FeatureManager design tree

End Sub


The Question is:

How I can implement what's in this link into my macro?

2019 SOLIDWORKS API Help - swPartConfigurationGroupingOption_e Enumeration 


Thanks you for any help.


I need the macro to insert the BOM and select the option marked in the screenshot


Deepak Gupta