Gestione spessore materiali inch

- aggiornamento info programma.

CadCuts/NestPageUC.xaml

@@ -8,7 +8,7 @@
    d:DesignHeight="853.3" d:DesignWidth="1280" Initialized="NestPage_Initialized" Loaded="NestPage_Loaded" Unloaded="NestPage_Unloaded">
       
    <!-- Definizione della NestPage -->
-   <Grid Name="NestPageGrid" >
+   <Grid Name="NestPageGrid">
       <Grid.ColumnDefinitions>
          <ColumnDefinition Width="3*"/>
          <ColumnDefinition Width="12*"/>

CadCuts/NestPageUC.xaml.vb

@@ -62,6 +62,14 @@ Public Class NestPageUC
    Private m_bMaximizeMove As Boolean = False
    Private m_dAngStep As Double = 0
    Private m_bReducedCut As Boolean = False
+
+   Private m_bKeyCtrlPressed As Boolean = False
+   Private m_bKeyLeftShiftPressed As Boolean = False
+   Private m_dAngTotal As Double = 0
+   Private m_dStartAng As Double = 0
+   Private m_bStartRot As Boolean = False
+   Private m_bStartMove As Boolean = False
+
    ' Dati per tolleranza spessore Trf
    Private m_dTrfThickTolerance As Double = 0
    ' Dati movimento registrazione grezzo
@@ -94,6 +102,7 @@ Public Class NestPageUC
       RemovePartBtn.ToolTip = EgtMsg(MSG_NESTPAGEUC + 3)            'Remove part - Elimina pezzo
       SelectAllBtn.ToolTip = EgtMsg(MSG_NESTPAGEUC + 4)             'Select All - Seleziona Tutto
       DeselectAllBtn.ToolTip = EgtMsg(MSG_NESTPAGEUC + 5)           'Deselect All - Deseleziona Tutto
+      DragRettanleBtn.ToolTip = "Strech"
 
       Dim nColumsIn_UG1 As Integer = 2
       ' gestisco la visualizzazione del comando PAN (per il drag dei rettangoli)
@@ -1053,7 +1062,9 @@ Public Class NestPageUC
       m_locPrev = e.Location
       m_bDrag = m_bDrag AndAlso EgtUnProjectPoint(e.Location, m_ptPrev)
       m_bDragToStart = m_bDrag
+      ' attivo la modalità di traslazione e rotazione senza cltrollo collisioni (solo in fase di Drag)
       m_bVerify = m_bDrag AndAlso (Keyboard.Modifiers And ModifierKeys.Shift) > 0
+      m_bKeyLeftShiftPressed = m_bVerify
       m_vtTotMove = Vector3d.NULL()
    End Sub
 
@@ -1116,51 +1127,114 @@ Public Class NestPageUC
          m_bVerify = True
          m_bFromParking = True
       End If
+
       ' Inizio esecuzione di drag
       m_bDragging = True
       ' Ricavo il punto corrente in coordinate mondo
       Dim ptCurr As Point3d
       EgtUnProjectPoint(e.Location, ptCurr)
-      ' Ricavo il vettore di movimento
-      Dim vtMove As Vector3d = ptCurr - m_ptPrev
-      ' Muovo i pezzi selezionati di quanto possibile
-      If vtMove.SqLen() > EPS_SMALL * EPS_SMALL Then
-         ' Se movimento con sola verifica finale
-         If m_bVerify Then
-            EgtMove(nMoveId, vtMove)
-            m_vtTotMove += vtMove
-            ' altrimenti caso con verifica durante il movimento
-         Else
-            ' Aggiorno regioni per nesting
-            UpdateNestRegions()
-            EnableReferenceRegion(False)
-            ' muovo il pezzo
-            EgtMovePart(nMoveId, m_bReducedCut, vtMove)
-            EgtSaveCollInfo()
-            ' se movimento risultante nullo, provo con movimento tangente
-            Dim bTgMoved As Boolean = False
-            If vtMove.IsSmall() Then
-               ' riprovo con movimento tangente
-               Dim vtTgMove As Vector3d = ptCurr - m_ptPrev
-               EgtTgMovePartOnCollision(nMoveId, m_bReducedCut, vtTgMove)
-               bTgMoved = (Not vtTgMove.IsSmall())
-            End If
-            ' se abilitato magnetico (allineamento + snap), lo provo
-            Dim bAlignMoved As Boolean = False
-            Dim bSnapMoved As Boolean = False
-            If m_bMagnetic Then
-               If Not GetLockOnRotation(nMoveId) Then
-                  EgtAlignPartOnCollision(nMoveId, m_bReducedCut, bAlignMoved)
-               End If
-               If m_dSnapDist > EPS_SMALL Then
-                  EgtRestoreCollInfo()
-                  EgtMovePartToSnapPointOnCollision(nMoveId, m_bReducedCut, m_dSnapDist, bSnapMoved)
-               End If
-            End If
-            m_CurrProjPage.ResetOrderMachiningFlag()
+
+      ' la rotazione è attivabile solo se premuto il tasto Ctrl (e non sono in parheggio)
+      m_bKeyCtrlPressed = m_bDrag AndAlso (Keyboard.Modifiers And ModifierKeys.Control) > 0
+
+      '-------------Inizio ROTAZIONE ----------------
+      If m_bKeyCtrlPressed AndAlso (Not m_bFromParking OrElse m_bKeyLeftShiftPressed) Then
+         ' Calcolo il centro di rotazione come centro del cluster
+         Dim ptCen As Point3d
+         If Not EgtGetPartPartClusterCenterGlob(nMoveId, ptCen) Then Return
+         ' definisco il vettore dal centro del pezzo alla posizione del cursore
+         Dim vtCurr As Vector3d = ptCurr - ptCen
+         Dim dLen, dHAng, dVAng As Double
+         ' recupero l'angolo orizzontale del vettore
+         vtCurr.ToSpherical(dLen, dHAng, dVAng)
+         If Not m_bStartRot Then
+            m_dAngTotal = 0
+            ' notifico una rotazione
+            m_bStartRot = True
+            m_dStartAng = dVAng
          End If
