Icarus :

- modifiche per SLICINGTYPE.DEG45 = 2 e SLICINGTYPE.HORIZONTAL = 3 per facilitare la gestione dei casi con tipi 1 e 3 senza il 3.

Icarus/CurrMachiningPanel/CurrMachining.vb

@@ -675,9 +675,9 @@ Public Class CurrComboMachiningParam
          Case Params.SLICINGTYPE
             Dim nHorizontalPrint As Integer = GetPrivateProfileInt(S_MACH_PRINTING3D, K_HORIZONTAL_PRINT, 0, CurrentMachine.sMachIniFile)
             m_ValueList = New List(Of IdNameStruct)({New IdNameStruct(Machining.MPAR_SLICINGTYPE.VERTICAL, "Vertical"),
-                                                     New IdNameStruct(Machining.MPAR_SLICINGTYPE.HORIZONTAL, "Horizontal")})
+                                                     New IdNameStruct(Machining.MPAR_SLICINGTYPE.DEG45, "45°")})
             If nHorizontalPrint > 0 Then
-               m_ValueList.Add(New IdNameStruct(Machining.MPAR_SLICINGTYPE.DEG45, "45°"))
+               m_ValueList.Add(New IdNameStruct(Machining.MPAR_SLICINGTYPE.HORIZONTAL, "Horizontal"))
             End If
             Dim nSelValue As Integer = 0
             bReadFromPart = EgtGetInfo(nPartId, MAC_SLICINGTYPE, nSelValue)

Icarus/MachiningDb/Machining.vb

@@ -8,8 +8,8 @@ Public Class Machining
 
    Public Enum MPAR_SLICINGTYPE As Integer
       VERTICAL = 1
-      HORIZONTAL = 2
-      DEG45 = 3
+      DEG45 = 2
+      HORIZONTAL = 3
    End Enum
 
    Public Enum MPAR_STRANDORDERS As Integer
@@ -967,9 +967,9 @@ Public Class ComboMachiningParam
             Case Params.SLICINGTYPE
                Dim nHorizontalPrint As Integer = GetPrivateProfileInt(S_MACH_PRINTING3D, K_HORIZONTAL_PRINT, 0, CurrentMachine.sMachIniFile)
                m_ValueList = New List(Of IdNameStruct)({New IdNameStruct(Machining.MPAR_SLICINGTYPE.VERTICAL, "Vertical"),
-                                                     New IdNameStruct(Machining.MPAR_SLICINGTYPE.HORIZONTAL, "Horizontal")})
+                                                        New IdNameStruct(Machining.MPAR_SLICINGTYPE.DEG45, "45°")})
                If nHorizontalPrint > 0 Then
-                  m_ValueList.Add(New IdNameStruct(Machining.MPAR_SLICINGTYPE.DEG45, "45°"))
+                  m_ValueList.Add(New IdNameStruct(Machining.MPAR_SLICINGTYPE.HORIZONTAL, "Horizontal"))
                End If
                Dim nSelValue As Double = ReadMachiningParamDouble(nIndex, MAC_SLICINGTYPE, -1)
                If nSelValue = -1 Then

Icarus/SceneHost/MySceneHostVM.vb

@@ -869,7 +869,7 @@ Public Class MySceneHostVM
       Dim nTabPartId As Integer = EgtGetFirstNameInGroup(GDB_ID.ROOT, TABLE)
       If nTabPartId <> GDB_ID.NULL Then
          Dim sMachineName As String = ""
-         EgtGetInfo(nTabPartId, KEY_MACHINE_NAME, sMachineName)
+         if Not EgtGetInfo(nTabPartId, KEY_MACHINE_NAME, sMachineName) Then sMachineName = "Cms-Kreator" 
          Dim ProjectMachine As Machine = Map.refMachinePanelVM.MachineList.FirstOrDefault(Function(x) x.Name = sMachineName)
          If Not IsNothing(ProjectMachine) Then
             ' imposto la macchina