diff --git a/Constants/ConstIni.vb b/Constants/ConstIni.vb
index 8ea7293..7fb3283 100644
--- a/Constants/ConstIni.vb
+++ b/Constants/ConstIni.vb
@@ -132,6 +132,11 @@ Module ConstIni
    Public Const K_CTSA_TOLERANCE As String = "Tolerance"
    Public Const K_CTSA As String = "CTSA"
 
+   Public Const S_COLORTOENGRAVE As String = "ColorToEngrave"
+   Public Const K_CTE_ENABLE As String = "Enable"
+   Public Const K_CTE_TOLERANCE As String = "Tolerance"
+   Public Const K_CTE As String = "CTE"
+
    Public Const S_RAWPART As String = "RawPart"
    Public Const K_RAWCOLOR As String = "RawColor"
    Public Const K_KERFCOLOR As String = "KerfColor"
diff --git a/DxfImportWindow/DxfImportWindowVM.vb b/DxfImportWindow/DxfImportWindowVM.vb
index fcd7957..ab15e77 100644
--- a/DxfImportWindow/DxfImportWindowVM.vb
+++ b/DxfImportWindow/DxfImportWindowVM.vb
@@ -969,6 +969,10 @@ Public Class DxfImportWindowVM
       If GetPrivateProfileInt(S_COLORTOSIDEANG, K_CTSA_ENABLE, 0, IniFile.m_sIniFile) <> 0 Then
          SideEntityControlVM.ColorToSideAngle(DxfImportWindowMap.refDxfImportSceneHostV.ImportDxfScene.GetCtx())
       End If
+      ' Se prevista gestione colore->incisioni
+      If GetPrivateProfileInt(S_COLORTOENGRAVE, K_CTE_ENABLE, 0, IniFile.m_sIniFile) <> 0 Then
+         SideEntityControlVM.ColorToEngrave(DxfImportWindowMap.refDxfImportSceneHostV.ImportDxfScene.GetCtx())
+      End If
       ' Eseguo zoom
       EgtZoom(ZM.ALL)
       ' disabilito bottoni UseLayer e UseRegion, abilito bottoni Reset e Insert
@@ -1005,6 +1009,10 @@ Public Class DxfImportWindowVM
       If GetPrivateProfileInt(S_COLORTOSIDEANG, K_CTSA_ENABLE, 0, IniFile.m_sIniFile) <> 0 Then
          SideEntityControlVM.ColorToSideAngle(DxfImportWindowMap.refDxfImportSceneHostV.ImportDxfScene.GetCtx())
       End If
+      ' Se prevista gestione colore->incisioni
+      If GetPrivateProfileInt(S_COLORTOENGRAVE, K_CTE_ENABLE, 0, IniFile.m_sIniFile) <> 0 Then
+         SideEntityControlVM.ColorToEngrave(DxfImportWindowMap.refDxfImportSceneHostV.ImportDxfScene.GetCtx())
+      End If
       ' Eseguo zoom
       EgtZoom(ZM.ALL)
       ' disabilito bottoni UseLayer. UseRegion e UseClosedCurve, abilito bottoni Reset e Insert
@@ -1041,6 +1049,10 @@ Public Class DxfImportWindowVM
       If GetPrivateProfileInt(S_COLORTOSIDEANG, K_CTSA_ENABLE, 0, IniFile.m_sIniFile) <> 0 Then
          SideEntityControlVM.ColorToSideAngle(DxfImportWindowMap.refDxfImportSceneHostV.ImportDxfScene.GetCtx())
       End If
+      ' Se prevista gestione colore->incisioni
+      If GetPrivateProfileInt(S_COLORTOENGRAVE, K_CTE_ENABLE, 0, IniFile.m_sIniFile) <> 0 Then
+         SideEntityControlVM.ColorToEngrave(DxfImportWindowMap.refDxfImportSceneHostV.ImportDxfScene.GetCtx())
+      End If
       ' Eseguo zoom
       EgtZoom(ZM.ALL)
       ' disabilito bottoni UseLayer e UseRegion, abilito bottoni Reset e Insert
diff --git a/EgtStoneLib/ConstMach.vb b/EgtStoneLib/ConstMach.vb
index 4ed04f0..862e645 100644
--- a/EgtStoneLib/ConstMach.vb
+++ b/EgtStoneLib/ConstMach.vb
@@ -156,6 +156,7 @@ Module ConstMach
    ' Info in entità da tagliare per affondamento
    Public Const INFO_DEPTH As String = "Depth"
    Public Const INFO_DEPTH2 As String = "Depth2"