-         EgtDraw()
-         ' Eventuale notifica al VeinMatching
+         Dim dDeltaAng As Double = dVAng - m_dStartAng
+         ' gestione del passaggio da 0° → 360° evitando mantenendo la visualizzazione fluida       
+         If Math.Abs(dDeltaAng) > 90 Then
+            If m_dStartAng < 180 And dVAng > 180 Then
+               dDeltaAng = dVAng - 360 - m_dStartAng
+            ElseIf m_dStartAng > 180 And dVAng < 180 Then
+               dDeltaAng = dVAng - m_dStartAng + 360
+            End If
+         End If
+         ' Rotazione del pezzo attorno al suo centro
+         If Math.Abs(dDeltaAng) > EPS_ANG_SMALL Then
+            ' se il tasto Shift è premuto (disabilitato il controllo collisioni durante il Drag) 
+            If m_bKeyLeftShiftPressed Then
+               EgtRotate(nMoveId, ptCen, Vector3d.Z_AX(), dDeltaAng, GDB_RT.GLOB)
+               m_dAngTotal += dDeltaAng
+            Else
+               ' esegue la rotazione fino ad incontrare un altro pezzo
+               RotatePartInsideBond(dDeltaAng, nMoveId)
+               m_CurrProjPage.ResetOrderMachiningFlag()
+               ' Eventuale notifica al VeinMatching
+               Dim nId As Integer = EgtGetFirstSelectedObj()
+               While nId <> GDB_ID.NULL
+                  VeinMatching.OnMovePartInRaw(nId)
+                  nId = EgtGetNextSelectedObj()
+               End While
+            End If
+            m_dStartAng = dVAng
+         End If
+         '-------------Fine ROTAZIONE ----------------
+
+      Else
+         ' -------------Inizio TRASLAZIONE ---------------
+         ' Ricavo il vettore di movimento
+         Dim vtMove As Vector3d = ptCurr - m_ptPrev
+         ' Muovo i pezzi selezionati di quanto possibile
+         If vtMove.SqLen() > EPS_SMALL * EPS_SMALL Then
+            ' notifico una traslazione
+            If Not m_bStartMove Then
+               m_bStartMove = True
+            End If
+
+            ' Se movimento con sola verifica finale (disabilitato il controllo collisioni durante il Drag)
+            If m_bVerify Then
+               EgtMove(nMoveId, vtMove)
+               m_vtTotMove += vtMove
+               ' altrimenti caso con verifica durante il movimento
+            Else
+               ' Aggiorno regioni per nesting
+               UpdateNestRegions()
+               EnableReferenceRegion(False)
+               ' muovo il pezzo
+               EgtMovePart(nMoveId, m_bReducedCut, vtMove)
+               EgtSaveCollInfo()
+               ' se movimento risultante nullo, provo con movimento tangente
+               Dim bTgMoved As Boolean = False
+               If vtMove.IsSmall() Then
+                  ' riprovo con movimento tangente
+                  Dim vtTgMove As Vector3d = ptCurr - m_ptPrev
+                  EgtTgMovePartOnCollision(nMoveId, m_bReducedCut, vtTgMove)
+                  bTgMoved = (Not vtTgMove.IsSmall())
+               End If
+               ' se abilitato magnetico (allineamento + snap), lo provo
+               Dim bAlignMoved As Boolean = False
+               Dim bSnapMoved As Boolean = False
+               If m_bMagnetic Then
+                  If Not GetLockOnRotation(nMoveId) Then
+                     EgtAlignPartOnCollision(nMoveId, m_bReducedCut, bAlignMoved)
+                  End If
+                  If m_dSnapDist > EPS_SMALL Then
+                     EgtRestoreCollInfo()
+                     EgtMovePartToSnapPointOnCollision(nMoveId, m_bReducedCut, m_dSnapDist, bSnapMoved)
+                  End If
+               End If
+               m_CurrProjPage.ResetOrderMachiningFlag()
+            End If
+            ' -------------Fine TRASLAZIONE ---------------
+         End If
+      End If
+
+      EgtDraw()
+      ' Eventuale notifica al VeinMatching
+      If m_bStartMove OrElse m_bStartRot Then
          If nMoveId = GDB_ID.SEL Then
             Dim nId As Integer = EgtGetFirstSelectedObj()
             While nId <> GDB_ID.NULL
@@ -1171,6 +1245,7 @@ Public Class NestPageUC
             VeinMatching.OnMovePartInRaw(nMoveId)
          End If
       End If
+
       ' Aggiorno il punto precedente
       m_ptPrev = ptCurr
       ' Terminata esecuzione di drag
@@ -1202,47 +1277,31 @@ Public Class NestPageUC
 
       ' Se eseguito drag
       If Not m_bDragToStart Then
-         ' Se movimento con sola verifica finale
-         If m_bVerify Then
-            ' Determino cosa verificare
-            Dim nMoveId = If(m_nIdToSel <> GDB_ID.NULL, m_nIdToSel, GDB_ID.SEL)
-            ' Aggiorno regioni per nesting
-            UpdateNestRegions()
-            EnableReferenceRegion(False)
-            ' Eseguo verifica
-            If VerifyTrfData(nMoveId) And EgtVerifyPart(nMoveId, m_bReducedCut) Then
-               m_CurrProjPage.ResetOrderMachiningFlag()
-               ' Non superata riporto alla posizione iniziale
+         ' Se movimento con sola verifica finale ----- TRASLAZIONE
+         If Not m_bStartRot And m_bStartMove Then
+            VerifyMove()
+            ' Se movimento con sola verifica finale ----- TRASLAZIONE + ROTAZIONE
+         ElseIf m_bStartRot And m_bStartMove Then
+            If Not m_bFromParking Then
+               VerifyRot()
             Else
