Aggiunta gestione Q14 per settare lavorazione discorde in caso di MillAsBlade

LuaLibs/ProcessLapJoint.lua

@@ -146,7 +146,7 @@ local Q_MAX_ELEVATION       = '' -- d
 local Q_SAW_PLUS_CHAIN      = '' -- i
 local Q_FORCE_CHAINSAW      = '' -- i
 local Q_CHAINSAW_FROM_SIDE  = '' -- i
-
+local Q_MILL_AS_BLADE_CONVENTIONAL = '' -- i
 
 -- variabile smussi
 local bMadeChamfer
@@ -195,11 +195,13 @@ local function AssignQIdent( Proc)
    Q_FORCE_CHAINSAW     = 'Q12'
    -- TODO da riportare a Q13 quando è sistemata la gestione del movimento in macchina nell'attacco laterale
    Q_CHAINSAW_FROM_SIDE = 'Q999'
+   Q_MILL_AS_BLADE_CONVENTIONAL = ''
 
    if ( Proc.Grp == 3 or Proc.Grp == 4)  and  Proc.Prc == 16 then
       Q_FORCE_BLADE         = 'Q01' -- i
       Q_DEPTH_CHAMFER       = 'Q04' -- d
       Q_ONLY_CHAMFER        = 'Q05' -- i
+      Q_MILL_AS_BLADE_CONVENTIONAL = 'Q14' -- i
    elseif ( Proc.Grp == 3 or Proc.Grp == 4)  and  Proc.Prc == 17 then
       Q_DEPTH_CHAMFER       = 'Q01' -- d
       Q_ONLY_CHAMFER        = 'Q02' -- i
@@ -220,6 +222,7 @@ local function AssignQIdent( Proc)
       Q_BLADE_ON_ALONG_FACE = 'Q04' -- i
       Q_ANTISPLINT_TYPE     = 'Q06' -- i
       Q_DEPTH_CHAMFER       = 'Q07' -- d
+      Q_MILL_AS_BLADE_CONVENTIONAL = 'Q14' -- i
    elseif ( Proc.Grp == 1 or Proc.Grp == 2)  and  Proc.Prc == 30 then
       Q_BLADE_ON_ALONG_FACE = 'Q04' -- i
    elseif ( Proc.Grp == 3 or Proc.Grp == 4)  and  Proc.Prc == 32 then
@@ -228,19 +231,23 @@ local function AssignQIdent( Proc)
       Q_ANTISPLINT_TYPE     = 'Q06' -- i
    elseif ( Proc.Grp == 3 or Proc.Grp == 4)  and  Proc.Prc == 33 then
       Q_ANTISPLINT_TYPE     = 'Q06' -- i
+      Q_MILL_AS_BLADE_CONVENTIONAL = 'Q14' -- i
    elseif ( Proc.Grp == 3 or Proc.Grp == 4)  and  Proc.Prc == 34 then
       Q_CONTOUR_SMALL_TOOL  = 'Q01' -- i
       Q_USE_MILL            = 'Q02' -- i
       Q_ANTISPLINT_TYPE     = 'Q06' -- i
    elseif ( Proc.Grp == 4)  and  Proc.Prc == 37 then
       Q_ANTISPLINT_TYPE     = 'Q06' -- i
+      Q_MILL_AS_BLADE_CONVENTIONAL = 'Q14' -- i
    elseif ( Proc.Grp == 4)  and  Proc.Prc == 39 then
       Q_CONTOUR_SMALL_TOOL  = 'Q01' -- i
       Q_USE_MILL            = 'Q02' -- i
       Q_ANTISPLINT_TYPE     = 'Q06' -- i
+      Q_MILL_AS_BLADE_CONVENTIONAL = 'Q14' -- i
    elseif ( Proc.Grp == 3 or Proc.Grp == 4)  and  Proc.Prc == 90 then
       Q_ANTISPLINT_TYPE     = 'Q03' -- i
       Q_SIDE_ROUGH_TOOL     = 'Q04' -- i
+      Q_MILL_AS_BLADE_CONVENTIONAL = 'Q14' -- i
    end
    -- le altre features gestite non hanno parametri Q
 end
