Merge branch 'Test/Q_OnlyDrillContour' into develop

- Piccole modifiche alla gestione
- Step diventa il 75% del teorico o se più piccolo, il diametro utensile

LuaLibs/BeamExec.lua

@@ -1508,7 +1508,7 @@ local function AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, bN
    -- se foratura ( 3/4-040-X)
    elseif Drill.Identify( Proc) then
       -- esecuzione foratura
-      bOk, sErr = Drill.Make( Proc, nPhase, nRawId, nPartId)
+      bOk, sErr = Drill.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    -- se giunzione francese ( 1/2-035-X)
    elseif FrenchRidgeLap.Identify( Proc) then
       -- esecuzione giunzione francese

LuaLibs/ProcessDrill.lua

@@ -134,7 +134,8 @@ function ProcessDrill.Split( Proc, b3Raw)
    local bOpen = ( Proc.Fce ~= 0) and ( Proc.Fce ~= Proc.Fcs)
    -- recupero flag abilitazione split (0=auto,1=no)
    local bTrySplit = ( EgtGetInfo( Proc.Id, 'Q02', 'i') ~= 1)
-   if not bTrySplit then
+   local bOnlyContour = ( EgtGetInfo( Proc.Id, 'Q04', 'i') == 1)
+   if ( not bTrySplit) or bOnlyContour then
       return false
    end
    -- restituisco se va fatto in doppio (solo fori orizzontali)
@@ -341,7 +342,13 @@ end
 
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione
-function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
+function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
+   -- Se forzato contorno foro forzo richiamo a FreeContour e uscita dalla funzione
+   if EgtGetInfo( Proc.Id, 'Q04', 'i') == 1 then
+      _G.package.loaded.ProcessFreeContour = nil
+      local FreeContour = require( 'ProcessFreeContour')
+      return FreeContour.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
+   end
    -- default per costanti
    BD.DRILL_VX_MAX_ANGLEDRILL = ( BD.DRILL_VX_MAX_ANGLEDRILL or 0.928)
    -- ingombro del pezzo

LuaLibs/ProcessDtMortise.lua

@@ -638,20 +638,44 @@ function ProcessDtMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
       -- sistemo il lato e la direzione di lavoro
       EgtSetMachiningParam( MCH_MP.WORKSIDE, EgtIf( bCW, MCH_MILL_WS.LEFT, MCH_MILL_WS.RIGHT))
       EgtSetMachiningParam( MCH_MP.INVERT, EgtIf( bCW, false, true))
+      local ptS = EgtSP( AuxId, GDB_ID.ROOT)
+      local ptE = EgtEP( AuxId, GDB_ID.ROOT)
       -- in presenza di pocket imposto dati ingresso e uscita
       if bPocket then
+         -- recupero il contorno della tasca (seconda curva ausiliaria)
+         local vAuxId = EgtGetInfo( Proc.Id, 'AUXID', 'vi')
+         -- si prende il centro del percorso da svuotare ( non si controlla che sia presente perchè già verificata in precedenza)
+         local ptPocketCenter = EgtGP( Proc.Id + vAuxId[2], GDB_ID.ROOT)
+         -- calcolo componente tangente e lineare di ingresso
+         local vtS = EgtSV( Proc.Id + vAuxId[1], GDB_ID.ROOT)                                   -- vettore entrante percorso
+         local vtOffS = EgtSV( Proc.Id + vAuxId[1], GDB_ID.ROOT) ;  vtOffS:rotate( vtExtr, 90)  -- vettore da punto iniziale a centro utensile
+         local vtStartToCenter = ptPocketCenter - ( ptS + ( vtOffS * ( dToolDiam/2)))           -- vettore da centro utensilenel punto iniziale e centro del percorso da svuotare
+         local dLenStartToCenter = vtStartToCenter:len()                                        -- distanza da centro utensile a centro del percorso da svuotare
+         local dStartTangComp = abs( vtStartToCenter * vtS)                                     -- prodotto scalare tra vettore entrante e vettore tra centro utensilee percordo da svuotare (componente tangente)
+         local dStartPerpComp = sqrt( dLenStartToCenter^2 - dStartTangComp^2)                   -- pitagora tra componente tangente e la lunghezza tra i due centri
+         -- calcolo componente tangente e lineare di uscita
+         local vtE = EgtEV( Proc.Id + vAuxId[1], GDB_ID.ROOT)
+         local vtOffE = EgtEV( Proc.Id + vAuxId[1], GDB_ID.ROOT) ;  vtOffE:rotate( vtExtr, 90)
+         local vtEndToCenter = ptPocketCenter - ( ptE + ( vtOffE * ( dToolDiam/2)))
+         local dLenEndToCenter = vtEndToCenter:len()
+         local dEndTangComp = abs( vtEndToCenter * vtE)
+         local dEndPerpComp = sqrt( dLenEndToCenter^2 - dEndTangComp^2)
+
          EgtSetMachiningParam( MCH_MP.STARTPOS, 5)
          EgtSetMachiningParam( MCH_MP.LEADINTYPE, MCH_MILL_LI.TANGENT)