-               If m_bFromParking Then
-                  m_CurrProjPage.ClearMessage()
-                  PreRemoveOnePart(nMoveId)
-                  VeinMatching.OnRemovePartFromRaw(nMoveId)
-               Else
-                  EgtMove(nMoveId, -m_vtTotMove)
-                  ' Eventuale notifica al VeinMatching
-                  If nMoveId = GDB_ID.SEL Then
-                     Dim nId As Integer = EgtGetFirstSelectedObj()
-                     While nId <> GDB_ID.NULL
-                        VeinMatching.OnMovePartInRaw(nId)
-                        nId = EgtGetNextSelectedObj()
-                     End While
-                  Else
-                     VeinMatching.OnMovePartInRaw(nMoveId)
-                  End If
-               End If
-               '---------------------- COUNTER PART ----------------------
-               Dim sRefGroup As String = String.Empty
-               If EgtGetInfo(nMoveId, INFO_REFGROUP, sRefGroup) Then
-                  ' accendo il layer che contiene il contatore (spento in fase di Drag)
-                  Dim nCounterLayer As Integer = EgtGetFirstNameInGroup(nMoveId, INFO_COUNTERLY)
-                  EgtSetStatus(nCounterLayer, GDB_ST.ON_)
-                  ' aggiorno il layer che indica il numero di pezzi in parcheggio
-                  CountPartInFamily(sRefGroup)
-               End If
-               '---------------------- COUNTER PART ----------------------
+               ' forzo il reset delle info di rotazione
+               m_dStartAng = 0
+               m_dAngTotal = 0
+               m_bStartRot = False
+            End If
+            VerifyMove()
+            ' verifico se la posizione finale della rotazione è corretta ----- ROTAZIONE
+         ElseIf m_bStartRot And Not m_bStartMove Then
+            If m_bFromParking Then
+               VerifyMove()
+               ' forzo il reset delle info di rotazione
+               m_dStartAng = 0
+               m_dAngTotal = 0
+               m_bStartRot = False
+            Else
+               VerifyRot()
             End If
-            m_bFromParking = False
             ' altrimenti caso con verifica durante il movimento
          Else
             ' Basta reset alla fine
@@ -1306,6 +1365,70 @@ Public Class NestPageUC
       EgtDraw()
    End Sub
 
+   Private Sub VerifyMove()
+      If m_bVerify Then
+         ' Determino cosa verificare
+         Dim nMoveId = If(m_nIdToSel <> GDB_ID.NULL, m_nIdToSel, GDB_ID.SEL)
+         ' Aggiorno regioni per nesting
+         UpdateNestRegions()
+         EnableReferenceRegion(False)
+         ' Eseguo verifica
+         If VerifyTrfData(nMoveId) And EgtVerifyPart(nMoveId, m_bReducedCut) Then
+            m_CurrProjPage.ResetOrderMachiningFlag()
+            ' Non superata riporto alla posizione iniziale
+         Else
+            If m_bFromParking Then
+               m_CurrProjPage.ClearMessage()
+               PreRemoveOnePart(nMoveId)
+               VeinMatching.OnRemovePartFromRaw(nMoveId)
+            Else
+               EgtMove(nMoveId, -m_vtTotMove)
+               ' Eventuale notifica al VeinMatching
+               If nMoveId = GDB_ID.SEL Then
+                  Dim nId As Integer = EgtGetFirstSelectedObj()
+                  While nId <> GDB_ID.NULL
+                     VeinMatching.OnMovePartInRaw(nId)
+                     nId = EgtGetNextSelectedObj()
+                  End While
+               Else
+                  VeinMatching.OnMovePartInRaw(nMoveId)
+               End If
+            End If
+            '---------------------- COUNTER PART ----------------------
+            ' solo se pezzo disposto in tavola
+            If m_bFromParking Then
+               Dim sRefGroup As String = String.Empty
+               If EgtGetInfo(nMoveId, INFO_REFGROUP, sRefGroup) Then
+                  ' accendo il layer che contiene il contatore (spento in fase di Drag)
+                  Dim nCounterLayer As Integer = EgtGetFirstNameInGroup(nMoveId, INFO_COUNTERLY)
+                  EgtSetStatus(nCounterLayer, GDB_ST.ON_)
+                  ' aggiorno il layer che indica il numero di pezzi in parcheggio
+                  CountPartInFamily(sRefGroup)
+               End If
+            End If
+            '---------------------- COUNTER PART ----------------------
+         End If
+         m_bFromParking = False
+      End If
+   End Sub
+
+   Private Sub VerifyRot()
+      ' se comando Shift è stato attivato
+      If m_bKeyLeftShiftPressed Then
+         ' Determino cosa verificare
+         Dim nMoveId = If(m_nIdToSel <> GDB_ID.NULL, m_nIdToSel, GDB_ID.SEL)
+         If Not EgtVerifyPart(nMoveId, m_bReducedCut) Then
+            Dim ptCen As Point3d
+            If Not EgtGetPartPartClusterCenterGlob(nMoveId, ptCen) Then Return
+            EgtRotate(nMoveId, ptCen, Vector3d.Z_AX(), -m_dAngTotal, GDB_RT.GLOB)
+         End If
+      End If
+      ' resetto i valori 
+      m_dStartAng = 0
+      m_dAngTotal = 0
+      m_bStartRot = False
+   End Sub
+
    Friend Function SelectPart(nPartId As Integer, bNotifyVM As Boolean) As Boolean
       EgtSetCurrentContext(m_CurrProjPage.CurrentProjectScene.GetCtx())
       ' Determino se pezzo in tavola o in parcheggio