+   Public Const INFO_WIDTH As String = "Width"
    ' Info in entità da tagliare per taglio ristretto
    Public Const INFO_STRICT As String = "Strict"
    ' Info in entità da tagliare per angolo di lato e tallone
diff --git a/OptionPanel/NestingTab/NestingTabVM.vb b/OptionPanel/NestingTab/NestingTabVM.vb
index bd0ff75..858b7fa 100644
--- a/OptionPanel/NestingTab/NestingTabVM.vb
+++ b/OptionPanel/NestingTab/NestingTabVM.vb
@@ -81,7 +81,18 @@ Public Class NestingTabVM
          Return LenToString(m_dStepMove, 2)
       End Get
       Set(value As String)
-         StringToLen(value, m_dStepMove)
+         Dim dValue As Double
+         'StringToLen(value, m_dStepMove)
+         If StringToLen(value, dValue) Then
+            If dValue < 0 Then
+               dValue = 0
+            ElseIf dValue > 1000 Then
+               dValue = 1000
+            End If
+            m_dStepMove = dValue
+            WriteMainPrivateProfileString(S_NEST, K_STEP, DoubleToString(m_dStepMove, 2))
+         End If
+         NotifyPropertyChanged("StepMove")
       End Set
    End Property
 
@@ -91,7 +102,18 @@ Public Class NestingTabVM
          Return DoubleToString(m_dRotationAngle, 2)
       End Get
       Set(value As String)
-         StringToDouble(value, m_dRotationAngle)
+         Dim dValue As Double
+         'StringToDouble(value, m_dRotationAngle)
+         If StringToLen(value, dValue) Then
+            If dValue < 0 Then
+               dValue = 0
+            ElseIf dValue > 180 Then
+               dValue = 180
+            End If
+            m_dRotationAngle = dValue
+            WriteMainPrivateProfileString(S_NEST, K_ANGSTEP, DoubleToString(m_dRotationAngle, 2))
+         End If
+         NotifyPropertyChanged("RotationAngle")
       End Set
    End Property
 
diff --git a/OptionWindow/OptionWindowV.xaml b/OptionWindow/OptionWindowV.xaml
index a29dd93..a3008ee 100644
--- a/OptionWindow/OptionWindowV.xaml
+++ b/OptionWindow/OptionWindowV.xaml
@@ -11,7 +11,7 @@
    <Grid Margin="5,0,0,0">
       <Grid.ColumnDefinitions>
          <ColumnDefinition Width="250"/>
-         <ColumnDefinition Width="Auto"/>
+         <ColumnDefinition Width="250"/>
       </Grid.ColumnDefinitions>
       <Grid.RowDefinitions>
          <RowDefinition Height="Auto"/>
@@ -69,6 +69,7 @@
             </Button>
         </GroupBox>
 
+       <!--SideAngle from color-->
         <GroupBox Name="ColorToSideAngGpBx" Header="{Binding ColorToSideAngMsg}"
                   Grid.Column="0" Grid.Row="3" Margin="0,0,5,5" >
 
@@ -143,6 +144,81 @@
 
         </GroupBox>
 
