See release_notes.md for V2023.5

rmcanany · Jul 1, 2023 · 407542b · 407542b
1 parent 48b9470
commit 407542b
Show file tree

Hide file tree

Showing 5 changed files with 32 additions and 75 deletions.
diff --git a/My Project/AssemblyTasks.vb b/My Project/AssemblyTasks.vb
@@ -1173,8 +1173,6 @@ Public Class AssemblyTasks
         Catch ex As Exception
         End Try
 
-
-
         If Occurrences.Count = 0 Then
             AsmRefPlanes.Visible = True
 
@@ -1198,10 +1196,6 @@ Public Class AssemblyTasks
             SEApp.StartCommand(CType(40084, SolidEdgeFramework.SolidEdgeCommandConstants))
         End If
 
-        '' SEApp.StartCommand(CType(SolidEdgeConstants.AssemblyCommandConstants.AssemblyViewISOView, SolidEdgeFramework.SolidEdgeCommandConstants))
-        'SEApp.StartCommand(CType(SolidEdgeConstants.AssemblyCommandConstants.AssemblyViewTrimetricView, SolidEdgeFramework.SolidEdgeCommandConstants))
-        'SEApp.StartCommand(CType(SolidEdgeConstants.AssemblyCommandConstants.AssemblyViewFit, SolidEdgeFramework.SolidEdgeCommandConstants))
-
         If SEDoc.ReadOnly Then
             ExitStatus = 1
             ErrorMessageList.Add("Cannot save document marked 'Read Only'")
@@ -1248,32 +1242,32 @@ Public Class AssemblyTasks
         Dim ExitStatus As Integer = 0
         Dim ErrorMessage As New Dictionary(Of Integer, List(Of String))
 
-        Dim Occurrences As SolidEdgeAssembly.Occurrences = SEDoc.Occurrences
-        Dim AsmRefPlanes As SolidEdgeAssembly.AsmRefPlanes = SEDoc.AsmRefPlanes
-        Dim AsmRefPlane As SolidEdgeAssembly.AsmRefPlane
+        'Dim Occurrences As SolidEdgeAssembly.Occurrences = SEDoc.Occurrences
+        'Dim AsmRefPlanes As SolidEdgeAssembly.AsmRefPlanes = SEDoc.AsmRefPlanes
+        'Dim AsmRefPlane As SolidEdgeAssembly.AsmRefPlane
         'Dim Occurrence As SolidEdgeAssembly.Occurrence
 