@@ -1577,7 +1700,7 @@ Public Class NestPageUC
       If m_nPartPos <> PART_POS.IN_TABLE Then
          Dim nId As Integer = EgtGetFirstSelectedObj()
          While nId <> GDB_ID.NULL
-            ' Se pezzo con rotazione libera
+            ' Se pezzo con rotazione libera (in parcheggio)
             If Not EgtExistsInfo(nId, INFO_PARTROT) Then
                ' Calcolo il centro di rotazione come centro del pezzo
                Dim ptCen As Point3d
@@ -1613,25 +1736,30 @@ Public Class NestPageUC
          Return True
          ' Altrimenti li ruoto tenendo conto delle collisioni
       Else
-         ' Verifico se ci sono dei pezzi bloccati in rotazione
-         Dim bLockedRot As Boolean = GetLockOnRotation(GDB_ID.SEL)
-         ' Se tutti i pezzi possono ruotare
-         If Not bLockedRot Then
-            ' Calcolo il centro di rotazione come centro del cluster
-            Dim ptCen As Point3d
-            If Not EgtGetPartPartClusterCenterGlob(GDB_ID.SEL, ptCen) Then Return False
-            ' Aggiorno regioni per nesting
-            UpdateNestRegions()
-            EnableReferenceRegion(False)
-            ' Verifico rotazione complessiva
-            EgtRotate(GDB_ID.SEL, ptCen, Vector3d.Z_AX(), dAngRotDeg, GDB_RT.GLOB)
-            If EgtVerifyPart(GDB_ID.SEL, m_bReducedCut) Then Return True
-            ' Provo rotazione parziale (dopo aver annullato la complessiva)
-            EgtRotate(GDB_ID.SEL, ptCen, Vector3d.Z_AX(), -dAngRotDeg, GDB_RT.GLOB)
-            Return EgtRotatePart(GDB_ID.SEL, m_bReducedCut, ptCen, dAngRotDeg)
-         Else
-            Return False
-         End If
+         Return RotatePartInsideBond(dAngRotDeg, GDB_ID.SEL)
+      End If
+   End Function
+
+   ' verifica che la rotazione sia ammessa
+   Private Function RotatePartInsideBond(dAngRotDeg As Double, nIdMove As Integer) As Boolean
+      ' Verifico se ci sono dei pezzi bloccati in rotazione
+      Dim bLockedRot As Boolean = GetLockOnRotation(nIdMove)
+      ' Se tutti i pezzi possono ruotare
+      If Not bLockedRot Then
+         ' Calcolo il centro di rotazione come centro del cluster
+         Dim ptCen As Point3d
+         If Not EgtGetPartPartClusterCenterGlob(nIdMove, ptCen) Then Return False
+         ' Aggiorno regioni per nesting
+         UpdateNestRegions()
+         EnableReferenceRegion(False)
+         ' Verifico rotazione complessiva
+         EgtRotate(nIdMove, ptCen, Vector3d.Z_AX(), dAngRotDeg, GDB_RT.GLOB)
+         If EgtVerifyPart(nIdMove, m_bReducedCut) Then Return True
+         ' Provo rotazione parziale (dopo aver annullato la complessiva)
+         EgtRotate(nIdMove, ptCen, Vector3d.Z_AX(), -dAngRotDeg, GDB_RT.GLOB)
+         Return EgtRotatePart(nIdMove, m_bReducedCut, ptCen, dAngRotDeg)
+      Else
+         Return False
       End If
    End Function
 

CadCuts/SplitAuto.vb

@@ -98,14 +98,15 @@ Public Module SplitAuto
                   Mach.m_dStartFreeLen = FREELEN_INF + 1
                   Mach.m_dEndFreeLen = FREELEN_INF + 1
                   Dim nEntId, nSub As Integer
-                  If EgtGetMachiningGeometry( 0, nEntId, nSub) Then
-                     If EgtGetType( nEntId) = GDB_TY.CRV_ARC OrElse EgtGetType( nEntId) = GDB_TY.CRV_COMPO Then Mach.m_bIsLine = False
-                     EgtGetInfo( nEntId, If( Not Mach.m_bInvert, INFO_PREVANG, INFO_NEXTANG), Mach.m_dPrevAng)
-                     EgtGetInfo( nEntId, If( Not Mach.m_bInvert, INFO_NEXTANG, INFO_PREVANG), Mach.m_dNextAng)
-                     EgtGetInfo( nEntId, If( Not Mach.m_bInvert, INFO_START_FREELEN, INFO_END_FREELEN), Mach.m_dStartFreeLen)
-                     EgtGetInfo( nEntId, If( Not Mach.m_bInvert, INFO_END_FREELEN, INFO_START_FREELEN), Mach.m_dEndFreeLen)
-                     Mach.m_bEnableInvert = GetEnableInvert( nEntId)
-                     EgtMidVector( nEntId, GDB_ID.ROOT, Mach.m_vtDir)
+                  If EgtGetMachiningGeometry(0, nEntId, nSub) Then
+                     ' EgtGetType( nEntId) = GDB_TY.CRV_ARC OrElse
+                     If EgtGetType(nEntId) = GDB_TY.CRV_COMPO Then Mach.m_bIsLine = False
+                     EgtGetInfo(nEntId, If(Not Mach.m_bInvert, INFO_PREVANG, INFO_NEXTANG), Mach.m_dPrevAng)
+                     EgtGetInfo(nEntId, If(Not Mach.m_bInvert, INFO_NEXTANG, INFO_PREVANG), Mach.m_dNextAng)
+                     EgtGetInfo(nEntId, If(Not Mach.m_bInvert, INFO_START_FREELEN, INFO_END_FREELEN), Mach.m_dStartFreeLen)
+                     EgtGetInfo(nEntId, If(Not Mach.m_bInvert, INFO_END_FREELEN, INFO_START_FREELEN), Mach.m_dEndFreeLen)
+                     Mach.m_bEnableInvert = GetEnableInvert(nEntId)
+                     EgtMidVector(nEntId, GDB_ID.ROOT, Mach.m_vtDir)
                      If Mach.m_bInvert Then Mach.m_vtDir = -Mach.m_vtDir
                      Mach.m_nEntId = nEntId
                   End If

