DataWall :

- modifiche per Tool_ID anche su lame
- correzioni su chiodature in doppio.

LuaLibs/WProcessFreeContour.lua

@@ -1,4 +1,4 @@
--- ProcessFreeContour.lua by Egaltech s.r.l. 2021/10/18
+-- ProcessFreeContour.lua by Egaltech s.r.l. 2021/10/24
 -- Gestione calcolo profilo libero per Pareti
 
 -- Tabella per definizione modulo
@@ -1667,9 +1667,10 @@ local function MakeByCut( Proc, nRawId, b3Raw)
    -- lettura parametri (probabile/i parametro/i Q)
    local nConeCut = VerifyCornerType( Proc)
    -- recupero la lavorazione di taglio con lama e i suoi parametri (dapprima cerco quella che possa tagliare completamente)
-   local sCutting, dSawDiam, dSawThick, dSawMaxDepth = WM.FindCutting( 'Standard', dWidth)
+   local nTool_ID = EgtGetInfo( Proc.Id, 'CNT_DATA', 'i')
+   local sCutting, dSawDiam, dSawThick, dSawMaxDepth = WM.FindCutting( 'Standard', dWidth, nTool_ID)
    if not sCutting then
-      sCutting, dSawDiam, dSawThick, dSawMaxDepth = WM.FindCutting( 'Standard')
+      sCutting, dSawDiam, dSawThick, dSawMaxDepth = WM.FindCutting( 'Standard', nil, nTool_ID)
       sWarn = 'Warning : elevation bigger than max sawcut depth'
    end
    if not sCutting then
@@ -1684,6 +1685,9 @@ local function MakeByCut( Proc, nRawId, b3Raw)
    -- inserimento dei tagli di lama
    local bCtOk, sCtErr = AddCuts( sCutting, vFace, Proc, nRawId, b3Raw, dSawThick)
    if not bCtOk then return bCtOk, sCtErr end
+   -- se richiesta solo lama, esco
+   local nCntType = EgtGetInfo( Proc.Id, 'CNT_TYPE', 'i') or 0
+   if nCntType == 1 and nTool_ID ~= 0 then return true, sWarn end
    -- se ci sono facce inclinate, escludo la sega a catena
    local bSlanting = false
    for i = 1, #vFace do
@@ -1905,18 +1909,20 @@ local function MakeByNail( Proc, nRawId, b3Raw)
    -- assegno lato di lavoro
    EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.CENTER)
    -- se in doppio lungo Y, devo dimezzare opportunamente la lavorazione
+   local dExtraDelta = 0
    if Proc.Double == 2 then
+      dExtraDelta = 0.45 * dCntPar
       if Proc.Delta > 0 then
-         EgtSetMachiningParam( MCH_MP.ENDADDLEN, -abs( Proc.Delta) - 0.9 * dCntPar)
+         EgtSetMachiningParam( MCH_MP.ENDADDLEN, -abs( Proc.Delta) - dExtraDelta)
       else
-         EgtSetMachiningParam( MCH_MP.STARTADDLEN, -abs( Proc.Delta) - 0.9 * dCntPar)
+         EgtSetMachiningParam( MCH_MP.STARTADDLEN, -abs( Proc.Delta) - dExtraDelta)
       end
    end
-   -- assegno parametro a note utente
+   -- assegno parametri a note utente
    local sUserNotes = 'Par=' .. EgtNumToString( dCntPar, 0) .. ';'
    if Proc.Double and Proc.Double > 0 then
       sUserNotes = sUserNotes .. 'Dbl=' .. EgtNumToString( Proc.Double, 0) .. ';' ..
-                                 'Dlt=' .. EgtNumToString( Proc.Delta, 0) .. ';'
+                                 'Dlt=' .. EgtNumToString( abs( Proc.Delta) + dExtraDelta, 0) .. ';'
    end
    EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
    -- eseguo