Prima versione gestione utensile flottante. Per ora solo su marcature.

Gestione da migliorare.

LuaLibs/BeamExec.lua

@@ -153,6 +153,11 @@ function BeamExec.GetToolsFromDB()
          Tool.nDouble = EgtGetValInNotes( Tool.sUserNotes, 'DOUBLE', 'd')
          Tool.bIsProfiledTool = not EgtTdbIsCurrToolStandardDraw()
 
+         -- TODO per capire se ToolHolder è flottante bisogna leggere nota TYPE='Float' su ToolHolder. Serve funzione
+         -- info per utensile su ToolHolder flottante
+         Tool.dOverHang = EgtGetValInNotes( Tool.sUserNotes, 'TOOL_OVERHANG', 'd') or 0
+         Tool.bToolOnFloatingTH = Tool.dOverHang > 0
+
          -- lettura parametri non comuni ( famiglia DRILLBIT non ha parametri specifici)
          if sToolFamily ~= 'DRILLBIT' then
             Tool.dThickness = EgtTdbGetCurrToolParam( MCH_TP.THICK)

Strategies/Standard/STR0014/STR0014.lua

@@ -98,7 +98,7 @@ function STR0014.Make( bAddMachining, Proc, Part, CustomParameters)
          Strategy.Machining.nSCC = GetSCC( Strategy.Machining)
 
          Strategy.Machining.nType = MCH_MY.MILLING
-         Strategy.Machining.sDepth = EgtClamp( Strategy.Parameters.dMachiningDepth, -1, 5)
+         Strategy.Machining.sDepth = EgtClamp( Strategy.Parameters.dMachiningDepth, -1, TOOLS[Strategy.Machining.nToolIndex].dMaxMaterial)
          Strategy.Machining.nWorkside = MCH_MILL_WS.CENTER
 
          -- LeadIn / LeadOut
@@ -113,6 +113,12 @@ function STR0014.Make( bAddMachining, Proc, Part, CustomParameters)
              Strategy.Machining.LeadOut.dEndAddLength = -20
          end
 
+         -- TODO gestire meglio
+         -- se utensile montato su aggregato flottante
+         if TOOLS[Strategy.Machining.nToolIndex].bToolOnFloatingTH then
+            Strategy.Machining.dMaxElev = Strategy.Parameters.dMachiningDepth
+            Strategy.Machining.dLongitudinalOffset = -5
+         end
          -- stessi parametri cambia solo al geometria
          for i = 1, #Proc.FeatureInfo.AdditionalGeometries do
             local AuxId = Proc.id + Proc.FeatureInfo.AdditionalGeometries[i]