DrawImport/AlzFrontUC.xaml.vb

@@ -96,8 +96,14 @@ Public Class AlzFrontUC
       Dim LabelId As Integer = GDB_ID.NULL
 
       ' definisco i valori delle altezza e degli angoli di spoglia per le alzatine e i frontalini (letti da file ini del programma)
-      GetPrivateProfileString(S_ALZFRONT, K_ALZ_HEIGHT, "0", Parameter1ATxBx.Text, m_MainWindow.GetIniFile)
-      GetPrivateProfileString(S_ALZFRONT, K_FRONT_HEIGHT, "0", Parameter1FTxBx.Text, m_MainWindow.GetIniFile)
+      Dim sVal As String = String.Empty
+      Dim dVal As Double = 0
+      GetPrivateProfileString(S_ALZFRONT, K_ALZ_HEIGHT, "0", sVal, m_MainWindow.GetIniFile)
+      Utility.StringToDouble(sVal, dVal)
+      Parameter1ATxBx.Text = Utility.LenToString(dVal, 4)
+      GetPrivateProfileString(S_ALZFRONT, K_FRONT_HEIGHT, "0", sVal, m_MainWindow.GetIniFile)
+      Utility.StringToDouble(sVal, dVal)
+      Parameter1FTxBx.Text = Utility.LenToString(dVal, 4)
       GetPrivateProfileString(S_ALZFRONT, K_ALZ_DELTA_ANG, "0", Parameter2ATxBx.Text, m_MainWindow.GetIniFile)
       GetPrivateProfileString(S_ALZFRONT, K_FRONT_DELTA_ANG, "0", Parameter2FTxBx.Text, m_MainWindow.GetIniFile)
       Parameter5TxBx.Text = Utility.LenToString(m_MainWindow.m_CurrentProjectPageUC.m_dRawHeight, 2)
@@ -607,9 +613,9 @@ Public Class AlzFrontUC
    Private Sub ParameterA1TxBx_EgtClosed(sender As Object, e As EventArgs) Handles Parameter1ATxBx.EgtClosed
       ' Nuovo angolo di inclinazione
       Dim dValue As Double
-      StringToDouble(Parameter1ATxBx.Text, dValue)
+      StringToLen(Parameter1ATxBx.Text, dValue)
       ' salvo il valore nel file ini e inserisco il valore nel file lua
-      WritePrivateProfileString("Alz&Front", "A_Height", Parameter1ATxBx.Text, m_MainWindow.GetIniFile())
+      WritePrivateProfileString("Alz&Front", "A_Height", DoubleToString(dValue, 3), m_MainWindow.GetIniFile())
       ' aggiorno il disegno
       LoadCurrentCompo()
    End Sub
@@ -618,9 +624,9 @@ Public Class AlzFrontUC
    Private Sub Parameter1FTxBx_EgtClosed(sender As Object, e As EventArgs) Handles Parameter1FTxBx.EgtClosed
       ' Nuovo angolo di inclinazione
       Dim dValue As Double
-      StringToDouble(Parameter1FTxBx.Text, dValue)
+      StringToLen(Parameter1FTxBx.Text, dValue)
       ' salvo il valore nel file ini e inserisco il valore nel file lua
-      WritePrivateProfileString("Alz&Front", "F_Height", Parameter1FTxBx.Text, m_MainWindow.GetIniFile())
+      WritePrivateProfileString("Alz&Front", "F_Height", DoubleToString(dValue, 3), m_MainWindow.GetIniFile())
       ' aggiorno il disegno
       LoadCurrentCompo()
    End Sub

Machine/CurrentMachine.vb

@@ -1414,7 +1414,10 @@ Public Class CurrentMachine
             If bFound Then Exit For
          Next
       End If
-      Return dMaxThick
+      ' il valore resituito è già nell'unità corrente del programma -> converto il dato in mm
+      Dim dValmm As Double = 0
+      StringToLen(DoubleToString(dMaxThick, 3), dValmm)
+      Return dValmm
    End Function
 
 #Region "USERNOTE"

Machine/MachiningDbPageUC.xaml.vb

@@ -899,11 +899,11 @@ Public Class MachiningDbPageUC
       For Each Material As MachiningMaterial In m_MaterialsList
          If m_MainWindow.m_CurrentMachine.bWaterJet And m_MainWindow.m_CurrentMachine.bFromDBWaterJet Then
             If Material.bIsActive Then
-               sMaterialString += Material.nId.ToString & "." & Material.nSubId.ToString & "," & DoubleToString(Material.dMinThickness, 0) & "," & DoubleToString(Material.dMaxThickness, 0) & ";"
+               sMaterialString += Material.nId.ToString & "." & Material.nSubId.ToString & "," & DoubleToString(Material.dMinThickness, 3) & "," & DoubleToString(Material.dMaxThickness, 3) & ";"
             End If
          Else
             If Material.bIsActive Then