-        If Occurrences.Count = 0 Then
-            AsmRefPlanes.Visible = True
-            ' Some files with nothing but sketches fail here
-            Try
-                For Each AsmRefPlane In AsmRefPlanes
-                    AsmRefPlane.Visible = False
-                    AsmRefPlane.Visible = True
-                Next
-            Catch ex As Exception
-                ExitStatus = 1
-                ErrorMessageList.Add("Problem processing reference planes.  Please verify results.")
-            End Try
-            'Else
-            '    SEApp.StartCommand(CType(SolidEdgeConstants.AssemblyCommandConstants.AssemblyAssemblyToolsShowAll, SolidEdgeFramework.SolidEdgeCommandConstants))
-            '    SEApp.StartCommand(CType(SolidEdgeConstants.AssemblyCommandConstants.AssemblyAssemblyToolsHideAllReferencePlanes, SolidEdgeFramework.SolidEdgeCommandConstants))
-            '    SEApp.StartCommand(CType(40080, SolidEdgeFramework.SolidEdgeCommandConstants)) 'Hide Sketches
-            '    SEApp.StartCommand(CType(40081, SolidEdgeFramework.SolidEdgeCommandConstants)) 'Hide Reference Axes
-            '    SEApp.StartCommand(CType(40082, SolidEdgeFramework.SolidEdgeCommandConstants))
-            '    SEApp.StartCommand(CType(40083, SolidEdgeFramework.SolidEdgeCommandConstants))
-            '    SEApp.StartCommand(CType(40084, SolidEdgeFramework.SolidEdgeCommandConstants))
-        End If
+        'If Occurrences.Count = 0 Then
+        '    AsmRefPlanes.Visible = True
+        '    ' Some files with nothing but sketches fail here
+        '    Try
+        '        For Each AsmRefPlane In AsmRefPlanes
+        '            AsmRefPlane.Visible = False
+        '            AsmRefPlane.Visible = True
+        '        Next
+        '    Catch ex As Exception
+        '        ExitStatus = 1
+        '        ErrorMessageList.Add("Problem processing reference planes.  Please verify results.")
+        '    End Try
+        '    'Else
+        '    '    SEApp.StartCommand(CType(SolidEdgeConstants.AssemblyCommandConstants.AssemblyAssemblyToolsShowAll, SolidEdgeFramework.SolidEdgeCommandConstants))
+        '    '    SEApp.StartCommand(CType(SolidEdgeConstants.AssemblyCommandConstants.AssemblyAssemblyToolsHideAllReferencePlanes, SolidEdgeFramework.SolidEdgeCommandConstants))
+        '    '    SEApp.StartCommand(CType(40080, SolidEdgeFramework.SolidEdgeCommandConstants)) 'Hide Sketches
+        '    '    SEApp.StartCommand(CType(40081, SolidEdgeFramework.SolidEdgeCommandConstants)) 'Hide Reference Axes
+        '    '    SEApp.StartCommand(CType(40082, SolidEdgeFramework.SolidEdgeCommandConstants))
+        '    '    SEApp.StartCommand(CType(40083, SolidEdgeFramework.SolidEdgeCommandConstants))
+        '    '    SEApp.StartCommand(CType(40084, SolidEdgeFramework.SolidEdgeCommandConstants))
+        'End If
 
         If Configuration("RadioButtonPictorialViewIsometric").ToLower = "true" Then
             SEApp.StartCommand(CType(SolidEdgeConstants.AssemblyCommandConstants.AssemblyViewISOView, SolidEdgeFramework.SolidEdgeCommandConstants))
@@ -1285,10 +1279,6 @@ Public Class AssemblyTasks
             SEApp.StartCommand(CType(SolidEdgeConstants.AssemblyCommandConstants.AssemblyViewTrimetricView, SolidEdgeFramework.SolidEdgeCommandConstants))
         End If
 
-        'RadioButtonPictorialViewDimetric = True
-        'RadioButtonPictorialViewIsometric = False
-        ' SEApp.StartCommand(CType(SolidEdgeConstants.AssemblyCommandConstants.AssemblyViewISOView, SolidEdgeFramework.SolidEdgeCommandConstants))
-
         SEApp.StartCommand(CType(SolidEdgeConstants.AssemblyCommandConstants.AssemblyViewFit, SolidEdgeFramework.SolidEdgeCommandConstants))
 
         If SEDoc.ReadOnly Then

diff --git a/My Project/Form1.vb b/My Project/Form1.vb
@@ -1025,7 +1025,7 @@ Public Class Form1
         Dim EndIdx As Integer = Len(LinkLabelGitHubReadme.Text) - 1
         LinkLabelGitHubReadme.Links.Add(StartIdx, EndIdx, "https://github.com/rmcanany/SolidEdgeHousekeeper#readme")
 
-        Me.Text = "Solid Edge Housekeeper 2023.4.3"
+        Me.Text = "Solid Edge Housekeeper 2023.5"
 
         new_CheckBoxFileSearch.Checked = False
         new_ComboBoxFileSearch.Enabled = False

diff --git a/My Project/PartTasks.vb b/My Project/PartTasks.vb
@@ -1339,10 +1339,6 @@ Public Class PartTasks
 
         SEDoc.CoordinateSystems.Visible = False
 
-        '' SEApp.StartCommand(CType(SolidEdgeConstants.PartCommandConstants.PartViewISOView, SolidEdgeFramework.SolidEdgeCommandConstants))
-        'SEApp.StartCommand(CType(SolidEdgeConstants.PartCommandConstants.SheetMetalViewTrimetricView, SolidEdgeFramework.SolidEdgeCommandConstants))
-        'SEApp.StartCommand(CType(SolidEdgeConstants.PartCommandConstants.PartViewFit, SolidEdgeFramework.SolidEdgeCommandConstants))
-
         If SEDoc.ReadOnly Then
             ExitStatus = 1
             ErrorMessageList.Add("Cannot save document marked 'Read Only'")
