SolidWorks API / Macros

      Dim swApp As SldWorks.SldWorks     Dim swAssy As SldWorks.AssemblyDoc     Dim swSelMgr As SldWorks.SelectionMgr     Dim swModel As SldWorks.ModelDoc     Dim swComp As SldWorks.Component     Dim RefCfg As String     Dim vcomp As Variant Sub main()     Set swApp = Application.SldWorks     Set swModel = swApp.ActiveDoc     Set swAssy = swModel     vcomp = swAssy.GetComponents(True)     'Set swSelMgr = swModel.SelectionManager     For i = 0 To UBound(vcomp)          Set swComp = vcomp(i)     ' Change component configuration to "in-use"     'swComp.ReferencedConfiguration = ""     RefCfg = swComp.ReferencedConfiguration     MsgBox.Show swComp.Name2 & "-" & "Referenced configuration: " & RefCfg     Next     ' For changes to take effect     swModel.E...

'Hi All, 'The Code as follows: Dim swApp As SldWorks.SldWorks Dim swmodel As SldWorks.ModelDoc2 Dim swconfig As SldWorks.Configuration Dim vconfig As Variant Dim swpart As SldWorks.PartDoc Dim dataAlignment(11) As Double Dim varAlignment As Variant Dim dataViews(0) As String Sub main() Set swApp = Application.SldWorks Set swmodel = swApp.ActiveDoc Set swpart = swmodel vconfig = swmodel.GetConfigurationNames dataAlignment(0) = 0     dataAlignment(1) = 0     dataAlignment(2) = 0     dataAlignment(3) = 1     dataAlignment(4) = 0     dataAlignment(5) = 0     dataAlignment(6) = 0     dataAlignment(7) = 1     dataAlignment(8) = 0     dataAlignment(9) = 0     dataAlignment(10) = 0     dataAlignment(11) = 1     varAlignment = dataAlignment     dataViews(0) = "*Current" varviews = dataViews Dim bool As Boolean Dim fpath As String fp...

 We all work with SolidWorks toolbox components .But we wonder if we could remove the flag at sometime. I have created a Macro file which would help you to remove the flag of Toolbox Components in assembly. Reach me for any clarification.