Fixed the split cut-list to configurations macro to exclude empty cut-lists

Added the progress bar to split cut-list to configurations macro
Added the option to find tables from active sheet only for the export table to csv
Added option to 3D PDF export for the multi format export macro

Author: artem1t

solidworks-api/document/cut-lists/split-to-configurations/Macro.vba

@@ -4,12 +4,16 @@ Dim swApp As SldWorks.SldWorks
 
 Sub main()
 
+    Dim swProgressBar As SldWorks.UserProgressBar
+
 try_:
 
     On Error GoTo catch_
 
     Set swApp = Application.SldWorks
 
+    swApp.GetUserProgressBar swProgressBar
+    
     Dim swModel As SldWorks.ModelDoc2
 
     Set swModel = swApp.ActiveDoc
@@ -21,6 +25,8 @@ try_:
             Dim vCutLists As Variant
             vCutLists = GetCutLists(swModel)
 
+            swProgressBar.Start 0, UBound(vCutLists), "Creating configurations for cut-lists"
+            
             Dim i As Integer
 
             For i = 0 To UBound(vCutLists)
@@ -31,17 +37,30 @@ try_:
                 Dim swCutListFolder As SldWorks.BodyFolder
                 Set swCutListFolder = swCutList.GetSpecificFeature2
 
-                Dim vBodies As Variant
+                Dim vCutListBodies As Variant
+                vCutListBodies = swCutListFolder.GetBodies()
+                
+                If Not IsEmpty(vCutListBodies) Then
+                
+                    Dim vBodies As Variant
+                    
+                    If KEEP_ALL_CUT_LIST_BODIES Then
+                        vBodies = vCutListBodies
+                    Else
+                        Dim swBody(0) As SldWorks.Body2
+                        Set swBody(0) = vCutListBodies(0)
+                        vBodies = swBody
+                    End If
+                    
+                    Debug.Print "Creating configuration for " & swCutList.Name
+                    
+                    CreateConfigurationForBodies swModel, vBodies, swCutList.Name
 
-                If KEEP_ALL_CUT_LIST_BODIES Then
-                    vBodies = swCutListFolder.GetBodies
                 Else
-                    Dim swBody(0) As SldWorks.Body2
-                    Set swBody(0) = swCutListFolder.GetBodies()(0)
-                    vBodies = swBody
+                    Debug.Print swCutList.Name & " has no bodies"
                 End If
 
-                CreateConfigurationForBodies swModel, vBodies, swCutList.Name
+                swProgressBar.UpdateProgress i + 1
 
             Next
 
@@ -57,6 +76,10 @@ try_:
 catch_:
     MsgBox Err.Description, vbCritical
 finally_:
+
+    If Not swProgressBar Is Nothing Then
+        swProgressBar.End
+    End If
 
 End Sub
 

solidworks-api/document/cut-lists/split-to-configurations/index.md

@@ -16,6 +16,12 @@ Macro will create as many configurations as cut-lists feature in the document an
 
 Macro will name the configuration after the cut-list name.
 
+Macro will display the progress bar in the SOLIDWORKS icon:
+
+![Progress of the operation](progress-bar.png)
+
+## Configuration
+
 **KEEP_ALL_CUT_LIST_BODIES** constant allows to control should the macro isolate all cut-list bodies or only keep a single unique body.
 
 ~~~ vb

solidworks-api/document/cut-lists/split-to-configurations/progress-bar.png

@@ -2,7 +2,8 @@
 
 Const OUT_FILE_PATH_TEMPLATE As String = "<_FileName_>-<_TableName_>.csv" 'ouput file path template
 Const INCLUDE_HEADER As Boolean = True
-Const TABLE_TYPE As Integer = -1 '-1 to use selected table or table type as defined in swTableAnnotationType_e
+Const TABLE_TYPE As Integer = -1  '-1 to use selected table or table type as defined in swTableAnnotationType_e
+Const ALL_SHEETS As Boolean = True 'True to export from all sheets (if TABLE_TYPE is not -1), False to export from active sheet only
 
 Const MERGE As Boolean = False
 
@@ -71,7 +72,18 @@ try_:
                 Err.Raise vbError, "", "Only drawing document is supported"
             End If
 
-            vTables = FindTables(swModel, tableType)
+            Dim swDraw As SldWorks.DrawingDoc
+            Set swDraw = swModel
+            
+            Dim sheetName As String
+            
+            If ALL_SHEETS Then
+                sheetName = ""
+            Else
+                sheetName = swDraw.GetCurrentSheet().GetName
+            End If
+            
+            vTables = FindTables(swDraw, tableType, sheetName)
 
         End If
 
