DataBeam :

- correzioni per tagli su pezzi grossi
- correzioni varie.

LuaLibs/ProcessDrill.lua

@@ -1,4 +1,4 @@
--- ProcessDrill.lua by Egaltech s.r.l. 2019/07/29
+-- ProcessDrill.lua by Egaltech s.r.l. 2019/08/29
 -- Gestione calcolo forature per Travi
 
 -- Tabella per definizione modulo
@@ -15,7 +15,7 @@ local ML = require( 'MachiningLib')
 
 -- Costanti
 local TH_RAD = 35             -- raggio portautensile
-local COS_SLANT_LIM = 0.82    -- 35deg da piano
+local COS_SLANT_LIM = 0.866   -- 30deg da piano
 
 ---------------------------------------------------------------------
 -- Riconoscimento della feature
@@ -67,14 +67,14 @@ function ProcessDrill.Split( Proc, b3Raw)
    local dDiam = 2 * EgtArcRadius( AuxId)
    local dLen = abs( EgtCurveThickness( AuxId))
    local vtExtr = EgtCurveExtrusion( AuxId, GDB_RT.GLOB)
-   local bOpen = ( EgtGetInfo( Proc.Id, 'FCE', 'i') ~= 0)
+   local bOpen = ( Proc.Fce ~= 0)
    -- recupero la lavorazione
    local sDrilling, _, dMaxMat = ML.FindDrilling( dDiam)
    if not sDrilling then
       return bOpen
    end
    -- restituisco se va fatto in doppio (solo fori orizzontali)
-   return ( bOpen and dLen > dMaxMat + 10 * GEO.EPS_SMALL and abs( vtExtr:getY()) * b3Raw:getDimZ() > abs( vtExtr:getZ()) * b3Raw:getDimY())
+   return ( bOpen and dLen > dMaxMat + 10 * GEO.EPS_SMALL and ( abs( vtExtr:getY()) * b3Raw:getDimZ() > abs( vtExtr:getZ()) * b3Raw:getDimY() or Proc.Fce == 5 or Proc.Fce == 6))
 end
 
 ---------------------------------------------------------------------
@@ -196,8 +196,13 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
       EgtOutLog( sMyWarn .. ' (process ' .. tostring( Proc.Id) .. ')')
    end
    EgtSetMachiningParam( MCH_MP.DEPTH, dDepth)
-   -- dichiaro non si generano sfridi per VMill
-   EgtSetMachiningParam( MCH_MP.USERNOTES, 'VMRS=0;')
+   -- Note utente con dichiarazione nessuna generazione sfridi per Vmill
+   local sUserNotes = 'VMRS=0;'
+   -- se foratura, aggiungo alle note massima elevazione (coincide con affondamento)
+   if nType == 'Drill' then
+      sUserNotes = sUserNotes .. 'MaxElev=' .. EgtNumToString( dDepth, 1) .. ','
+   end
+   EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
    -- eseguo
    if not EgtApplyMachining( true, false) then
       local _, sErr = EgtGetLastMachMgrError()