+       <!--Engrave from color-->
+        <GroupBox Name="ColorToEngraveGpBx" Header="{Binding ColorToEngraveMsg}"
+                  Grid.Column="1" Grid.Row="3" Margin="0,0,5,5" >
+
+            <Grid>
+                <Grid.ColumnDefinitions>
+                    <ColumnDefinition Width="1*"/>
+                    <ColumnDefinition Width="1.5*"/>
+                    <ColumnDefinition Width="0.5*"/>
+                    <ColumnDefinition Width="2*"/>
+                    <ColumnDefinition Width="1.5*" />
+                </Grid.ColumnDefinitions>
+                <Grid.RowDefinitions>
+                    <RowDefinition Height="0.75*"/>
+                    <RowDefinition Height="0.75*"/>
+                    <RowDefinition Height="1.75*"/>
+                </Grid.RowDefinitions>
+
+                <CheckBox Name="CTEboxEnableChBx" Grid.Column="0" Grid.Row="0"
+                        Style="{StaticResource OptionCheckBox}" Margin="0,5,10,0" IsChecked="{Binding CTEChecked, Mode=TwoWay}"/>
+                <TextBlock Name="CTEboxEnableMsgTxBl" Grid.Column="1" Grid.Row="0" Margin="0,5,0,0"
+                        Style="{StaticResource OptionTextBlock}" HorizontalAlignment="Left" Text="{Binding CTEboxEnableMsg}"/>
+
+                <TextBlock Name="ToleranceEMsgTxBl" Grid.Column="3" Grid.Row="0" Margin="0,5,0,0"
+                        Style="{StaticResource OptionTextBlock}" Text="{Binding ToleranceEMsg}" HorizontalAlignment="Right"/>
+                <EgtWPFLib5:EgtTextBox Name="ToleranceEMsgTxBx" Grid.Column="4" Grid.Row="0" Margin="10,5,10,0"
+                        Style="{StaticResource OptionTextBox}" Text="{Binding sToleranceETxBx, Mode=TwoWay, UpdateSourceTrigger=PropertyChanged}"/>
+
+                <ItemsControl ItemsSource="{Binding ColorEngraveItemList}"
+                              HorizontalContentAlignment="Stretch" Margin="0,0,0,5" Grid.Row="1" Grid.ColumnSpan="5" BorderBrush="Transparent">
+
+                    <ItemsControl.Template>
+                        <ControlTemplate>
+                            <DockPanel LastChildFill="True">
+                                <Grid DockPanel.Dock="Top" Height="30">
+                                    <Grid.ColumnDefinitions>
+                                        <ColumnDefinition Width="1*"/>
+                                        <ColumnDefinition Width="1*"/>
+                                        <ColumnDefinition Width="2*"/>
+                                        <ColumnDefinition Width="2*"/>
+                                    </Grid.ColumnDefinitions>
+                                    <Label Grid.Column="2" Content="{Binding AffondamentoMsg}" HorizontalAlignment="Center" VerticalAlignment="Center"/>
+                                    <Label Grid.Column="3" Content="{Binding LarghezzaMsg}" HorizontalAlignment="Center" VerticalAlignment="Center"/>
+                                </Grid>
+                                <ItemsPresenter></ItemsPresenter>
+                            </DockPanel>
+                        </ControlTemplate>
+                    </ItemsControl.Template>
+
+                    <ItemsControl.ItemTemplate>
+                        <DataTemplate>
+                            <Grid>
+                                <Grid.ColumnDefinitions>
+                                    <ColumnDefinition Width="1*"/>
+                                    <ColumnDefinition Width="1*"/>
+                                    <ColumnDefinition Width="2*"/>
+                                    <ColumnDefinition Width="2*"/>
+                                </Grid.ColumnDefinitions>
+
+                                <CheckBox Grid.Column="0" Style="{StaticResource OptionCheckBox}" Margin="0,0,10,0" IsChecked="{Binding CTEiChecked}" HorizontalAlignment="Center"/>
+                                <Button Grid.Column="1" Style="{StaticResource Option_ColorButton}"
+                                        Command="{Binding ChangeCTEiColorCommand}"
+                                        Background="{Binding CTEiBackground}" />
+                                <EgtWPFLib5:EgtTextBox Grid.Column="2" Margin="10,2,10,2" Style="{StaticResource OptionTextBox}" Text="{Binding sCTEiAffondamentoText}" />
+                                <EgtWPFLib5:EgtTextBox Grid.Column="3" Margin="10,2,10,2" Style="{StaticResource OptionTextBox}" Text="{Binding sCTEiLarghezzaText}" />
+                            </Grid>
+                        </DataTemplate>
+                    </ItemsControl.ItemTemplate>
+
+                </ItemsControl>
+
+            </Grid>
+
+        </GroupBox>
+
     </Grid>
 
 </EgtWPFLib5:EgtCustomWindow>
diff --git a/OptionWindow/OptionWindowVM.vb b/OptionWindow/OptionWindowVM.vb
index be2864e..e83829f 100644
--- a/OptionWindow/OptionWindowVM.vb
+++ b/OptionWindow/OptionWindowVM.vb
@@ -94,6 +94,7 @@ Public Class OptionWindowVM
       End Set
    End Property
 
+   ' lista dei colori per SideAngle
    Private m_ColorItemList As New ObservableCollection(Of ColorLsBxItem)
    Public ReadOnly Property ColorItemList As ObservableCollection(Of ColorLsBxItem)
       Get
@@ -101,6 +102,14 @@ Public Class OptionWindowVM
       End Get
    End Property
 
+   'lista dei colori per Engrave
+   Private m_ColorEngraveItemList As New ObservableCollection(Of ColorLsEngraveBxItem)
+   Public ReadOnly Property ColorEngraveItemList As ObservableCollection(Of ColorLsEngraveBxItem)
+      Get
+         Return m_ColorEngraveItemList
+      End Get
+   End Property
+
    Private Property m_TextColorBackground As Color3d
    Public ReadOnly Property TextColorBackground As Brush
       Get