@@ -180,7 +192,7 @@ Function GetTableData(tableAnn As SldWorks.TableAnnotation, includeHeader As Boo
 
 End Function
 
-Function FindTables(draw As SldWorks.DrawingDoc, filter As swTableAnnotationType_e) As Variant
+Function FindTables(draw As SldWorks.DrawingDoc, filter As swTableAnnotationType_e, sheetName As String) As Variant
 
     Dim swTables() As SldWorks.TableAnnotation
     Dim isInit As Boolean
@@ -200,33 +212,37 @@ Function FindTables(draw As SldWorks.DrawingDoc, filter As swTableAnnotationType
         Dim swSheetView As SldWorks.View
         Set swSheetView = vViews(0)
 
-        Dim vTableAnns As Variant
-        vTableAnns = swSheetView.GetTableAnnotations
+        If sheetName = "" Or LCase(sheetName) = LCase(swSheetView.Name) Then
 
-        If Not IsEmpty(vTableAnns) Then
-            
-            Dim j As Integer
+            Dim vTableAnns As Variant
+            vTableAnns = swSheetView.GetTableAnnotations
 
-            For j = 0 To UBound(vTableAnns)
+            If Not IsEmpty(vTableAnns) Then
 
-                Dim swTableAnn As SldWorks.TableAnnotation
-                Set swTableAnn = vTableAnns(j)
+                Dim j As Integer
 
-                If swTableAnn.Type = filter Then
+                For j = 0 To UBound(vTableAnns)
 
-                    If isInit Then
-                        ReDim Preserve swTables(UBound(swTables) + 1)
-                    Else
-                        ReDim swTables(0)
-                        isInit = True
-                    End If
+                    Dim swTableAnn As SldWorks.TableAnnotation
+                    Set swTableAnn = vTableAnns(j)
 
-                    Set swTables(UBound(swTables)) = swTableAnn
+                    If swTableAnn.Type = filter Then
+                        
+                        If isInit Then
+                            ReDim Preserve swTables(UBound(swTables) + 1)
+                        Else
+                            ReDim swTables(0)
+                            isInit = True
+                        End If
+                        
+                        Set swTables(UBound(swTables)) = swTableAnn
+                        
+                    End If
 
-                End If
+                Next
 
-            Next
-            
+            End If
+        
         End If
 
     Next

solidworks-api/document/tables/export-table-csv/Macro.vba

@@ -39,6 +39,7 @@ Macro can be configured by modifying the value of the constants
 Const OUT_FILE_PATH_TEMPLATE As String = "<_FileName_>-<_TableName_>.csv" 'empty string to save in the model's folder
 Const INCLUDE_HEADER As Boolean = True 'True to include the table header, False to only include data
 Const TABLE_TYPE As Integer = swTableAnnotationType_e.swTableAnnotation_BillOfMaterials  '-1 to use selected table or table type as defined in swTableAnnotationType_e (e.g. swTableAnnotationType_e.swTableAnnotation_BillOfMaterials to export all BOM tables)
+Const ALL_SHEETS As Boolean = False 'False to export from active sheet only
 
 Const MERGE As Boolean = False 'True to merge all tables into a single file
 ~~~

solidworks-api/document/tables/export-table-csv/index.md

@@ -1,6 +1,7 @@
 Const ALL_CONFIGS As Boolean = False
 Const OUT_FOLDER As String = ""
 Const STEP_VERSION As Long = 214 '203 or 214
+Const PDF_3D As Boolean = False 'True to export 3D PDF
 
 Dim OUT_NAME_TEMPLATES As Variant
 
@@ -115,8 +116,20 @@ Sub ExportFile(model As SldWorks.ModelDoc2, vOutNameTemplates As Variant, allCon
             outDir = Left(outFilePath, InStrRev(outFilePath, "\"))
 
             CreateDirectories outDir
-    
-            If False = model.Extension.SaveAs(outFilePath, swSaveAsVersion_e.swSaveAsCurrentVersion, swSaveAsOptions_e.swSaveAsOptions_Silent, Nothing, errs, warns) Then
+            
+            Dim swExportData As Object
+            
+            If LCase(GetExtension(outFilePath)) = LCase("pdf") Then
+                Dim swExportPdfData As SldWorks.ExportPdfData
+                Set swExportPdfData = swApp.GetExportFileData(swExportDataFileType_e.swExportPdfData)
+                swExportPdfData.ViewPdfAfterSaving = False
+                swExportPdfData.ExportAs3D = PDF_3D
+                Set swExportData = swExportPdfData
+            Else
+                Set swExportData = Nothing
+            End If
+            
+            If False = model.Extension.SaveAs(outFilePath, swSaveAsVersion_e.swSaveAsCurrentVersion, swSaveAsOptions_e.swSaveAsOptions_Silent, swExportData, errs, warns) Then
                 Err.Raise vberrror, "", "Failed to export to " & outFilePath
             End If
 
@@ -226,9 +239,11 @@ Function ResolveToken(token As String, model As SldWorks.ModelDoc2) As String
 End Function
 
 Function GetFileNameWithoutExtension(path As String) As String
-    
     GetFileNameWithoutExtension = Mid(path, InStrRev(path, "\") + 1, InStrRev(path, ".") - InStrRev(path, "\") - 1)
-    
+End Function
+
+Function GetExtension(path As String) As String
+    GetExtension = Right(path, Len(path) - InStrRev(path, "."))
 End Function
 
 Function FileExists(filePath As String) As Boolean

solidworks-api/import-export/export-multi-formats/Macro.vba

@@ -53,12 +53,18 @@ Sub main()
 
 ### Export Options
 
-Export options for STEP format can be configured by changing the value of the **STEP_VERSION** variable. Set it to **214** for **AP214** format or to **203** to **AP203** format.
+Export options for STEP format can be configured by changing the value of the **STEP_VERSION** constant. Set it to **214** for **AP214** format or to **203** to **AP203** format.
 
 ~~~ vb
 Const STEP_VERSION As Long = 214 '203 or 214
 ~~~
 
+To export 3D PDF set the **PDF_3D** constant to **True**
+
+~~~ vb
+Const PDF_3D As Boolean = True
+~~~
+
 ### Include Component Quantity Into File Name
 
 If this macro is run for all components of the assembly, it might be required to include the BOM quantity into the file name. Use the [Write component quantity in the SOLIDWORKS assembly to custom property