Updated clear revision table macro to process all drawings

Author: artem

solidworks-api/document/drawing/clear-revision-table-new-revision/Macro.vba

@@ -1,33 +1,74 @@
+Const ALL_DRAWINGS As Boolean = False
+
+Const INITIAL_REV As String = "001"
+Dim COLUMNS As Variant
+
 Dim swApp As SldWorks.SldWorks
-Dim swDraw As SldWorks.DrawingDoc
-Dim swSheet As SldWorks.Sheet
 
 Sub main()
 
+    'Fill the revision table columns
+    COLUMNS = Array("Sample Zone", "", "Description", "", "Admin")
+
     Set swApp = Application.SldWorks
 
-    Set swDraw = swApp.ActiveDoc
-    
-    If Not swDraw Is Nothing Then
-    
-        Set swSheet = swDraw.GetCurrentSheet
-        
-        Dim swRevTable As SldWorks.RevisionTableAnnotation
+    Dim swDraw As SldWorks.DrawingDoc
 
-        Set swRevTable = swSheet.RevisionTable
+    If ALL_DRAWINGS Then
 
-        If Not swRevTable Is Nothing Then
-            
-            ClearRevisionTable swRevTable
-            
-            AddRevision swRevTable, "001", Array("Sample Zone", "", "Description", "", "Admin")
+        Dim vDocs As Variant
+        vDocs = swApp.GetDocuments
+        
+        Dim i As Integer
+        
+        For i = 0 To UBound(vDocs)
+            If TypeOf vDocs(i) Is SldWorks.DrawingDoc Then
+                Set swDraw = vDocs(i)
+                Debug.Print "Processing " & swDraw.GetTitle()
+                ProcessDrawing swDraw
+            End If
+        Next
+    
+    Else
 
+        Set swDraw = swApp.ActiveDoc
+        
+        If Not swDraw Is Nothing Then
+        
+            ProcessDrawing swDraw
+                       
         Else
-            MsgBox "There is no revision table in the drawing"
+            Err.Raise vbError, "", "Drawing is not open"
         End If
+
+    End If
 
+    
+End Sub
+
+Sub ProcessDrawing(draw As SldWorks.DrawingDoc)
+    
+    Dim vSheets As Variant
+    vSheets = draw.GetSheetNames
+    
+    Dim swSheet As SldWorks.sheet
+    Set swSheet = draw.sheet(CStr(vSheets(0)))
+    
+    Dim swRevTable As SldWorks.RevisionTableAnnotation
+
+    Set swRevTable = swSheet.RevisionTable
+    
+    If Not swRevTable Is Nothing Then
+            
+        ClearRevisionTable swRevTable
+    
+        AddRevision swRevTable, INITIAL_REV, COLUMNS
+        
+        draw.SetSaveFlag
+        
     Else
-        MsgBox "Plase open the drawing"
+        'NOTE: API will not work with the revision tables on any but first sheet
+        Err.Raise vbError, "", "No revision table is found on the first sheet of" & draw.GetTitle
     End If
 
 End Sub
@@ -46,14 +87,17 @@ Sub ClearRevisionTable(swRevTable As SldWorks.RevisionTableAnnotation)
         revId = swRevTable.GetIdForRowNumber(i)
 
         If revId <> 0 Then
-            swRevTable.DeleteRevision revId, True
+                
+            If False = swRevTable.DeleteRevision(revId, True) Then
+                Err.Raise vbError, "", "Failed to delete revision"
+            End If
         End If
 
     Next
 
 End Sub
 
-Sub AddRevision(swRevTable As SldWorks.RevisionTableAnnotation, revName As String, rowData As Variant)
+Function AddRevision(swRevTable As SldWorks.RevisionTableAnnotation, revName As String, rowData As Variant) As Boolean
 
     Dim i As Integer
     Dim swTableAnn As SldWorks.TableAnnotation
@@ -67,14 +111,19 @@ Sub AddRevision(swRevTable As SldWorks.RevisionTableAnnotation, revName As Strin
 
     rowIndex = swRevTable.GetRowNumberForId(revId)
 
-    For i = 0 To UBound(rowData)
+    If rowIndex <> -1 Then
+        For i = 0 To UBound(rowData)
+                    
+            If rowData(i) <> "" Then
 
-        If rowData(i) <> "" Then
+                swTableAnn.Text(rowIndex, i) = rowData(i)
 
-            swTableAnn.Text(rowIndex, i) = rowData(i)
-        
-        End If
-                
-    Next
+            End If
+                    
+        Next
+        AddRevision = True
+    Else
+        AddRevision = False
+    End If
 
-End Sub
+End Function

solidworks-api/document/drawing/clear-revision-table-new-revision/index.md

@@ -11,6 +11,26 @@ This example finds the revision table and removes all revisions and then adds ne
 
 ![Revision Table](sw-revision-table.png){ width=640 }
 
+Set the name of the revision in the **INITIAL_REV** constant
+
+~~~ vb
+Const INITIAL_REV As String = "A" 'create new revision A
+~~~
+
+Fill the values of the revision table columns in the **COLUMNS** variable. use an empty string **""** to keep the default value (e.g. date or revision)
+
+~~~ vb
+COLUMNS = Array("First Column Value", "", "Third Column Value", "", "Fifth Column Value") 'Fill the 1st, 3rd and 5th columns with the values and keep 2nd and 4th columns default value
+~~~
+
+In order to process all open drawings, instead of the active drawing, set the **ALL_DRAWINGS** constant to **True**
+
+~~~ vb
+Const ALL_DRAWINGS As Boolean = True 'process all open drawings
+~~~
+
 [IRevisionTableAnnotation](https://help.solidworks.com/2018/english/api/sldworksapi/solidworks.interop.sldworks~solidworks.interop.sldworks.irevisiontableannotation.html) SOLIDWORKS API interface is used to manage specific functionality of this type of the table.
 
-{% code-snippet { file-name: Macro.vba } %}
+> Only revisions table on the first sheet are supported
+
+{% code-snippet { file-name: Macro.vba } %}