@@ -203,6 +212,33 @@ Public Class OptionWindowVM
       End Get
    End Property
 
+   ' Engrave from color
+   Public ReadOnly Property ColorToEngraveMsg As String
+      Get
+         Return EgtMsg(MSG_OPTIONSPAGEUC + 26)
+      End Get
+   End Property
+   Public ReadOnly Property CTEboxEnableMsg As String
+      Get
+         Return EgtMsg(MSG_OPTIONSPAGEUC + 20)
+      End Get
+   End Property
+   Public ReadOnly Property ToleranceEMsg As String
+      Get
+         Return EgtMsg(MSG_OPTIONSPAGEUC + 21)
+      End Get
+   End Property
+   Public ReadOnly Property AffondamentoMsg As String
+      Get
+         Return EgtMsg(MSG_OPTIONSPAGEUC + 27)
+      End Get
+   End Property
+   Public ReadOnly Property LarghezzaMsg As String
+      Get
+         Return EgtMsg(MSG_OPTIONSPAGEUC + 28)
+      End Get
+   End Property
+
    'Definizione comandi
    Private m_cmdChangeColor As ICommand
 
@@ -266,12 +302,12 @@ Public Class OptionWindowVM
          Dim sArray() As String
          If GetPrivateProfileString(S_COLORTOSIDEANG, K_CTSA & index, " ", sColor, m_sIniFile) <> 0 Then
             sArray = sColor.Split(","c)