@@ -1395,29 +1391,13 @@ Public Class PartTasks
 
         Models = SEDoc.Models
 
-        If Models.Count > 0 Then
-            'RefPlanes = SEDoc.RefPlanes
-            'For Each RefPlane In RefPlanes
-            '    RefPlane.Visible = False
-            'Next
-        Else
+        If Models.Count = 0 Then
             RefPlanes = SEDoc.RefPlanes
             For Each RefPlane In RefPlanes
                 RefPlane.Visible = True
             Next
         End If
 
-        ''Some imported files crash on this command
-        'Try
-        '    SEDoc.Constructions.Visible = False
-        'Catch ex As Exception
-        'End Try
-
-        'SEDoc.CoordinateSystems.Visible = False
-
-        ' SEApp.StartCommand(CType(SolidEdgeConstants.PartCommandConstants.PartViewISOView, SolidEdgeFramework.SolidEdgeCommandConstants))
-        ' SEApp.StartCommand(CType(SolidEdgeConstants.PartCommandConstants.SheetMetalViewTrimetricView, SolidEdgeFramework.SolidEdgeCommandConstants))
-
         If Configuration("RadioButtonPictorialViewIsometric").ToLower = "true" Then
             SEApp.StartCommand(CType(SolidEdgeConstants.PartCommandConstants.PartViewISOView, SolidEdgeFramework.SolidEdgeCommandConstants))
         End If

diff --git a/My Project/SheetmetalTasks.vb b/My Project/SheetmetalTasks.vb
@@ -1746,29 +1746,13 @@ Public Class SheetmetalTasks
 
         Models = SEDoc.Models
 
-        If Models.Count > 0 Then
-            'RefPlanes = SEDoc.RefPlanes
-            'For Each RefPlane In RefPlanes
-            '    RefPlane.Visible = False
-            'Next
-        Else
+        If Models.Count = 0 Then
             RefPlanes = SEDoc.RefPlanes
             For Each RefPlane In RefPlanes
                 RefPlane.Visible = True
             Next
         End If
 
-        ''Some imported files crash on this command
-        'Try
-        '    SEDoc.Constructions.Visible = False
-        'Catch ex As Exception
-        'End Try
-
-        'SEDoc.CoordinateSystems.Visible = False
-
-        ' SEApp.StartCommand(CType(SolidEdgeConstants.PartCommandConstants.PartViewISOView, SolidEdgeFramework.SolidEdgeCommandConstants))
-
-
         If Configuration("RadioButtonPictorialViewIsometric").ToLower = "true" Then
             SEApp.StartCommand(CType(SolidEdgeConstants.PartCommandConstants.PartViewISOView, SolidEdgeFramework.SolidEdgeCommandConstants))
         End If

diff --git a/release_notes.md b/release_notes.md
@@ -11,7 +11,7 @@ of yours.  Do not run it on production work without testing on backups first.
 Feel free to report bugs and/or ideas for improvement on the 
 [**Solid Edge Forum**](https://community.sw.siemens.com/s/topic/0TO4O000000MihiWAC/solid-edge)
 
-## V2023.4 Enhancements/Fixes
+## V2023.5 Enhancements/Fixes
 
 ### Update Draft Styles from Template
 
@@ -58,7 +58,10 @@ another technique to help eliminate gray corners on drawings.
 
 Recursion means
 that if a Part Copy is encountered, the parent file is opened.
-If *that* file has a Part Copy, its parent is opened, etc.
+If *that* file has a Part Copy, its parent is opened in turn.
+The program continues in this fashion until the base file
+(ie one with no Part Copies) is reached.
+It then updates each file in reverse order.
 
 The option is set on the **Configuration Tab -- Miscellaneous Group**.