Merge branch 'release/2.5j3'

update log
Merge remote-tracking branch 'origin/master' into develop
2023-10-23 13:18:21 +02:00 · 2023-10-23 13:18:07 +02:00 · 2023-10-19 09:13:47 +02:00 · 2023-10-18 11:19:37 +02:00 · 2023-10-16 10:07:03 +02:00 · 2023-10-12 10:53:11 +02:00
16 changed files with 716 additions and 506 deletions
@@ -1,5 +1,5 @@

-REM Compilazione degli script Wall Egaltech                         2023.02.27
+REM Compilazione degli script Wall Egaltech                         2023.09.26
 REM Per togliere info di debug aggiungere flag -s prima del nome del file di input

 REM Compilazione 32 e 64 bit
@@ -11,6 +11,7 @@ REM Compilazione 32 e 64 bit
 \EgtProg\Dll32\luac54 -o bin\LuaLibs\WProcessDoubleCut.lua             LuaLibs\WProcessDoubleCut.lua
 \EgtProg\Dll32\luac54 -o bin\LuaLibs\WProcessDrill.lua                 LuaLibs\WProcessDrill.lua
 \EgtProg\Dll32\luac54 -o bin\LuaLibs\WProcessDtMortise.lua             LuaLibs\WProcessDtMortise.lua
+REM \EgtProg\Dll32\luac54 -o bin\LuaLibs\WFeatureTopology.lua             LuaLibs\WFeatureTopology.lua
 \EgtProg\Dll32\luac54 -o bin\LuaLibs\WProcessFreeContour.lua           LuaLibs\WProcessFreeContour.lua
 \EgtProg\Dll32\luac54 -o bin\LuaLibs\WProcessLapJoint.lua              LuaLibs\WProcessLapJoint.lua
 \EgtProg\Dll32\luac54 -o bin\LuaLibs\WProcessMark.lua                  LuaLibs\WProcessMark.lua
@@ -43,6 +43,7 @@ GWD.NESTING_CORNER = WD.NESTING_CORNER
 GWD.HOR_DRILL_DIAM = WD.HOR_DRILL_DIAM
 GWD.MIN_HEIGHT = WD.MIN_HEIGHT
 GWD.MAX_HEIGHT = WD.MAX_HEIGHT
+GWD.BTL_PRIORITY = WD.BTL_PRIORITY

 -- Tutto ok
 GWD.ERR = 0
@@ -1,8 +1,10 @@
-- MachiningLib.lua by Egaltech s.r.l. 2022/01/12
+-- MachiningLib.lua by Egaltech s.r.l. 2023/10/18
 -- Libreria ricerca lavorazioni per Pareti
 -- 2023/03/09 Piccola correzione alla SideDepth in FindMilling
 --            In FindMilling aggiunta gestione spessore e massimo materiale nel caso di lam
 -- 2023/05/25 Aggiunta funzione AddMachining che incapsula EgtAddMachining trascrivendo le priorità btl dalle feature alle lavorazioni.
+-- 2023/06/07 Alla funzione AddMachining aggiunta la scrittura dell'info ISOUTLINE alle lavorazioni.
+-- 2023/10/18 In SetCurrMachiningAndTool sostituito controllo di utensile attivo con controllo utensile nel setup corrente.

 -- Tabella per definizione modulo
 local WMachiningLib = {}
@@ -31,7 +33,7 @@ local function SetCurrMachiningAndTool( sMachName)
   local sTool = EgtTdbGetToolFromUUID( sTuuid)
   if not sTool then return false end
   if not EgtTdbSetCurrTool( sTool) then return false end
-   return EgtTdbGetCurrToolParam( MCH_TP.ACTIVE)
+   return EgtFindToolInCurrSetup( sTool) 
 end

 ---------------------------------------------------------------------
@@ -181,12 +183,15 @@ function WMachiningLib.FindSurfacing( sType)
   end
 end

-- incapsulo EgtAddMachining e trascrivo le priorità all'interno delle note della lavorazione
+-- incapsulo EgtAddMachining e trascrivo alcune informazioni utili nelle note dell'operazione
 ---------------------------------------------------------------------
-function WMachiningLib.AddMachining( nProcId, sName, sMachining)
+function WMachiningLib.AddMachining( Proc, sName, sMachining)
   local nMchId, sFinalName = EgtAddMachining( sName, sMachining)
-   local nPriority = EgtGetInfo( nProcId, 'PRIORITY', 'i')
-   EgtSetInfo( nMchId, 'PRIORITY', nPriority)
+   if type( Proc) == 'table' then
+      local nPriority = EgtGetInfo( Proc.Id or GDB_ID.NULL, 'PRIORITY', 'i')
+      EgtSetInfo( nMchId or GDB_ID.NULL, 'PRIORITY', nPriority)
+      EgtSetInfo( nMchId or GDB_ID.NULL, 'ISOUTLINE', Proc.IsOutline)
+   end
   return nMchId, sFinalName
 end

@@ -1,5 +1,6 @@
 -- WProcessCut.lua by Egaltech s.r.l. 2020/11/25
 -- Gestione calcolo taglio di testa o longitudinale per Pareti
+-- 2023/07/26 Angolo Z minimo ora gestito tramite costante da WallData CUT_VZ_MIN (default sempre -0.5).

 -- Tabella per definizione modulo
 local WPC = {}
@@ -31,7 +32,7 @@ function WPC.Classify( Proc, b3Raw)
   if Proc.Fct ~= 1 then return false end
   -- controllo la normale
   local vtN = EgtSurfTmFacetNormVersor( Proc.Id, 0, GDB_ID.ROOT)
-   if vtN:getZ() < - 0.5 then return false end
+   if vtN:getZ() < ( WD.CUT_VZ_MIN or - 0.5) then return false end
   return true
 end

@@ -40,29 +41,29 @@ end
 -- return nFlip0, nFlip1
 function WPC.FlipClassify( Proc)
   -- verifico abbia una sola faccia
-   if Proc.Fct ~= 1 then return 0, 0 end 
+   if Proc.Fct ~= 1 then return 0, 0 end
   -- controllo la normale
   local vtN = EgtSurfTmFacetNormVersor( Proc.Id, 0, GDB_ID.ROOT)
   local vtNZ = vtN:getZ()
   if vtNZ > - GEO.EPS_SMALL then
      nFlip0 = 100
-   elseif vtNZ < -0.5 then 
+   elseif vtNZ < ( WD.CUT_VZ_MIN or - 0.5) then
      nFlip0 = 0
   else
-      nFlip0 = 50 
-   end 
+      nFlip0 = 50
+   end
   
   if - vtNZ > - GEO.EPS_SMALL then
      nFlip1 = 100
-   elseif - vtNZ < -0.5 then 
+   elseif - vtNZ < ( WD.CUT_VZ_MIN or - 0.5) then
      nFlip1 = 0
   else
      nFlip1 = 50
-   end    
+   end
   
   --nFlip0 = EgtIf( vtN:getZ() < -0.5, 0, 100) 
   --nFlip1 = EgtIf( - vtN:getZ() < -0.5, 0, 100) 
-   return nFlip0, nFlip1 
+   return nFlip0, nFlip1
 end

 ---------------------------------------------------------------------
@@ -376,7 +376,7 @@ function WPD.Make( Proc, nRawId, b3Raw)
   end
   -- inserisco la lavorazione
   local sName = EgtIf( sHead == 'H5' or sHead == 'H6', 'LhDrill_', 'Drill_') .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchId = WM.AddMachining( Proc.Id, sName, sDrilling)
+   local nMchId = WM.AddMachining( Proc, sName, sDrilling)
   if not nMchId then
      local sErr = 'Error adding machining ' .. sName .. '-' .. sDrilling
      EgtOutLog( sErr)
@@ -506,7 +506,7 @@ function WPD.Make( Proc, nRawId, b3Raw)
      
      -- inserisco la lavorazione
      local sName = 'PreDrill_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-      local nMchId = WM.AddMachining( Proc.Id, sName, sDrilling)
+      local nMchId = WM.AddMachining( Proc, sName, sDrilling)
      if not nMchId then
         local sErr = 'Error adding machining ' .. sName .. '-' .. sDrilling
         EgtOutLog( sErr)
@@ -160,7 +160,7 @@ function WPDM.Make( Proc, nRawId, b3Raw)
      end
      -- inserisco la lavorazione di svuotatura
      local sName = 'DtMtPck_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-      local nMchFId = WM.AddMachining( Proc.Id, sName, sPocketing)
+      local nMchFId = WM.AddMachining( Proc, sName, sPocketing)
      if not nMchFId then
         local sErr = 'Error adding machining ' .. sName .. '-' .. sPocketing
         EgtOutLog( sErr)
@@ -190,7 +190,7 @@ function WPDM.Make( Proc, nRawId, b3Raw)
   for i = nPass, 1, -1 do
      -- inserisco la lavorazione di contornatura
      local sNameF = 'DtMt_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)) .. '_' .. tostring( nPass)
-      local nMchFId = WM.AddMachining( Proc.Id, sNameF, sMilling)
+      local nMchFId = WM.AddMachining( Proc, sNameF, sMilling)
      if not nMchFId then
         local sErr = 'Error adding machining ' .. sNameF .. '-' .. sMilling
         EgtOutLog( sErr)
@@ -1,4 +1,4 @@
-- ProcessFreeContour.lua by Egaltech s.r.l. 2023/04/17
+-- ProcessFreeContour.lua by Egaltech s.r.l. 2023/10/02
 -- Gestione calcolo profilo libero per Pareti
 -- 2021/11/15 Penna e chiodature sono sempre riportate sulla faccia sopra anche se nel progetto sono sotto.
 -- 2021/12/10 In taglio con lama aggiunta gestione SCC per testa Gearbox.
@@ -20,6 +20,11 @@
 -- 2023/04/17 Lavorazione CleanCorner sempre forzata con lato di lavoro in centro.
 -- 2023/05/25 Funzioni EgtAddMachining sostituite da WM.AddMachining in modo da trascrivere le priorità da btl alle lavorazioni.
 -- 2023/06/06 Aggiunta gestione lavorazione per lamatura speciale affondata con Tool_ID specifico.
+-- 2023/07/26 In MakeByCut migliorata la scelta della fresa secondaria nel caso non sia disponibile una fresa di lunghezza sufficiente.
+-- 2023/09/12 Modifiche a GetTunnelDimension (asse deve essere com Z globale) e MakeLocalSurf per gestire finestre con lati inclinati.
+-- 2023/09/21 In MakeByMill modificato SCC per correggere caso con lama su testa fresa.
+-- 2023/09/26 In Is3EdgesApprox aggiunta cancellazione dei loop temporanei.
+-- 2023/10/02 Correzione a MakeCustomPath per calcolare correttamente puliture spigoli di tipo 2 (Clean 30) e 3 (Gola di Scarico).

 -- Tabella per definizione modulo
 local WPF = {}
@@ -59,6 +64,8 @@ end
 ---------------------------------------------------------------------
 -- Classificazione della feature
 function WPF.Classify( Proc, b3Raw)
+   -- se area vietata (LockOut) non faccio nulla
+   if Proc.LockOut then return true end
   -- verifico se di tipo pocket
   local bPocket = ( EgtGetInfo( Proc.Id, 'PCKT', 'i') == 1)
   -- recupero la curva associata