-            Dim bIsActive As Boolean = If( sArray.Length >= 6, sArray(5).Equals("1"), True)
-            Dim nRed As Integer = 0 : StringToInt( If( sArray.Length >= 1, sArray(0), "0"), nRed)
-            Dim nGreen As Integer = 0 : StringToInt( If( sArray.Length >= 2, sArray(1), "0"), nGreen)
-            Dim nBlue As Integer = 0 : StringToInt( If( sArray.Length >= 3, sArray(2), "0"), nBlue)
-            Dim dSlant As Double = 0 : StringToDouble( If( sArray.Length >= 4, sArray(3), "0"), dSlant)
-            Dim dHeel As Double = 0 : StringToDouble( If( sArray.Length >= 5, sArray(4), "0"), dHeel)
+            Dim bIsActive As Boolean = If(sArray.Length >= 6, sArray(5).Equals("1"), True)
+            Dim nRed As Integer = 0 : StringToInt(If(sArray.Length >= 1, sArray(0), "0"), nRed)
+            Dim nGreen As Integer = 0 : StringToInt(If(sArray.Length >= 2, sArray(1), "0"), nGreen)
+            Dim nBlue As Integer = 0 : StringToInt(If(sArray.Length >= 3, sArray(2), "0"), nBlue)
+            Dim dSlant As Double = 0 : StringToDouble(If(sArray.Length >= 4, sArray(3), "0"), dSlant)
+            Dim dHeel As Double = 0 : StringToDouble(If(sArray.Length >= 5, sArray(4), "0"), dHeel)
             ' Leggo elenco colori disponibili da file ini
             Dim ReadColor As ColorLsBxItem = New ColorLsBxItem(index,
                                                                bIsActive,
@@ -287,6 +323,46 @@ Public Class OptionWindowVM
             m_ColorItemList.Add(ReadColor)
          End If
       Next
+
+      ' Leggo se la modalità ColorToEngrave è abilitata
+      If GetPrivateProfileInt(S_COLORTOENGRAVE, K_CTE_ENABLE, 0, m_sIniFile) <> 0 Then
+         CTEChecked = True
+      Else
+         CTEChecked = False
+      End If
+
+      ' I parametri di ColorSideToAng presenti nell'INI vengono caricati a prescindere dall'abilitazione
+      nVal = GetPrivateProfileInt(S_COLORTOENGRAVE, K_CTE_TOLERANCE, nVal, m_sIniFile)
+      m_sToleranceETxBx = nVal.ToString()
+      ' Nel caso dei colori singoli viene verificata la presenza della Key corrispondente a ciascuno dei 
+      ' 10 singoli colori (CTSAindex) e il Valore associato viene splittato in un array di stringhe
+      For index As Integer = 1 To 10
+         Dim sColor As String = " "
+         Dim sArray() As String
+         If GetPrivateProfileString(S_COLORTOENGRAVE, K_CTE & index, " ", sColor, m_sIniFile) <> 0 Then
+            sArray = sColor.Split(","c)
+            Dim bIsActive As Boolean = If(sArray.Length >= 6, sArray(5).Equals("1"), True)
+            Dim nRed As Integer = 0 : StringToInt(If(sArray.Length >= 1, sArray(0), "0"), nRed)
+            Dim nGreen As Integer = 0 : StringToInt(If(sArray.Length >= 2, sArray(1), "0"), nGreen)
+            Dim nBlue As Integer = 0 : StringToInt(If(sArray.Length >= 3, sArray(2), "0"), nBlue)
+            Dim dAff As Double = 0 : StringToDouble(If(sArray.Length >= 4, sArray(3), "0"), dAff)
+            Dim dLar As Double = 0 : StringToDouble(If(sArray.Length >= 5, sArray(4), "0"), dLar)
+            ' Leggo elenco colori disponibili da file ini
+            Dim ReadColor As ColorLsEngraveBxItem = New ColorLsEngraveBxItem(index,
+                                                               bIsActive,
+                                                               New Color3d(nRed, nGreen, nBlue, 100),
+                                                               dAff,
+                                                               dLar)
+            m_ColorEngraveItemList.Add(ReadColor)
+         Else
+            ' Se CTSA di indice index non esiste nell'INI lo scrivo con dei valori di default e aggiungo ReadColor
+            ' creato con i valori di default e indice index alla lista di colori
+            WritePrivateProfileString(S_COLORTOENGRAVE, K_CTE & index, "255,255,255,0,0,0", m_sIniFile)
+            Dim ReadColor As ColorLsEngraveBxItem = New ColorLsEngraveBxItem(index, False, New Color3d(255, 255, 255, 100), 0, 0)
+            m_ColorEngraveItemList.Add(ReadColor)
+         End If
+      Next
+
    End Sub
 
 #End Region    ' CONSTRUCTOR
@@ -347,8 +423,9 @@ Public Class OptionWindowVM
 
 #End Region ' ChangeColorCommand
 
-#Region "CTSAChecked"
+#Region "Checked"
 
+   ' SideAngle
    Private Property m_CTSAChecked As Boolean
    Public Property CTSAChecked As Boolean
       Get
@@ -366,9 +443,27 @@ Public Class OptionWindowVM
       End Set
    End Property
 
-#End Region ' CTSAChecked
+   ' Engrave
+   Private Property m_CTEChecked As Boolean
+   Public Property CTEChecked As Boolean
+      Get
+         Return m_CTEChecked
+      End Get
+      Set(value As Boolean)
+         If value <> m_CTEChecked Then
+            m_CTEChecked = value
+            If CTEChecked = True Then
+               WritePrivateProfileString(S_COLORTOENGRAVE, K_CTE_ENABLE, "1", m_sIniFile)
+            ElseIf CTEChecked = False Then
+               WritePrivateProfileString(S_COLORTOENGRAVE, K_CTE_ENABLE, "0", m_sIniFile)
+            End If
+         End If
+      End Set
+   End Property
 
-#Region "CTSAbox Tolerance"
+#End Region ' Checked
+
+#Region "Tolerance"
 
    Private Property m_sToleranceTxBx As String
    Public Property sToleranceTxBx As String
@@ -381,6 +476,11 @@ Public Class OptionWindowVM
             Dim i As Integer = 0
             Try
                i = Integer.Parse(m_sToleranceTxBx, Globalization.NumberStyles.Any)
+               If i < 0 Then
+                  m_sToleranceTxBx = "0"
+               ElseIf i > 50 Then
+                  m_sToleranceTxBx = "50"
+               End If
             Catch ex As Exception
                m_sToleranceTxBx = ""
             End Try
@@ -388,15 +488,44 @@ Public Class OptionWindowVM
                                       K_CTSA_TOLERANCE,
                                       If(String.IsNullOrWhiteSpace(m_sToleranceTxBx) OrElse m_sToleranceTxBx.Equals("-"), "0", m_sToleranceTxBx),
                                       m_sIniFile)
+            NotifyPropertyChanged("sToleranceTxBx")
          End If
       End Set
    End Property
 