-               sMaterialString += Material.nId.ToString & "," & DoubleToString(Material.dMinThickness, 0) & "," & DoubleToString(Material.dMaxThickness, 0) & ";"
+               sMaterialString += Material.nId.ToString & "," & DoubleToString(Material.dMinThickness, 3) & "," & DoubleToString(Material.dMaxThickness, 3) & ";"
             End If
          End If
       Next

Machine/WaterJetPageUC.xaml

@@ -162,6 +162,7 @@
                            <ColumnDefinition Width="1*"/>
                            <ColumnDefinition Width="1*"/>
                            <ColumnDefinition Width="1*"/>
+                           <ColumnDefinition Width="1*"/>
                         </Grid.ColumnDefinitions>
 
                         <TextBlock Text="{Binding Thickness_Msg}" Grid.Column="0" HorizontalAlignment="Center"
@@ -185,12 +186,19 @@
                         <TextBlock Text="{Binding QExtra_Msg}" Grid.Column="6" HorizontalAlignment="Center"
                                            Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}" 
                                            FontSize="{DynamicResource FontSize_GroupBoxHeader}"/>
+                        <TextBlock Text="{Binding AngComp_Msg}" Grid.Column="7" HorizontalAlignment="Center"
+                                           Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}" 
+                                           FontSize="{DynamicResource FontSize_GroupBoxHeader}"/>
                      </Grid>
 
                   </GroupBox.Header>
 
                   <!--Definizione della Grid dei parametri delle lavorazioni-->
                   <Grid Grid.Column="2">
+                     <Grid.ColumnDefinitions>
+                        <ColumnDefinition Width="308*"/>
+                        <ColumnDefinition Width="73*"/>
+                     </Grid.ColumnDefinitions>
                      <Grid.RowDefinitions>
                         <RowDefinition Height="7*"/>
                         <RowDefinition Height="1*"/>
@@ -201,7 +209,7 @@
                                      ItemsSource="{Binding Path=SelectedItem.ParamList , ElementName=SubMaterialsLstBx}"
                                      SelectedItem="{Binding Path=SelectedItem.SelWjParam , ElementName=SubMaterialsLstBx}"
                                      Margin="0,0,0,0"
-                                     Grid.RowSpan="2">
+                                     Grid.RowSpan="2" Grid.ColumnSpan="2">
                         <ListBox.ItemTemplate>
                            <DataTemplate>
                               <Grid Width="700">
@@ -213,29 +221,31 @@
                                     <ColumnDefinition Width="1*"/>
                                     <ColumnDefinition Width="1*"/>
                                     <ColumnDefinition Width="1*"/>
+                                    <ColumnDefinition Width="1*"/>
                                  </Grid.ColumnDefinitions>
 
                                  <EgtWPFLib:EgtTextBox Text="{Binding Thickness}" Grid.Column="0"
                                                        Style="{DynamicResource OmagCut_CalculatorParamWjTextBox}" />
-                                 <EgtWPFLib:EgtTextBox Text="{Binding Q1}" Grid.Column="1" IsLength="False"
+                                 <EgtWPFLib:EgtTextBox Text="{Binding Q1}" Grid.Column="1"
                                                        Style="{DynamicResource OmagCut_CalculatorParamWjTextBox}" />
-                                 <EgtWPFLib:EgtTextBox Text="{Binding Q2}" Grid.Column="2" IsLength="False"
+                                 <EgtWPFLib:EgtTextBox Text="{Binding Q2}" Grid.Column="2"
                                                        Style="{DynamicResource OmagCut_CalculatorParamWjTextBox}" />
-                                 <EgtWPFLib:EgtTextBox Text="{Binding Q3}" Grid.Column="3" IsLength="False"
+                                 <EgtWPFLib:EgtTextBox Text="{Binding Q3}" Grid.Column="3"
                                                        Style="{DynamicResource OmagCut_CalculatorParamWjTextBox}" />
-                                 <EgtWPFLib:EgtTextBox Text="{Binding Q4}" Grid.Column="4" IsLength="False"
+                                 <EgtWPFLib:EgtTextBox Text="{Binding Q4}" Grid.Column="4"
                                                        Style="{DynamicResource OmagCut_CalculatorParamWjTextBox}" />
-                                 <EgtWPFLib:EgtTextBox Text="{Binding Q5}" Grid.Column="5" IsLength="False"
+                                 <EgtWPFLib:EgtTextBox Text="{Binding Q5}" Grid.Column="5"
                                                        Style="{DynamicResource OmagCut_CalculatorParamWjTextBox}" />
-                                 <EgtWPFLib:EgtTextBox Text="{Binding QExtra}" Grid.Column="6" IsLength="False"
+                                 <EgtWPFLib:EgtTextBox Text="{Binding QExtra}" Grid.Column="6"
+                                                       Style="{DynamicResource OmagCut_CalculatorParamWjTextBox}" />
+                                 <EgtWPFLib:EgtTextBox Text="{Binding dAngComp}" Grid.Column="7" IsLength="False"
                                                        Style="{DynamicResource OmagCut_CalculatorParamWjTextBox}" />
-
                               </Grid>
                            </DataTemplate>
                         </ListBox.ItemTemplate>
                      </ListBox>
 
-                     <UniformGrid Grid.Row="2" Columns="9" Grid.ColumnSpan="3">
+                     <UniformGrid Grid.Row="2" Columns="9" Grid.ColumnSpan="2">
                         <Button Name="NewParamBtn" Grid.Column="0"
                                         Command="{Binding NewWjParamCommand}"
                                         Content="{Binding New_Msg}"

