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.

CurrentMachine.vb

@@ -34,16 +34,20 @@ Public Class CurrentMachine
    Private m_dSafeZ As Double = 0
 
    ' Massimo diametro lama per utilizzo ventose movimento pezzi
-   Private m_dMaxSawDiamForVac As Double = 650
+   Private m_dMaxSawDiamForVac As Double = 630
 
    ' Massimo diametro lama per tastatura grezzo
-   Private m_dMaxSawDiamForProbe As Double = 650
+   Private m_dMaxSawDiamForProbe As Double = 630
 
    ' Flag che indicano stato tipologia utensili (attivo/non attivo)
    Private m_bSaw As Boolean = False
    Private m_bDrill As Boolean = False
    Private m_bMill As Boolean = False
 
+   ' Flag per visualizzazione TcPos e Testa/uscita
+   Private m_bShowToolChanger As Boolean = False
+   Private m_bShowHeadExit As Boolean = False
+
    ' Flag che indicano presenza tipologia lavorazioni (attivo/non attivo)
    Private m_bSawing As Boolean = False
    Private m_bDrilling As Boolean = False
@@ -51,8 +55,6 @@ Public Class CurrentMachine
    Private m_bSawRoughing As Boolean = False
    Private m_bSawFinishing As Boolean = False
 
-   ' Variabili che nel caso di porta utensili indicano quanti utensili possono essere ospitati per tipo
-
    ' Variabili che contengono il nome degli utensili disponibili per tipo
    Private m_sCurrSaw(0) As String
    Private m_sCurrDrill(0) As String
@@ -69,6 +71,9 @@ Public Class CurrentMachine
    ' Spessore sottopezzo
    Private m_dAdditionalTable As Double = 0
 
+   ' Flag home finale per tagli diretti
+   Private m_bDirectCutsFinalHome As Boolean = True
+
    ' Numero portautensili presenti
    Private m_ToolChangerNum As Double = 0
 
@@ -217,6 +222,18 @@ Public Class CurrentMachine
       End Get
    End Property
 
+   Friend ReadOnly Property bShowToolChanger As Boolean
+      Get
+         Return m_bShowToolChanger
+      End Get
+   End Property
+
+   Friend ReadOnly Property bShowHeadExit As Boolean
+      Get
+         Return m_bShowHeadExit
+      End Get
+   End Property
+
    Friend ReadOnly Property bSawing As Boolean
       Get
          Return m_bSawing
@@ -358,6 +375,17 @@ Public Class CurrentMachine
       End Set
    End Property
 
+   Friend Property bDirectCutsFinalHome As Boolean
+      Get
+         Return m_bDirectCutsFinalHome
+      End Get
+      Set(value As Boolean)
+         If WritePrivateProfileString(S_MACH_DIRECTCUTS, K_FINALHOME, If(value, "1", "0"), sMachIniFile) Then
+            m_bDirectCutsFinalHome = value
+         End If
+      End Set
+   End Property
+
    Friend ReadOnly Property dToolChangerNum As Double
       Get
          Return m_ToolChangerNum
@@ -544,17 +572,22 @@ Public Class CurrentMachine
       ' foretto
       m_bDrill = (GetPrivateProfileInt(S_TOOLS, K_DRILLBIT, 0, sMachIniFile) > 0)
       ' fresa
-      m_bMill = (GetPrivateProfileInt(S_TOOLS, K_MILL, 0, sMachIniFile) > 0)
+      m_bMill = (GetPrivateProfileInt(S_TOOLS, K_MILL, 0, sMachIniFile) > 0) And
+                m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.ENABLE_MILL)
+      ' Leggo abilitazione visualizzazione TcPos e Head/exit
+      m_bShowToolChanger = (GetPrivateProfileInt(S_TOOLS, K_SHOWTOOLCHANGER, 0, sMachIniFile) > 0)
+      m_bShowHeadExit = (GetPrivateProfileInt(S_TOOLS, K_SHOWHEADEXIT, 0, sMachIniFile) > 0)
       ' Leggo limiti diametro lama per altre operazioni
-      m_dMaxSawDiamForVac = GetPrivateProfileDouble(S_TOOLS, K_MAXSAWDIAMFORVAC, 650, sMachIniFile)
-      m_dMaxSawDiamForProbe = GetPrivateProfileDouble(S_TOOLS, K_MAXSAWDIAMFORPROBE, 650, sMachIniFile)
+      m_dMaxSawDiamForVac = GetPrivateProfileDouble(S_TOOLS, K_MAXSAWDIAMFORVAC, 630, sMachIniFile)
+      m_dMaxSawDiamForProbe = GetPrivateProfileDouble(S_TOOLS, K_MAXSAWDIAMFORPROBE, 630, sMachIniFile)
       ' Leggo flag presenza tipologie lavorazioni
       ' lama
       m_bSawing = (GetPrivateProfileInt(S_MACHININGS, K_SAWING, 0, sMachIniFile) > 0)
       ' foretto
       m_bDrilling = (GetPrivateProfileInt(S_MACHININGS, K_DRILLING, 0, sMachIniFile) > 0)
       ' fresa
-      m_bMilling = (GetPrivateProfileInt(S_MACHININGS, K_MILLING, 0, sMachIniFile) > 0)
+      m_bMilling = (GetPrivateProfileInt(S_MACHININGS, K_MILLING, 0, sMachIniFile) > 0) And
+                   m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.ENABLE_MILL)
       ' sgrossatura con lama
       m_bSawRoughing = (GetPrivateProfileInt(S_MACHININGS, K_SAWROUGHING, 0, sMachIniFile) > 0)
       ' finitura con lama
@@ -608,6 +641,9 @@ Public Class CurrentMachine
       ' Leggo altezza sopratavola
       m_dAdditionalTable = GetPrivateProfileDouble(S_TABLE, K_ADDITIONALTABLE, 0, sMachIniFile)
 
+      ' Leggo flag per posizione home alla fine dei tagli diretti
+      m_bDirectCutsFinalHome = (GetPrivateProfileInt(S_MACH_DIRECTCUTS, K_FINALHOME, 1, sMachIniFile) <> 0)
+
       ' Creo materiale di default e lo aggiungo alla lista
       ' m_Materials.Add(New Material(0, "Generico"))
       ' Leggo la lista dei materiali