-#End Region ' CTSAbox Tolerance
+   Private Property m_sToleranceETxBx As String
+   Public Property sToleranceETxBx As String
+      Get
+         Return m_sToleranceETxBx
+      End Get
+      Set(value As String)
+         If value <> m_sToleranceETxBx Then
+            m_sToleranceETxBx = value
+            Dim i As Integer = 0
+            Try
+               i = Integer.Parse(m_sToleranceETxBx, Globalization.NumberStyles.Any)
+               If i < 0 Then
+                  m_sToleranceETxBx = "0"
+               ElseIf i > 50 Then
+                  m_sToleranceETxBx = "50"
+               End If
+            Catch ex As Exception
+               m_sToleranceETxBx = ""
+            End Try
+            WritePrivateProfileString(S_COLORTOENGRAVE,
+                                      K_CTE_TOLERANCE,
+                                      If(String.IsNullOrWhiteSpace(m_sToleranceETxBx) OrElse m_sToleranceETxBx.Equals("-"), "0", m_sToleranceETxBx),
+                                      m_sIniFile)
+            NotifyPropertyChanged("sToleranceETxBx")
+         End If
+      End Set
+   End Property
+
+#End Region ' Tolerance
 
 #End Region ' COMMANDS"
 
-   '-----------------------------------------------------------------------------------------------
+   '------------------------------------SideAngle----------------------------------------
    Public Class ColorLsBxItem
       Inherits VMBase
 
@@ -542,6 +671,156 @@ Public Class OptionWindowVM
          WritePrivateProfileString( S_COLORTOSIDEANG, K_CTSA & nCTSAIndex.ToString(), sData, m_sIniFile)
       End Sub
 
+#End Region
+
+   End Class
+
+   '-------------------------------------Engrave-----------------------------------------
+   Public Class ColorLsEngraveBxItem
+      Inherits VMBase
+
+#Region "FIELDS & PROPERTIES"
+
+      Private Property m_nCTEIndex As Integer
+      Public Property nCTEIndex As Integer
+         Get
+            Return m_nCTEIndex
+         End Get
+         Set(value As Integer)
+            If value <> m_nCTEIndex Then
+               m_nCTEIndex = value
+            End If
+         End Set
+      End Property
+
+      Private Property m_CTEiChecked As Boolean
+      Public Property CTEiChecked As Boolean
+         Get
+            Return m_CTEiChecked
+         End Get
+         Set(value As Boolean)
+            If value <> m_CTEiChecked Then
+               m_CTEiChecked = value
+               CTEiWriteString()
+            End If
+         End Set
+      End Property
+
+      Private Property m_CTEiBackground As Color3d
+      Public ReadOnly Property CTEiBackground As Brush
+         Get
+            Dim x = New SolidColorBrush(Color.FromArgb(CByte(m_CTEiBackground.A / 100 * 255),
+                                                         CByte(m_CTEiBackground.R),
+                                                         CByte(m_CTEiBackground.G),
+                                                         CByte(m_CTEiBackground.B)))
+            Return x
+         End Get
+      End Property
+
+      Private Property m_sCTEiAffondamentoText As String
+      Public Property sCTEiAffondamentoText As String
+         Get
+            Return m_sCTEiAffondamentoText
+         End Get
+         Set(value As String)
+            If value <> m_sCTEiAffondamentoText Then
+               Dim dVal As Double
+               If StringToDouble(value, dVal) Then
+                  m_sCTEiAffondamentoText = value
+                  CTEiWriteString()
+               Else
+                  m_sCTEiAffondamentoText = ""
+               End If
+            End If
+         End Set
+      End Property
+
+      Private Property m_sCTEiLarghezzaText As String
+      Public Property sCTEiLarghezzaText As String
+         Get
+            Return m_sCTEiLarghezzaText
+         End Get
+         Set(value As String)
+            If value <> m_sCTEiLarghezzaText Then
+               Dim dVal As Double
+               If StringToLen(value, dVal) Then
+                  m_sCTEiLarghezzaText = value
+                  CTEiWriteString()
+               Else
+                  m_sCTEiLarghezzaText = ""
+               End If
+            End If
+         End Set
+      End Property
+
+      ' Definizione comandi
+      Private m_cmdChangeCTEiColor As ICommand
+
+#End Region    ' FIELDS & PROPERTIES
+
+#Region "CONSTRUCTOR"
+
+      Sub New(Index As Integer, IsActive As Boolean, Color As Color3d, Affondamento As Double, Larghezza As Double)
+         Me.m_nCTEIndex = Index
+         Me.m_CTEiChecked = IsActive
+         Me.m_CTEiBackground = Color
+         Me.m_sCTEiAffondamentoText = DoubleToString(Affondamento, 3)
+         Me.m_sCTEiLarghezzaText = LenToString(Larghezza, 3)
+      End Sub
+
+#End Region    ' CONSTRUCTOR
+
+#Region "COMMANDS"
+
+#Region "ChangeCTSAiColorCommand"
+
+      Public ReadOnly Property ChangeCTEiColorCommand As ICommand
+         Get
+            If m_cmdChangeCTEiColor Is Nothing Then
+               m_cmdChangeCTEiColor = New Command(AddressOf ChangeCTEiColor)
+            End If
+            Return m_cmdChangeCTEiColor
+         End Get
+      End Property
+
+      Public Sub ChangeCTEiColor(ByVal param As Object)
+         ' Creo dialogo colori
+         Dim ColorDlg As New System.Windows.Forms.ColorDialog
+         ColorDlg.FullOpen = True
+         ColorDlg.Color = m_CTEiBackground.ToColor()
+         ' Visualizzo dialogo
+         If ColorDlg.ShowDialog() <> DialogResult.OK Then Return
+         ' Se ok, aggiorno
+         Dim NewCol As New Color3d(192, 192, 192, 100)
+         NewCol.FromColor(ColorDlg.Color)
+         ' Imposto il colore scelto sul pulsante
+         m_CTEiBackground = NewCol
+         CTEiWriteString()
+         NotifyPropertyChanged("CTEiBackground")
+      End Sub
+
+#End Region ' ChangeCTSAiColorCommand
+
+#End Region ' COMMANDS
+
+#Region "METHODS"
+
+      Private Sub CTEiWriteString()
+         ' Sistemo i parametri double
+         Dim dAff As Double = 0 : StringToDouble(sCTEiAffondamentoText, dAff)
+         Dim sAff As String = DoubleToString(dAff, 3)
+         Dim dLar As Double = 0 : StringToLen(sCTEiLarghezzaText, dLar)
+         Dim sLar As String = DoubleToString(dLar, 3)
+         ' Costruisco la stringa da mettere nell'INI
+         Dim sData As String = m_CTEiBackground.R.ToString() & "," &
+                               m_CTEiBackground.G.ToString() & "," &
+                               m_CTEiBackground.B.ToString() & "," &
+                               sAff & "," &
+                               sLar & "," &
+                               If(CTEiChecked, "1", "0")
+         WritePrivateProfileString(S_COLORTOENGRAVE, K_CTE & nCTEIndex.ToString(), sData, m_sIniFile)
+      End Sub
+
 #End Region
 
    End Class