@@ -543,87 +550,63 @@ local function GetFacesData( Proc, bOpposite, bCalclForBlade, dToolDiam, dToolMa
 end

 ---------------------------------------------------------------------
-local function GetTunnelDimension( nId, nPartId, nAddGrpId)
-   -- ottengo i versori delle 4 facce e ottengo l'orientamento del tunnel
-   -- recupero il numero di facce
+local function GetTunnelDimension( nId, nPartId, nAddGrpId, bClosed)
+   -- sono necessarie almeno 2 facce
   local nFacCnt = EgtSurfTmFacetCount( nId)
   if nFacCnt < 2 then return end
-   -- recupero l'ingombro della trave
+   -- recupero l'ingombro del pezzo
   local b3Solid = EgtGetBBoxGlob( EgtGetFirstNameInGroup( nPartId, 'Box') or GDB_ID.NULL, GDB_BB.STANDARD)
-   -- variabili dimensioni fessura e id faccia lunga
-   local dDimMin
-   local dDimMax
-   local nLongIdFace = 0
-   local bNegFace
-   local bOppoFace = false
-   -- ottengo il versore ortogonale
-   local ptN1, vtN1 = EgtSurfTmFacetCenter( nId, 0, GDB_ID.ROOT)
-   local vtN2 = EgtSurfTmFacetNormVersor( nId, 1, GDB_ID.ROOT)
-   local vtOrtho = vtN1 ^ vtN2
-   if vtOrtho:isSmall() then
-      vtN2 = EgtSurfTmFacetNormVersor( nId, 2, GDB_ID.ROOT) or V_NULL()
-      vtOrtho = vtN1 ^ vtN2
-      bOppoFace = true
+   -- recupero centro e normale delle facce
+   local ptC = {}
+   local vtN = {}
+   for i = 1, nFacCnt do
+      ptC[i], vtN[i] = EgtSurfTmFacetCenter( nId, i - 1, GDB_ID.ROOT)
   end
-   if not vtOrtho:normalize() then return end
-   if vtOrtho:getZ() < -0.5 then 
-      vtOrtho = -vtOrtho
-      bNegFace = true
+   -- determino l'asse medio (le facce sono già ordinate consecutivamente)
+   local vtAx = V_NULL()
+   for i = 1, EgtIf( bClosed, nFacCnt, nFacCnt - 1) do
+      local j = i % nFacCnt + 1
+      local vtOrtho = vtN[i] ^ vtN[j]
+      if vtOrtho:normalize() then
+         vtAx = vtAx + vtOrtho
+      end
   end
-   -- ottengo il boundingBox e prendo le dimensioni lungo la normale (Z locale) che rappresenta la profondità della fessura
-   local frFc = Frame3d( ptN1, vtOrtho) ;
-   local bBoxLoc = EgtGetBBoxRef( nId, GDB_BB.STANDARD, frFc)
-   local dDepth = bBoxLoc:getDimZ()
-   -- mi assicuro che la Z del punto utilizzato per creare la superficie sia alla Z inferiore del bounding box locale
-   local ptN2 = Point3d(ptN1)
-   ptN2:toLoc(frFc)
-   ptN2 = Point3d( ptN2:getX(), ptN2:getY(), bBoxLoc:getMin():getZ() + 2*GEO.EPS_SMALL)
-   ptN2:toGlob(frFc)
-   -- creo superficie intermedia
-   local nSurfInt = EgtSurfTmPlaneInBBox( nAddGrpId, ptN2, vtOrtho, b3Solid, GDB_ID.ROOT)
+   if not vtAx:normalize() or abs( vtAx:getZ()) < 0.5 then return end
+   -- impongo come asse Z globale
+   vtAx = Z_AX()
+   -- recupero ingombro del tunnel nel riferimento globale
+   local b3Box = EgtGetBBoxGlob( nId, GDB_BB.STANDARD)
+   local dDepth = b3Box:getDimZ()
+   -- creo faccia in basso (di poco sollevata)
+   local nSurfInt = EgtSurfTmPlaneInBBox( nAddGrpId, b3Box:getMin() + 2 * GEO.EPS_SMALL * vtAx, vtAx, b3Solid, GDB_ID.ROOT)
   if not nSurfInt then return end
   -- ritaglio la superficie con le facce della fessura
   for i = 1, nFacCnt do
      local ptN, vtN = EgtSurfTmFacetCenter( nId, i - 1, GDB_ID.ROOT)
      EgtCutSurfTmPlane( nSurfInt, ptN, -vtN, false, GDB_ID.ROOT)
   end
-   -- sposto la geometria trovata sulla Z minima (era su di 2 * GEO.EPS_SMALL)
-   EgtMove( nSurfInt, Point3d(0,0,-2*GEO.EPS_SMALL) - ORIG(), GDB_RT.GLOB)
+   -- sposto la geometria trovata sulla Z minima del pezzo
+   EgtMove( nSurfInt, -2 * GEO.EPS_SMALL * vtAx, GDB_RT.GLOB)
   -- mi faccio dare il contorno della superfice e la ricreo in modo più corretto
   local nIdCont, nIdNum = EgtExtractSurfTmLoops( nSurfInt, nAddGrpId)
   if not nIdCont then return end
   -- elimino le entità allineate dello stesso tipo
-   EgtMergeCurvesInCurveCompo( nIdCont, 2*GEO.EPS_SMALL)
-   EgtErase(nSurfInt)
-   nSurfInt = EgtSurfTmByFlatContour( nAddGrpId, nIdCont, 2*GEO.EPS_SMALL)
-   -- elimino il contorno
+   EgtMergeCurvesInCurveCompo( nIdCont, 2 * GEO.EPS_SMALL)
+   EgtErase( nSurfInt)
+   nSurfInt = EgtSurfTmByFlatContour( nAddGrpId, nIdCont, 2 * GEO.EPS_SMALL)
   EgtErase(nIdCont)
-   -- se normale negativa inverto
-   _, vtN1 = EgtSurfTmFacetCenter( nSurfInt, 0, GDB_ID.ROOT)
-   if vtN1:getZ() < -0.5 then EgtInvertSurf( nSurfInt) end
-   local _, DimH, DimV = EgtSurfTmFacetMinAreaRectangle( nSurfInt, 0, GDB_ID.ROOT)
-   dDimMin = min( DimH, DimV)
-   dDimMax = max( DimH, DimV)
-   _, DimH, DimV = EgtSurfTmFacetMinAreaRectangle( nId, nFacCnt-1, GDB_ID.ROOT)
-   -- se faccia pari alla larghezza fessura
-   if abs(DimH - dDimMax) < GEO.EPS_SMALL or abs(DimV - dDimMax) < GEO.EPS_SMALL then
-      nLongIdFace = nFacCnt-1
-   -- altrimenti verifico anche con la faccia precedente
-   else
-      local nFaceToCheck = EgtIf( bOppoFace, nFacCnt-3, nFacCnt-2)
-      -- prendo le dimensioni della faccia e poi confronto con il minimo
-      _, DimH, DimV = EgtSurfTmFacetMinAreaRectangle( nId, nFaceToCheck, GDB_ID.ROOT)
-      -- se trovato con il minimo, questa seconda faccia non è la più lunga
-      if abs(DimH - dDimMin) < GEO.EPS_SMALL or abs(DimV - dDimMin) < GEO.EPS_SMALL then
-         nLongIdFace = nFacCnt-1
-      else
-         nLongIdFace = nFaceToCheck
+   -- ne recupero le dimensioni
+   local _, dDimMax, dDimMin = EgtSurfTmFacetMinAreaRectangle( nSurfInt, 0, GDB_ID.ROOT)
+   -- cerco faccia del contorno con lunghezza vicino alla massima
+   local nLongIdFace
+   for i = 1, nFacCnt do
+      local _, DimH, DimV = EgtSurfTmFacetMinAreaRectangle( nId, i - 1, GDB_ID.ROOT)
+      if DimH > dDimMax - 100 * GEO.EPS_SMALL then
+         nLongIdFace = i - 1
+         break
      end
   end
-   if not dDimMax then
-      return dDimMin, dDimMax, dDepth, nil, nil
-   end
-   return dDimMin, dDimMax, dDepth, vtOrtho, nLongIdFace, nSurfInt
+   return dDimMin, dDimMax, dDepth, vtAx, nLongIdFace, nSurfInt
 end

 ---------------------------------------------------------------------
@@ -649,45 +632,52 @@ end
 ---------------------------------------------------------------------
 local function MakeCustomPath( vGeom, nConeCut, dMillDiam, nAddGrpId, dThick, bClosed)

+   -- creo il percorso di lavorazione come contorni inferiori delle facce
   local nPath = {}
-   local nPathData = {}
-
   for i = 1, #vGeom do
-      local dAng
      -- ottengo curva inferiore 1
-      local ptP1, ptP2, ptP3, vtV1, vtV2, dDim1, dDim2 = EgtSurfTmFacetOppositeSide( vGeom[i][1], vGeom[i][2], Z_AX() , GDB_ID.ROOT)
-      if i < #vGeom then
-         -- ricavo i punti e l'angolo interno
-         _, _, _, dAng = EgtSurfTmFacetsContact( vGeom[i][1], vGeom[i][2], vGeom[i+1][2], GDB_ID.ROOT)
-      elseif bClosed then
-         -- ricavo i punti e l'angolo interno
-         _, _, _, dAng = EgtSurfTmFacetsContact( vGeom[i][1], vGeom[i][2], vGeom[1][2], GDB_ID.ROOT)
-      else
-         dAng = 0
-      end
+      local ptP1, _, ptP3 = EgtSurfTmFacetOppositeSide( vGeom[i][1], vGeom[i][2], Z_AX() , GDB_ID.ROOT)
      -- creo linea
      local nId1 = EgtLine( nAddGrpId, ptP1, ptP3, GDB_RT.GLOB)
      table.insert( nPath, nId1)
-      table.insert( nPathData, {nId1, dAng})
   end
-   
-   -- creo il percorso e poi lo offsetto del raggio utensile
   local AuxId = EgtCurveCompo( nAddGrpId, nPath, true)
-   EgtOffsetCurve( AuxId, dMillDiam / 2, GDB_OT.EXTEND)
+
+   -- offsetto a destra il percorso del raggio utensile
+   EgtOffsetCurve( AuxId, dMillDiam / 2, GDB_OT.FILLET)
   -- spezzo il percorso nelle entità componenti
   local nId1st, nIdCount = EgtExplodeCurveCompo( AuxId)
   -- se il numero entità è diverso da quelle iniziali esco con errore
-   if nIdCount ~= #vGeom then
+   if not nId1st then
      local sErr = 'Error : cannot make offset path'
      return 0, sErr
   end
+
+   -- calcolo angoli tra le entità consecutive
+   local nPathData = {}
+   local nIdLast = nId1st + nIdCount - 1
+   for i = nId1st, nIdLast do
+      if i < nIdLast or bClosed then
+         local j = EgtIf( i < nIdLast, i + 1, nId1st)
+         local vtDirFin = EgtEV( i, GDB_ID.ROOT)
+         local vtDirSta = EgtSV( j, GDB_ID.ROOT)
+         local dAng = GetAngleXY( vtDirFin, vtDirSta)
+         local vtBisett = -vtDirFin + vtDirSta
+         if not vtBisett:normalize() then
+            vtBisett = VectorFromRotated( vtDirFin, Z_AX(), -90) 
+         end
+         table.insert( nPathData, { i, dAng, vtBisett})
+      end
+   end
+
   -- resetto la tabella
   nPath = {}
   AuxId = nil
+
   -- in base al tipo di ripresa spigolo modifico il percorso
   if nConeCut == 2 then
      -- acquisisco la lunghezza utensile
-      sMilling, dMaxDepth = WM.FindMilling( 'CleanCorner30')
+      local sMilling = WM.FindMilling( 'CleanCorner30')
      if not sMilling then
         local sErr = 'Error : CleanCorner 30 not found in library'
         return 0, sErr
@@ -710,17 +700,14 @@ local function MakeCustomPath( vGeom, nConeCut, dMillDiam, nAddGrpId, dThick, bC
         table.insert( nPath, ( nId1st + i - 1))
         -- se non è la linea finale e l'angolo tra le due facce è ammesso
         if ( i < nIdCount or bClosed) and  dThick <= ( WD.MAX_CLEAN_CRN30 + 20 * GEO.EPS_SMALL) and
-            nPathData[i][2] < 0 and nPathData[i][2] > -( 180 - dAngleSmall + 10 * GEO.EPS_SMALL) then
+            nPathData[i][2] < -5 and nPathData[i][2] > -( 180 - dAngleSmall + 10 * GEO.EPS_SMALL) then
            -- aggiungo una retta sulla bisettrice
-            local _, vtN2 = EgtSurfTmFacetCenter( vGeom[i][1], vGeom[i][2], GDB_ID.ROOT)
-            local _, vtN3 = EgtSurfTmFacetCenter( vGeom[i][1], vGeom[EgtIf( i == nIdCount, 1, i+1)][2], GDB_ID.ROOT)
            local ptP1 = EgtEP( ( nId1st + i - 1), GDB_ID.ROOT)
-            -- sommo i tre versori per avere una direzione media
-            local vtExtrExit = vtN2 + vtN3
+            local vtExtrExit = nPathData[i][3]
            vtExtrExit:normalize()
            -- linea intermedia (componente lunghezza utensile in direzione bisettrice)
            local pEnd = ptP1 + ( dLenAdd * vtExtrExit)
-            nAuxId = EgtLine( nAddGrpId, ptP1, pEnd, GDB_RT.GLOB)
+            local nAuxId = EgtLine( nAddGrpId, ptP1, pEnd, GDB_RT.GLOB)
            table.insert( nPath, nAuxId)
            -- linea di ritorno
            nAuxId = EgtLine( nAddGrpId, pEnd, ptP1, GDB_RT.GLOB)
@@ -738,18 +725,15 @@ local function MakeCustomPath( vGeom, nConeCut, dMillDiam, nAddGrpId, dThick, bC
         -- se non è la linea finale e l'angolo tra le due facce è ammesso
         if ( i < nIdCount or bClosed) and nPathData[i][2] < 0 then
            -- aggiungo una retta sulla bisettrice
-            local _, vtN2 = EgtSurfTmFacetCenter( vGeom[i][1], vGeom[i][2], GDB_ID.ROOT)
-            local _, vtN3 = EgtSurfTmFacetCenter( vGeom[i][1], vGeom[EgtIf( i == nIdCount, 1, i+1)][2], GDB_ID.ROOT)
            local ptP1 = EgtEP( ( nId1st + i - 1), GDB_ID.ROOT)
-            -- sommo i tre versori per avere una direzione media
-            local vtExtrExit = vtN2 + vtN3
+            local vtExtrExit = nPathData[i][3]
            vtExtrExit:normalize()
            vtExtrExit = -vtExtrExit
            -- calcolo di quanto entrare
-            local dLenAdd = abs( (dMillDiam/2) / cos( nPathData[i][2]/2)) + dExtraCorner - (dMillDiam/2)
+            local dLenAdd = abs( (dMillDiam/2) / cos( nPathData[i][2]/2)) + dExtraCorner - ( dMillDiam / 2)
            -- linea intermedia (componente lunghezza utensile in direzione bisettrice)
            local pEnd = ptP1 + ( dLenAdd * vtExtrExit)
-            nAuxId = EgtLine( nAddGrpId, ptP1, pEnd, GDB_RT.GLOB)
+            local nAuxId = EgtLine( nAddGrpId, ptP1, pEnd, GDB_RT.GLOB)
            table.insert( nPath, nAuxId)
            -- linea di ritorno
            nAuxId = EgtLine( nAddGrpId, pEnd, ptP1, GDB_RT.GLOB)
@@ -789,40 +773,28 @@ end

 ---------------------------------------------------------------------
 local function MakeLocalSurf( ptP1, ptP2, ptP3, nAddGrpId)
-
+   -- verifico che i tre punti siano definiti
   if not ptP1 or not ptP2 or not ptP3 then
      return nil
   end
-
-   local pAuxId = {}
-   local nAuxId, AuxId
-   nAuxId = EgtLine( nAddGrpId, ptP1, ptP2, GDB_RT.GLOB)
-   table.insert( pAuxId, nAuxId)
-   nAuxId = EgtLine( nAddGrpId, ptP2, ptP3, GDB_RT.GLOB)
-   table.insert( pAuxId, nAuxId)
-   nAuxId = EgtLine( nAddGrpId, ptP3, ptP1, GDB_RT.GLOB)
-   table.insert( pAuxId, nAuxId)
-   -- trasformo in percorso
-   if #pAuxId ~= 3 then
+   -- creo il contorno
+   local nLoopId = EgtCurveCompoFromPoints( nAddGrpId, { ptP1, ptP2, ptP3, ptP1}, GDB_RT.GLOB)
+   if not nLoopId then
      return nil
   end
-   AuxId = EgtCurveCompo( nAddGrpId, pAuxId, true)
-   -- se non c'é il percorso esco
-   if not AuxId then
-      return nil
-   end
-   -- creo la superfice piana
-   local nidFace = EgtSurfTmByFlatContour( nAddGrpId, AuxId, 0.01)
-   if not nidFace then
-      EgtErase(AuxId)
+   -- creo la superfice triangolare (quindi piana)
+   local nFaceId = EgtSurfTmByFlatContour( nAddGrpId, nLoopId, 0.01)
+   EgtErase( nLoopId)
+   if not nFaceId then
      return nil
   end
   -- se normale negativa inverto
-   local _, vtN1 = EgtSurfTmFacetCenter( nidFace, 0, GDB_ID.ROOT)
-   if vtN1:getZ() < -0.5 then EgtInvertSurf( nidFace) end
+   local vtN1 = EgtSurfTmFacetNormVersor( nFaceId, 0, GDB_ID.ROOT)
+   if vtN1:getZ() < -0.01 then
+      EgtInvertSurf( nFaceId)
+   end

-   EgtErase(AuxId)
-   return nidFace
+   return nFaceId
 end

 ---------------------------------------------------------------------
@@ -839,7 +811,7 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
   -- se devo creare superfice locale
   if bMakeLocSurf then
      -- creo superfice locale o esco
-      local nSurfToAdd = MakeLocalSurf( tFacAdj[1][7], tFacAdj[1][8], tFacAdj[1][9], nAddGrpId)
+      local nSurfToAdd = MakeLocalSurf( tFacAdj[7], tFacAdj[8], tFacAdj[9], nAddGrpId)
      if nSurfToAdd then
         local nFacCntPre = EgtSurfTmFacetCount( nNewProc)
         -- creo copia del percorso principale e gli aggiungo la nuova faccia
@@ -848,7 +820,7 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
         -- riordino le facce
         ReorderFacesFromTab( nNewProcLoc, vFace)
         -- acquisisco il numero della faccia   
-         nFacCnt = EgtSurfTmFacetCount( nNewProcLoc)
+         local nFacCnt = EgtSurfTmFacetCount( nNewProcLoc)
         nFacInd = nFacCnt - 1
      else
         return true, ''
@@ -858,28 +830,31 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
   end
   -- prendo il primo versore
   local _, vtN1 = EgtSurfTmFacetCenter( nNewProcLoc, nFacInd, GDB_ID.ROOT)
-   local _, vtN2 = EgtSurfTmFacetCenter( nNewProcLoc, tFacAdj[1][1], GDB_ID.ROOT)
-   local _, vtN3 = EgtSurfTmFacetCenter( nNewProcLoc, tFacAdj[1][2], GDB_ID.ROOT)
+   local _, vtN2 = EgtSurfTmFacetCenter( nNewProcLoc, tFacAdj[1], GDB_ID.ROOT)
+   local _, vtN3 = EgtSurfTmFacetCenter( nNewProcLoc, tFacAdj[2], GDB_ID.ROOT)
   -- trovo il punto sulla superfice di riferimento
-   local _, ptLocP1, ptLocP2, _ = EgtSurfTmFacetsContact( nNewProcLoc, nFacInd, tFacAdj[1][1], GDB_ID.ROOT)
-   local _, ptLocP3, ptLocP4, _ = EgtSurfTmFacetsContact( nNewProcLoc, nFacInd, tFacAdj[1][2], GDB_ID.ROOT)
+   local _, ptLocP1, ptLocP2, _ = EgtSurfTmFacetsContact( nNewProcLoc, nFacInd, tFacAdj[1], GDB_ID.ROOT)
+   local _, ptLocP3, ptLocP4, _ = EgtSurfTmFacetsContact( nNewProcLoc, nFacInd, tFacAdj[2], GDB_ID.ROOT)
   -- se ho creato faccia locale su copia superficie, cancella la copia
   if bMakeLocSurf then
      EgtErase( nNewProcLoc)
   end
+   if not ptLocP1 or not ptLocP2 then
+      return false, 'Error : clean corner with non adjacent faces'
+   end
   local nIdIniPoint
   local nIdEndPoint
   if ptLocP1 and ptLocP2 then
-      if ( dist( ptLocP1, tFacAdj[1][4]) < GEO.EPS_SMALL) or ( dist( ptLocP2, tFacAdj[1][4]) < GEO.EPS_SMALL) then
+      if ( dist( ptLocP1, tFacAdj[4]) < GEO.EPS_SMALL) or ( dist( ptLocP2, tFacAdj[4]) < GEO.EPS_SMALL) then
         nIdEndPoint = 4
         nIdIniPoint = 5
-      elseif ( dist( ptLocP1, tFacAdj[1][5]) < GEO.EPS_SMALL) or ( dist( ptLocP2, tFacAdj[1][5]) < GEO.EPS_SMALL) then
+      elseif ( dist( ptLocP1, tFacAdj[5]) < GEO.EPS_SMALL) or ( dist( ptLocP2, tFacAdj[5]) < GEO.EPS_SMALL) then
         nIdEndPoint = 5
         nIdIniPoint = 4
      end
   end
   -- versore direzione
-   local vtExtr = tFacAdj[1][nIdIniPoint] - tFacAdj[1][nIdEndPoint]
+   local vtExtr = tFacAdj[nIdIniPoint] - tFacAdj[nIdEndPoint]
   vtExtr:normalize()
   -- versore direzione di uscita
   local vtExtrExit
@@ -908,44 +883,44 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
         vtCheck:rotate( Z_AX(), dOffsAng)
      end
      -- controllo se c'è collisione con le facce della superfice
-      if nTypeConeCut == 1 and CalcInterference( nNewProc, vtCheck, tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach), dDiam1, dDiam2,
+      if nTypeConeCut == 1 and CalcInterference( nNewProc, vtCheck, tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach), dDiam1, dDiam2,
                                                 dTall1, dTall2, dDiam3, dTall3) then
         local sErr = 'Collision detect from clean corner tool and surface'
         EgtOutLog( sErr)
         return true, ''
      end
-      nAuxId = EgtLine( nAddGrpId, tFacAdj[1][nIdIniPoint], tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
+      nAuxId = EgtLine( nAddGrpId, tFacAdj[nIdIniPoint], tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
      table.insert( pAuxId, nAuxId)
      -- se uso utensile cono 60°
      if nTypeConeCut == 1 then
         -- se offset angolare valido e/o negativo creo il baffo precedente
         if dOffsAng < ( 100 * GEO.EPS_SMALL) then
            -- se il punto finale corrisponde con il punto utilizzato in precedenza, uso l'altro
-            if dist( tFacAdj[1][nIdEndPoint], ptLocP1) < 10 * GEO.EPS_SMALL then
+            if dist( tFacAdj[nIdEndPoint], ptLocP1) < 10 * GEO.EPS_SMALL then
               ptApPoint = ptLocP2
            else
               ptApPoint = ptLocP1
            end
-            nAuxId = EgtLine( nAddGrpId, tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach), ptApPoint + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
-            local dLenTrimExt = dist( tFacAdj[1][nIdEndPoint], ptApPoint) - (( dToolDiam/2) + 0.2)
+            nAuxId = EgtLine( nAddGrpId, tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach), ptApPoint + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
+            local dLenTrimExt = dist( tFacAdj[nIdEndPoint], ptApPoint) - (( dToolDiam/2) + 0.2)
            -- se la distanza dei due punti della linea è maggiore dal raggio fresa + delta, trimmo al raggio fresa + delta
            if dLenTrimExt > 10 * GEO.EPS_SMALL then
               EgtTrimExtendCurveByLen( nAuxId , -dLenTrimExt, ptApPoint + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
               -- se ho l'offset angolare ruoto la linea per compensare la rotazione che verrà applicata
               if abs(dOffsAng) > 100 * GEO.EPS_SMALL then
-                  EgtRotate( nAuxId, tFacAdj[1][nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
+                  EgtRotate( nAuxId, tFacAdj[nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
               end
               -- prendo il nuovo punto finale
               ptApPoint = EgtEP( nAuxId, GDB_RT.GLOB) + Point3d( 0, 0, dDepthMach)
            else
               -- se ho l'offset angolare ruoto la linea per compensare la rotazione che verrà applicata
               if abs(dOffsAng) > 100 * GEO.EPS_SMALL then
-                  EgtRotate( nAuxId, tFacAdj[1][nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
+                  EgtRotate( nAuxId, tFacAdj[nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
               end
            end
            table.insert( pAuxId, nAuxId)
            -- creo linea di ritorno
-            nAuxId = EgtLine( nAddGrpId, ptApPoint + Point3d( 0, 0, -dDepthMach), tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
+            nAuxId = EgtLine( nAddGrpId, ptApPoint + Point3d( 0, 0, -dDepthMach), tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
            table.insert( pAuxId, nAuxId)
         end
      end
@@ -955,7 +930,7 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
   ptLocP1, ptLocP2 = ptLocP3, ptLocP4
   if ptLocP1 and ptLocP2 then
      -- se il punto finale corrisponde con il punto utilizzato in precedenza, uso l'altro
-      if dist( tFacAdj[1][nIdEndPoint], ptLocP1) < 10 * GEO.EPS_SMALL then
+      if dist( tFacAdj[nIdEndPoint], ptLocP1) < 10 * GEO.EPS_SMALL then
         ptApPoint = ptLocP2
      else
         ptApPoint = ptLocP1
@@ -964,36 +939,36 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
      if nTypeConeCut == 1 then
         -- se offset angolare valido e/o negativo creo il baffo precedente
         if dOffsAng > -( 100 * GEO.EPS_SMALL) then
-            nAuxId = EgtLine( nAddGrpId, tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach), ptApPoint + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
-            local dLenTrimExt = dist( tFacAdj[1][nIdEndPoint], ptApPoint) - (( dToolDiam/2) + 0.2)
+            nAuxId = EgtLine( nAddGrpId, tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach), ptApPoint + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
+            local dLenTrimExt = dist( tFacAdj[nIdEndPoint], ptApPoint) - (( dToolDiam/2) + 0.2)
            -- se la distanza dei due punti della linea è maggiore dal raggio fresa + delta, trimmo al raggio fresa + delta
            if dLenTrimExt > 10 * GEO.EPS_SMALL then
               EgtTrimExtendCurveByLen( nAuxId , -dLenTrimExt, ptApPoint + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
               -- se ho l'offset angolare ruoto la linea per compensare la rotazione che verrà applicata
               if abs(dOffsAng) > 100 * GEO.EPS_SMALL then
-                  EgtRotate( nAuxId, tFacAdj[1][nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
+                  EgtRotate( nAuxId, tFacAdj[nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
               end
               -- prendo il nuovo punto finale
               ptApPoint = EgtEP( nAuxId, GDB_RT.GLOB) + Point3d( 0, 0, dDepthMach)
            else
               -- se ho l'offset angolare ruoto la linea per compensare la rotazione che verrà applicata
               if abs(dOffsAng) > 100 * GEO.EPS_SMALL then
-                  EgtRotate( nAuxId, tFacAdj[1][nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
+                  EgtRotate( nAuxId, tFacAdj[nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
               end
            end
            table.insert( pAuxId, nAuxId)
            -- creo linea di ritorno
-            nAuxId = EgtLine( nAddGrpId, ptApPoint + Point3d( 0, 0, -dDepthMach), tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
+            nAuxId = EgtLine( nAddGrpId, ptApPoint + Point3d( 0, 0, -dDepthMach), tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
            table.insert( pAuxId, nAuxId)
         end
         -- ultima linea di distacco (5mm in direzione utensile)
-         local pEnd =  tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach) + ( 5 * vtExtr)
-         nAuxId = EgtLine( nAddGrpId, tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach), pEnd, GDB_RT.GLOB)
+         local pEnd =  tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach) + ( 5 * vtExtr)
+         nAuxId = EgtLine( nAddGrpId, tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach), pEnd, GDB_RT.GLOB)
         table.insert( pAuxId, nAuxId)
      else
         -- linea di distacco (2mm in direzione utensile)
-         local pEnd =  tFacAdj[1][nIdEndPoint] + ( 2 * vtExtr)
-         nAuxId = EgtLine( nAddGrpId, tFacAdj[1][nIdEndPoint], pEnd, GDB_RT.GLOB)
+         local pEnd =  tFacAdj[nIdEndPoint] + ( 2 * vtExtr)
+         nAuxId = EgtLine( nAddGrpId, tFacAdj[nIdEndPoint], pEnd, GDB_RT.GLOB)
         table.insert( pAuxId, nAuxId)
         -- ultima linea di risalita in Z
         local pIni = pEnd
@@ -1016,11 +991,11 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
   EgtModifyCurveExtrusion( AuxId, vtExtr, GDB_RT.GLOB)
   -- se ho un offset angolare ruoto il percorso
   if abs(dOffsAng) > 100 * GEO.EPS_SMALL then
-      EgtRotate( AuxId, tFacAdj[1][nIdEndPoint], Z_AX(), dOffsAng, GDB_RT.GLOB)
+      EgtRotate( AuxId, tFacAdj[nIdEndPoint], Z_AX(), dOffsAng, GDB_RT.GLOB)
   end
   -- inserisco la lavorazione
   local sName = 'Clean_' .. ( EgtGetName( nNewProc) or tostring( nNewProc))
-   local nMchId = WM.AddMachining( nNewProc.Id, sName, sMilling)
+   local nMchId = WM.AddMachining( nNewProc, sName, sMilling)
   if not nMchId then
      local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
      EgtOutLog( sErr)
@@ -1034,10 +1009,7 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
   -- aggiungo geometria
   EgtSetMachiningGeometry( {{ AuxId, -1}})
   -- imposto posizione braccio porta testa
-   local nSCC = MCH_SCC.ADIR_YM
-   if vtExtr:getY() > 100 * GEO.EPS_ZERO then
-      nSCC = MCH_SCC.ADIR_YP
-   end
+   local nSCC = MCH_SCC.ADIR_ZP
   EgtSetMachiningParam( MCH_MP.SCC, nSCC)
   EgtSetMachiningParam( MCH_MP.LEADINTYPE, 0)
   EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, 4)
@@ -1110,9 +1082,11 @@ local function AddMillCorner( nTypeConeCut, vFace, Proc, nRawId, b3Raw,
         dToolLength = EgtTdbGetCurrToolParam( MCH_TP.LEN) or dToolLength
         dMaxDepth = EgtTdbGetCurrToolMaxDepth() or dMaxDepth      -- qui è la distanza dal portautensile
         -- calcolo il secondo diametro del cono
-         dMillTotDiam = dMillDiam + ( abs(dThickTool) * tan(dSideAng)) * 2
+         dMillTotDiam = dMillDiam + ( abs( dThickTool) * tan( dSideAng)) * 2
      end
   end
+   -- verifico se ciclo chiuso
+   local bClosed = ( abs( vFace[1].PrevAng) > 0.1)
   -- copio la feature nel layer di appoggio
   local nNewProc
   if nMasterNewProc then
@@ -1121,31 +1095,27 @@ local function AddMillCorner( nTypeConeCut, vFace, Proc, nRawId, b3Raw,
      nNewProc = EgtCopyGlob( Proc.Id, nAddGrpId) or GDB_ID.NULL
   end
   local nFacCnt = EgtSurfTmFacetCount( nNewProc)
-   local nFacInd, dDimMin, dDimMax, dDepth, nSurfInt
+   local nFacInd, dDepth, nSurfInt
   local bMakeLocSurf
-   if nFacCnt <= 4 then
-      -- ottengo le dimensioni apertura, la normale e la faccia inferiore
-      dDimMin, dDimMax, dDepth, _, _, nSurfInt = GetTunnelDimension( nNewProc, Proc.PartId, nAddGrpId)
+   -- RIMUOVERE
+   if false and nFacCnt <= 4 then
+      -- recupero profondità e faccia di fondo
+      _, _, dDepth, _, _, nSurfInt = GetTunnelDimension( nNewProc, Proc.PartId, nAddGrpId, bClosed)
      if nSurfInt then
-         -- uso la dimensione minima anche nel caso che la cava sborda perchè la lavorazione potrebbe collidere con un pezzo limitrofo
-         local dMinWidth = dDimMin
-         nNewProc = EgtSurfTmBySewing( nAddGrpId, {nNewProc,nSurfInt} , true)
+         -- aggiungo la faccia di fondo appena calcolata
+         nNewProc = EgtSurfTmBySewing( nAddGrpId, { nNewProc, nSurfInt}, true)
         -- riordino le facce
         ReorderFacesFromTab( nNewProc, vFace)
-         -- acquisisco il numero della faccia   
+         -- aggiorno numero di facce e assegno indice di quella di fondo (sempre ultima)
         nFacCnt = EgtSurfTmFacetCount( nNewProc)
         nFacInd = nFacCnt - 1
      else
         return true
-         --local sErr = 'Error : cannot create base surface'
-         --EgtOutLog( sErr)
-         --return false, sErr
      end
+      -- FINE PARTE DA RIMUOVERE
   else
      bMakeLocSurf = true
   end
-   -- verifico se ciclo chiuso
-   local bClosed = ( abs( vFace[1].PrevAng) > 0.1)
   -- ciclo di inserimento delle fresate sulle facce del contorno in esame
   local i = 1
   -- se faccia finale con fine non lavorato, forzo partenza da prima faccia non tutta saltata (tipo 4)
@@ -1160,38 +1130,37 @@ local function AddMillCorner( nTypeConeCut, vFace, Proc, nRawId, b3Raw,
   while i <= #vFace do
      -- se tutta la faccia o la sua fine senza taglio, inserisco una fresatura
      if ( vFace[i].Type & 2) ~= 0  or  vFace[i].Type == 4 then
-         -- variabili costruzione geometria
-         local tFacAdj = {}
+         -- variabili costruzione geometria (nFace1, nFace2, tFacAdj)
         local nFace1 = vFace[i].Fac
-         local nFace2
+         -- aggiungo geometria
+         local j = EgtIf( i < #vFace, i + 1, EgtIf( bClosed, 1, nil))
+         if not j then return true end
+         local nFace2 = vFace[j].Fac
         -- ricavo i tre punti per eventuale superficie locale
         local ptLoc1, ptLoc2, ptLoc3
-         -- punto precedente (punto precedente della faccia [i])
-         ptLoc3 = vFace[i].PPrev
-         -- aggiungo geometria
-         i = i + 1
-         local j = EgtIf( i <= #vFace, i, EgtIf( bClosed, 1, nil))
-         if not j then
-            return true
-         end
-         nFace2 = vFace[j].Fac
         -- punto in comune tra le due facce (punto precedente della faccia [j])
         ptLoc1 = vFace[j].PPrev
+         -- punto precedente (punto precedente della faccia [i])
+         if vFace[i].PPrev then
+            ptLoc3 = vFace[i].PPrev
+         else
+            ptLoc3 = Point3d( vFace[i].Cen:getX(), vFace[i].Cen:getY(), ptLoc1:getZ())
+         end
         -- punto successivo ( precedente della faccia successiva)
-         j = j + 1
-         local k = EgtIf( j <= #vFace, j, EgtIf( bClosed, 1, nil))
+         local k = EgtIf( j < #vFace, j + 1, EgtIf( bClosed, 1, nil))
         -- se è un percorso aperto prendo il punto medio della seconda faccia come punto locale 2
         if not k then
-            ptLoc2 = Point3d( vFace[j-1].Cen:getX(), vFace[j-1].Cen:getY(), ptLoc1:getZ())
+            ptLoc2 = Point3d( vFace[j].Cen:getX(), vFace[j].Cen:getY(), ptLoc1:getZ())
         else
            ptLoc2 = vFace[k].PPrev
         end
         -- ricavo i punti e l'angolo interno
         local _, ptP1, ptP2, dAng = EgtSurfTmFacetsContact( nNewProc, nFace1, nFace2, GDB_ID.ROOT)
         -- se punti validi e angolo è interno e non è quasi piatto e >= 90 creo istanza
+         local tFacAdj = {}
         if ptP1 and ptP2 and dAng < 0 and dAng < -6 and dAng > EgtIf( nTypeConeCut == 1, -(90 + 10 * GEO.EPS_SMALL), -(180-dAngleSmall + 10 * GEO.EPS_SMALL))  then
            local dLen = dist( ptP1, ptP2)
-            table.insert( tFacAdj, { nFace1, nFace2, dLen, ptP1, ptP2, dAng, ptLoc1, ptLoc2, ptLoc3})
+            tFacAdj = { nFace1, nFace2, dLen, ptP1, ptP2, dAng, ptLoc1, ptLoc2, ptLoc3}
         end
         -- se ho un elemento creo percorso o percorsi in base al tipo di cono e all'apertura dall'angolo rispetto ai 90°
         -- con una tolleranza di 2 gradi
@@ -1219,9 +1188,9 @@ local function AddMillCorner( nTypeConeCut, vFace, Proc, nRawId, b3Raw,
               if not bOk then return bOk, sErr end
            end
         end
-      else
-         i = i + 1
      end
+      -- passo alla successiva
+      i = i + 1
   end
   -- cancello la copia della superfice
   if nNewProc then
@@ -1246,26 +1215,28 @@ end
 ---------------------------------------------------------------------
 -- Funzione per determinare se la faccia ha lati molto corti (trascurabili) ed è quindi approssimabile ad una 3 facce
 local function Is3EdgesApprox( Proc, nFacet, nAddGrpId)
-   local bResult = false
-   local nContourId = EgtExtractSurfTmFacetLoops( Proc.Id, nFacet, nAddGrpId)
+   nAddGrpId = nAddGrpId or WL.GetAddGroup( Proc.PartId)
+   -- recupero il contorno della faccia
+   local nContourId, nContourCnt = EgtExtractSurfTmFacetLoops( Proc.Id, nFacet, nAddGrpId)
+   if not nContourId then return false end
   EgtMergeCurvesInCurveCompo( nContourId)
-   -- recupero il numero effettivo di lati
+   -- recupero il numero di lati del contorno
   local _, nEntityCount = EgtCurveDomain( nContourId)
+   if not nEntityCount then return false end
+   -- se sono già tre, ho finito
+   if nEntityCount == 3 then return true end
+   -- rimuovo i lati molto corti dal conteggio totale
   local nEdges = nEntityCount
-   if nContourId then
-      if nEntityCount and nEntityCount  == 3 then
-         bResult = true
-      -- rimuovo i lati molto corti dal conteggio totale
-      elseif nEntityCount then
-         for i = 1, nEntityCount do
-            local dLength = EgtCurveCompoLength( nContourId, i - 1)
-            if dLength < 15 then nEdges = nEdges - 1 end
-         end
-      end
-      if nEdges == 3 then bResult = true end
+   for i = 1, nEntityCount do
+      local dLength = EgtCurveCompoLength( nContourId, i - 1)
+      if dLength < 15 then nEdges = nEdges - 1 end
   end
-   if bResult == true then
-      EgtOutLog( 'FreeContour : Face with ' .. tointeger( nEntityCount) .. ' edges skipped (approx 3 edges)')
+   -- verifico il numero significativo di lati
+   local bResult = ( nEdges == 3)
+   -- cancello tutti i contorni appena creati
+   EgtErase( EgtTableFill( nContourId, nContourCnt))
+   if bResult then
+      EgtOutLog( 'FreeContour : Face with ' .. tostring( nEntityCount) .. ' edges skipped (approx 3 edges)')
   end
   return bResult
 end
@@ -1290,7 +1261,7 @@ local function AddMillings( sMilling, vFace, Proc, nRawId, b3Raw, nConeCut, nAdd
         dMaxDepth = EgtIf( WD.MILL_MAX_DEPTH_AS_MAT, EgtTdbGetCurrToolParam( MCH_TP.MAXMAT), dFreeLen) or dMaxDepth
      end
   end
-   -- verifico se la facce hanno alcuni lati molto corti e possono quindi essere approssimate a 3 lati
+   -- verifico se le facce hanno alcuni lati molto corti e possono quindi essere approssimate a 3 lati
   for currentFace = 1, #vFace do
      if Is3EdgesApprox( Proc, vFace[currentFace].Fac, nAddGrpId) then
         vFace[currentFace].Is3EdgesApprox = true
@@ -1315,7 +1286,7 @@ local function AddMillings( sMilling, vFace, Proc, nRawId, b3Raw, nConeCut, nAdd
      if ( vFace[i].Type & 1) ~= 0 and ( not j or vFace[j].Type == 0 or vFace[j].Type == 1 or abs( vFace[i].SideAng) > 0.1 or abs( vFace[j].SideAng) > 0.1) then
         -- inserisco la lavorazione
         local sName = 'Free_' .. ( EgtGetName( Proc.PartId) or tostring( Proc.PartId))
-         local nMchId = WM.AddMachining( Proc.Id, sName, sMilling)
+         local nMchId = WM.AddMachining( Proc, sName, sMilling)
         if not nMchId then
            local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
            EgtOutLog( sErr)
@@ -1409,7 +1380,7 @@ local function AddMillings( sMilling, vFace, Proc, nRawId, b3Raw, nConeCut, nAdd
      if ( vFace[i].Type & 2) ~= 0  or ( vFace[i].Type == 4 and ( vFace[i].Edges > 3 and not vFace[i].Is3EdgesApprox)) then
         -- inserisco la lavorazione
         local sName = 'Free_' .. ( EgtGetName( Proc.PartId) or tostring( Proc.PartId))
-         local nMchId = WM.AddMachining( Proc.Id, sName, sMilling)
+         local nMchId = WM.AddMachining( Proc, sName, sMilling)
         if not nMchId then
            local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
            EgtOutLog( sErr)
@@ -1610,7 +1581,7 @@ local function AddMillings( sMilling, vFace, Proc, nRawId, b3Raw, nConeCut, nAdd
      if vFace[i].Split then
         -- inserisco la lavorazione
         local sName = 'Free_' .. ( EgtGetName( Proc.PartId) or tostring( Proc.PartId)) .. '_M'
-         local nMchId = WM.AddMachining( Proc.Id, sName, sMilling)
+         local nMchId = WM.AddMachining( Proc, sName, sMilling)
         if not nMchId then
            local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
            EgtOutLog( sErr)
@@ -1701,7 +1672,7 @@ local function AddSawings( sSawing, vFace, Proc, nRawId, b3Raw)
      if ( vFace[i].Type & 1) ~= 0 then
         -- inserisco la lavorazione
         local sName = 'Free_' .. ( EgtGetName( Proc.PartId) or tostring( Proc.PartId))
-         local nMchId = WM.AddMachining( Proc.Id, sName, sSawing)
+         local nMchId = WM.AddMachining( Proc, sName, sSawing)
         if not nMchId then
            local sErr = 'Error adding machining ' .. sName .. '-' .. sSawing
            EgtOutLog( sErr)
@@ -1749,7 +1720,7 @@ local function AddSawings( sSawing, vFace, Proc, nRawId, b3Raw)
      if ( vFace[i].Type & 2) ~= 0 or ( vFace[i].Type == 4 and ( vFace[i].Edges > 3 and not vFace[i].Is3EdgesApprox) and vFace[i].Len > dSawDiam + 1) then
         -- inserisco la lavorazione
         local sName = 'Free_' .. ( EgtGetName( Proc.PartId) or tostring( Proc.PartId))
-         local nMchId = WM.AddMachining( Proc.Id, sName, sSawing)
+         local nMchId = WM.AddMachining( Proc, sName, sSawing)
         if not nMchId then
            local sErr = 'Error adding machining ' .. sName .. '-' .. sSawing
            EgtOutLog( sErr)
@@ -1820,7 +1791,7 @@ local function AddCuts( sCutting, vFace, Proc, nRawId, b3Raw, dSawThick)
         local h = EgtIf( i > 1, i - 1, EgtIf( bClosed, #vFace, nil))
         -- inserisco la lavorazione
         local sName = 'Cut_' .. ( EgtGetName( Proc.PartId) or tostring( Proc.PartId)) .. '_' .. tostring( i) 
-         local nMchId = WM.AddMachining( Proc.Id, sName, sCutting)
+         local nMchId = WM.AddMachining( Proc, sName, sCutting)
         if not nMchId then
            local sErr = 'Error adding machining ' .. sName .. '-' .. sCutting
            EgtOutLog( sErr)
@@ -1896,7 +1867,8 @@ local function AddCuts( sCutting, vFace, Proc, nRawId, b3Raw, dSawThick)
            EgtSetMachiningParam( MCH_MP.SCC, MCH_SCC.ADIR_NEAR)
         end
         -- eseguo
-         if not EgtApplyMachining( true, false) then
+         local bApplyOk = EgtApplyMachining( true, false)
+         if not bApplyOk then
            -- provo a invertire direzione, lato di lavoro e attacco/uscita
            EgtSetMachiningParam( MCH_MP.INVERT, not bInvert)
            EgtSetMachiningParam( MCH_MP.WORKSIDE, EgtIf( not bInvert, MCH_SAW_WS.LEFT, MCH_SAW_WS.RIGHT))
@@ -1905,14 +1877,22 @@ local function AddCuts( sCutting, vFace, Proc, nRawId, b3Raw, dSawThick)
            EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, EgtIf( nLeadIn == MCH_SAW_LI.STRICT, MCH_SAW_LO.STRICT, MCH_SAW_LO.CENT))
            EgtSetMachiningParam( MCH_MP.ENDADDLEN, dSal)
            -- ri-eseguo
-            if not EgtApplyMachining( true, false) then
-               local _, sErr = EgtGetLastMachMgrError()
-               EgtSetOperationMode( nMchId, false)
-               return false, sErr
+            bApplyOk = EgtApplyMachining( true, false)
+            if not bApplyOk then
+               local  nErr, sErr = EgtGetLastMachMgrError()
+               -- se direzione irraggiungibile (solitamente lama su testa fresa 5A e taglio inclinato) si imposta di usare fresa
+               if nErr == 2215 then
+                  EgtOutLog( ' Warning : sawing impossible due to unreachable direction, try milling')
+                  EgtRemoveOperation( nMchId) 
+                  vFace[i].Type = 4
+               else
+                  EgtSetOperationMode( nMchId, false)
+                  return false, sErr
+               end
            end
         end
         -- se limite lunghezza di taglio e taglio lo supera
-         if WD.CUT_MAX_LENGTH and vFace[i].Len > WD.CUT_MAX_LENGTH then
+         if bApplyOk and WD.CUT_MAX_LENGTH and vFace[i].Len > WD.CUT_MAX_LENGTH then
            -- sdoppio la lavorazione
            local sSouName = EgtGetName( nMchId)
            local nNewMchId = EgtCopyMachining( sSouName..'_B', sSouName)
@@ -1999,7 +1979,13 @@ local function MakeByCut( Proc, nRawId, b3Raw)
   local sMilling, dMillMaxDepth = WM.FindMilling( 'FreeContour', dMaxWidth + WD.CUT_EXTRA, nil, nil, nil, nil, true)
   local sMilling2 = WM.FindMilling( 'FreeContour', nil, nil, nil, nil, nil, true)
   if not sMilling and ( not sSawing or bSlanting) then
-      sMilling = sMilling2
+      -- se non trovo una fresa di lunghezza sufficiente, prendo la più lunga disponibile
+      local sMillingMaxLength = WM.FindMilling( 'FreeContour', 0.8 * ( dMaxWidth + WD.CUT_EXTRA), nil, nil, nil, nil, true) or
+                        WM.FindMilling( 'FreeContour', 0.6 * ( dMaxWidth + WD.CUT_EXTRA), nil, nil, nil, nil, true) or
+                        WM.FindMilling( 'FreeContour', 0.4 * ( dMaxWidth + WD.CUT_EXTRA), nil, nil, nil, nil, true) or
+                        WM.FindMilling( 'FreeContour', 0.2 * ( dMaxWidth + WD.CUT_EXTRA), nil, nil, nil, nil, true) or
+                        WM.FindMilling( 'FreeContour', nil, nil, nil, nil, nil, true)
+      sMilling = sMillingMaxLength
      if not sMilling then
         local sErr = 'Error : milling not found in library'
         EgtOutLog( sErr)
@@ -2160,7 +2146,7 @@ local function MakeByMill( Proc, nRawId, b3Raw)
   end
   -- inserisco la lavorazione
   local sName = 'Free_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchId = WM.AddMachining( Proc.Id, sName, sMilling)
+   local nMchId = WM.AddMachining( Proc, sName, sMilling)
   if not nMchId then
      local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
      EgtOutLog( sErr)
@@ -2214,14 +2200,14 @@ local function MakeByMill( Proc, nRawId, b3Raw)
      dStep = max( ( dDepth - dMaxMat) / max( nStep, 1), 0)
      local dMaxElev = max( ( nStep + 1) * dStep - GEO.EPS_SMALL, 0)
      EgtSetMachiningParam( MCH_MP.STEP, dStep)
-      -- imposto elevazione
-      EgtSetMachiningParam( MCH_MP.USERNOTES, 'MaxElev=' .. EgtNumToString( dMaxElev, 1) .. ';')
+      -- imposto elevazione e forzo attacco dal lato aperto
+      EgtSetMachiningParam( MCH_MP.USERNOTES, 'MaxElev=' .. EgtNumToString( dMaxElev, 1) .. ';OutRaw=3;')
   end
   
   -- posizione braccio porta testa
   local nSCC = MCH_SCC.ADIR_ZP
   if AreSameOrOppositeVectorApprox( vtExtr, Z_AX()) then
-      nSCC = EgtIf( Proc.Box:getDimX() >= Proc.Box:getDimY(), MCH_SCC.ADIR_YP, MCH_SCC.ADIR_XP)
+      nSCC = EgtIf( Proc.Box:getDimX() >= Proc.Box:getDimY(), MCH_SCC.ADIR_YP, MCH_SCC.ADIR_XM)
   end
   EgtSetMachiningParam( MCH_MP.SCC, nSCC)
   -- eseguo
@@ -2293,7 +2279,7 @@ local function MakeByMark( Proc, nRawId, b3Raw)
   end
   -- inserisco la lavorazione
   local sName = 'FreeMark_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchId = WM.AddMachining( Proc.Id, sName, sMilling)
+   local nMchId = WM.AddMachining( Proc, sName, sMilling)
   if not nMchId then
      local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
      EgtOutLog( sErr)
@@ -2322,7 +2308,7 @@ local function MakeByMark( Proc, nRawId, b3Raw)
 end

 ---------------------------------------------------------------------
-local function MakeByNail( Proc, nRawId, b3Raw)
+local function MakeByNail( Proc, nRawId, b3Raw, vNLO)
   -- ingombro del pezzo
   local Ls = EgtGetFirstNameInGroup( Proc.PartId, 'Box')
   local b3Solid = EgtGetBBoxGlob( Ls or GDB_ID.NULL, GDB_BB.STANDARD)
@@ -2349,6 +2335,36 @@ local function MakeByNail( Proc, nRawId, b3Raw)
      nCntData = nCntData + 10
   end
   local dCntPar = EgtGetInfo( Proc.Id, 'CNT_PAR', 'd') or 100
+   -- se presenti aree vietate alle chiodature, gestisco le geometrie
+   local vCrvs = {}
+   if #vNLO > 0 then
+      -- in presenza di aree vietate non sono ammesse lavorazioni in doppio (non dovrebbe mai accadere per precedenti controlli)
+      if Proc.Double then
+         local sErr = 'Error : nailing in double with LockOut Area not allowed'
+         EgtOutLog( sErr)
+         return false, sErr
+      end
+      -- gruppo ausiliario
+      local nAddGrpId = WL.GetAddGroup( Proc.PartId)
+      -- copio la curva da lavorare
+      vCrvs[1] = EgtCopyGlob( AuxId, nAddGrpId)
+      -- la trimmo con tutte le aree vietate
+      for i = 1, #vNLO do
+         local vRes = {}
+         for j = 1, #vCrvs do
+            local nNewId, nCount = EgtTrimCurveWithRegion( vCrvs[j], vNLO[i], false, false)
+            if nNewId then
+               vRes = EgtTableAdd( vRes, nNewId, nCount) 
+            end
+         end
+         vCrvs = vRes
+      end
+   else
+      vCrvs[1] = AuxId
+   end
+   -- per debug
+   local sOut = table.concat( vCrvs, ',')
+   EgtOutLog( 'Nailing curve : '.. ( sOut or ''))
   -- recupero la lavorazione
   local sNailing = WM.FindNailing( nCntData)
   if not sNailing then
@@ -2356,49 +2372,51 @@ local function MakeByNail( Proc, nRawId, b3Raw)
      EgtOutLog( sErr)
      return false, sErr
   end
-   -- inserisco la lavorazione
-   local sName = 'Nail_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchId = WM.AddMachining( Proc.Id, sName, sNailing)
-   if not nMchId then
-      local sErr = 'Error adding machining ' .. sName .. '-' .. sNailing
-      EgtOutLog( sErr)
-      return false, sErr
-   end
-   EgtSetInfo( nMchId, 'Part', Proc.PartId)
-   -- aggiungo geometria
-   EgtSetMachiningGeometry( {{ AuxId, -1}})
-   -- percorso da non invertire
-   EgtSetMachiningParam( MCH_MP.INVERT, false)
-   -- se estrusione da sotto, inverto direzione fresa
-   if bToolInv then
-      EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
-   end
-   -- assegno affondamento
-   EgtSetMachiningParam( MCH_MP.DEPTH, 10)
-   -- 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, -Proc.DblAcc - dExtraDelta)
-      else
-         EgtSetMachiningParam( MCH_MP.STARTADDLEN, -Proc.DblAcc - dExtraDelta)
+   for i = 1, #vCrvs do
+      -- inserisco la lavorazione
+      local sName = 'Nail_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)) .. '_'..tostring( i)
+      local nMchId = WM.AddMachining( Proc, sName, sNailing)
+      if not nMchId then
+         local sErr = 'Error adding machining ' .. sName .. '-' .. sNailing
+         EgtOutLog( sErr)
+         return false, sErr
+      end
+      EgtSetInfo( nMchId, 'Part', Proc.PartId)
+      -- aggiungo geometria
+      EgtSetMachiningGeometry( {{ vCrvs[i], -1}})
+      -- percorso da non invertire
+      EgtSetMachiningParam( MCH_MP.INVERT, false)
+      -- se estrusione da sotto, inverto direzione fresa
+      if bToolInv then
+         EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
+      end
+      -- assegno affondamento
+      EgtSetMachiningParam( MCH_MP.DEPTH, 10)
+      -- 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, -Proc.DblAcc - dExtraDelta)
+         else
+            EgtSetMachiningParam( MCH_MP.STARTADDLEN, -Proc.DblAcc - dExtraDelta)
+         end
+      end
+      -- 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( abs( Proc.Delta) + dExtraDelta, 0) .. ';'
+      end
+      EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
+      -- eseguo
+      if not EgtApplyMachining( true, false) then
+         local _, sErr = EgtGetLastMachMgrError()
+         EgtSetOperationMode( nMchId, false)
+         return false, sErr
      end
-   end
-   -- 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( abs( Proc.Delta) + dExtraDelta, 0) .. ';'
-   end
-   EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
-   -- eseguo
-   if not EgtApplyMachining( true, false) then
-      local _, sErr = EgtGetLastMachMgrError()
-      EgtSetOperationMode( nMchId, false)
-      return false, sErr
   end
   return true
 end
@@ -2442,7 +2460,7 @@ local function MakeByPocket( Proc, nRawId, b3Raw)
      return MakeByMill( Proc, nRawId, b3Raw)
   end
   -- se la faccia di fondo ha confini aperti, devo lavorarla direttamente
-   vAdj = EgtSurfTmFacetAdjacencies( Proc.Id, nFacet)[1] or {}
+   local vAdj = EgtSurfTmFacetAdjacencies( Proc.Id, nFacet)[1] or {}
   for i = 1, #vAdj do
      if vAdj[i] == - 1 then
         bPocketBotface = true
@@ -2497,7 +2515,7 @@ local function MakeByPocket( Proc, nRawId, b3Raw)
   end
   -- inserisco la lavorazione di svuotatura
   local sName = 'Pock_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchFId = WM.AddMachining( Proc.Id, sName, sPocketing)
+   local nMchFId = WM.AddMachining( Proc, sName, sPocketing)
   if not nMchFId then
      local sErr = 'Error adding machining ' .. sName .. '-' .. sPocketing
      EgtOutLog( sErr)
@@ -2585,7 +2603,7 @@ end

 ---------------------------------------------------------------------
 -- Applicazione della lavorazione
-function WPF.Make( Proc, nRawId, b3Raw)
+function WPF.Make( Proc, nRawId, b3Raw, vNLO)
   -- recupero la tipologia (contorno o tasca)
   local bPocket = ( EgtGetInfo( Proc.Id, 'PCKT', 'i') == 1)
   -- se svuotatura
@@ -2605,10 +2623,7 @@ function WPF.Make( Proc, nRawId, b3Raw)
         return MakeByMark( Proc, nRawId, b3Raw)
      -- se chiodatura
      elseif nCntType == 20 then
-         return MakeByNail( Proc, nRawId, b3Raw)
-      -- area vietata
-      elseif nCntType == 200 then
-         return true, 'Lock-out area Ignored'
+         return MakeByNail( Proc, nRawId, b3Raw, vNLO)
      -- altrimenti, taglio con lama e pulizia angoli con fresa
      else
         return MakeByCut( Proc, nRawId, b3Raw)
@@ -1,4 +1,4 @@
-- WProcessLapJoint.lua by Egaltech s.r.l. 2023/04/17
+-- WProcessLapJoint.lua by Egaltech s.r.l. 2023/10/02
 -- Gestione calcolo mezzo-legno per Pareti
 -- 2021/08/27 DS Se tre o più facce con flag PCKT=1 forzo svuotatura con fresa (per Variant).
 -- 2021/08/29 DS Se svuotatura di fianco setto flag per farla dopo i tagli.
@@ -21,6 +21,15 @@
 -- 2023/04/17 Sistemata gestione parametri Q, eliminando quello non usato di forzatura lama e abilitandoli anche per DoubleCut.
 --            Lavorazione CleanCorner sempre forzata con lato di lavoro in centro.
 -- 2023/05/25 Funzioni EgtAddMachining sostituite da WM.AddMachining in modo da trascrivere le priorità da btl alle lavorazioni.
+-- 2023/06/30 Aggiunta lettura delle note esistenti dalle lavorazioni per evitare di sovrascriverle.
+-- 2023/07/10 In MakeSideGrooveByMill si impedisce ora di lavorare una groove se la testa deve scendere sotto al limite superiore del grezzo.
+-- 2023/07/25 Aggiunte passate laterali per SideGroove, se specificato SIDESTEP nelle note utensile.
+-- 2023/08/01 Migliorato controllo testa sotto al grezzo in SieGroove.
+-- 2023/08/07 Controllo testa sotto al grezzo in SideGroove escluso se richiesto il move after.
+-- 2023/09/19 Controllo lavorabilità con una sola faccia ora ha limiti come FreeContour.
+-- 2023/09/21 Modifica controllo lavorabilità con tre facce tipo tunnel ma non ortogonali tra loro.
+-- 2023/09/21 In MakeByMill modificato SCC per correggere caso con lama su testa fresa.
+-- 2023/10/02 Aggiunta segnalazione lavorazione tipo Side non trovata.

 -- Tabella per definizione modulo
 local WPL = {}
@@ -108,8 +117,8 @@ function WPL.Classify( Proc, b3Raw)
   if Proc.Fct == 1 then
      -- dati della faccia
      local vtN = EgtSurfTmFacetNormVersor( Proc.Id, 0, GDB_ID.ROOT)
-      -- verifico se è lavorabile da sopra
-      return vtN:getZ() >= WD.NZ_MINA
+      -- verifico se è lavorabile da sopra o di fianco
+      return vtN:getZ() >= -0.5
   -- se 2 facce
   elseif Proc.Fct == 2 then
      -- dati delle facce
@@ -117,7 +126,7 @@ function WPL.Classify( Proc, b3Raw)
      vtN[1] = EgtSurfTmFacetNormVersor( Proc.Id, 0, GDB_ID.ROOT)
      vtN[2] = EgtSurfTmFacetNormVersor( Proc.Id, 1, GDB_ID.ROOT)
      -- verifico se è lavorabile da sopra o di fianco
-      return ( vtN[1]:getZ() >= - 0.028 or vtN[2]:getZ() >= - 0.028) 
+      return ( vtN[1]:getZ() >= -0.028 or vtN[2]:getZ() >= -0.028) 
   -- se più di 2 facce
   else
      local nFacInd, dElev, nFacInd2, dElev2 = WL.GetFaceWithMostAdj( Proc.Id, Proc.PartId)
@@ -186,8 +195,8 @@ function WPL.Classify( Proc, b3Raw)
         else
            return false
         end
-      -- se altrimenti tunnel
-      elseif nFacInd == -1 then
+      -- se altrimenti tunnel o assimilabile
+      elseif nFacInd == -1 or nFacInd == -2 then
         -- dati delle prime tre facce
         local vtN = {}
         vtN[1] = EgtSurfTmFacetNormVersor( Proc.Id, 0, GDB_ID.ROOT)
@@ -802,7 +811,7 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
   -- se devo creare superfice locale
   if bMakeLocSurf then
      -- creo superfice locale o esco
-      local nSurfToAdd = MakeLocalSurf( tFacAdj[1][7], tFacAdj[1][8], tFacAdj[1][9], nAddGrpId)
+      local nSurfToAdd = MakeLocalSurf( tFacAdj[7], tFacAdj[8], tFacAdj[9], nAddGrpId)
      if nSurfToAdd then
         local nFacCntPre = EgtSurfTmFacetCount( nNewProc)
         -- creo copia del percorso principale e gli aggiungo la nuova faccia
@@ -811,7 +820,7 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
         -- riordino le facce
         nNewProcLoc = ReorderFacesFromTab( nNewProcLoc, vFace)
         -- acquisisco il numero della faccia   
-         nFacCnt = EgtSurfTmFacetCount( nNewProcLoc)
+         local nFacCnt = EgtSurfTmFacetCount( nNewProcLoc)
         nFacInd = nFacCnt - 1
      else
         local sErr = 'Cannot make local bottom surface'
@@ -823,11 +832,11 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
   end
   -- prendo il primo versore
   local _, vtN1 = EgtSurfTmFacetCenter( nNewProcLoc, nFacInd, GDB_ID.ROOT)
-   local _, vtN2 = EgtSurfTmFacetCenter( nNewProcLoc, tFacAdj[1][1], GDB_ID.ROOT)
-   local _, vtN3 = EgtSurfTmFacetCenter( nNewProcLoc, tFacAdj[1][2], GDB_ID.ROOT)
+   local _, vtN2 = EgtSurfTmFacetCenter( nNewProcLoc, tFacAdj[1], GDB_ID.ROOT)
+   local _, vtN3 = EgtSurfTmFacetCenter( nNewProcLoc, tFacAdj[2], GDB_ID.ROOT)
   -- trovo il punto sulla superfice di riferimento
-   local _, ptLocP1, ptLocP2, _ = EgtSurfTmFacetsContact( nNewProcLoc, nFacInd, tFacAdj[1][1], GDB_ID.ROOT)
-   local _, ptLocP3, ptLocP4, _ = EgtSurfTmFacetsContact( nNewProcLoc, nFacInd, tFacAdj[1][2], GDB_ID.ROOT)
+   local _, ptLocP1, ptLocP2, _ = EgtSurfTmFacetsContact( nNewProcLoc, nFacInd, tFacAdj[1], GDB_ID.ROOT)
+   local _, ptLocP3, ptLocP4, _ = EgtSurfTmFacetsContact( nNewProcLoc, nFacInd, tFacAdj[2], GDB_ID.ROOT)
   -- se ho creato faccia locale su copia superficie, cancella la copia
   if bMakeLocSurf then
      EgtErase( nNewProcLoc)
@@ -835,16 +844,16 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
   local nIdIniPoint
   local nIdEndPoint
   if ptLocP1 and ptLocP2 then
-      if ( dist( ptLocP1, tFacAdj[1][4]) < GEO.EPS_SMALL) or ( dist( ptLocP2, tFacAdj[1][4]) < GEO.EPS_SMALL) then
+      if ( dist( ptLocP1, tFacAdj[4]) < GEO.EPS_SMALL) or ( dist( ptLocP2, tFacAdj[4]) < GEO.EPS_SMALL) then
         nIdEndPoint = 4
         nIdIniPoint = 5
-      elseif ( dist( ptLocP1, tFacAdj[1][5]) < GEO.EPS_SMALL) or ( dist( ptLocP2, tFacAdj[1][5]) < GEO.EPS_SMALL) then
+      elseif ( dist( ptLocP1, tFacAdj[5]) < GEO.EPS_SMALL) or ( dist( ptLocP2, tFacAdj[5]) < GEO.EPS_SMALL) then
         nIdEndPoint = 5
         nIdIniPoint = 4
      end
   end
   -- versore direzione
-   local vtExtr = tFacAdj[1][nIdIniPoint] - tFacAdj[1][nIdEndPoint]
+   local vtExtr = tFacAdj[nIdIniPoint] - tFacAdj[nIdEndPoint]
   vtExtr:normalize()
   -- versore direzione di uscita
   local vtExtrExit
@@ -873,44 +882,44 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
         vtCheck:rotate( Z_AX(), dOffsAng)
      end
      -- controllo se c'è collisione con le facce della superfice
-      if nTypeConeCut == 1 and CalcInterference( nNewProc, vtCheck, tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach), dDiam1, dDiam2, 
+      if nTypeConeCut == 1 and CalcInterference( nNewProc, vtCheck, tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach), dDiam1, dDiam2, 
                                                 dTall1, dTall2, dDiam3, dTall3) then
         local sErr = 'Collision detect from clean corner tool and surface'
         EgtOutLog( sErr)
         return true, ''
      end
-      nAuxId = EgtLine( nAddGrpId, tFacAdj[1][nIdIniPoint], tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
+      nAuxId = EgtLine( nAddGrpId, tFacAdj[nIdIniPoint], tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
      table.insert( pAuxId, nAuxId)
      -- se uso utensile cono 60°
      if nTypeConeCut == 1 then
         -- se offset angolare valido e/o negativo creo il baffo precedente
         if dOffsAng < ( 100 * GEO.EPS_SMALL) then
            -- se il punto finale corrisponde con il punto utilizzato in precedenza, uso l'altro
-            if dist( tFacAdj[1][nIdEndPoint], ptLocP1) < 10 * GEO.EPS_SMALL then
+            if dist( tFacAdj[nIdEndPoint], ptLocP1) < 10 * GEO.EPS_SMALL then
               ptApPoint = ptLocP2
            else
               ptApPoint = ptLocP1
            end
-            nAuxId = EgtLine( nAddGrpId, tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach), ptApPoint + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
-            local dLenTrimExt = dist( tFacAdj[1][nIdEndPoint], ptApPoint) - (( dToolDiam/2) + 0.2)
+            nAuxId = EgtLine( nAddGrpId, tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach), ptApPoint + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
+            local dLenTrimExt = dist( tFacAdj[nIdEndPoint], ptApPoint) - (( dToolDiam/2) + 0.2)
            -- se la distanza dei due punti della linea è maggiore dal raggio fresa + delta, trimmo al raggio fresa + delta
            if dLenTrimExt > 10 * GEO.EPS_SMALL then
               EgtTrimExtendCurveByLen( nAuxId , -dLenTrimExt, ptApPoint + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
               -- se ho l'offset angolare ruoto la linea per compensare la rotazione che verrà applicata
               if abs(dOffsAng) > 100 * GEO.EPS_SMALL then
-                  EgtRotate( nAuxId, tFacAdj[1][nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
+                  EgtRotate( nAuxId, tFacAdj[nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
               end
               -- prendo il nuovo punto finale
               ptApPoint = EgtEP( nAuxId, GDB_RT.GLOB) + Point3d( 0, 0, dDepthMach)
            else
               -- se ho l'offset angolare ruoto la linea per compensare la rotazione che verrà applicata
               if abs(dOffsAng) > 100 * GEO.EPS_SMALL then
-                  EgtRotate( nAuxId, tFacAdj[1][nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
+                  EgtRotate( nAuxId, tFacAdj[nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
               end
            end
            table.insert( pAuxId, nAuxId)
            -- creo linea di ritorno
-            nAuxId = EgtLine( nAddGrpId, ptApPoint + Point3d( 0, 0, -dDepthMach), tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
+            nAuxId = EgtLine( nAddGrpId, ptApPoint + Point3d( 0, 0, -dDepthMach), tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
            table.insert( pAuxId, nAuxId)
         end
      end
@@ -920,7 +929,7 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
   ptLocP1, ptLocP2 = ptLocP3, ptLocP4
   if ptLocP1 and ptLocP2 then
      -- se il punto finale corrisponde con il punto utilizzato in precedenza, uso l'altro
-      if dist( tFacAdj[1][nIdEndPoint], ptLocP1) < 10 * GEO.EPS_SMALL then
+      if dist( tFacAdj[nIdEndPoint], ptLocP1) < 10 * GEO.EPS_SMALL then
         ptApPoint = ptLocP2
      else
         ptApPoint = ptLocP1
@@ -929,36 +938,36 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
      if nTypeConeCut == 1 then
         -- se offset angolare valido e/o negativo creo il baffo precedente
         if dOffsAng > -( 100 * GEO.EPS_SMALL) then
-            nAuxId = EgtLine( nAddGrpId, tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach), ptApPoint + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
-            local dLenTrimExt = dist( tFacAdj[1][nIdEndPoint], ptApPoint) - (( dToolDiam/2) + 0.2)
+            nAuxId = EgtLine( nAddGrpId, tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach), ptApPoint + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
+            local dLenTrimExt = dist( tFacAdj[nIdEndPoint], ptApPoint) - (( dToolDiam/2) + 0.2)
            -- se la distanza dei due punti della linea è maggiore dal raggio fresa + delta, trimmo al raggio fresa + delta
            if dLenTrimExt > 10 * GEO.EPS_SMALL then
               EgtTrimExtendCurveByLen( nAuxId , -dLenTrimExt, ptApPoint + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
               -- se ho l'offset angolare ruoto la linea per compensare la rotazione che verrà applicata
               if abs(dOffsAng) > 100 * GEO.EPS_SMALL then
-                  EgtRotate( nAuxId, tFacAdj[1][nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
+                  EgtRotate( nAuxId, tFacAdj[nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
               end
               -- prendo il nuovo punto finale
               ptApPoint = EgtEP( nAuxId, GDB_RT.GLOB) + Point3d( 0, 0, dDepthMach)
            else
               -- se ho l'offset angolare ruoto la linea per compensare la rotazione che verrà applicata
               if abs(dOffsAng) > 100 * GEO.EPS_SMALL then
-                  EgtRotate( nAuxId, tFacAdj[1][nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
+                  EgtRotate( nAuxId, tFacAdj[nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
               end
            end
            table.insert( pAuxId, nAuxId)
            -- creo linea di ritorno
-            nAuxId = EgtLine( nAddGrpId, ptApPoint + Point3d( 0, 0, -dDepthMach), tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
+            nAuxId = EgtLine( nAddGrpId, ptApPoint + Point3d( 0, 0, -dDepthMach), tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
            table.insert( pAuxId, nAuxId)
         end
         -- ultima linea di distacco (5mm in direzione utensile)
-         local pEnd =  tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach) + ( 5 * vtExtr)
-         nAuxId = EgtLine( nAddGrpId, tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach), pEnd, GDB_RT.GLOB)
+         local pEnd =  tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach) + ( 5 * vtExtr)
+         nAuxId = EgtLine( nAddGrpId, tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach), pEnd, GDB_RT.GLOB)
         table.insert( pAuxId, nAuxId)
      else
         -- linea di distacco (2mm in direzione utensile)
-         local pEnd =  tFacAdj[1][nIdEndPoint] + ( 2 * vtExtr)
-         nAuxId = EgtLine( nAddGrpId, tFacAdj[1][nIdEndPoint], pEnd, GDB_RT.GLOB)
+         local pEnd =  tFacAdj[nIdEndPoint] + ( 2 * vtExtr)
+         nAuxId = EgtLine( nAddGrpId, tFacAdj[nIdEndPoint], pEnd, GDB_RT.GLOB)
         table.insert( pAuxId, nAuxId)
         -- ultima linea di risalita in Z
         local pIni = pEnd
@@ -981,11 +990,11 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
   EgtModifyCurveExtrusion( AuxId, vtExtr, GDB_RT.GLOB)
   -- se ho un offset angolare ruoto il percorso
   if abs(dOffsAng) > 100 * GEO.EPS_SMALL then
-      EgtRotate( AuxId, tFacAdj[1][nIdEndPoint], Z_AX(), dOffsAng, GDB_RT.GLOB)
+      EgtRotate( AuxId, tFacAdj[nIdEndPoint], Z_AX(), dOffsAng, GDB_RT.GLOB)
   end
   -- inserisco la lavorazione
   local sName = 'Clean_' .. ( EgtGetName( nNewProc) or tostring( nNewProc))
-   local nMchId = WM.AddMachining( nNewProc.Id, sName, sMilling)
+   local nMchId = WM.AddMachining( nNewProc, sName, sMilling)
   if not nMchId then
      local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
      EgtOutLog( sErr)
@@ -999,10 +1008,7 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
   -- aggiungo geometria
   EgtSetMachiningGeometry( {{ AuxId, -1}})
   -- imposto posizione braccio porta testa
-   local nSCC = MCH_SCC.ADIR_YM
-   if vtExtr:getY() > 100 * GEO.EPS_ZERO then
-      nSCC = MCH_SCC.ADIR_YP
-   end
+   local nSCC = MCH_SCC.ADIR_ZP
   EgtSetMachiningParam( MCH_MP.SCC, nSCC)
   EgtSetMachiningParam( MCH_MP.LEADINTYPE, 0)
   EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, 4)
@@ -1013,10 +1019,13 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
   EgtSetMachiningParam( MCH_MP.DEPTH, 0)
   -- forzo lato correzione a centrato
   EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.CENTER)
+   -- leggo eventuali note esistenti della lavorazione
+   local sUserNotes = EgtGetMachiningParam( MCH_MP.USERNOTES)
   -- Note utente con dichiarazione nessuna generazione sfridi per Vmill
-   local sUserNotes = 'VMRS=0;'
+   sUserNotes = EgtSetValInNotes( sUserNotes, 'VMRS', 0)
   -- aggiungo alle note massima elevazione
-   sUserNotes = sUserNotes .. 'MaxElev=' .. EgtNumToString( 0.0, 1) .. ';'
+   sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( 0.0, 1))
+   -- scrivo le note della lavorazione
   EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
   if not EgtApplyMachining( true, false) then
      local _, sErr = EgtGetLastMachMgrError()
@@ -1088,7 +1097,8 @@ local function AddMillCorner( nTypeConeCut, vFace, Proc, nRawId, b3Raw,
   local nFacCnt = EgtSurfTmFacetCount( nNewProc)
   local nFacInd, dDimMin, dDimMax, dDepth, nSurfInt
   local bMakeLocSurf
-   if nFacCnt <= 4 then
+   -- RIMUOVERE
+   if false and nFacCnt <= 4 then
      -- ottengo le dimensioni apertura, la normale e la faccia inferiore
      dDimMin, dDimMax, dDepth, _, _, nSurfInt = GetTunnelDimension( nNewProc, Proc.PartId, nAddGrpId)
      if nSurfInt then
@@ -1105,6 +1115,7 @@ local function AddMillCorner( nTypeConeCut, vFace, Proc, nRawId, b3Raw,
         EgtOutLog( sErr)
         return false, sErr
      end
+      -- FINE PARTE DA RIMUOVERE
   else
      bMakeLocSurf = true
   end
@@ -1124,38 +1135,37 @@ local function AddMillCorner( nTypeConeCut, vFace, Proc, nRawId, b3Raw,
   while i <= #vFace do
      -- se tutta la faccia o la sua fine senza taglio, inserisco una fresatura
      if ( vFace[i].Type & 2) ~= 0  or  vFace[i].Type == 4 then
-         -- variabili costruzione geometria
-         local tFacAdj = {}
+         -- variabili costruzione geometria (nFace1, nFace2, tFacAdj)
         local nFace1 = vFace[i].Fac
-         local nFace2
         -- ricavo i tre punti per eventuale superficie locale
         local ptLoc1, ptLoc2, ptLoc3
-         -- punto precedente (punto precedente della faccia [i])
-         ptLoc3 = vFace[i].PPrev
         -- aggiungo geometria
-         i = i + 1
-         local j = EgtIf( i <= #vFace, i, EgtIf( bClosed, 1, nil))
-         if not j then
-            return true
-         end
-         nFace2 = vFace[j].Fac
+         local j = EgtIf( i < #vFace, i + 1, EgtIf( bClosed, 1, nil))
+         if not j then return true end
+         local nFace2 = vFace[j].Fac
         -- punto in comune tra le due facce (punto precedente della faccia [j])
         ptLoc1 = vFace[j].PPrev
+         -- punto precedente (punto precedente della faccia [i])
+         if vFace[i].PPrev then
+            ptLoc3 = vFace[i].PPrev
+         else
+            ptLoc3 = Point3d( vFace[i].Cen:getX(), vFace[i].Cen:getY(), ptLoc1:getZ())
+         end
         -- punto successivo ( precedente della faccia successiva)
-         j = j + 1
-         local k = EgtIf( j <= #vFace, j, EgtIf( bClosed, 1, nil))
+         local k = EgtIf( j < #vFace, j + 1, EgtIf( bClosed, 1, nil))
         -- se è un percorso aperto prendo il punto medio della seconda faccia come punto locale 2
         if not k then
-            ptLoc2 = Point3d( vFace[j-1].Cen:getX(), vFace[j-1].Cen:getY(), ptLoc1:getZ())
+            ptLoc2 = Point3d( vFace[j].Cen:getX(), vFace[j].Cen:getY(), ptLoc1:getZ())
         else
            ptLoc2 = vFace[k].PPrev
         end
         -- ricavo i punti e l'angolo interno
         local _, ptP1, ptP2, dAng = EgtSurfTmFacetsContact( nNewProc, nFace1, nFace2, GDB_ID.ROOT)
         -- se punti validi e angolo è interno e non è quasi piatto e >= 90 creo istanza
+         local tFacAdj = {}
         if ptP1 and ptP2 and dAng < 0 and dAng < -6 and dAng > EgtIf( nTypeConeCut == 1, -(90 + 10 * GEO.EPS_SMALL), -(180-dAngleSmall + 10 * GEO.EPS_SMALL))  then
            local dLen = dist( ptP1, ptP2)
-            table.insert( tFacAdj, { nFace1, nFace2, dLen, ptP1, ptP2, dAng, ptLoc1, ptLoc2, ptLoc3})
+            tFacAdj = { nFace1, nFace2, dLen, ptP1, ptP2, dAng, ptLoc1, ptLoc2, ptLoc3}
         end
         -- se ho un elemento creo percorso o percorsi in base al tipo di cono e all'apertura dall'angolo rispetto ai 90°
         -- con una tolleranza di 2 gradi
@@ -1183,9 +1193,9 @@ local function AddMillCorner( nTypeConeCut, vFace, Proc, nRawId, b3Raw,
               if not bOk then return bOk, sErr end
            end
         end
-      else
-         i = i + 1
      end
+      -- passo alla successiva
+      i = i + 1
   end
   -- cancello la copia della superfice
   if nNewProc then
@@ -1276,7 +1286,7 @@ local function MakeByChainSaw( Proc, nFacet, nRawId, b3Raw, dElev, dH, dV)
   for i = 1, nStep do
      -- Applico la lavorazione con sega a catena a questa faccia
      local sName = 'Csaw_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)) .. '_' .. tostring( i)
-      local nMchFId = WM.AddMachining( Proc.Id, sName, sSawing)
+      local nMchFId = WM.AddMachining( Proc, sName, sSawing)
      if not nMchFId then
         local sErr = 'Error adding machining ' .. sName .. '-' .. sSawing
         EgtOutLog( sErr)
@@ -1302,13 +1312,16 @@ local function MakeByChainSaw( Proc, nFacet, nRawId, b3Raw, dElev, dH, dV)
      -- se necessario, limito l'affondamento
      if dElev > dMaxDepth + 10 * GEO.EPS_SMALL then
         sWarn = 'Warning in LapJoint : elevation (' .. EgtNumToString( dElev, 1) .. ') bigger than max tool depth (' .. EgtNumToString( dMaxDepth, 1) .. ')'
-         dDepth = dMaxDepth - dElev
+         local dDepth = dMaxDepth - dElev
         EgtOutLog( sWarn)
         EgtSetMachiningParam( MCH_MP.DEPTH_STR, 'TH '..EgtNumToString( dDepth, 1))
      end
+      -- leggo eventuali note esistenti della lavorazione
+      local sUserNotes = EgtGetMachiningParam( MCH_MP.USERNOTES)
      -- imposto elevazione
-      local sNotes = 'MaxElev=' .. EgtNumToString( dElev, 2) .. ';'
-      EgtSetMachiningParam( MCH_MP.USERNOTES, sNotes)
+      sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( dElev, 2))
+      -- scrivo le note della lavorazione
+      EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
      -- eseguo
      if not EgtApplyMachining( true, false) then
         local _, sErr = EgtGetLastMachMgrError()
@@ -1333,7 +1346,11 @@ local function MakeByMill( Proc, nFacet, nOthFac, nRawId, b3Raw, dSideDist)
   local _, vtRef = EgtSurfTmFacetCenter( Proc.Id, nOthFac, GDB_ID.ROOT)
   -- recupero la lavorazione
   local sMilling = WM.FindMilling( 'Side')
-   if not sMilling then return false end
+   if not sMilling then
+      local sErr = 'Error : Side not found in library'
+      EgtOutLog( sErr)
+      return false, sErr
+   end
   -- recupero i dati dell'utensile
   local dMillDiam = 20
   local dMillLen = 10
@@ -1363,7 +1380,7 @@ local function MakeByMill( Proc, nFacet, nOthFac, nRawId, b3Raw, dSideDist)
   end
   -- inserisco la lavorazione di contornatura
   local sName = 'Mill_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchFId = WM.AddMachining( Proc.Id, sName, sMilling)
+   local nMchFId = WM.AddMachining( Proc, sName, sMilling)
   if not nMchFId then
      local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
      EgtOutLog( sErr)
@@ -1390,7 +1407,7 @@ local function MakeByMill( Proc, nFacet, nOthFac, nRawId, b3Raw, dSideDist)
   -- imposto posizione braccio porta testa
   local nSCC = MCH_SCC.ADIR_ZP
   if AreSameOrOppositeVectorApprox( vtN, Z_AX()) then
-      nSCC = EgtIf( Proc.Box:getDimX() >= Proc.Box:getDimY(), MCH_SCC.ADIR_YP, MCH_SCC.ADIR_XP)
+      nSCC = EgtIf( Proc.Box:getDimX() >= Proc.Box:getDimY(), MCH_SCC.ADIR_YP, MCH_SCC.ADIR_XM)
   end
   EgtSetMachiningParam( MCH_MP.SCC, nSCC)
   -- imposto modo di lavorare la faccia
@@ -1436,6 +1453,8 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
      EgtOutLog( sErr)
      return false, sErr
   end
+   local dGrooveMinZ = max( b3Raw:getMin():getZ(), Proc.Box:getMin():getZ())
+   local dRawMaxZ = b3Raw:getMax():getZ()
   -- recupero i dati dell'utensile
   local dMillDiam = 20
   local dMillLen = 10
@@ -1444,6 +1463,7 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
   local dMillDiamTh = 999
   local dMillDiamThStem = 0
   local dMillLenTh = 0
+   local dSideStep = 0
   if EgtMdbSetCurrMachining( sMilling) then
      local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
      if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
@@ -1454,6 +1474,7 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
         dMillDiamTh = EgtTdbGetCurrToolThDiam() or dMillDiamTh
         dMillDiamThStem = EgtTdbGetCurrToolParam( MCH_TP.STEMDIAM) or dMillDiamThStem
         dMillLenTh = EgtTdbGetCurrToolThLength() or dMillLenTh
+         dSideStep = EgtTdbGetCurrToolValInNotes( MCH_TP.USERNOTES, 'SIDESTEP', 'd') or dSideStep
         if ( EgtTdbGetCurrToolParam( MCH_TP.TYPE) & MCH_TF.SAWBLADE) ~= 0 then
            dMaxMat = EgtTdbGetCurrToolParam( MCH_TP.THICK) or dMaxMat
            if not dMaxDepthOnSide or dMaxDepthOnSide < 0.1 then
@@ -1465,8 +1486,6 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
               dMaxDepthOnSide = EgtTdbGetCurrToolValInNotes( MCH_TP.USERNOTES, 'SIDEDEPTH', 'd')
            end
         end
-         local dGrooveMinZ = max( b3Raw:getMin():getZ(), Proc.Box:getMin():getZ())
-         local dRawMaxZ = b3Raw:getMax():getZ()
         -- se riesco a lavorare il sottosquadro senza arrivare alla parte larga del portautensile uso la sidedepth o il diametro stretto del portautensile come diametro del gambo
         if ( dMillTotLen - dMillLenTh) > ( abs( dRawMaxZ - dGrooveMinZ) + 1) then
            if dMaxDepthOnSide and dMaxDepthOnSide > 0 then
@@ -1478,7 +1497,7 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
      end
   end
   -- se profondità ribasso è maggiore della capacità di sottosquadro dell'utensile
-   if ( not bEnablePreMill and bMachFromDn) and ( dElev >= ( 0.5 * ( dMillDiam - dMillDiamTh))) then
+   if ( not bEnablePreMill and bMachFromDn) and ( dElev > 0.5 * ( dMillDiam - dMillDiamTh) - 10 * GEO.EPS_SMALL) then
      local sErr = 'Error : Side Elevation (' .. dElev .. ') bigger than max tool side depth (' .. ( 0.5 * ( dMillDiam - dMillDiamTh)) ..')'
      EgtOutLog( sErr)
      return false, sErr
@@ -1490,7 +1509,20 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
      return false, sErr
   end
   if Proc.Fct == 2 and Proc.Box:getMin():getZ() < b3Raw:getMin():getZ() + 100 * GEO.EPS_SMALL and dMaxMat > dThick + 10 * GEO.EPS_SMALL then
-       local sErr = 'Error : Tool thickness is too big'
+      local sErr = 'Error : Tool thickness is too big'
+      EgtOutLog( sErr)
+      return false, sErr
+   end
+   -- dimensioni della testa
+   local dHeadMaxWidth = 250
+   local dHeadMinWidth = 160
+   local dHeadMinWidthHeight = 30
+   -- se la testa scende sotto al limite superiore del grezzo e non c'è sufficiente capacità di sottosquadro
+   -- controllo disattivato se move after
+   if WD.SIDEMILL_BEFORE and not ( bEnablePreMill or bAsEnablePreMill) and
+      ( ( dMillTotLen < ( abs( dRawMaxZ - dGrooveMinZ) + 10 * GEO.EPS_SMALL) and ( dElev > 0.5 * ( dMillDiam - dHeadMinWidth) - 10 * GEO.EPS_SMALL)) or
+      ( dMillTotLen + dHeadMinWidthHeight < ( abs( dRawMaxZ - dGrooveMinZ) + 10 * GEO.EPS_SMALL) and ( dElev > 0.5 * ( dMillDiam - dHeadMaxWidth) - 10 * GEO.EPS_SMALL))) then
+      local sErr = 'Error : Tool too short, head will collide with rawpart'
      EgtOutLog( sErr)
      return false, sErr
   end
@@ -1732,8 +1764,8 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
            end
         end
         -- inserisco la lavorazione di fresatura
-         local sNameGorge = 'Gorge_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)) .. tostring( nFacet) .. '_' .. tostring( nNm) 
-         local nMchFId = WM.AddMachining( Proc.Id, sNameGorge, sMillingGorge)
+         local sNameGorge = 'Gorge_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)) .. tostring( nFacet)
+         local nMchFId = WM.AddMachining( Proc, sNameGorge, sMillingGorge)
         if not nMchFId then
            local sErr = 'Error adding machining ' .. sNameGorge .. '-' .. sMillingGorge
            EgtOutLog( sErr)
@@ -1748,7 +1780,7 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
         end
         EgtSetMachiningParam( MCH_MP.SCC, nSCC)
         -- imposto modo di lavorare la faccia
-         local nFaceUse = WL.GetNearestParalOpposite( Z_AX(), vtN)
+         local nFaceUse = WL.GetNearestParalOpposite( Z_AX())
         EgtSetMachiningParam( MCH_MP.FACEUSE, nFaceUse)
         -- imposto elevazione e step
         local dStep = EgtGetMachiningParam( MCH_MP.STEP)
@@ -1783,8 +1815,8 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
      for i = 1, nNumStep - 1 do
         nNm = nNm + 1
         -- inserisco la lavorazione di taglio sfrido gorge
-         local sNameGorge = 'GorgeCut_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)) .. tostring( nFacet) .. '_' .. tostring( nNm) 
-         local nMchFId = WM.AddMachining( Proc.Id, sNameGorge, sCuttingGorge)
+         local sNameGorge = 'GorgeCut_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)) .. tostring( nFacet) .. '_' .. tostring( nNm)
+         local nMchFId = WM.AddMachining( Proc, sNameGorge, sCuttingGorge)
         if not nMchFId then
            local sErr = 'Error adding machining ' .. sNameGorge .. '-' .. sCuttingGorge
            EgtOutLog( sErr)
@@ -1841,121 +1873,147 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
   
   local dStepOri
   if not bExcludeSideMill then
-      -- inserisco la lavorazione di ribasso o gola
-      local sName = EgtIf( bEnablePreMill ~= nil, 'SideMill_', 'Mill_') .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-      local nMchFId = WM.AddMachining( Proc.Id, sName, sMilling)
-      if not nMchFId then
-         local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
-         EgtOutLog( sErr)
-         return false, sErr
+      local nSideStep = 1
+      if dSideStep > 0 and not ( bEnablePreMill or bAsEnablePreMill) and nModifyLeadInOut < 1 then
+         nSideStep = ceil( dElev / dSideStep)
+         dSideStep = max( dElev / nSideStep, 0)
      end
-      EgtSetInfo( nMchFId, 'Part', Proc.PartId)
-      -- se ho abilitato la lavorazione di lama per garantire passaggio utensile, setto la nota per spostare la fresatura dopo i tagli di lama
-      if bEnablePreMill or bAsEnablePreMill then
-         EgtSetInfo( nMchFId, 'MOVE_AFTER', 1)
-      end
-      -- aggiungo geometria
-      EgtSetMachiningGeometry( {{ Proc.Id, nFacet}})
-      -- imposto posizione braccio porta testa
-      local nSCC = MCH_SCC.ADIR_NEAR
-      EgtSetMachiningParam( MCH_MP.SCC, nSCC)
-      -- imposto modo di lavorare la faccia
-      local nFaceUse = WL.GetNearestParalOpposite( Z_AX(), vtN)
-      EgtSetMachiningParam( MCH_MP.FACEUSE, nFaceUse)
-      -- imposto elevazione e step
-      local dStep = EgtGetMachiningParam( MCH_MP.STEP)
-      dStepOri = dStep
-      if dStep < GEO.EPS_SMALL then dStep = 0.75 * dMaxMat end
-      local nStep = ceil( ( dThick - dMaxMat) / dStep)
-      dStep = max( ( dThick - dMaxMat) / max( nStep, 1), 0)
-      local dMaxElev = max( ( nStep + 1) * dStep - GEO.EPS_SMALL, 0)
-      if nSinglePass and nSinglePass > 0 then
-         dStep = 0
-         if nSinglePass == 1 then
-            EgtSetMachiningParam( MCH_MP.DEPTH, dMaxMat)
+      for i = 1, nSideStep do
+         -- inserisco la lavorazione di ribasso o gola
+         local sName = EgtIf( bEnablePreMill ~= nil, 'SideMill_', 'Mill_') .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
+         local nMchFId = WM.AddMachining( Proc, sName, sMilling)
+         if not nMchFId then
+            local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
+            EgtOutLog( sErr)
+            return false, sErr
         end
-      end
-      if bUpwardMilling then
-         dStep = -dStep
-      end
-      EgtSetMachiningParam( MCH_MP.STEP, dStep)
-      EgtSetMachiningParam( MCH_MP.USERNOTES, 'MaxElev=' .. EgtNumToString( dMaxElev, 3) .. ';')
-      -- setto il lato di lavoro standard
-      EgtSetMachiningParam( MCH_MP.INVERT, true)
-      EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
-      -- modifico ingressi e uscita
-      -- se ho inserito il pretaglio modifico
-      if bEnablePreMill or bAsEnablePreMill then
-         if nModifyLeadInOut > 0 then
-            -- Confronto il raggio fresa con l'elevazione dalla normale per vedere se devo modificare l'uscita
-            if dElev > ( 0.5 * dMillDiam) then
-                  if nModifyLeadInOut == 1 then
-                  -- setto il tipo di passo a una via
-                  EgtSetMachiningParam( MCH_MP.STEPTYPE, MCH_MILL_ST.ONEWAY)
-                  -- modifico il tipo di uscita
-                  EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LO.PERP_TG)
+         EgtSetInfo( nMchFId, 'Part', Proc.PartId)
+         -- se ho abilitato la lavorazione di lama per garantire passaggio utensile, setto la nota per spostare la fresatura dopo i tagli di lama
+         if bEnablePreMill or bAsEnablePreMill then
+            EgtSetInfo( nMchFId, 'MOVE_AFTER', 1)
+         end
+         -- aggiungo geometria
+         EgtSetMachiningGeometry( {{ Proc.Id, nFacet}})
+         -- imposto posizione braccio porta testa
+         local nSCC = MCH_SCC.ADIR_NEAR
+         EgtSetMachiningParam( MCH_MP.SCC, nSCC)
+         -- imposto modo di lavorare la faccia
+         local nFaceUse = WL.GetNearestParalOpposite( Z_AX())
+         EgtSetMachiningParam( MCH_MP.FACEUSE, nFaceUse)
+         -- imposto elevazione e step
+         local dStep = EgtGetMachiningParam( MCH_MP.STEP)
+         dStepOri = dStep
+         if dStep < GEO.EPS_SMALL then dStep = 0.75 * dMaxMat end
+         local nStep = ceil( ( dThick - dMaxMat) / dStep)
+         dStep = max( ( dThick - dMaxMat) / max( nStep, 1), 0)
+         local dMaxElev = max( ( nStep + 1) * dStep - GEO.EPS_SMALL, 0)
+         if nSinglePass and nSinglePass > 0 then
+            dStep = 0
+            if nSinglePass == 1 then
+               EgtSetMachiningParam( MCH_MP.DEPTH, dMaxMat)
+            end
+         end
+         if bUpwardMilling then
+            dStep = -dStep
+         end
+         EgtSetMachiningParam( MCH_MP.STEP, dStep)
+         -- leggo eventuali note esistenti della lavorazione
+         local sUserNotes = EgtGetMachiningParam( MCH_MP.USERNOTES)
+         -- aggiungo alle note massima elevazione
+         sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( dMaxElev, 3))
+         -- scrivo le note della lavorazione
+         EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
+         -- setto il lato di lavoro standard
+         EgtSetMachiningParam( MCH_MP.INVERT, true)
+         EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
+         -- setto offset radiale per gestire le eventuali passate in orizzontale
+         local dRadialOffset = dSideStep * ( nSideStep - i)
+         EgtSetMachiningParam( MCH_MP.OFFSR, dRadialOffset)
+         -- modifico ingressi e uscita
+         -- se ho inserito il pretaglio modifico
+         if bEnablePreMill or bAsEnablePreMill then
+            if nModifyLeadInOut > 0 then
+               -- Confronto il raggio fresa con l'elevazione dalla normale per vedere se devo modificare l'uscita
+               if dElev > ( 0.5 * dMillDiam) then
+                     if nModifyLeadInOut == 1 then
+                     -- setto il tipo di passo a una via
+                     EgtSetMachiningParam( MCH_MP.STEPTYPE, MCH_MILL_ST.ONEWAY)
+                     -- modifico il tipo di uscita
+                     EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LO.PERP_TG)
+                     EgtSetMachiningParam( MCH_MP.LIPERP, 0)
+                     -- modifico dati supplementari uscita
+                     EgtSetMachiningParam( MCH_MP.LOPERP, 0.5)
+                     EgtSetMachiningParam( MCH_MP.LOTANG, -( dLongGorge + dExtraLongIni + dExtraLongEnd))
+                  else
+                     EgtSetMachiningParam( MCH_MP.LIPERP, dElev)
+                     EgtSetMachiningParam( MCH_MP.LOPERP, dElev)
+                  end
+               end
+               -- setto allungamenti iniziali e finali
+               EgtSetMachiningParam( MCH_MP.STARTADDLEN, dExtraLongIni)
+               EgtSetMachiningParam( MCH_MP.ENDADDLEN, dExtraLongEnd)
+               if bInvertMach then
+                  -- setto il lato di lavoro invertito
+                  EgtSetMachiningParam( MCH_MP.INVERT, false)
+                  EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
+               end
+            else
+               -- setto allungamenti iniziali e finali
+               EgtSetMachiningParam( MCH_MP.STARTADDLEN, dExtraLongIni)
+               EgtSetMachiningParam( MCH_MP.ENDADDLEN, dExtraLongEnd)
+               -- Confronto il raggio fresa con l'elevazione dalla normale per vedere se devo modificare l'uscita
+               if dElev > ( 0.5 * dMillDiam) then
+                  -- setto allungamenti perpendicolari
                  EgtSetMachiningParam( MCH_MP.LIPERP, 0)
-                  -- modifico dati supplementari uscita
-                  EgtSetMachiningParam( MCH_MP.LOPERP, 0.5)
-                  EgtSetMachiningParam( MCH_MP.LOTANG, -( dLongGorge + dExtraLongIni + dExtraLongEnd))
-               else
-                  EgtSetMachiningParam( MCH_MP.LIPERP, dElev)
-                  EgtSetMachiningParam( MCH_MP.LOPERP, dElev)
+                  EgtSetMachiningParam( MCH_MP.LOPERP, 0)
+               end
+            end
+            -- se richiesto, setto la nota per spostare la lavorazione alla fine
+            if not WD.SIDEMILL_BEFORE then
+               EgtSetInfo( nMchFId, 'MOVE_AFTER', 1)
+            end
+         else
+            if nModifyLeadInOut > 0 then
+               -- Confronto il raggio fresa con l'elevazione dalla normale per vedere se devo modificare l'uscita
+               if dElev > ( 0.5 * dMillDiam) then
+                  -- setto il tipo di passo a una via
+                  EgtSetMachiningParam( MCH_MP.STEPTYPE, 1)
+               end
+               if bInvertMach then
+                  -- setto il lato di lavoro invertito
+                  EgtSetMachiningParam( MCH_MP.INVERT, false)
+                  EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
               end
            end
            -- setto allungamenti iniziali e finali
            EgtSetMachiningParam( MCH_MP.STARTADDLEN, dExtraLongIni)
            EgtSetMachiningParam( MCH_MP.ENDADDLEN, dExtraLongEnd)
-            if bInvertMach then
-               -- setto il lato di lavoro invertito
-               EgtSetMachiningParam( MCH_MP.INVERT, false)
-               EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
+            -- se ho passate orizzontali riduco l'eventuale allungamento settato dall'utente
+            local dLiPerp = EgtGetMachiningParam( MCH_MP.LIPERP)
+            local dLoPerp = EgtGetMachiningParam( MCH_MP.LOPERP)
+            if dLiPerp > 0 then
+               dLiPerp = dLiPerp - dRadialOffset
            end
-         else
-            -- setto allungamenti iniziali e finali
-            EgtSetMachiningParam( MCH_MP.STARTADDLEN, dExtraLongIni)
-            EgtSetMachiningParam( MCH_MP.ENDADDLEN, dExtraLongEnd)
-            -- Confronto il raggio fresa con l'elevazione dalla normale per vedere se devo modificare l'uscita
-            if dElev > ( 0.5 * dMillDiam) then
-               -- setto allungamenti perpendicolari
-               EgtSetMachiningParam( MCH_MP.LIPERP, 0)
-               EgtSetMachiningParam( MCH_MP.LOPERP, 0)
+            if dLoPerp > 0 then
+               dLoPerp = dLoPerp - dRadialOffset
+            end
+            EgtSetMachiningParam( MCH_MP.LIPERP, dLiPerp)
+            EgtSetMachiningParam( MCH_MP.LOPERP, dLoPerp)
+            -- se richiesto, setto la nota per spostare la lavorazione alla fine
+            if not WD.SIDEMILL_BEFORE then
+               EgtSetInfo( nMchFId, 'MOVE_AFTER', 1)
            end
         end
-         -- se richiesto, setto la nota per spostare la lavorazione alla fine
-         if not WD.SIDEMILL_BEFORE then
-            EgtSetInfo( nMchFId, 'MOVE_AFTER', 1)
-         end
-      else
-         if nModifyLeadInOut > 0 then
-            -- Confronto il raggio fresa con l'elevazione dalla normale per vedere se devo modificare l'uscita
-            if dElev > ( 0.5 * dMillDiam) then
-               -- setto il tipo di passo a una via
-               EgtSetMachiningParam( MCH_MP.STEPTYPE, 1)
-            end
-            if bInvertMach then
-               -- setto il lato di lavoro invertito
-               EgtSetMachiningParam( MCH_MP.INVERT, false)
-               EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
-            end
-         end
-         -- setto allungamenti iniziali e finali
-         EgtSetMachiningParam( MCH_MP.STARTADDLEN, dExtraLongIni)
-         EgtSetMachiningParam( MCH_MP.ENDADDLEN, dExtraLongEnd)
-         -- se richiesto, setto la nota per spostare la lavorazione alla fine
-         if not WD.SIDEMILL_BEFORE then
-            EgtSetInfo( nMchFId, 'MOVE_AFTER', 1)
-         end
-      end
-      -- eseguo
-      if not EgtApplyMachining( true, false) then
-         -- provo a invertire posizione braccio porta testa
-         nSCC = MCH_SCC.ADIR_FAR
-         EgtSetMachiningParam( MCH_MP.SCC, nSCC)
+         -- eseguo
         if not EgtApplyMachining( true, false) then
-            local _, sErr = EgtGetLastMachMgrError()
-            EgtSetOperationMode( nMchFId, false)
-            return false, sErr
+            -- provo a invertire posizione braccio porta testa
+            nSCC = MCH_SCC.ADIR_FAR
+            EgtSetMachiningParam( MCH_MP.SCC, nSCC)
+            if not EgtApplyMachining( true, false) then
+               local _, sErr = EgtGetLastMachMgrError()
+               EgtSetOperationMode( nMchFId, false)
+               return false, sErr
+            end
         end
      end
   else
@@ -1967,7 +2025,7 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
   if dAng and dAng > -90 + 10 * GEO.EPS_SMALL and not bExcludeFinishing then
      -- inserisco la lavorazione di contornatura
      local sName = 'Mill_Oth_Fac_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-      local nMchFId = WM.AddMachining( Proc.Id, sName, sMilling)
+      local nMchFId = WM.AddMachining( Proc, sName, sMilling)
      if not nMchFId then
         local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
         EgtOutLog( sErr)
@@ -1999,7 +2057,12 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
         dStepOtherFace = -dStepOtherFace
      end
      EgtSetMachiningParam( MCH_MP.STEP, dStepOtherFace)
-      EgtSetMachiningParam( MCH_MP.USERNOTES, 'MaxElev=' .. EgtNumToString( dMaxElev, 3) .. ';')
+      -- leggo eventuali note esistenti della lavorazione
+      local sUserNotes = EgtGetMachiningParam( MCH_MP.USERNOTES)
+      -- aggiungo alle note massima elevazione
+      sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( dMaxElev, 3))
+      -- scrivo le note della lavorazione
+      EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
      if bMachFromDn then
         EgtSetMachiningParam( MCH_MP.INVERT, true)
         EgtSetMachiningParam( MCH_MP.DEPTH, dDepthOtherFace)
@@ -2155,7 +2218,7 @@ local function MakeByPocketing( Proc, nFacet, nRawId, b3Raw, bCheckQPar)
   end
   -- inserisco la lavorazione di svuotatura
   local sName = 'Pock_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchFId = WM.AddMachining( Proc.Id, sName, sPocketing)
+   local nMchFId = WM.AddMachining( Proc, sName, sPocketing)
   if not nMchFId then
      local sErr = 'Error adding machining ' .. sName .. '-' .. sPocketing
      EgtOutLog( sErr)
@@ -2184,8 +2247,12 @@ local function MakeByPocketing( Proc, nFacet, nRawId, b3Raw, bCheckQPar)
      EgtOutLog( sWarn)
   end
   EgtSetMachiningParam( MCH_MP.DEPTH, dDepth)
+   -- leggo eventuali note della lavorazione
+   local sUserNotes = EgtGetMachiningParam( MCH_MP.USERNOTES)
   -- imposto elevazione
-   EgtSetMachiningParam( MCH_MP.USERNOTES, 'MaxElev=' .. EgtNumToString( min( dElev, dMaxDepth), 1) .. ';')
+   sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( min( dElev, dMaxDepth), 1))
+   -- scrivo le note della lavorazione
+   EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
   -- eseguo
   if not EgtApplyMachining( true, false) then
      local _, sErr = EgtGetLastMachMgrError()
@@ -2225,14 +2292,14 @@ local function MakeOneFace( Proc, nRawId, b3Raw)
   -- recupero la lavorazione di taglio con lama e i suoi parametri  
   local sCutting, dSawDiam, dSawThick, dSawMaxDepth = WM.FindCutting( 'Standard')
   -- se non inclinata o capacità di taglio non sufficiente, provo con svuotatura
-   if not sCutting or vtN:getZ() > 0.866 or dSawMaxDepth < dDimV + WD.CUT_SIC then
+   if not sCutting or vtN:getZ() > 0.866 or dSawMaxDepth < dDimV + WD.CUT_EXTRA then
      -- faccio con svuotatura
      local nFacet = 0
      return MakeByPocketing( Proc, nFacet, nRawId, b3Raw)
   end
   -- eseguo il taglio di lama
   local sName = 'Cut_' .. ( EgtGetName( Proc.PartId) or tostring( Proc.PartId)) .. '_' .. tostring( Proc.Id) 
-   local nMchId = WM.AddMachining( Proc.Id, sName, sCutting)
+   local nMchId = WM.AddMachining( Proc, sName, sCutting)
   if not nMchId then
      local sErr = 'Error adding machining ' .. sName .. '-' .. sCutting
      EgtOutLog( sErr)
@@ -2510,7 +2577,7 @@ local function MakeTwoFaces( Proc, nRawId, b3Raw)
   for i = 1, 2 do
      -- inserisco la lavorazione
      local sName = 'Cut_' .. ( EgtGetName( Proc.PartId) or tostring( Proc.PartId)) .. '_' .. tostring( Proc.Id) .. '_' .. tostring( i) 
-      local nMchId = WM.AddMachining( Proc.Id, sName, sCutting)
+      local nMchId = WM.AddMachining( Proc, sName, sCutting)
      if not nMchId then
         local sErr = 'Error adding machining ' .. sName .. '-' .. sCutting
         EgtOutLog( sErr)
@@ -2605,8 +2672,12 @@ local function MakeMoreFaces( Proc, nRawId, b3Raw)
               return MakeSideGrooveByMill( Proc, nFacInd, nRawId, b3Raw, EgtIf( dMaxDepthOnSide, sMillOnSide, nil), dMaxDepthOnSide, bMakeFirstGroove, nil, nil, bLikeAsMakeFirstGroove, nSinglePass)
            end
         else
-            -- fresatura (se definita)
-            local sMilling = WM.FindMilling( 'SideGroove', nil, nil, nil, nil, min( dH, dV))
+            -- fresatura (se definita); se disponibile, cerco di usare un utensile che non lavori al limite della capacità di sottosquadro
+            local sMilling = WM.FindMilling( 'SideGroove', nil, nil, nil, nil, min( dH, dV), nil, 1.2 * dSideElev)
+            -- se non ho trovato un utensile un po' più grande del sottosquadro richiesto, passo alla ricerca standard
+            if not sMilling then
+               sMilling = WM.FindMilling( 'SideGroove', nil, nil, nil, nil, min( dH, dV), nil, dSideElev)
+            end
            -- recupero i dati dell'utensile
            local dMaxMat = 1000
            local dMaxDepthOnSide = 0
@@ -2614,7 +2685,7 @@ local function MakeMoreFaces( Proc, nRawId, b3Raw)
            if sMilling and EgtMdbSetCurrMachining( sMilling) then
               local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
               if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
-                  local dMillDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dMillDiam
+                  local dMillDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or 0
                  bIsBlade = EgtTdbGetCurrToolParam( MCH_TP.TYPE) & MCH_TF.SAWBLADE ~= 0
                  if bIsBlade then
                     dMaxMat = EgtTdbGetCurrToolParam( MCH_TP.THICK) or dMaxMat
@@ -2629,12 +2700,12 @@ local function MakeMoreFaces( Proc, nRawId, b3Raw)
                  end
               end
            end
-               if sMilling and dElev < dMaxDepthOnSide then
-                  return MakeSideGrooveByMill( Proc, nFacInd, nRawId, b3Raw, sMilling)
-               -- altrimenti sega a catena
-               else
-                  return MakeByChainSaw( Proc, nFacInd, nRawId, b3Raw, dElev, dH, dV)
-               end
+            if sMilling and dElev < dMaxDepthOnSide then
+               return MakeSideGrooveByMill( Proc, nFacInd, nRawId, b3Raw, sMilling)
+            -- altrimenti sega a catena
+            else
+               return MakeByChainSaw( Proc, nFacInd, nRawId, b3Raw, dElev, dH, dV)
+            end
         end
      end
      local nFacet = EgtIf( bPckt or vtN:getZ() >= WD.NZ_MINA, nFacInd, nFacInd2)
@@ -108,7 +108,7 @@ function WPMK.Make( Proc, nRawId, b3Raw)
   end
   -- inserisco la lavorazione di fresatura
   local sName = 'Decor_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchFId = WM.AddMachining( Proc.Id, sName, sMilling)
+   local nMchFId = WM.AddMachining( Proc, sName, sMilling)
   if not nMchFId then
      local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
      EgtOutLog( sErr)
@@ -132,7 +132,7 @@ function WPMK.Make( Proc, nRawId, b3Raw)
   if AuxId then
      -- inserisco la lavorazione di fresatura
      local sName2 = 'Decor2_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-      local nMchF2Id = WM.AddMachining( Proc.Id, sName, sMilling)
+      local nMchF2Id = WM.AddMachining( Proc, sName, sMilling)
      if not nMchF2Id then
         local sErr = 'Error adding machining ' .. sName2 .. '-' .. sMilling
         EgtOutLog( sErr)
@@ -251,7 +251,7 @@ function WPM.Make( Proc, nRawId, b3Raw)
   end
   -- inserisco la lavorazione di svuotatura
   local sName = 'Mort_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchFId = WM.AddMachining( Proc.Id, sName, sPocketing)
+   local nMchFId = WM.AddMachining( Proc, sName, sPocketing)
   if not nMchFId then
      local sErr = 'Error adding machining ' .. sName .. '-' .. sPocketing
      EgtOutLog( sErr)
@@ -78,7 +78,7 @@ function WPT.Make( Proc, nRawId, b3Raw)
   end
   -- inserisco la lavorazione di fresatura
   local sName = 'Text_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchFId = WM.AddMachining( Proc.Id, sName, sMilling)
+   local nMchFId = WM.AddMachining( Proc, sName, sMilling)
   if not nMchFId then
      local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
      EgtOutLog( sErr)
@@ -72,7 +72,7 @@ local function MakeCode_1( Proc, nRawId, b3Raw)
   end
   -- inserisco la lavorazione di finitura superficie
   local sName = 'SurfFin_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchFId = WM.AddMachining( Proc.Id, sName, sSurfFin)
+   local nMchFId = WM.AddMachining( Proc, sName, sSurfFin)
   if not nMchFId then
      local sErr = 'Error adding machining ' .. sName .. '-' .. sSurfFin
      EgtOutLog( sErr)
@@ -1,6 +1,10 @@
-- WallExec.lua by Egaltech s.r.l. 2023/03/06
+-- WallExec.lua by Egaltech s.r.l. 2023/10/16
 -- Libreria esecuzione lavorazioni per Pareti
-- 2023/05/25 Aggiunto ordinamento in base a prioritò da btl.
+-- 2023/05/25 Aggiunto ordinamento in base a priorità da btl.
+-- 2023/06/07 Nel caso di outline con priorità aggiunta la rimozione degli sfridi nella lavorazione successiva.
+-- 2023/06/27 Aggiunte origini TN e BN.
+-- 2023/07/04 Se c'è funzione di macchina WD.GetOrigCorner si lascia scegliere posizione default a questa impostando 0 se non c'è 'REFPOS'.
+-- 2023/10/16 Aggiunta gestione Aree vietate (LockOut) per chiodature.

 -- Tabella per definizione modulo
 local WallExec = {}
@@ -72,7 +76,7 @@ function WallExec.ProcessWalls( dRawL, dRawW, dRawH, vWall, bMachGroupOk, bNewPr
   local nCorner
   local sOrigCorner = WD.ORIG_CORNER or 'BR'
   if WD.GetOrigCorner then
-      sOrigCorner = WD.GetOrigCorner( EgtGetInfo( EgtGetFirstNameInGroup( GDB_ID.ROOT, 'BtlInfo') or GDB_ID.NULL, 'REFPOS', 'i') or 1)
+      sOrigCorner = WD.GetOrigCorner( EgtGetInfo( EgtGetFirstNameInGroup( GDB_ID.ROOT, 'BtlInfo') or GDB_ID.NULL, 'REFPOS', 'i') or 0)
   end 
   if sOrigCorner == 'TL' then
      nCorner = MCH_CR.TL
@@ -92,11 +96,17 @@ function WallExec.ProcessWalls( dRawL, dRawW, dRawH, vWall, bMachGroupOk, bNewPr
   elseif sOrigCorner == 'BM' then
      nCorner = MCH_CR.BR
      OrigOnTab = Point3d( WD.MID_REF - abs( WD.DELTA_X or 0), abs( WD.DELTA_Y or 0), ( WD.DELTA_Z or 0))
+   elseif sOrigCorner == 'TN' then
+      nCorner = MCH_CR.TL
+      OrigOnTab = Point3d( WD.NEW_REF + abs( WD.DELTA_X or 0), b3Tab:getDimY() - abs( WD.DELTA_Y or 0), ( WD.DELTA_Z or 0))
+   elseif sOrigCorner == 'BN' then
+      nCorner = MCH_CR.BL
+      OrigOnTab = Point3d( WD.NEW_REF + abs( WD.DELTA_X or 0), abs( WD.DELTA_Y or 0), ( WD.DELTA_Z or 0))
   end
   -- Impostazione dell'attrezzaggio di default
   EgtImportSetup()
   -- Impostazione eventuale allargamento area disponibile per grezzo
-   EgtSetTableAreaOffset( WD.TAB_EXTRA_XP or 0, WD.TAB_EXTRA_XM or 0, WD.TAB_EXTRA_YP or 0, WD.TAB_EXTRA_YM or 0) 
+   EgtSetTableAreaOffset( WD.TAB_EXTRA_XP or 0, WD.TAB_EXTRA_YP or 0, WD.TAB_EXTRA_XM or 0, WD.TAB_EXTRA_YM or 0) 
   -- Creazione del grezzo e suo posizionamento in macchina
   local nRaw = GDB_ID.NULL
   if nRawOutlineId and nRawOutlineId ~= GDB_ID.NULL then
@@ -180,7 +190,8 @@ function WallExec.CollectFeatures( PartId, b3Raw)
               Proc.CutId = nCutId
               Proc.TaskId = nTaskId
               Proc.Box = EgtGetBBoxGlob( ProcId, GDB_BB.STANDARD)
-               if Proc.Box and not Proc.Box:isEmpty() then 
+               Proc.IsOutline = ( Proc.Prc == 251 or Proc.Prc == 252)
+               if Proc.Box and not Proc.Box:isEmpty() then
                  table.insert( vProc, Proc)
                  -- se foro
                  if Drill.Identify( Proc) then
@@ -206,6 +217,16 @@ function WallExec.CollectFeatures( PartId, b3Raw)
                        Proc2.TaskId = Proc.TaskId
                        table.insert( vProc, Proc2)
                     end
+                  -- se free contour
+                  elseif FreeContour.Identify( Proc) then
+                     -- recupero il tipo e il dato della lavorazione
+                     local nCntType = EgtGetInfo( Proc.Id, 'CNT_TYPE', 'i') or 0
+                     local nCntData = EgtGetInfo( Proc.Id, 'CNT_DATA', 'i') or 0
+                     -- imposto se area vietata
+                     if nCntType == 200 then
+                        Proc.LockOut = EgtIf( ( nCntData == 0 or ( nCntData & 1) ~= 0), 1, -1)
+                     end
+                     if Proc.LockOut then Proc.Flg = 0 end
                  end
               else
                  EgtOutLog( ' Feature ' .. tostring( Proc.Id) .. ' is empty (no geometry)')
@@ -275,15 +296,15 @@ local function PrintFeatures( vProc)
   EgtOutLog( ' *** Feature List ***')
   for i = 1, #vProc do
      local Proc = vProc[i]
-      local sOut = string.format( 'Part=%3d Proc=%3d Grp=%1d Prc=%3d TC=%2d/%d Flg=%2d Fcse=%1d,%1d Diam=%.2f Fct=%2d Dbl=%2d Dlt=%.1f Box=%s',
+      local sOut = string.format( 'Part=%3d Proc=%3d Grp=%1d Prc=%3d TC=%2d/%d Flg=%2d Lo=%d Fcse=%1d,%1d Diam=%.2f Fct=%2d Dbl=%2d Dlt=%.1f Box=%s',
                                  Proc.PartId, Proc.Id, Proc.Grp, Proc.Prc, Proc.TaskId, Proc.CutId,
-                                  Proc.Flg, Proc.Fcs, Proc.Fce, Proc.Diam, Proc.Fct, Proc.Double or 0, Proc.Delta or 0, tostring( Proc.Box))
+                                  Proc.Flg, EgtIf( Proc.LockOut, 1, 0), Proc.Fcs, Proc.Fce, Proc.Diam, Proc.Fct, Proc.Double or 0, Proc.Delta or 0, tostring( Proc.Box))
      EgtOutLog( sOut)
   end
 end

 -------------------------------------------------------------------------------------------------------------
-local function AddFeatureMachining( Proc, nRawId, b3Raw)
+local function AddFeatureMachining( Proc, nRawId, b3Raw, vNLO)
   local bOk = true
   local sErr = ''
   EgtOutLog( ' * Process ' .. tostring( Proc.Id) .. ' *', 1)
@@ -325,8 +346,8 @@ local function AddFeatureMachining( Proc, nRawId, b3Raw)
      bOk, sErr = Text.Make( Proc, nRawId, b3Raw)
   -- se contorno libero, outline o apertura ( 0/3/4-250/251/252-X)
   elseif FreeContour.Identify( Proc) then
-      -- esecuzione contorno
-      bOk, sErr = FreeContour.Make( Proc, nRawId, b3Raw)
+      -- esecuzione contorno libero
+      bOk, sErr = FreeContour.Make( Proc, nRawId, b3Raw, vNLO)
   -- se feature custom (Variant)
   elseif Variant.Identify( Proc) then
      -- esecuzione
@@ -584,6 +605,27 @@ local function SortMachinings( nPhase, PrevMch, nPartId, nPriority)
   return PrevMch
 end

+-------------------------------------------------------------------------------------------------------------
+-- setto la rimozione sfridi dopo le lavorazioni di outline
+function InsertScrapRemoval( nPhase)
+   local nCurrentOperationId = EgtGetNextOperation( EgtGetPhaseDisposition( nPhase))
+   local nActiveMachiningId = EgtGetCurrMachining()
+   while nCurrentOperationId do
+      local bIsCurrentOperationOutline = ( EgtGetInfo( nCurrentOperationId or GDB_ID.NULL, 'ISOUTLINE', 'b' ) == true)
+      local bIsCurrentOperationWithPriority = ( ( EgtGetInfo( nCurrentOperationId or GDB_ID.NULL, 'PRIORITY', 'i' ) or 0) > 0)
+      local nNextOperationId = EgtGetNextOperation (nCurrentOperationId)
+      local bIsNextOperationOutline = ( EgtGetInfo( nNextOperationId or GDB_ID.NULL, 'ISOUTLINE', 'b' ) == true)
+      if bIsCurrentOperationOutline and bIsCurrentOperationWithPriority and nNextOperationId and not bIsNextOperationOutline then
+         EgtSetCurrMachining( nNextOperationId)
+         local sMachiningNotes = EgtGetMachiningParam( MCH_MP.USERNOTES)
+         sMachiningNotes = sMachiningNotes .. 'ScrapRemove=1;'
+         EgtSetMachiningParam( MCH_MP.USERNOTES, sMachiningNotes)
+      end
+      nCurrentOperationId = EgtGetNextOperation( nCurrentOperationId)
+   end
+   EgtSetCurrMachining( nActiveMachiningId or GDB_ID.NULL)
+end
+
 -------------------------------------------------------------------------------------------------------------
 function WallExec.ProcessFeatures()
   -- errori e stato
@@ -610,9 +652,11 @@ function WallExec.ProcessFeatures()
   end
   -- classifico le feature
   ClassifyFeatures( vProc, b3Raw)
-   -- Eventuale determinazione delle feature lavorabili in parallelo (implementata nella configurazione macchina)
+   -- recupero l'elenco delle aree vietate alle chiodature
+   local vNLO = WL.GetNailLockOutAreas( vProc)
+   -- Se non ci sono aree vietate alle chiodature, eventuale determinazione delle feature lavorabili in parallelo (implementata nella configurazione macchina)
   -- si impostano i flag Double (nil/0=no, 1=su X, 2=su Y) e Delta (offset tra T14 e T12 positivo o negativo)
-   if WD.FindFeaturesInDouble then
+   if #vNLO == 0 and WD.FindFeaturesInDouble then
      WD.FindFeaturesInDouble( vProc, b3Raw)
   end
   -- debug
@@ -625,7 +669,7 @@ function WallExec.ProcessFeatures()
      -- creo la lavorazione
      local Proc = vProc[i]
      if Proc.Flg ~= 0 then
-         local bOk, sMsg = AddFeatureMachining( Proc, nRawId, b3Raw)
+         local bOk, sMsg = AddFeatureMachining( Proc, nRawId, b3Raw, vNLO)
         if not bOk then
            nTotErr = nTotErr + 1
            table.insert( Stats, {Err=1, Msg=sMsg, Rot=0, CutId=Proc.CutId, TaskId=Proc.TaskId})
@@ -634,7 +678,7 @@ function WallExec.ProcessFeatures()
         else
            table.insert( Stats, {Err=0, Msg='', Rot=0, CutId=Proc.CutId, TaskId=Proc.TaskId})
         end
-      elseif not Proc.Double then 
+      elseif not Proc.Double and not Proc.LockOut then 
         local sMsg = 'Feature not machinable by orientation'
         table.insert( Stats, {Err=1, Msg=sMsg, Rot=0, CutId=Proc.CutId, TaskId=Proc.TaskId})
      end
@@ -676,9 +720,13 @@ function WallExec.ProcessFeatures()
            end
         end
      end
-
+      -- ordinamento standard
      SortMachinings( nPhase, PrevMch)
+
      -- Aggiornamento finale di tutto
+      if nGetPriorityFromBtl > 0 then
+         InsertScrapRemoval( nPhase)
+      end
      EgtSetCurrPhase( 1)
      EgtApplyAllMachinings()
   -- altrimenti macchina travi
@@ -1,4 +1,4 @@
-- WallLib.lua by Egaltech s.r.l. 2022/04/04
+-- WallLib.lua by Egaltech s.r.l. 2023/10/16
 -- Libreria globale per Pareti

 -- Tabella per definizione modulo
@@ -316,5 +316,24 @@ function WallLib.GetNearestOrthoOpposite( vtRef, vtNorm)
   return nil
 end

+-------------------------------------------------------------------------------------------------------------
+function WallLib.GetNailLockOutAreas( vProc)
+   local vNLO = {}
+   for i = 1, #vProc do
+      if vProc[i].LockOut == 1 then
+         local AuxId = EgtGetInfo( vProc[i].Id, 'AUXID', 'i')
+         if AuxId then AuxId = AuxId + vProc[i].Id end
+         if AuxId then
+            local nAddGrpId = WallLib.GetAddGroup( vProc[i].PartId)
+            local nSfrId = EgtSurfFlatRegion( nAddGrpId, {AuxId}) 
+            if nSfrId then
+               table.insert( vNLO, nSfrId)
+            end
+         end
+      end
+   end
+   return vNLO
+end
+
 -------------------------------------------------------------------------------------------------------------
 return WallLib
@@ -1,5 +1,54 @@
           ==== Wall Update Log ====

+Versione 2.5j3 (23/10/2023)
+- Added : aggiunta gestione aree vietate per chiodature (LockOut for Nail)
+- Modif : in FreeContour conversione automatica di facce non fattibili con lama per limiti di orientamento in facce da fare con fresa.
+- Modif : in LapJoint aggiunta segnalazione lavorazione tipo Side non trovata.
+- Modif : migliorata funzione Is3EdgesApprox in WallLib
+- Modif : nella ricerca lavorazione da usare controllo di utensile attivo sostituito con controllo utensile presente nel setup corrente
+- Fixed : in FreeContour correzione a MakeCustomPath per calcolare correttamente puliture spigoli di tipo 2 (Clean 30) e 3 (Gola di Scarico)
+
+Versione 2.5i3 (21/09/2023)
+- Modif : per pulizia corner di FreeContour disabilitato metodo con tunnel ed esteso metodo con tre punti
+- Modif : in LapJoint aggiornata pulizia corner come FreeContour
+- Fixed : in FreeContour e Lapjoint, in MakeByMill, modificato SCC per correggere caso con lama su testa fresa.
+
+Versione 2.5i2 (20/09/2023)
+- Modif : in LapJoint con una sola faccia controllo lavorabilità ora come per FreeContour
+- Modif : in CleanCorner ora AuxDir (SCC) sempre Z+
+- Fixed : in FreeContour piccola correzione alla pulizia corner
+- Fixed : corretta impostazione allargamento aree disposizone grezzi su tavola.
+
+Versione 2.5i1 (12/09/2023)
+- Fixed : correzioni per pulizia corner in FreeContour.
+
+Versione 2.5h1 (01/08/2023)
+- Modif : in sideGroove migliorato il controllo che la testa non scenda sotto al livello del grezzo (ora considera anche il diametro minimo della testa e non interviene se la lavorazione è spostata a dopo il taglio outline).
+- Fixed : corretto bug in MachiningLib -> AddMachining che contempla il caso in cui Proc non sia una tabella
+
+Versione 2.5g3 (26/07/2023)
+- Modif : Nei tagli di lama angolo Z minimo ora gestito tramite costante da WallData CUT_VZ_MIN (default -0.5)
+- Modif : Nelle fresature di ripresa angoli dei contorni migliorata la scelta della fresa secondaria in caso non sia disponibile una fresa di lunghezza sufficiente.
+
+Versione 2.5g2 (25/07/2023)
+- Added : aggiunte passate laterali per SideGroove, se specificato SIDESTEP nelle note utensile.
+
+Versione 2.5g1 (04/07/2023)
+- Modif : per posizione default del grezzo ora si assegna 0 per lasciare il compito a WD.GetOrigCorner di macchina.
+
+Versione 2.5f3 (30/06/2023)
+- Modif : in LapJoint aggiunta lettura di eventuali note di lavorazione esistenti.
+
+Versione 2.5f2 (28/06/2023)
+- Added : aggiunte due nuove origini (TN e BN che come X usano WD.NEW_REF), in totale ora sono 8.
+
+Versione 2.5f1 (13/06/2023)
+- Added : aggiunta gestione priorità da btl
+- Added : aggiunta gestione lavorazione per lamatura speciale affondata con Tool_ID specifico.
+
+Versione 2.5e1 (04/05/2023)
+- Modif : modifiche per gestione traduzione messaggi
+
 Versione 2.5d2 (20/04/2023)
 - Added : in TS3v7 aggiunta gestione flag per taglio feature con outline (da parametro macchina WD.CUT_WITH_OUTLINE)
 - Added : in TS3v7 aggiunta gestione flag per rotazione grezzo di 180deg (da parametro macchina WD.RAWPART_ROT)
@@ -1,6 +1,6 @@
-- Version.lua by Egalware s.r.l. 2023/05/04
+-- Version.lua by Egalware s.r.l. 2023/10/11
 -- Gestione della versione di Wall

 NAME = 'Wall'
-VERSION = '2.5e1'
+VERSION = '2.5j3'
 MIN_EXE = '2.5b3'
Author	SHA1	Message	Date
luca.mazzoleni	10bfb3273c	Merge branch 'release/2.5j3'	2023-10-23 13:18:21 +02:00
luca.mazzoleni	1ef5ae8f0c	update log	2023-10-23 13:18:07 +02:00
luca.mazzoleni	12bb64bacb	Merge remote-tracking branch 'origin/master' into develop	2023-10-19 09:13:47 +02:00
Dario Sassi	35fa519eb3	DataWall 2.5j3 : - nella ricerca lavorazione da usare controllo di utensile attivo sostituito con controllo utensile presente nel setup corrente - aggiunta gestione aree vietate per chiodature (LockOut for Nail).	2023-10-18 11:19:37 +02:00
luca.mazzoleni	fdd6b7f7bb	Merge remote-tracking branch 'origin/master' into develop	2023-10-16 10:07:03 +02:00
Dario Sassi	7c2bc2ec5d	DataWall 2.5j2 : - in FreeContour conversione automatica di facce non fattibili con lama per limiti di orientamento in facce da fare con fresa.	2023-10-12 10:53:11 +02:00
luca.mazzoleni	f6286d839a	Merge remote-tracking branch 'origin/master' into develop	2023-10-02 14:41:20 +02:00
Dario Sassi	33deb8b5e3	DataWall 2.5l1 : - in FreeContour correzione a MakeCustomPath per calcolare correttamente puliture spigoli di tipo 2 (Clean 30) e 3 (Gola di Scarico) - in LapJoint aggiunta segnalazione lavorazione tipo Side non trovata.	2023-10-02 13:24:03 +02:00
luca.mazzoleni	736065eaad	Merge branch 'master' into develop	2023-09-28 09:17:08 +02:00
luca.mazzoleni	09ce7d2d01	Merge branch 'develop'	2023-09-28 09:16:59 +02:00
luca.mazzoleni	84eb8ec1b9	update log	2023-09-28 09:04:29 +02:00
luca.mazzoleni	a2fc9b4ade	Merge remote-tracking branch 'origin/HEAD' into develop	2023-09-28 08:56:02 +02:00
Dario Sassi	bb5b13d122	DataWall : - in Is3EdgesApprox di FreeContour aggiunta cancellazione dei loop temporanei.	2023-09-27 21:06:49 +02:00
luca.mazzoleni	ee04bed533	Merge branch 'master' into develop	2023-09-27 15:23:40 +02:00
luca.mazzoleni	5452ceda9f	Merge branch 'develop'	2023-09-27 15:23:29 +02:00
luca.mazzoleni	a875f9758b	- rem compilazione FeatureTopology	2023-09-27 15:23:08 +02:00
luca.mazzoleni	c091137ffc	Merge branch 'master' into develop	2023-09-27 12:02:23 +02:00
luca.mazzoleni	9d0206984b	Merge commit '84339a584359a77b30d2a0406482357d0930e2e4'	2023-09-27 12:00:20 +02:00
luca.mazzoleni	84339a5843	- aggiunto WFeatureTopology a Compile	2023-09-27 11:59:46 +02:00
luca.mazzoleni	780b0addc1	Merge branch 'master' into develop	2023-09-21 16:56:03 +02:00
luca.mazzoleni	6c1d2e5cc5	Merge branch 'release/2.5i3'	2023-09-21 16:53:04 +02:00
luca.mazzoleni	1c623206df	update log, versione e commenti	2023-09-21 16:52:32 +02:00
luca.mazzoleni	4034898f6e	- in FreeContour e Lapjoint, in MakeByMill, modificato SCC	2023-09-21 16:10:32 +02:00
luca.mazzoleni	aa7099539e	Merge branch 'master' into develop	2023-09-21 15:52:33 +02:00
Dario Sassi	510724a627	Merge branch 'master' of https://gitlab.steamware.net/egaltech/DataWall	2023-09-21 09:49:00 +02:00
Dario Sassi	23a831cf50	DataWall 2.5i3 : - per pulizia corner di FreeContour disabilitato metodo con tunnel ed esteso metodo con tre punti - in LapJoint aggiornata pulizia corner come FreeContour.	2023-09-21 09:47:27 +02:00
luca.mazzoleni	b2fe513d2d	Merge tag '2.5i2' into develop Finish Release: 2.5i2	2023-09-20 10:28:30 +02:00
luca.mazzoleni	4e0a87fbf6	Merge branch 'release/2.5i2'	2023-09-20 10:28:30 +02:00
luca.mazzoleni	e43afd5af4	update log	2023-09-20 10:27:59 +02:00
luca.mazzoleni	8b095a195a	Merge branch 'master' into develop	2023-09-20 10:22:38 +02:00
Dario Sassi	f2a066192f	DataWall 2.5i2 : - corretta impostazione allargamento aree disposizone grezzi su tavola - in LapJoint con una sola faccia controllo lavorabilità ora come per FreeContour - in CleanCorner ora AuxDir (SCC) sempre Z+.	2023-09-20 10:12:51 +02:00
luca.mazzoleni	e59030ed4b	Merge branch 'develop'	2023-09-19 18:33:58 +02:00
luca.mazzoleni	a859e72707	-in FreeContour piccola correzione a alle corner milling	2023-09-19 18:29:58 +02:00
luca.mazzoleni	55050a17d2	Merge branch 'release/2.5i1'	2023-09-19 10:25:12 +02:00
luca.mazzoleni	fa9a8a7e49	Merge tag '2.5i1' into develop Finish Release: 2.5i1	2023-09-19 10:25:12 +02:00
luca.mazzoleni	ff9320993c	update log	2023-09-19 10:24:34 +02:00
luca.mazzoleni	9f32c5fd87	Merge remote-tracking branch 'origin/master' into develop	2023-09-12 18:29:21 +02:00
Dario Sassi	41f85808e2	DataWall 2.5i1 : - correzioni per pulizia corner in FreeContour.	2023-09-12 11:25:15 +02:00
luca.mazzoleni	f1d81ffb4d	Merge tag '2.5h1' into develop Finish Release: 2.5h1	2023-08-07 18:27:13 +02:00
luca.mazzoleni	a4dcf78c9b	Merge branch 'release/2.5h1'	2023-08-07 18:27:13 +02:00
luca.mazzoleni	8ddad9f183	update log e version	2023-08-07 18:27:00 +02:00
luca.mazzoleni	82b518bd54	Merge branch 'master' into develop	2023-08-07 17:08:19 +02:00
luca.mazzoleni	fcd7ee98a0	update log	2023-08-07 17:08:08 +02:00
luca.mazzoleni	d1fe91e68a	Merge branch 'develop'	2023-08-07 17:05:39 +02:00
luca.mazzoleni	b65a4e2220	In Lapjoint -> MakeSideGrooveByMill controllo testa sotto al grezzo escluso se richiesto il move after	2023-08-07 16:40:39 +02:00
luca.mazzoleni	515dbabde9	Merge branch 'release/2.5g4'	2023-08-01 14:56:10 +02:00
luca.mazzoleni	ea8852115c	Merge tag '2.5g4' into develop Finish Release: 2.5g4	2023-08-01 14:56:10 +02:00
luca.mazzoleni	dda6389ab2	update log e versione	2023-08-01 14:55:56 +02:00
luca.mazzoleni	69611fb9eb	in ProcessLapJoint->SideGroove migliorato il controllo che la testa non scenda sotto al livello del grezzo (ora usa i diametri minimo e massimo della testa)	2023-08-01 11:39:27 +02:00
luca.mazzoleni	25a533dbf4	Merge branch 'hotfix/2.5g3H1'	2023-07-27 18:32:58 +02:00
luca.mazzoleni	3e189d6421	Merge tag '2.5g3H1' into develop Finish Hotfix: 2.5g3H1	2023-07-27 18:32:58 +02:00
luca.mazzoleni	9bba651886	corretto bug in MachiningLib -> AddMachining che contempla il caso in cui Proc non sia una tabella	2023-07-27 18:31:58 +02:00
luca.mazzoleni	e1a5625f18	Merge branch 'release/2.5g3'	2023-07-26 18:26:16 +02:00
luca.mazzoleni	ff3a738d91	Merge tag '2.5g3' into develop Finish Release: 2.5g3	2023-07-26 18:26:16 +02:00
luca.mazzoleni	8225bc93d5	update log e versione	2023-07-26 18:26:00 +02:00
luca.mazzoleni	59c9e6d1cd	In Freecontour->MakeByCut migliorata la scelta della fresa secondaria in caso non sia disponibile una fresa di lunghezza sufficiente	2023-07-26 16:31:14 +02:00
luca.mazzoleni	eae34681f3	In ProcessCut angolo Z minimo ora gestito tramite costante da WallData CUT_VZ_MIN (default -0.5)	2023-07-26 15:11:59 +02:00
luca.mazzoleni	098ef8deaf	Merge branch 'release/2.5g2'	2023-07-26 11:39:35 +02:00
luca.mazzoleni	7f10b7219a	Merge tag '2.5g2' into develop Finish Release: 2.5g2	2023-07-26 11:39:35 +02:00
luca.mazzoleni	8cfd505f81	update log e versione	2023-07-26 11:19:26 +02:00
luca.mazzoleni	7f29b951c8	Merge branch 'feature/SideStepOnGroove' into develop	2023-07-25 18:31:11 +02:00
luca.mazzoleni	75d0d7fd13	- piccola correzione alla ricerca utensile SideGroove	2023-07-25 18:30:57 +02:00
luca.mazzoleni	808536a3aa	- in LapJoint aggiunte passate laterali per SideGroove, se specificato SIDESTEP nelle note utensile - piccole correzioni minori	2023-07-25 12:56:22 +02:00
luca.mazzoleni	d959e46f50	fix commenti	2023-07-10 15:19:07 +02:00
luca.mazzoleni	a156b5d703	in ProcessLapJoint->SideGroove viene ora impedito di lavorare una groove se la testa deve scendere sotto al limite superiore del grezzo	2023-07-10 15:16:01 +02:00
luca.mazzoleni	fe26308388	Merge branch 'master' into develop	2023-07-04 11:26:13 +02:00
luca.mazzoleni	9846bf2598	Merge branch 'develop'	2023-07-04 11:26:01 +02:00
luca.mazzoleni	d3c43fdec1	update log	2023-07-04 11:25:43 +02:00
luca.mazzoleni	cb26d23639	Merge tag '2.5g1' into develop Finish Release: 2.5g1	2023-07-04 11:23:29 +02:00
luca.mazzoleni	7b991ddc7a	Merge branch 'release/2.5g1'	2023-07-04 11:23:28 +02:00
luca.mazzoleni	c685b0c4c5	Merge branch 'master' into develop	2023-07-04 11:22:34 +02:00
DarioS	62d1c3cb29	DataWall 2.5g1 : - sistemazione versione.	2023-07-04 08:53:33 +02:00
DarioS	ed05f04de6	Merge branch 'master' of https://gitlab.steamware.net/egaltech/DataWall	2023-07-04 08:49:03 +02:00
DarioS	aa341ed2b3	DataWall : - modifica per posizione default del grezzo (ora assegno 0 per lasciare il compito a WD.GetOrigCorner di macchina).	2023-07-04 08:48:17 +02:00
luca.mazzoleni	18fb6622f5	Merge tag '2.5f3' into develop Finish Release: 2.5f3	2023-06-30 16:30:34 +02:00
luca.mazzoleni	7f3aba6d1d	Merge branch 'release/2.5f3'	2023-06-30 16:30:34 +02:00
luca.mazzoleni	abfee0334d	update log e versione	2023-06-30 16:28:40 +02:00
luca.mazzoleni	e34ac566e1	-In LapJoint aggiunta lettura delle note esistenti dalle lavorazioni per evitare di sovrascriverle - Alcune piccole correzioni	2023-06-30 16:22:17 +02:00
luca.mazzoleni	9838bc7f31	Merge tag '2.5f2' into develop Finish Release: 2.5f2	2023-06-28 11:35:36 +02:00
luca.mazzoleni	dcc1e5b543	Merge branch 'release/2.5f2'	2023-06-28 11:35:35 +02:00
luca.mazzoleni	01260c7278	update log	2023-06-28 11:34:47 +02:00
luca.mazzoleni	f2bdb23f9d	Merge branch 'master' into develop	2023-06-28 11:33:58 +02:00
DarioS	1131948d33	DataWall 2.5f2 : - aggiunte due nuove origini (TN e BN che come X usano WD.NEW_REF), in totale ora sono 8.	2023-06-28 10:50:00 +02:00
luca.mazzoleni	be33225242	corretto update log	2023-06-19 18:26:16 +02:00
luca.mazzoleni	2db0e4b8a9	Merge tag '2.5f1' into develop Finish Release: 2.5f1	2023-06-13 10:01:07 +02:00
luca.mazzoleni	8b3bb67710	Merge branch 'release/2.5f1'	2023-06-13 10:01:07 +02:00
luca.mazzoleni	f9f6462dc2	update log e version	2023-06-13 10:00:51 +02:00
luca.mazzoleni	47b3298e89	modifica GetWallData per passare costante BTL_PRIORITY all'interfaccia	2023-06-13 09:55:28 +02:00
luca.mazzoleni	4f1c652dc0	- fix minore per priorità da btl	2023-06-08 15:01:18 +02:00
luca.mazzoleni	de9fa79f8a	- negli outline con priorità da btl aggiunta la rimozione sfridi per la lavorazione successiva	2023-06-07 18:28:12 +02:00
luca.mazzoleni	f6caf21581	Merge branch 'feature/RecessedCounterbore' into develop	2023-06-06 12:57:00 +02:00