Machine/WaterJetPageUC.xaml.vb

@@ -14,12 +14,20 @@ Public Class WaterJetPageUC
 
    Private Sub WaterJetPage_Initialized(sender As Object, e As EventArgs)
       m_refWaterjetDbWindowVM = New WaterjetDbWindowVM_OmagCUT(m_MainWindow.m_CurrentMachine.sMachDir)
+      '----------------------------------------------------------------------------------------
+      ' TEMPORANEO - se dati in INCH e richiesta di frazioni eseguo la conversione in frazione!
+      ConvertParamListValueToFracrion()
+      '----------------------------------------------------------------------------------------
       Me.DataContext = m_refWaterjetDbWindowVM
       EgtWPFLib.Utility.MainWindow = m_MainWindow
    End Sub
 
    Public Sub WaterJetPage_Reinitialize()
       m_refWaterjetDbWindowVM = New WaterjetDbWindowVM_OmagCUT(m_MainWindow.m_CurrentMachine.sMachDir)
+      '----------------------------------------------------------------------------------------
+      ' TEMPORANEO - se dati in INCH e richiesta di frazioni eseguo la conversione in frazione!
+      ConvertParamListValueToFracrion()
+      '----------------------------------------------------------------------------------------
       Me.DataContext = m_refWaterjetDbWindowVM
    End Sub
 
@@ -51,5 +59,48 @@ Public Class WaterJetPageUC
       End If
    End Sub
 
+   Private Sub ConvertParamListValueToFracrion()
+      ' TEMPORANEO - se dati in INCH e richiesta di frazioni eseguo la conversione in frazione!
+      Dim Index1 As Integer = 0
+      For Index1 = 0 To m_refWaterjetDbWindowVM.MaterialList.Count - 1
+         Dim Index2 As Integer = 0
+         For Index2 = 0 To m_refWaterjetDbWindowVM.MaterialList(Index1).SubMaterialList.Count - 1
+            Dim Index3 As Integer = 0
+            For Index3 = 0 To m_refWaterjetDbWindowVM.MaterialList(Index1).SubMaterialList(Index2).ParamList.Count - 1
+               Dim dThickness As Double
+               Dim dQ1 As Double
+               Dim dQ2 As Double
+               Dim dQ3 As Double
+               Dim dQ4 As Double
+               Dim dQ5 As Double
+               Dim dQExtra As Double
+               Dim dAngComp As Double
+               StringToLen(m_refWaterjetDbWindowVM.MaterialList(Index1).SubMaterialList(Index2).ParamList(Index3).Thickness, dThickness)
+               Dim sVal As String = LenToString(dThickness, 3)
+               m_refWaterjetDbWindowVM.MaterialList(Index1).SubMaterialList(Index2).ParamList(Index3).SetThickness(sVal)
+               StringToLen(m_refWaterjetDbWindowVM.MaterialList(Index1).SubMaterialList(Index2).ParamList(Index3).Q1, dQ1)
+               sVal = LenToString(dQ1, 3)
+               m_refWaterjetDbWindowVM.MaterialList(Index1).SubMaterialList(Index2).ParamList(Index3).SetQ1(sVal)
+               StringToLen(m_refWaterjetDbWindowVM.MaterialList(Index1).SubMaterialList(Index2).ParamList(Index3).Q2, dQ2)
+               sVal = LenToString(dQ2, 3)
+               m_refWaterjetDbWindowVM.MaterialList(Index1).SubMaterialList(Index2).ParamList(Index3).SetQ2(sVal)
+               StringToLen(m_refWaterjetDbWindowVM.MaterialList(Index1).SubMaterialList(Index2).ParamList(Index3).Q3, dQ3)
+               sVal = LenToString(dQ3, 3)
+               m_refWaterjetDbWindowVM.MaterialList(Index1).SubMaterialList(Index2).ParamList(Index3).SetQ3(sVal)
+               StringToLen(m_refWaterjetDbWindowVM.MaterialList(Index1).SubMaterialList(Index2).ParamList(Index3).Q4, dQ4)
+               sVal = LenToString(dQ4, 3)
+               m_refWaterjetDbWindowVM.MaterialList(Index1).SubMaterialList(Index2).ParamList(Index3).SetQ4(sVal)
+               StringToLen(m_refWaterjetDbWindowVM.MaterialList(Index1).SubMaterialList(Index2).ParamList(Index3).Q5, dQ5)
+               sVal = LenToString(dQ5, 3)
+               m_refWaterjetDbWindowVM.MaterialList(Index1).SubMaterialList(Index2).ParamList(Index3).SetQ5(sVal)
+               StringToLen(m_refWaterjetDbWindowVM.MaterialList(Index1).SubMaterialList(Index2).ParamList(Index3).QExtra, dQExtra)
+               sVal = LenToString(dQExtra, 3)
+               m_refWaterjetDbWindowVM.MaterialList(Index1).SubMaterialList(Index2).ParamList(Index3).SetQExtra(sVal)
+               StringToDouble(m_refWaterjetDbWindowVM.MaterialList(Index1).SubMaterialList(Index2).ParamList(Index3).dAngComp, dAngComp)
+            Next
+         Next
+      Next
+   End Sub
+
 End Class
 

Machine/WaterJetPageVM.vb

@@ -445,6 +445,12 @@ Public Class WaterjetDbWindowVM
       End Get
    End Property
 
+   Public ReadOnly Property AngComp_Msg As String
+      Get
+         Return "Ang"
+      End Get
+   End Property
+
    Public ReadOnly Property New_Msg As String
       Get
          Return "Nuovo"
@@ -516,7 +522,14 @@ Public Class WaterjetDbWindowVM
                         StringToDouble(sParams(4), dQ4)
                         StringToDouble(sParams(5), dQ5)
                         StringToDouble(sParams(6), dQExtra)