diff --git a/SideEntityControl/SideEntityControlVM.vb b/SideEntityControl/SideEntityControlVM.vb
index 2483722..72df8a2 100644
--- a/SideEntityControl/SideEntityControlVM.vb
+++ b/SideEntityControl/SideEntityControlVM.vb
@@ -1138,7 +1138,7 @@ Public Class SideEntityControlVM
    Shared Sub ColorToSideAngle(nCtx As Integer)
       ' Leggo dati corrispondenza colore-angolo
       Dim CurrCSA As New ColorSideAngs
-      CurrCSA.Read( IniFile.m_sIniFile)
+      CurrCSA.Read(IniFile.m_sIniFile)
       ' Imposto contesto corrente
       EgtSetCurrentContext(nCtx)
       ' Ciclo sui pezzi
@@ -1149,11 +1149,11 @@ Public Class SideEntityControlVM
          Dim LoopId As Integer = EgtGetFirstNameInGroup(PartId, NAME_OUTLOOP)
          While LoopId <> GDB_ID.NULL
             ' Ciclo sulle curve
-            Dim PrevId As Integer = EgtGetLastInGroup( LoopId)
-            Dim EntId As Integer = EgtGetFirstInGroup( LoopId)
+            Dim PrevId As Integer = EgtGetLastInGroup(LoopId)
+            Dim EntId As Integer = EgtGetFirstInGroup(LoopId)
             While EntId <> GDB_ID.NULL
-               Dim NextId As Integer = EgtGetNext( EntId)
-               If  NextId = GDB_ID.NULL Then NextId = EgtGetFirstInGroup( LoopId)
+               Dim NextId As Integer = EgtGetNext(EntId)
+               If NextId = GDB_ID.NULL Then NextId = EgtGetFirstInGroup(LoopId)
                If VerifySideAnglePossible(PrevId, EntId, NextId, bOutLoop) Then
                   Dim colEnt As Color3d
                   If EgtGetColor(EntId, colEnt) Then
@@ -1167,9 +1167,9 @@ Public Class SideEntityControlVM
                   End If
                End If
                PrevId = EntId
-               EntId = EgtGetNext( EntId)
+               EntId = EgtGetNext(EntId)
             End While
-            If bOutLoop then
+            If bOutLoop Then
                bOutLoop = False
                LoopId = EgtGetFirstNameInGroup(PartId, NAME_INLOOP)
             Else
