ProcessDrill : Per Predrill corretta direzione estrusione per fori con direzione verso il basso

LuaLibs/ProcessDrill.lua

@@ -21,6 +21,7 @@
 -- 2023/09/26 Se errore in applicazione lavorazione si inverte e riprova solo se foratura singola su foro aperto.
 -- 2023/11/06 Migliorata gestione dei fori con AngularTransmission.
 -- 2024/03/13 Aggiunta gestione Predrill
+-- 2024/03/18 Per Predrill corretta direzione estrusione per fori con direzione verso il basso
 
 -- Tabella per definizione modulo
 local ProcessDrill = {}
@@ -176,23 +177,21 @@ function ProcessDrill.AddPredrillFromDrillProc( Proc)
       local nPreHoleId = EgtCopyGlob( Proc.Id, nAddGrpId)
       local nPreHoleAux = EgtCopyGlob( Proc.Id + AuxId, nAddGrpId)
 
-      -- se foro invertito sposto geometria dall'altro lato del foro
+      -- se foro invertito sposto geometria dall'altro lato del foro e inverto direzione estrusione
       if Proc.Flg == -2 then
-         local vsExtr = vtExtr * Proc.Len
-         EgtMove( nPreHoleAux, vsExtr)
-         EgtModifyCurveThickness( nPreHoleAux, dDepthPredrill)
-      -- altrimenti creo il foro direttamente
-      else
-         EgtModifyCurveThickness( nPreHoleAux, -dDepthPredrill)
+         local vsExtr = -vtExtr * Proc.Len
+         EgtMove( nPreHoleAux, vsExtr, GDB_RT.GLOB)
+         EgtModifyCurveExtrusion( nPreHoleAux, -vtExtr, GDB_RT.GLOB)
       end
+      EgtModifyCurveThickness( nPreHoleAux, -dDepthPredrill)
 
-      -- definisco dati seconda parte
       local PredrillProc = {}
+      -- definisco dati seconda parte
       PredrillProc.PartId = Proc.PartId
       PredrillProc.Id = nPreHoleId
       PredrillProc.Grp = Proc.Grp
       PredrillProc.Prc = Proc.Prc
-      PredrillProc.Flg = Proc.Flg
+      PredrillProc.Flg = 1
       PredrillProc.Box = Proc.Box
       PredrillProc.Fct = Proc.Fct
       PredrillProc.Diam = Proc.Diam
@@ -200,7 +199,7 @@ function ProcessDrill.AddPredrillFromDrillProc( Proc)
       PredrillProc.Head = Proc.Head
       PredrillProc.Tail = Proc.Tail
       PredrillProc.Fcs = Proc.Fcs
-      PredrillProc.Fce = Proc.Fce
+      PredrillProc.Fce = 0 -- il preforo è sempre chiuso, non ha faccia di uscita
       PredrillProc.CutId = Proc.CutId
       PredrillProc.TaskId = Proc.TaskId
       PredrillProc.AdjId = Proc.AdjId
@@ -527,7 +526,7 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
       dMaxElev = dMaxDepth
    end
    -- inserisco la lavorazione
-   local sName = EgtIf( sType == 'Predrill', 'Predrill_', 'Drill_') .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
+   local sName = EgtIf( EgtStartsWith( sType, 'Predrill'), 'Predrill_', 'Drill_') .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
    local nMchId = EgtAddMachining( sName, sDrilling)
    if not nMchId then
       local sErr = 'Error adding machining ' .. sName .. '-' .. sDrilling