DataBeam :

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

LuaLibs/ProcessDrill.lua

@@ -1,4 +1,4 @@
--- ProcessDrill.lua by Egaltech s.r.l. 2019/10/28
+-- ProcessDrill.lua by Egaltech s.r.l. 2020/02/11
 -- Gestione calcolo forature per Travi
 
 -- Tabella per definizione modulo
@@ -97,7 +97,7 @@ function ProcessDrill.Classify( Proc, b3Raw)
       ptCen = ptCen + vtExtr * dLen
    end
    -- verifico se troppo inclinato e quindi non lavorabile
-   if not ( Proc.Fcs == 5 or Proc.Fcs == 6) and abs( vtExtr:getX()) > COS_SLANT_LIM then
+   if not ( Proc.Fcs == 5 or Proc.Fcs == 6 or Proc.Fce == 5 or Proc.Fce == 6) and abs( vtExtr:getX()) > COS_SLANT_LIM then
       return false, false
    end
    local bOpen = ( Proc.Fce ~= 0)
@@ -123,7 +123,7 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
    local dLen = abs( EgtCurveThickness( AuxId))
    local vtExtr = EgtCurveExtrusion( AuxId, GDB_RT.GLOB)
    if Proc.Flg == -2 then vtExtr = - vtExtr end
-   local bOpen = ( Proc.Fcs ~= 0  and  Proc.Fce  ~= 0)
+   local bOpen = ( Proc.Fcs ~= 0  and  Proc.Fce ~= 0)
    -- verifico che il foro non sia fattibile solo da sotto
    local bToInvert = ( vtExtr:getZ() < BD.DRILL_VZ_MIN)
    if bToInvert  and  ( not bOpen or Proc.Flg ~= 1) then
@@ -131,6 +131,7 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
       EgtOutLog( sErr)
       return false, sErr
    end
+   if Proc.Fcs == 0 then bToInvert = true end
    if bToInvert then vtExtr = - vtExtr end
    if Proc.Flg == -2 then bToInvert = true end
    -- recupero la lavorazione
@@ -154,7 +155,7 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
       end
    end
    -- se foro intermedio e inclinato, limito il massimo affondamento
-   if not ( Proc.Fcs == 5 or Proc.Fcs == 6) then
+   if not ( ( Proc.Fcs == 5 or Proc.Fcs == 6) or ( bToInvert and ( Proc.Fce == 5 or Proc.Fce == 6))) then
       local CosB = abs( vtExtr:getX())
       if CosB < COS_SLANT_LIM then
          local TgA = CosB / sqrt( 1 - CosB * CosB)