DataBeam :

- in LapJoint e assimilati correzioni per riconoscimento feature di coda - corretti tagli di lama lunghi da testa a coda su pezzi piccoli (Egger) - corretto orientamento tagli ortogonali in DiceCut di una sola faccia - corretto calcolo ingombro taglio doppio concavo in testa.
2021-02-03 12:07:11 +00:00
parent d1d86f0629
commit 406c0f3e6d
5 changed files with 37 additions and 22 deletions
@@ -1,4 +1,4 @@
-- DiceCut.lua by Egaltech s.r.l. 2021/01/21
+-- DiceCut.lua by Egaltech s.r.l. 2021/02/02
 -- Gestione dei piano paralleli nei tagli lunghi: equidistanziamento dei piani paralleli

 -- Tabella per definizione modulo
@@ -461,7 +461,7 @@ function DiceCut.GetDice( nParent, BBoxRawPart, ptCPlanes, vtNPlanes, bGetOrtoPl
   else
      for PlnInd = 1, #TabellaTmSurfP do
         -- piano interno
-         local ptCInner, vtNInner = EgtSurfTmFacetCenter( TabellaTmSurfP[PlnInd], 0, GDB_ID.ROOT)  
+         local ptCInner, vtNInner = EgtSurfTmFacetCenter( TabellaTmSurfP[PlnInd], 0, GDB_ID.ROOT)
         -- eventuale piano esterno
         local ptCOuter, vtNOuter = nil, nil
         if PlnInd > 1 then
@@ -480,7 +480,7 @@ function DiceCut.GetDice( nParent, BBoxRawPart, ptCPlanes, vtNPlanes, bGetOrtoPl
                  vtO = -vtO
               end
            else
-               if ptCInner:getX() > BBoxRawPart:getCenter():getX() then
+               if vtNInner:getX() > -0.017 then
                  if vtO:getX() < 0 then vtO = - vtO end
               else
                  if vtO:getX() > 0 then vtO = - vtO end
@@ -16,7 +16,9 @@ local BD = require( 'BeamData')
 local ML = require( 'MachiningLib')

 ---------------------------------------------------------------------
-function FacesBySaw.MakeTwo( Proc, nPhase, nRawId, nPartId, dOvmHead, sCutName)
+function FacesBySaw.MakeTwo( Proc, nPhase, nRawId, nPartId, dOvmHead, sCutName, bUpdateIng)
+   -- bUpdateIng : parametro opzionale con default true
+   if bUpdateIng == nil then bUpdateIng = true end 
   -- recupero l'ingombro del grezzo di appartenenza
   local b3Raw = EgtGetRawPartBBox( nRawId)
   -- ingombro del pezzo
@@ -148,7 +150,7 @@ function FacesBySaw.MakeTwo( Proc, nPhase, nRawId, nPartId, dOvmHead, sCutName)
   end
   -- eventuale segnalazione ingombro di testa o coda
   local dMinHIng = min( 0.5 * BD.VICE_MINH, 0.5 * b3Raw:getDimZ())
-   if Proc.Box:getDimZ() > dMinHIng and Proc.Box:getMin():getZ() < b3Raw:getMin():getZ() + dMinHIng then
+   if bUpdateIng and Proc.Box:getDimZ() > dMinHIng and Proc.Box:getMin():getZ() < b3Raw:getMin():getZ() + dMinHIng then
      if Proc.Head then
         local dOffs = b3Solid:getMax():getX() - Proc.Box:getMin():getX()
         BL.UpdateHCING( nRawId, dOffs)
@@ -1,4 +1,4 @@
-- ProcessCut.lua by Egaltech s.r.l. 2021/01/20
+-- ProcessCut.lua by Egaltech s.r.l. 2021/02/02
 -- Gestione calcolo singoli tagli di lama per Travi

 -- Tabella per definizione modulo
@@ -188,13 +188,13 @@ function ProcessCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bFromBottom,
      EgtOutLog( sErr)
      return false, sErr
   end
-   local dNzLimDwnUp = BL.GetNzLimDownUp( b3Raw)
   -- dati geometrici del taglio
   local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, 0, GDB_ID.ROOT)
+   -- limiti di taglio  (se molto di lato e inclinati sono permessi fino a -45deg)
+   local dNzLimDwnUp = BL.GetNzLimDownUp( b3Raw)
+   if not BD.C_SIMM and abs( vtN:getX()) < 0.5 then dNzLimDwnUp = -0.707 end
   local bDownCut = ( vtN:getZ() <= dNzLimDwnUp)
   if bFromBottom == nil then bFromBottom = ( b3Solid:getDimX() <  BD.LEN_SHORT_PART and vtN:getZ() > 0.25) end
-   local bFillAreaPiece
-   local bFillTail
   -- se taglio di testa
   if Proc.Head then
      -- se coincide con il taglio di separazione precedente, non va fatto
@@ -213,6 +213,8 @@ function ProcessCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bFromBottom,
      return true
   end
   -- se pezzo ancora attaccato alla trave, per non rovinare quello successivo
+   local bFillAreaPiece
+   local bFillTail
   if not BL.IsSplittedPartPhase( nPhase) then
      -- se non da sotto
      if not bDownCut then
@@ -294,7 +296,8 @@ function ProcessCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bFromBottom,
   local dMaxVertDepth = dMaxDepth - ( BD.DECR_VERT_CUT or 0)
   -- determino la direzione di taglio preferenziale
   local _, dCutH, dCutV = BL.GetFaceHvRefDim( Proc.Id, 0)
-   local bHorizCut = (( dCutV < dMaxVertDepth - BD.CUT_EXTRA and dCutH > dMaxDepth - BD.CUT_EXTRA) and not bDownCut)
+   local bHorizCut = ( dCutV < dMaxVertDepth - BD.CUT_EXTRA and not bDownCut)
+   --local bHorizCut = (( dCutV < dMaxVertDepth - BD.CUT_EXTRA and dCutH > dMaxDepth - BD.CUT_EXTRA) and not bDownCut)
   -- verifico se necessari tagli supplementari
   EgtOutLog( string.format( 'MaxDepth=%.1f MaxVertDepth=%.1f CutH=%.1f CutV=%.1f', dMaxDepth, dMaxVertDepth, dCutH, dCutV), 3)
   local vCuts = {}
@@ -432,8 +435,6 @@ function ProcessCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bFromBottom,
      end
   -- altrimenti tagli diretti della faccia
   else
-      -- tagli molto di lato e inclinati sono permessi fino a -45deg
-      if abs( vtN:getX()) < 0.5 then dNzLimDwnUp = -0.707 end
      -- lavoro la faccia
      local vtOrthoO
      if bFromBottom and dCutV < dMaxVertDepth - BD.CUT_EXTRA and vtN:getZ() > 0 then
@@ -1,4 +1,4 @@
-- ProcessDoubleCut.lua by Egaltech s.r.l. 2021/12/25
+-- ProcessDoubleCut.lua by Egaltech s.r.l. 2021/22/02
 -- Gestione calcolo doppi tagli di lama per Travi

 -- Tabella per definizione modulo
@@ -266,7 +266,7 @@ function ProcessDoubleCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
         end
      -- altrimenti, tagli diretti delle facce
      else
-         local bOk, sErr = Fbs.MakeTwo( Proc, nPhase, nRawId, nPartId, dOvmHead, EgtIf( bHead, 'HeadSide', 'TailSide'))
+         local bOk, sErr = Fbs.MakeTwo( Proc, nPhase, nRawId, nPartId, dOvmHead, EgtIf( bHead, 'HeadSide', 'TailSide'), false)
         if not bOk then
            return bOk, sErr
         end
@@ -275,14 +275,23 @@ function ProcessDoubleCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
   -- eventuale segnalazione ingombro di testa o coda (se non convesso, altrimenti già fatto nei tagli singoli)
   if not bConvex then
      if Proc.Head then
-         local dOffs = b3Raw:getMax():getX() - dOvmHead - Proc.Box:getMin():getX()
-         if vtNm:getZ() > 0.5 then
-            dOffs = 0.4 * dOffs
-         elseif abs( vtNm:getZ()) > 0.35 then
-            dOffs = 0.75 * dOffs
+         -- intersezioni con linee a metà altezza appena dentro dal davanti e dal dietro
+         local ptRef = b3Raw:getCenter() - 0.5 * b3Raw:getDimX() * X_AX()
+         local ptL1 = ptRef - ( 0.5 * b3Raw:getDimY() - 0.1) * Y_AX()
+         local ptL2 = ptRef + ( 0.5 * b3Raw:getDimY() - 0.1) * Y_AX() 
+         local bInt1, IntTy1, IntPar1 = EgtLineSurfTmInters( ptL1, X_AX(), Proc.Id, GDB_ID.ROOT) 
+         local bInt2, IntTy2, IntPar2 = EgtLineSurfTmInters( ptL2, X_AX(), Proc.Id, GDB_ID.ROOT) 
+         local dMinPar = b3Raw:getDimX()
+         if IntPar1 and #IntPar1 > 0 then
+            dMinPar = min( dMinPar, IntPar1[1])
         end
+         if IntPar2 and #IntPar2 > 0 then
+            dMinPar = min( dMinPar, IntPar2[1])
+         end
+         local dOffs = b3Raw:getDimX() - dMinPar
         BL.UpdateHCING( nRawId, dOffs)
      elseif Proc.Tail then
+         -- accetto approssimazione più grezza
         local dOffs = Proc.Box:getMax():getX() - b3Solid:getMin():getX()
         if vtNm:getZ() > 0.5 then
            dOffs = 0.4 * dOffs
@@ -1,7 +1,8 @@
-- ProcessLapJoint.lua by Egaltech s.r.l. 2021/01/31
+-- ProcessLapJoint.lua by Egaltech s.r.l. 2021/02/03
 -- Gestione calcolo mezzo-legno per Travi
 -- 2019/10/08 Agg. gestione OpenPocket.
 -- 2021/01/24 Con sega a catena ora sempre impostato asse A.
+-- 2021/02/03 Corretto riconoscimento feature di coda.

 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -437,7 +438,8 @@ function ProcessLapJoint.IsTailFeature( Proc, b3Raw)
      return not bHead
   end
   -- verifico se è in coda
-   if Proc.Box:getMin():getX() > b3Raw:getMin():getX() + BD.MAX_DIST_HTFEA then
+   local dEndDist = Proc.Box:getMin():getX() - b3Raw:getMin():getX()
+   if dEndDist > BD.MAX_DIST_HTFEA then
      return false
   end
   -- la sua lunghezza non deve superare il massimo e 60% della lunghezza della trave
@@ -459,8 +461,9 @@ function ProcessLapJoint.IsTailFeature( Proc, b3Raw)
   if vtN and vtN:getZ() < BD.NZ_MINA and nFacInd2 then
      ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, nFacInd2, GDB_ID.ROOT)
      nFacInd, nFacInd2 = nFacInd2, nFacInd
+      dElev, dElev2 = dElev2, dElev
   end
-   if not vtN or vtN:getX() > -0.499 then
+   if not vtN or vtN:getX() > -0.001 or dEndDist + vtN:getX() * dElev > 0 then
      return false
   else
      return true