SolidWorks Macro / API Tutorials

 ---

Comments

Post a Comment

Popular posts from this blog

SolidWorks Macro to create DXF file from each configuration

'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...
Read more

Referenced Configuration of Top level Components in Assembly

      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...
Read more