-                        QParamList.Add(New WjParam(QInd, dThickness, dQ1, dQ2, dQ3, dQ4, dQ5, dQExtra, m_refWaterPageV))
+                        Dim LocalWjParam As New WjParam(QInd, dThickness, dQ1, dQ2, dQ3, dQ4, dQ5, dQExtra, m_refWaterPageV)
+                        QParamList.Add(LocalWjParam)
+                        ' leggo il nuovo parametro di correzione conicità (di default il parametro è 0)
+                        If sParams.Length() >= 8 Then
+                           Dim dAngCompo As Double
+                           StringToDouble(sParams(7), dAngCompo)
+                           LocalWjParam.dAngComp = dAngCompo
+                        End If
                      End If
                      QInd += 1
                   End While
@@ -868,6 +881,17 @@ Public Class WjParam
       End Set
    End Property
 
+   ' angolo di compensazione conicità getto: 01/02/2023 ver 2.5b1
+   Private m_dAngComp As Double = 0
+   Public Property dAngComp As Double
+      Get
+         Return m_dAngComp
+      End Get
+      Set(value As Double)
+         m_dAngComp = value
+      End Set
+   End Property
+
    Public ReadOnly Property ParamLstBx_Width As Double
       Get
          Return m_refWaterPageV.ParamsGpBx.ActualWidth - 20

My Project/AssemblyInfo.vb

@@ -20,9 +20,9 @@ Imports System.Windows
 <Assembly: AssemblyTitle("OmagCUTR32.exe")>
 <Assembly: AssemblyDescription("OmagCUT 32 bit")>
 #End If
-<Assembly: AssemblyCompany("EgalTech s.r.l.")>
+<Assembly: AssemblyCompany("Egalware s.r.l.")>
 <Assembly: AssemblyProduct("OmagCUT")>
-<Assembly: AssemblyCopyright("Copyright ©  2015-2022 by EgalTech s.r.l.")>
+<Assembly: AssemblyCopyright("Copyright ©  2015-2023 by Egalware s.r.l.")>
 <Assembly: AssemblyTrademark("")>
 <Assembly: ComVisible(False)>
 
@@ -62,5 +62,5 @@ Imports System.Windows
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.5.1.1")>
-<Assembly: AssemblyFileVersion("2.5.1.1")>
+<Assembly: AssemblyVersion("2.5.1.2")>
+<Assembly: AssemblyFileVersion("2.5.1.2")>

Options/OptionsPageUC.xaml.vb

@@ -357,6 +357,12 @@ Public Class OptionsPageUC
       ' Aggiorno dati nella pagina dipendenti da unità di misura
       UpdateSlabDxf()
       UpdateAllCSTA()
+      If m_MainWindow.m_CurrentMachine.bWaterJet And m_MainWindow.m_CurrentMachine.bFromDBWaterJet Then
+         m_MainWindow.m_CurrentMachine.LoadWJMaterial()
+         If Not IsNothing(m_MainWindow.m_MachinePageUC.m_WaterJetPageUC) Then
+            m_MainWindow.m_MachinePageUC.m_WaterJetPageUC.WaterJetPage_Reinitialize()
+         End If
+      End If
    End Sub
 
    Private Sub FractionPatternCmBx_SelectionChanged(sender As Object, e As SelectionChangedEventArgs) Handles FractionPatternCmBx.SelectionChanged
@@ -366,6 +372,12 @@ Public Class OptionsPageUC
       ' Aggiorno dati nella pagina dipendenti da unità di misura
       UpdateSlabDxf()
       UpdateAllCSTA()
+      If m_MainWindow.m_CurrentMachine.bWaterJet And m_MainWindow.m_CurrentMachine.bFromDBWaterJet Then
+         m_MainWindow.m_CurrentMachine.LoadWJMaterial()
+         If Not IsNothing(m_MainWindow.m_MachinePageUC.m_WaterJetPageUC) Then
+            m_MainWindow.m_MachinePageUC.m_WaterJetPageUC.WaterJetPage_Reinitialize()
+         End If
+      End If
    End Sub
 
    Private Sub PrecisionCmBx_SelectionChanged(sender As Object, e As SelectionChangedEventArgs) Handles PrecisionCmBx.SelectionChanged
@@ -374,6 +386,12 @@ Public Class OptionsPageUC
       ' Aggiorno dati nella pagina dipendenti da unità di misura
       UpdateSlabDxf()
       UpdateAllCSTA()
+      If m_MainWindow.m_CurrentMachine.bWaterJet And m_MainWindow.m_CurrentMachine.bFromDBWaterJet Then
+         m_MainWindow.m_CurrentMachine.LoadWJMaterial()
+         If Not IsNothing(m_MainWindow.m_MachinePageUC.m_WaterJetPageUC) Then
+            m_MainWindow.m_MachinePageUC.m_WaterJetPageUC.WaterJetPage_Reinitialize()
+         End If
+      End If
    End Sub
 
    Private Sub ThemesCmBx_SelectionChanged(sender As Object, e As SelectionChangedEventArgs) Handles ThemesCmBx.SelectionChanged

Project/OmagPhotoWD.xaml.vb

@@ -101,6 +101,7 @@ Public Class OmagPhotoWD
       Dim m_refImagePrevieV As New EgtPHOTOLib.ImagePreviewV()
       ' modifico l'immagine e salvo
       m_refImagePrevieV.SetContourScraps(m_ContornScrap)
+      m_refImagePrevieV.Hide()
       m_refImagePrevieV.Show()
       m_refImagePrevieV.SaveImage()
       m_refImagePrevieV.Close()