EgtCAM5 :

- per disegno frese aggiunte variabili mancanti a ToolMakers.

ToolsDbWindow/ToolTreeView.vb

@@ -255,6 +255,9 @@ Public Class ToolTreeViewItem
             StringToLen(value, dValue)
             m_IsModifiedCornRad = Math.Abs(dValue - DbCornRad) > 10 * EPS_ANG_SMALL
             m_delIsEnabledBtns(IsValid And Not IsModified, IsValid And (IsModified Or NewTool), True)
+            If Not m_SuspendToolDrawUpdate Then
+               UpdateSceneToolDraw()
+            End If
             NotifyPropertyChanged("CornRad")
          End If
       End Set
@@ -311,6 +314,9 @@ Public Class ToolTreeViewItem
             EgtTdbGetCurrToolParam(MCH_TP.TOTDIAM, DbTotDiam)
             StringToLen(value, dValue)
             m_IsModifiedTotDiam = Math.Abs(dValue - DbTotDiam) > 5 * EPS_SMALL
+            If Not m_SuspendToolDrawUpdate Then
+               UpdateSceneToolDraw()
+            End If
             If Not GetValidationError("Diam") Or Not GetValidationError("TotDiam") Then
                m_delErrorOnTool(True)
                m_delIsEnabledBtns(False, False, True)
@@ -648,6 +654,9 @@ Public Class ToolTreeViewItem
             StringToLen(value, dValue)
             m_IsModifiedSideAng = Math.Abs(dValue - DbSideAng) > 10 * EPS_ANG_SMALL
             m_delIsEnabledBtns(IsValid And Not IsModified, IsValid And (IsModified Or NewTool), True)
+            If Not m_SuspendToolDrawUpdate Then
+               UpdateSceneToolDraw()
+            End If
             NotifyPropertyChanged("SideAng")
          End If
       End Set
@@ -1309,14 +1318,20 @@ Public Class ToolTreeViewItem
    Private Function CreateToolDraw(ToolHolder As String) As Boolean
       Dim dTotLen As Double = 0
       Dim dLen As Double = 0
+      Dim dTotDiam As Double = 0
       Dim dDiam As Double = 0
       Dim dThick As Double = 0
       Dim dMaxMat As Double = 0
+      Dim dSideAng As Double = 0
+      Dim dCornRad As Double = 0
       StringToLen(m_TotLen, dTotLen)
       StringToLen(m_Len, dLen)
+      StringToLen(m_TotDiam, dTotDiam)
       StringToLen(m_Diam, dDiam)
       StringToLen(m_Thick, dThick)
       StringToLen(m_MaxMat, dMaxMat)
+      StringToDouble(m_SideAng, dSideAng)
+      StringToLen(m_CornRad, dCornRad)
       Select Case Type
          Case MCH_TY.DRILL_STD, MCH_TY.DRILL_LONG, MCH_TY.CHISEL_STD
             ' imposto dati utensile
@@ -1337,9 +1352,14 @@ Public Class ToolTreeViewItem
          Case MCH_TY.MILL_STD, MCH_TY.MILL_NOTIP
             ' imposto dati utensile
             EgtLuaSetGlobStringVar("TOOL.TOOLHOLDER", ToolHolder)
+            EgtLuaSetGlobNumVar("TOOL.TOTLEN", dTotLen)
             EgtLuaSetGlobNumVar("TOOL.LEN", dLen)
+            EgtLuaSetGlobNumVar("TOOL.TOTDIAM", dTotDiam)
             EgtLuaSetGlobNumVar("TOOL.DIAM", dDiam)
             EgtLuaSetGlobNumVar("TOOL.MAXMAT", dMaxMat)
+            EgtLuaSetGlobNumVar("TOOL.HEIGHT", dThick)
+            EgtLuaSetGlobNumVar("TOOL.SIDEANG", dSideAng)
+            EgtLuaSetGlobNumVar("TOOL.CORNRAD", dCornRad)
          Case Else
             m_nDrawingError = 999
             m_Draw = String.Empty