- Spostamento del richiamo all'interno della Drill.Make

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

LuaLibs/ProcessFreeContour.lua

@@ -136,7 +136,7 @@ function ProcessFreeContour.Classify( Proc, b3Raw)
 end
 
 ---------------------------------------------------------------------
-local function VerifyChamfer( Proc, AuxId, nRawId, bMakeVertCham, bDownHead, bContourFromDrill)
+local function VerifyChamfer( Proc, AuxId, nRawId, bMakeVertCham, bDownHead)
    local nChamfer = 0
    -- ingombro del grezzo
    local b3Raw = EgtGetRawPartBBox( nRawId)
@@ -186,10 +186,8 @@ local function VerifyChamfer( Proc, AuxId, nRawId, bMakeVertCham, bDownHead, bCo
          EgtOutLog( sErr)
          return -1, 0, sErr
       end
-   end
-   if bContourFromDrill then
-      nChamfer = 0
-      dDepth = 0
+   else
+      sMilling = ''
    end
 
    return nChamfer, dDepth, sMilling
@@ -266,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, nil, bContourFromDrill)
+   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)
@@ -713,8 +711,8 @@ local function MakeByMill( Proc, nPhase, nRawId, nPartId, dOvmHead)
          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 and ( dDepthWork / (nStep + 1) > dToolDiam ) then
-            local dWorkStep = dDepthWork / ( dDepthWork / dToolDiam)
+         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)
@@ -1020,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