Posts

Showing posts from September, 2017

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 fpath = InputBox("Paste the folder location") For i = 0 To UBound(vconfig) 'swmodel.Extension.ac