@@ -2856,7 +2863,10 @@ local function MakeByMillAsSaw( Proc, nPhase, nRawId, nPartId, nFacInd,
    for i = 1, nStep do
       local dOffs = ( i - 1) * dStep
       if vtN:getZ() < dVzLimDwnUp then dOffs = dOffs + dSawThick end
-      local bOk, sErr, nMchId = Fbs.MakeOne( Proc.Id, nFacAdj, sCutting, dSawDiam, nFaceUse, dVzLimDwnUp, 0, BD.CUT_SIC, dOffs, dStartDist, dEndDist, nil, b3Raw)
+      -- forzatura lavorazione discorde in base a parametro Q su feature
+      local nQ14Param = EgtGetInfo( Proc.Id, Q_MILL_AS_BLADE_CONVENTIONAL, 'd') or 0
+      local bForceInvert = nQ14Param == 1 or ( nQ14Param == 2 and vtN:getX() < 0.1)
+      local bOk, sErr, nMchId = Fbs.MakeOne( Proc.Id, nFacAdj, sCutting, dSawDiam, nFaceUse, dVzLimDwnUp, 0, BD.CUT_SIC, dOffs, dStartDist, dEndDist, nil, b3Raw, bForceInvert)
       if not bOk then return bOk, sErr end
       -- setto l'elevazione
       local sNotes = 'MaxElev=' .. EgtNumToString( 0, 1) .. ';'
@@ -3565,6 +3575,11 @@ local function MakePocket( Proc, nPartId, b3Solid, ptPs, tvtN, nFaceRef, sMchFin
    if not ML.ApplyMachining( true, false) then
       -- provo ad allargare leggermente la tasca
       EgtSetMachiningParam( MCH_MP.OFFSR, -0.1)
+      -- se percorso a Zig-Zag, provo a cambiarlo in spirale
+      local nPocketSubType = EgtGetMachiningParam( MCH_MP.SUBTYPE)
+      if nPocketSubType == MCH_POCK_SUB.ZIGZAG then
+         EgtSetMachiningParam( MCH_MP.SUBTYPE, MCH_POCK_SUB.SPIRALIN)
+      end
       if not ML.ApplyMachining( true, false) then
          local _, sErr = EgtGetLastMachMgrError()
          EgtSetOperationMode( nMchFId, false)

LuaLibs/ProcessProfCamb.lua

@@ -506,7 +506,7 @@ function ProcessProfCamb.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    -- se il chamfer non è esclusivo continuo con le altre lavorazioni
    if nChamfer < 2 then
       -- verifico se necessario lavorare in doppio
-      local bDouble = ( dProfDepth + BD.CUT_EXTRA > dToolMaxDepth)
+      local bDouble = ( dProfDepth + BD.CUT_EXTRA - 100 * GEO.EPS_SMALL > dToolMaxDepth)
       local dDepth = min( dToolMaxDepth, dProfDepth / 2 + BD.MILL_OVERLAP)
       -- se lavorazione da due parti, aggiungo la seconda
       local sMillingDown

LuaLibs/ProcessProfConcave.lua

@@ -453,7 +453,7 @@ function ProcessProfConcave.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
          end
       end
       -- verifico se necessario lavorare in doppio
-      local bDouble = ( dProfDepth + BD.CUT_EXTRA > dToolMaxDepth)
+      local bDouble = ( dProfDepth + BD.CUT_EXTRA - 100 * GEO.EPS_SMALL > dToolMaxDepth)
       local dDepth = min( dToolMaxDepth, dProfDepth / 2 + BD.MILL_OVERLAP)
       -- se lavorazione da due parti, aggiungo la seconda
       local sMillingDown

LuaLibs/ProcessProfConvex.lua

@@ -453,7 +453,7 @@ function ProcessProfConvex.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
          end
       end
       -- verifico se necessario lavorare in doppio
-      local bDouble = ( dProfDepth + BD.CUT_EXTRA > dToolMaxDepth)
+      local bDouble = ( dProfDepth + BD.CUT_EXTRA - 100 * GEO.EPS_SMALL > dToolMaxDepth)
       local dDepth = min( dToolMaxDepth, dProfDepth / 2 + BD.MILL_OVERLAP)
       -- se lavorazione da due parti, aggiungo la seconda
       local sMillingDown