@@ -1182,6 +1182,37 @@ Public Class SideEntityControlVM
       WriteSideAngleForNest(nCtx)
    End Sub
 
+   Shared Sub ColorToEngrave(nCtx As Integer)
+      ' Leggo dati corrispondenza colore-angolo
+      Dim CurrCE As New ColorEngrave
+      CurrCE.Read(IniFile.m_sIniFile)
+      ' Imposto contesto corrente
+      EgtSetCurrentContext(nCtx)
+      ' Ciclo sui pezzi
+      Dim PartId As Integer = EgtGetFirstPart()
+      While PartId <> GDB_ID.NULL
+         ' Ciclo sui layer di Engraving
+         Dim LayerId As Integer = EgtGetFirstNameInGroup(PartId, NAME_ONPATH)
+         While LayerId <> GDB_ID.NULL
+            ' Ciclo sulle curve
+            Dim EntId As Integer = EgtGetFirstInGroup(LayerId)
+            While EntId <> GDB_ID.NULL
+               Dim colEnt As Color3d
+               If EgtGetColor(EntId, colEnt) Then
+                  Dim dAff, dLar As Double
+                  If CurrCE.GetEngraveAff(colEnt, dAff, dLar) Then
+                     EgtSetInfo(EntId, INFO_DEPTH, dAff)
+                     EgtSetInfo(EntId, INFO_WIDTH, dLar)
+                  End If
+               End If
+               EntId = EgtGetNext(EntId)
+            End While
+            LayerId = EgtGetNextLayer(LayerId)
+         End While
+         PartId = EgtGetNextPart(PartId)
+      End While
+   End Sub
+
 #End Region    ' METHODS
 
 End Class
@@ -1557,3 +1588,62 @@ Friend Class ColorSideAngs
    End Function
 
 End Class
+
+Friend Class ColorEngrave
+   Class CTE
+      Friend m_bOk As Boolean
+      Friend m_R As Integer
+      Friend m_G As Integer
+      Friend m_B As Integer
+      Friend m_dAff As Double
+      Friend m_dLar As Double
+   End Class
+   Private m_ListCte As New List(Of CTE)
+   Private m_nTol As Integer = 10
+
+   Friend Function Read(sIniFile As String) As Boolean
+      ' Lettura parametri di conversione
+      Dim nIndex As Integer = 1
+      Dim OneCte As CTE = GetPrivateProfileColorEngrave(S_COLORTOENGRAVE, K_CTE & nIndex, sIniFile)
+      While Not IsNothing(OneCte)
+         m_ListCte.Add(OneCte)
+         nIndex += 1
+         OneCte = GetPrivateProfileColorEngrave(S_COLORTOENGRAVE, K_CTE & nIndex, sIniFile)
+      End While
+      ' Lettura tolleranza
+      m_nTol = GetPrivateProfileInt(S_COLORTOENGRAVE, K_CTE_TOLERANCE, 10, sIniFile)
+      Return True
+   End Function
+
+   Private Function GetPrivateProfileColorEngrave(sSect As String, sKey As String, sIniFile As String) As CTE
+      Dim OneCte As New CTE
+      Dim sVal As String = String.Empty
+      GetPrivateProfileString(sSect, sKey, "", sVal, sIniFile)
+      Dim sItems() As String = sVal.Split(",".ToCharArray)
+      OneCte.m_bOk = If(sItems.Count() = 6, (sItems(5).Trim() <> "0"), True)
+      If sItems.Count() >= 5 Then
+         StringToInt(sItems(0), OneCte.m_R)
+         StringToInt(sItems(1), OneCte.m_G)
+         StringToInt(sItems(2), OneCte.m_B)
+         StringToDouble(sItems(3), OneCte.m_dAff)
+         StringToDouble(sItems(4), OneCte.m_dLar)
+         Return OneCte
+      End If
+      Return Nothing
+   End Function
+
+   Friend Function GetEngraveAff(cCol As Color3d, ByRef dAff As Double, ByRef dLar As Double) As Boolean
+      For Each Ctsa In m_ListCte
+         If Ctsa.m_bOk And
+               Math.Abs(cCol.R - Ctsa.m_R) < m_nTol And
+               Math.Abs(cCol.G - Ctsa.m_G) < m_nTol And
+               Math.Abs(cCol.B - Ctsa.m_B) < m_nTol Then
+            dAff = Ctsa.m_dAff
+            dLar = Ctsa.m_dLar
+            Return True
+         End If
+      Next
+      Return False
+   End Function
+
+End Class
\ No newline at end of file