DataBeam :

- correzioni e migliorie varie
- aggiunta gestione lavorazioni BlockHausFront e FrenchRidgeLap.

LuaLibs/BeamExec.lua

@@ -3,7 +3,9 @@
 -- 2019/07/11 Aggiunta gestione stato rotazione di feature per TS3.
 -- 2019/09/04 Corretto controllo feature di testa e coda con sovramateriale di testa elevato.
 -- 2019/09/25 Aggiunta gestione StepJoint e StepJointNotch
--- 2020/01/21 Aggiunta gestione ScarfJoint.
+-- 2020/01/21 Aggiunta gestione ScarfJoint
+-- 2020/02/10 Aggiunta gestione FrenchRidgeLap
+-- 2020/02/11 Aggiunta gestione BlockHouseFront
 
 -- Tabella per definizione modulo
 local BeamExec = {}
@@ -51,6 +53,10 @@ _G.package.loaded.ProcessChamfer = nil
 local Chamfer = require( 'ProcessChamfer')
 _G.package.loaded.ProcessDrill = nil
 local Drill = require( 'ProcessDrill')
+_G.package.loaded.ProcessFrenchRidgeLap = nil
+local FrenchRidgeLap = require( 'ProcessFrenchRidgeLap')
+_G.package.loaded.ProcessBlockHouseFront = nil
+local BlockHouseFront = require( 'ProcessBlockHouseFront')
 _G.package.loaded.ProcessTenon = nil
 local Tenon = require( 'ProcessTenon')
 _G.package.loaded.ProcessMortise = nil
@@ -224,7 +230,7 @@ local function IsHeadFeature( Proc, b3Raw, dCurrOvmH)
    end
    -- feature sempre di testa o coda nonostante il gruppo
    if ( Proc.Grp == 3 or Proc.Grp == 4) and
-      ( Proc.Prc == 51 or Proc.Prc == 56 or Proc.Prc == 100 or Proc.Prc == 101 or Proc.Prc == 102 or Proc.Prc == 103 or Proc.Prc == 106) then
+      ( Proc.Prc == 38 or Proc.Prc == 51 or Proc.Prc == 56 or Proc.Prc == 100 or Proc.Prc == 101 or Proc.Prc == 102 or Proc.Prc == 103 or Proc.Prc == 106) then
       return ( Proc.Box:getCenter():getX() > b3Raw:getCenter():getX() - 0.5 * dCurrOvmH)
    end
    -- gestioni speciali
@@ -252,7 +258,7 @@ local function IsTailFeature( Proc, b3Raw, dCurrOvmH)
    end
    -- feature sempre di testa o coda nonostante il gruppo
    if ( Proc.Grp == 3 or Proc.Grp == 4) and
-      ( Proc.Prc == 51 or Proc.Prc == 56 or Proc.Prc == 100 or Proc.Prc == 101 or Proc.Prc == 102 or Proc.Prc == 103 or Proc.Prc == 106) then
+      ( Proc.Prc == 38 or Proc.Prc == 51 or Proc.Prc == 56 or Proc.Prc == 100 or Proc.Prc == 101 or Proc.Prc == 102 or Proc.Prc == 103 or Proc.Prc == 106) then
       return ( Proc.Box:getCenter():getX() < b3Raw:getCenter():getX() - 0.5 * dCurrOvmH)
    end
    -- gestioni speciali
@@ -519,6 +525,12 @@ local function ClassifyFeatures( vProc, b3Raw, Stats)
       -- se tenone
       elseif Tenon.Identify( Proc) then
          bOk, bDown = Tenon.Classify( Proc, b3Raw)
+      -- se giunzione francese
+      elseif FrenchRidgeLap.Identify( Proc) then
+         bOk, bDown = FrenchRidgeLap.Classify( Proc)
+      -- se block house front
+      elseif BlockHouseFront.Identify( Proc) then
+         bOk, bDown = BlockHouseFront.Classify( Proc)
       -- se mortasa (anche frontale)
       elseif Mortise.Identify( Proc) then
          bOk, bDown = Mortise.Classify( Proc)
@@ -656,6 +668,7 @@ local function AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, b3
       -- esecuzione mezzo-legno di testa
       bOk, sErr = RidgeLap.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    -- se mezzo-legno ( 3/4-030-X) o scanalatura ( 3/4-016-X) o tacca ( 3/4-020-X)
+   -- o block house ( 4-037-X)
    elseif LapJoint.Identify( Proc) then
       -- esecuzione mezzo-legno o scanalatura
       bOk, sErr = LapJoint.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
@@ -667,6 +680,14 @@ local function AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, b3
    elseif Drill.Identify( Proc) then
       -- esecuzione foratura
       bOk, sErr = Drill.Make( Proc, nPhase, nRawId, nPartId)
+   -- se giunzione francese ( 1/2-035-X)
+   elseif FrenchRidgeLap.Identify( Proc) then
+      -- esecuzione giunzione francese
+      bOk, sErr = FrenchRidgeLap.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
+   -- se block house front ( 3/4-038-X)
+   elseif BlockHouseFront.Identify( Proc) then
+      -- esecuzione giunzione francese
+      bOk, sErr = BlockHouseFront.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    -- se tenone ( 1/2-050-X)
    elseif Tenon.Identify( Proc) then
       -- esecuzione tenone
@@ -699,11 +720,11 @@ local function AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, b3
    elseif Scarf.Identify( Proc) then
       -- esecuzione giunto Gerber
       bOk, sErr = Scarf.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
-   -- se giunto a gradino
+   -- se giunto a gradino ( 1/2-080-X)
    elseif StepJoint.Identify( Proc) then
       -- esecuzione giunto a gradino
       bOk, sErr = StepJoint.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
-   -- se tacca a gradino
+   -- se tacca a gradino ( 3/4-080-X)
    elseif StJoNotch.Identify( Proc) then
       -- esecuzione tacca a gradino
       bOk, sErr = StJoNotch.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)