OmagCUT 1.6t1 :

- aggiunto log dei comandi diretti 3assi e 5assi
- aggiunta rimozione manuale sfridi anche con movimento pezzi con ventose
- aggiunta possibilità di eliminare home finale nei tagli diretti
- con NUOVO progetto e pezzi parcheggiati si chiede se conservarli
- spessore pezzo con 3 decimali (per inches)
- migliorata visualizzazione coordinate assi in simulazione
- in lista lavorazioni aggiunto flag sui tagli inclinati 
- corretta visualizzazione famiglie utensili da Ini.

CurrentProjectPageUC.xaml.vb

@@ -181,7 +181,21 @@ Public Class CurrentProjectPageUC
       End If
    End Sub
 
-   Friend Function NewProject(Optional sTabName As String = MAIN_TAB) As Boolean
+   Friend Function NewProject(Optional sTabName As String = MAIN_TAB,
+                              Optional bRetainParkedParts As Boolean = False) As Boolean
+      ' Se richiesto, conservo eventuali pezzi parcheggiati del progetto corrente
+      Dim sTmpFiles As New ArrayList()
+      Dim nId As Integer = If(bRetainParkedParts, EgtGetFirstPart(), GDB_ID.NULL)
+      While nId <> GDB_ID.NULL
+         ' Esporto il pezzo in un file temporaneo
+         Dim sTmpFile As String = m_MainWindow.GetTempDir() & "\FlatPart" & nId & ".Nge"
+         sTmpFiles.Add(sTmpFile)
+         If Not EgtSaveObjToFile(nId, sTmpFile, NGE.BIN) Then
+            Return False
+         End If
+         ' Passo al pezzo successivo
+         nId = EgtGetNextPart(nId)
+      End While
       ' Imposto nuovo indice di progetto
       SetNextProjectIndex()
       ' Imposto il nuovo progetto
@@ -204,7 +218,20 @@ Public Class CurrentProjectPageUC
       m_nRawId = GDB_ID.NULL
       m_MainWindow.m_CadCutPageUC.m_NestPage.CalcRawPart()
       m_dRawHeight = 0
-      HeightTxBx.Text = LenToString(m_dRawHeight, 2)
+      UpdateHeightTxBx()
+      ' Recupero i pezzi parcheggiati precedentemente salvati
+      For Each sTmpfile As String In sTmpFiles
+         If My.Computer.FileSystem.FileExists(sTmpfile) Then
+            ' Inserisco il pezzo
+            EgtInsertFile(sTmpfile)
+            ' Ne recupero l'Id
+            Dim nId2 As Integer = EgtGetLastPart()
+            ' Inserisco in parcheggio
+            m_MainWindow.m_CadCutPageUC.m_NestPage.StoreOnePart(nId2, True)
+            ' Cancello il file
+            My.Computer.FileSystem.DeleteFile(sTmpfile)
+         End If
+      Next
       ' Dichiaro progetto non modificato
       EgtResetModified()
       Return True
@@ -251,7 +278,7 @@ Public Class CurrentProjectPageUC
       m_MainWindow.m_CadCutPageUC.m_NestPage.CalcRawPart()
       ' aggiorno spessore grezzo
       m_dRawHeight = GetRawHeight()
-      HeightTxBx.Text = LenToString(m_dRawHeight, 2)
+      UpdateHeightTxBx()
       ' Dichiaro progetto non modificato
       EgtResetModified()
       Return True
@@ -530,7 +557,7 @@ Public Class CurrentProjectPageUC
    End Function
 
    Friend Sub UpdateHeightTxBx()
-      HeightTxBx.Text = LenToString(m_dRawHeight, 2)
+      HeightTxBx.Text = LenToString(m_dRawHeight, 3)
    End Sub
 
    Friend Sub UpdateMachiningTxBx()