-         EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LO.AS_LI)
-         EgtSetMachiningParam( MCH_MP.STARTADDLEN, 5)
-         EgtSetMachiningParam( MCH_MP.ENDADDLEN, 0)
-         EgtSetMachiningParam( MCH_MP.LITANG, dToolDiam / 2)
-         EgtSetMachiningParam( MCH_MP.LIPERP, 5)
+         EgtSetMachiningParam( MCH_MP.LITANG, dStartTangComp)
+         EgtSetMachiningParam( MCH_MP.LIPERP, dStartPerpComp)
          EgtSetMachiningParam( MCH_MP.LIELEV, 0)
+
+         EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LI.TANGENT)
+         EgtSetMachiningParam( MCH_MP.LOTANG, dEndTangComp)
+         EgtSetMachiningParam( MCH_MP.LOPERP, dEndPerpComp)
+         EgtSetMachiningParam( MCH_MP.LOELEV, 0)
+
+         EgtSetMachiningParam( MCH_MP.STARTADDLEN, 0)
+         EgtSetMachiningParam( MCH_MP.ENDADDLEN, 0)
       -- altrimenti verifico se sono bilanciati ingresso e uscita, per evitare inizio o fine nel legno
       else
-         local ptS = EgtSP( AuxId, GDB_ID.ROOT)
-         local ptE = EgtEP( AuxId, GDB_ID.ROOT)
          local dDistS = abs( ( ptS - rfDtMrt:getOrigin()) * rfDtMrt:getVersX())
          local dDistE = abs( ( ptE - rfDtMrt:getOrigin()) * rfDtMrt:getVersX())
          local dIni, dFin = EgtCurveDomain( AuxId)

LuaLibs/ProcessFreeContour.lua

@@ -29,11 +29,13 @@ local ML = require( 'MachiningLib')
 local Q_DIM_STRIP = 'Q01'  -- d
 local Q_DEPTH_CHAMFER = 'Q02' -- d
 local Q_OVERMAT_FOR_FINISH = 'Q03' -- d
+local Q_ONLY_CONTOUR = 'Q04' -- i, valido solo per drill
 local Q_ONLY_CHAMFER = 'Q00' -- i
 local Q_RADIAL_OFFSET = 'Q06' -- d, valido solo per pocket
 local Q_IGNORE_LASER_PROBLEMS = 'Q07'
 local Q_FORCE_CLAMPABLE_AREA = 'Q08'
 local Q_INVERT_LAST_PATH = 'Q09'
+local Q_MAX_ELEVATION = 'Q10' -- d
 
 ---------------------------------------------------------------------
 -- Riconoscimento della feature
@@ -184,6 +186,8 @@ local function VerifyChamfer( Proc, AuxId, nRawId, bMakeVertCham, bDownHead)
          EgtOutLog( sErr)
          return -1, 0, sErr
       end
+   else
+      sMilling = ''
    end
 
    return nChamfer, dDepth, sMilling
@@ -235,6 +239,7 @@ end
 local function MakeByMill( Proc, nPhase, nRawId, nPartId, dOvmHead)
    -- recupero l'ingombro del grezzo di appartenenza
    local b3Raw = EgtGetRawPartBBox( nRawId)
+   local bContourFromDrill = EgtGetInfo( Proc.Id, Q_ONLY_CONTOUR, 'i') == 1
    -- ingombro del pezzo
    local Ls = EgtGetFirstNameInGroup( nPartId, 'Box')
    local b3Solid = EgtGetBBoxGlob( Ls or GDB_ID.NULL, GDB_BB.STANDARD)
@@ -259,7 +264,7 @@ local function MakeByMill( Proc, nPhase, nRawId, nPartId, dOvmHead)
    -- verifico se in testa o coda
    local bHead = Proc.Head
    -- verifico i parametri Q per profondità smusso e per eseguirlo in esclusiva
-   local nChamfer, dDepthCham, sChamfer = VerifyChamfer( Proc, AuxId, nRawId, true)
+   local nChamfer, dDepthCham, sChamfer = VerifyChamfer( Proc, AuxId, nRawId, true, nil)
    -- recupero la lavorazione
    local bTopHead = ( BD.DOWN_HEAD and vtExtr:getZ() > -0.1)
    local bDownHead = ( BD.DOWN_HEAD and vtExtr:getZ() < 0.1)
@@ -631,6 +636,14 @@ local function MakeByMill( Proc, nPhase, nRawId, nPartId, dOvmHead)
                EgtOutLog( sErr)
                return false, sErr
             end
+            -- eventuale elevazione forzata
+            local dCustomMaxElev = EgtGetInfo( Proc.Id, Q_MAX_ELEVATION, 'd')
+            if dCustomMaxElev and dCustomMaxElev < 1 then dCustomMaxElev = nil end
+            if dCustomMaxElev then
+               local sUserNotes = EgtGetMachiningParam( MCH_MP.USERNOTES) or ''
+               sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( dCustomMaxElev, 1))
+               EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
+            end
             -- assegno affondamento
             EgtSetMachiningParam( MCH_MP.DEPTH, dDepth)
          end
