DataBeam :

- migliorie e correzioni varie
- unificati BirdsMouth con LapJoint.

LuaLibs/ProcessFreeContour.lua

@@ -1,4 +1,4 @@
--- ProcessFreeContour.lua by Egaltech s.r.l. 2019/06/13
+-- ProcessFreeContour.lua by Egaltech s.r.l. 2019/06/29
 -- Gestione calcolo profilo libero per Travi
 
 -- Tabella per definizione modulo
@@ -66,13 +66,13 @@ function ProcessFreeContour.Classify( Proc)
    if not bPocket then
       return true, false
    end
-   -- è pocket, devo verificare la normale del piano di svuotatura (sempre ultima faccia)
-   local nFacet = Proc.Fct - 1
-   local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, nFacet, GDB_ID.ROOT)
-   -- verifico sia una superficie
-   if not vtN then
+   -- è pocket, devo verificare la normale del piano di svuotatura (versore estrusione del contorno)
+   local AuxId = EgtGetInfo( Proc.Id, 'AUXID', 'i') or 0
+   if not AuxId then 
       return false
    end
+   AuxId = AuxId + Proc.Id
+   local vtN = EgtCurveExtrusion( AuxId, GDB_RT.GLOB)
    -- verifico se la feature è lavorabile solo da sotto (tasca con normale verso il basso)
    local bDown = ( vtN:getZ() < - 0.1)
    return true, bDown
@@ -219,7 +219,7 @@ local function MakeByPocket( Proc, nPhase, nRawId, nPartId, dOvmHead)
    local vtExtr = EgtCurveExtrusion( AuxId, GDB_RT.GLOB)
    --local bToolInv = ( vtExtr:getZ() < -0.1)
    -- recupero la lavorazione
-   local sPocketing = ML.FindPocketing( 'Mortise')
+   local sPocketing = ML.FindPocketing( 'Pocket', dDepth)
    if not sPocketing then
       local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' pocketing not found in library'
       EgtOutLog( sErr)