Changed the naming of the sheet view while renaming from sheet to include ()

Fixed the issue with split folders macro when folder closing tag is included into the configuration
Added option to set if derived or top level configuration should be created fro the split folders to configurations macro
Added option to only process selected feature folders for the split folders to configurations macro

Author: artem1t

solidworks-api/document/drawing/rename-views-after-sheets/Macro.vba

@@ -48,7 +48,7 @@ Sub main()
                         nextViewIndex = nextViewIndex + 1
 
                         Dim newViewName As String
-                        newViewName = swSheetView.Name & nextViewIndex
+                        newViewName = swSheetView.Name & "(" & nextViewIndex & ")"
 
                         If False = swView.SetName2(newViewName) Then
                             Err.Raise vbError, "", "Failed to rename " & swView.Name & " to " & ""

solidworks-api/document/features-manager/split-folders-confgurations/Macro.vba

@@ -1,3 +1,5 @@
+Const CREATE_DERIVED_CONFS As Boolean = True
+
 Const FOLDER_END_TAG As String = "___EndTag___"
 
 Dim swApp As SldWorks.SldWorks
@@ -13,7 +15,18 @@ Sub main()
     If Not swModel Is Nothing Then
 
         Dim vFeatFolders As Variant
-        vFeatFolders = GetAllFeatureFolders(swModel)
+        Dim vAllFeatFolders As Variant
+        
+        Dim swSelMgr As SldWorks.SelectionMgr
+        Set swSelMgr = swModel.SelectionManager
+        
+        vAllFeatFolders = GetAllFeatureFolders(swModel)
+        
+        If swSelMgr.GetSelectedObjectCount2(-1) = 0 Then
+            vFeatFolders = vAllFeatFolders
+        Else
+            vFeatFolders = GetSelectedFeatureFolders(swModel)
+        End If
 
         If Not IsEmpty(vFeatFolders) Then
 
@@ -25,7 +38,7 @@ Sub main()
             For i = 0 To UBound(vFeatFolders)
                 Dim swFeatFolder As SldWorks.Feature
                 Set swFeatFolder = vFeatFolders(i)
-                CreateConfigurationForFolder swModel, swFeatFolder, vFeatFolders, activeConfName
+                CreateConfigurationForFolder swModel, swFeatFolder, vAllFeatFolders, IIf(CREATE_DERIVED_CONFS, activeConfName, "")
             Next
 
         End If
@@ -45,7 +58,7 @@ Function GetAllFeatureFolders(model As SldWorks.ModelDoc2) As Variant
 
     While Not swFeat Is Nothing
 
-        If swFeat.GetTypeName2() = "FtrFolder" And LCase(Right(swFeat.Name, Len(FOLDER_END_TAG))) <> LCase(FOLDER_END_TAG) Then
+        If swFeat.GetTypeName2() = "FtrFolder" And InStr(LCase(swFeat.Name), LCase(FOLDER_END_TAG)) = 0 Then
 
             If (Not swFeatFolders) = -1 Then
                 ReDim swFeatFolders(0)
@@ -70,6 +83,41 @@ Function GetAllFeatureFolders(model As SldWorks.ModelDoc2) As Variant
 
 End Function
 
+Function GetSelectedFeatureFolders(model As SldWorks.ModelDoc2) As Variant
+    
+    Dim swSelMgr As SldWorks.SelectionMgr
+    Set swSelMgr = model.SelectionManager
+
+    Dim swFeatFolders() As SldWorks.Feature
+    
+    Dim i As Integer
+    
+    For i = 1 To swSelMgr.GetSelectedObjectCount2(-1)
+        
+        If swSelMgr.GetSelectedObjectType3(i, -1) = swSelectType_e.swSelFTRFOLDER Then
+        
+            Dim swFeat As SldWorks.Feature
+            Set swFeat = swSelMgr.GetSelectedObject6(i, -1)
+            
+            If (Not swFeatFolders) = -1 Then
+                ReDim swFeatFolders(0)
+            Else
+                ReDim Preserve swFeatFolders(UBound(swFeatFolders) + 1)
+            End If
+            
+            Set swFeatFolders(UBound(swFeatFolders)) = swFeat
+        End If
+    
+    Next
+        
+    If (Not swFeatFolders) = -1 Then
+        GetSelectedFeatureFolders = Empty
+    Else
+        GetSelectedFeatureFolders = swFeatFolders
+    End If
+    
+End Function
+
 Sub CreateConfigurationForFolder(model As SldWorks.ModelDoc2, folderFeat As SldWorks.Feature, allFeatFolders As Variant, parentConfName As String)
 
     Dim swFolderConf As SldWorks.Configuration

solidworks-api/document/features-manager/split-folders-confgurations/index.md

@@ -5,7 +5,15 @@ description: VBA macro creates individual configurations for each feature folder
 ---
 This VBA macro creates configuration for each top-level feature folder in the active SOLIDWORKS part or assembly.
 
-Derived configuration will be created for each feature folder and will be named after it.
+If no objects selected in the model then all folder features will be processed, otherwise only selected feature folders will be processed.
+
+Created configuration will be named after the feature folder.
+
+It is possible to specify if derived or top level configurations should be created for each feature folder.
+
+~~~ vb
+Const CREATE_DERIVED_CONFS As Boolean = True 'True to create derived configuration, False to create top level configuration
+~~~
 
 All other folders will be suppressed for each configuration. Features outside of the folders will not be suppressed.