@@ -663,7 +676,9 @@ local function MakeByMill( Proc, nPhase, nRawId, nPartId, dOvmHead)
          end
          
          -- assegno lato di lavoro
-         if Proc.Grp == 0 then
+         if bContourFromDrill then
+            dWorkSide = MCH_MILL_WS.LEFT
+         elseif Proc.Grp == 0 then
             dWorkSide = MCH_MILL_WS.CENTER
          elseif ( Proc.Grp == 3 and not bToolInv) or ( Proc.Grp == 4 and bToolInv) or ( Proc.Grp == 1 and bToolInv) or ( Proc.Grp == 2 and bToolInv) then
             dWorkSide = MCH_MILL_WS.LEFT
@@ -695,6 +710,14 @@ local function MakeByMill( Proc, nPhase, nRawId, nPartId, dOvmHead)
          EgtSetMachiningParam( MCH_MP.TOOLINVERT, bToolInvert)
          EgtSetMachiningParam( MCH_MP.INVERT, bInvert)
          EgtSetMachiningParam( MCH_MP.WORKSIDE, dWorkSide)
+         -- setto valori specifici se lavorazione nel pieno del solo contorno di un foro
+         if bContourFromDrill then
+            local dWorkStep = max( ( EgtGetMachiningParam( MCH_MP.STEP) or 0) * 0.75, dToolDiam)
+            EgtSetMachiningParam( MCH_MP.STEP, dWorkStep)
+            EgtSetMachiningParam( MCH_MP.LEADINTYPE, MCH_MILL_LI.GLIDE)
+            EgtSetMachiningParam( MCH_MP.LIELEV, dWorkStep)
+            EgtSetMachiningParam( MCH_MP.LITANG, dWorkStep)
+         end
 
 
          -- posizione braccio porta testa
@@ -995,6 +1018,10 @@ function ProcessFreeContour.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
       Q_DEPTH_CHAMFER = 'Q01'
       Q_DIM_STRIP = 'Q02'
    end
+   if Proc.Prc == 40 then
+      Q_DIM_STRIP = ''
+      Q_OVERMAT_FOR_FINISH = ''
+   end
    -- recupero la tipologia
    local bPocket = ( EgtGetInfo( Proc.Id, 'PCKT', 'i') == 1)
    -- se svuotatura

LuaLibs/ProcessLapJoint.lua

@@ -3536,7 +3536,7 @@ local function MakePocket( Proc, nPartId, b3Solid, ptPs, tvtN, nFaceRef, sMchFin
       EgtOutLog( sErr)
       return false, sErr
    end
-   -- aggiungo geometria
+   -- aggiungo geometria (se presente curva si lavora quella)
    if Proc.LoopIdFacInd then
       EgtSetMachiningGeometry( { Proc.LoopIdFacInd})
    else
@@ -8014,12 +8014,11 @@ local function MakeLongMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead)
    local bPrevBhSideMill
    for i = 1, #vAddId do
       local b3Box = EgtGetBBoxGlob( vAddId[i], GDB_BB.STANDARD)
-      local nFct = EgtSurfTmFacetCount( vAddId[i]) 
+      local nFct = EgtSurfTmFacetCount( vAddId[i])
       local AddProc = { Id = vAddId[i], Grp = Proc.Grp, Prc = Proc.Prc, Box = b3Box, TotBox = Proc.Box, Fct = nFct, Flg = Proc.Flg, PartId = Proc.PartId, TaskId = Proc.TaskId, FeatureId = Proc.FeatureId, IsSplittedLapJoint = true, AffectedFaces = Proc.AffectedFaces, OkFromBottom = Proc.OkFromBottom}
       Topology.Classify( AddProc, b3Raw)
-
-
-      if i > 1 and 
+      -- con specifiche topologie si lavora la curva e si forza il lato aperto dove finisce la lavorazione precedente
+      if i > 1 and
          ( ( Proc.Topology == 'Groove' and  Proc.IsThrough and Proc.Fct == 3 and Proc.AffectedFaces.Left and Proc.AffectedFaces.Right)
          or ( Proc.Topology == 'Groove' and Proc.Fct == 4 and ( Proc.AffectedFaces.Left or Proc.AffectedFaces.Right))
          or Proc.Topology == 'Pocket') then
@@ -8033,8 +8032,6 @@ local function MakeLongMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead)
             end
          end
       end
-
-
       -- lasciare il false nel sesto parametro (perchè internamente viene verificato se diverso da nil)
       local bOk, sMyWarn
       bOk, sMyWarn, bPrevBhSideMill = MakeMoreFaces( AddProc, nPhase, nRawId, nPartId, dOvmHead, bAllWithEndCap, bPrevBhSideMill, bAllWithEndCap)