- in DtMortise -> CalcPathAtHeight ora lo spostamento viene fatto correttamente anche nel caso di più curve

2026-04-07 14:58:39 +02:00
2 changed files with 5 additions and 105 deletions
@@ -136,9 +136,11 @@ local function CalcPathAtHeight( nProcId, AuxId, nAddGrpId, dHeight, dSideAng, b
   local vtBoxDiag = b3Solid:getMax() - b3Solid:getMin()
   local nCount
   NewAuxId, nCount = EgtTrimFlatCurveWithBox( NewAuxId, refBox, vtBoxDiag, true, true, GDB_RT.GLOB)
-   -- eseguo traslazione e offset per portarla sul top
+   -- per ogni curva creata, eseguo traslazione e offset per portarla sul top
   local vtMove = EgtCurveExtrusion( AuxId, GDB_RT.GLOB) * ( dHeight - 10 * GEO.EPS_SMALL)
-   EgtMove( NewAuxId, vtMove, GDB_RT.GLOB)
+   for i = 1, nCount do
+      EgtMove( NewAuxId + i - 1, vtMove, GDB_RT.GLOB)
+   end
   -- se divisa in più parti, le unisco congiungendole con segmenti
   if nCount > 1 then
      if EgtGetType( NewAuxId) ~= GDB_TY.CRV_COMPO then
@@ -147,7 +149,7 @@ local function CalcPathAtHeight( nProcId, AuxId, nAddGrpId, dHeight, dSideAng, b
      for i = 2, nCount do
         local CrvId = NewAuxId + i - 1
         local ptStart = EgtSP( CrvId)
-         EgtAddCurveCompoLine( NewAuxId, ptStart) 
+         EgtAddCurveCompoLine( NewAuxId, ptStart)
         EgtAddCurveCompoCurve( NewAuxId, CrvId)
      end
   end
@@ -1066,12 +1066,6 @@ local function MakeOneFaceByMill( Proc, nPhase, nRawId, nPartId)
      local _, sErr = EgtGetLastMachMgrError()
      EgtSetOperationMode( nMchFId, false)
      return false, sErr
-      else
-         local _, sWarn = EgtGetMachMgrWarning( 0)
-         if EgtIsMachiningEmpty() then
-            EgtSetOperationMode( nMchFId, false)
-            return false, sWarn
-         end
   end
   -- eventuale segnalazione ingombro di testa o coda
   UpdateEncumbrance( Proc, nRawId, b3Raw, b3Solid)
@@ -1209,12 +1203,6 @@ local function MakeTwoFacesByMill( Proc, nPhase, nRawId, nPartId, bDownHead)
            local _, sErr = EgtGetLastMachMgrError()
            EgtSetOperationMode( nMchFId, false)
            return false, sErr
-         else
-            local _, sWarn = EgtGetMachMgrWarning( 0)
-            if EgtIsMachiningEmpty() then
-               EgtSetOperationMode( nMchFId, false)
-               return false, sWarn
-            end
         end
      end
   end
@@ -1250,12 +1238,6 @@ local function MakeTwoFacesByMill( Proc, nPhase, nRawId, nPartId, bDownHead)
      local _, sErr = EgtGetLastMachMgrError()
      EgtSetOperationMode( nMchFId, false)
      return false, sErr
-   else
-      local _, sWarn = EgtGetMachMgrWarning( 0)
-      if EgtIsMachiningEmpty() then
-         EgtSetOperationMode( nMchFId, false)
-         return false, sWarn
-      end
   end
   -- eventuale segnalazione ingombro di testa o coda
   UpdateEncumbrance( Proc, nRawId, b3Raw, b3Solid)
@@ -1425,12 +1407,6 @@ local function MakeByMill( Proc, nPhase, nRawId, nPartId, nFacInd, rfFac, dH, dV
      _, sErr = EgtGetLastMachMgrError()
      EgtSetOperationMode( nMchFId, false)
      return false, sErr
-   else
-      local _, sWarn = EgtGetMachMgrWarning( 0)
-      if EgtIsMachiningEmpty() then
-         EgtSetOperationMode( nMchFId, false)
-         return false, sWarn
-      end
   end
   return true, '', dTDiam
 end
@@ -3001,12 +2977,6 @@ local function MakeChamfer( Proc, bIs3Faces, nAddGrpId, vtOrtho, b3Solid, nSurfI
               local _, sErr = EgtGetLastMachMgrError()
               EgtSetOperationMode( nMchId, false)
               return -1, sErr
-            else
-               local _, sWarn = EgtGetMachMgrWarning( 0)
-               if EgtIsMachiningEmpty() then
-                  EgtSetOperationMode( nMchId, false)
-                  return false, sWarn
-               end
            end
         -- se non perpendicolare emetto un warning
         -- else
@@ -3160,12 +3130,6 @@ local function MakeByMillAsSaw( Proc, nPhase, nRawId, nPartId, nFacInd,
         local _, sErr = EgtGetLastMachMgrError()
         EgtSetOperationMode( nMchId, false)
         return false, sErr
-      else
-         local _, sWarn = EgtGetMachMgrWarning( 0)
-         if EgtIsMachiningEmpty() then
-            EgtSetOperationMode( nMchId, false)
-            return false, sWarn
-         end
      end
   end
   -- in base all'elevazione calcolo l'impronta della lama
@@ -3888,12 +3852,6 @@ local function MakePocket( Proc, nPartId, b3Solid, ptPs, tvtN, nFaceRef, sMchFin
         EgtSetOperationMode( nMchFId, false)
         return false, sErr
      end
-   else
-      local _, sWarn = EgtGetMachMgrWarning( 0)
-      if EgtIsMachiningEmpty() then
-         EgtSetOperationMode( nMchFId, false)
-         return false, sWarn
-      end
   end
   -- se la lavorazione rovina il pezzo successivo emetto warning
   if ( not Proc.Tail or Proc.AdvTail) and Proc.AffectedFaces.Left and dDistToNextPiece < dDiamTool / 2 then
@@ -4011,12 +3969,6 @@ local function MachineByMill( Proc, nPhase, nRawId, nPartId, b3Solid, tvtN, nBas
                  local _, sErr = EgtGetLastMachMgrError()
                  EgtSetOperationMode( nMchId, false)
                  return false, sErr
-               else
-                  local _, sWarn = EgtGetMachMgrWarning( 0)
-                  if EgtIsMachiningEmpty() then
-                     EgtSetOperationMode( nMchId, false)
-                     return false, sWarn
-                  end
               end
            else
               return false, sWarn
@@ -4144,12 +4096,6 @@ local function MachineByMill( Proc, nPhase, nRawId, nPartId, b3Solid, tvtN, nBas
            local _, sErr = EgtGetLastMachMgrError()
            EgtSetOperationMode( nMchFId, false)
            return false, sErr
-         else
-            local _, sWarn = EgtGetMachMgrWarning( 0)
-            if EgtIsMachiningEmpty() then
-               EgtSetOperationMode( nMchFId, false)
-               return false, sWarn
-            end
         end
      end
   end
@@ -4593,12 +4539,6 @@ local function MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCha
                     EgtSetOperationMode( nMchFId, false)
                     return -1, sErr
                  end
-               else
-                  local _, sWarn = EgtGetMachMgrWarning( 0)
-                  if EgtIsMachiningEmpty() then
-                     EgtSetOperationMode( nMchFId, false)
-                     return false, sWarn
-                  end
               end
            end
            -- se non completo e U, cerco di lavorare anche la faccia di fondo (con il massimo affondamento possibile)
@@ -4670,12 +4610,6 @@ local function MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCha
                        EgtSetOperationMode( nMchFId, false)
                        return -1, sErr
                     end
-                  else
-                     local _, sWarn = EgtGetMachMgrWarning( 0)
-                     if EgtIsMachiningEmpty() then
-                        EgtSetOperationMode( nMchFId, false)
-                        return false, sWarn
-                     end
                  end
               end
            end
@@ -4788,12 +4722,6 @@ local function ManageAntiSplintBySaw( Proc, b3Raw, b3Solid, bIsU, vtN, nFacInd,
               local _, sErr = EgtGetLastMachMgrError()
               EgtSetOperationMode( nIdMach, false)
               return false, false, sErr
-            else
-               local _, sWarn = EgtGetMachMgrWarning( 0)
-               if EgtIsMachiningEmpty() then
-                  EgtSetOperationMode( nIdMach, false)
-                  return false, sWarn
-               end
            end
         end
      end
@@ -7235,12 +7163,6 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
               local _, sErr = EgtGetLastMachMgrError()
               EgtSetOperationMode( nMchFId, false)
               return false, sErr
-            else
-               local _, sWarn = EgtGetMachMgrWarning( 0)
-               if EgtIsMachiningEmpty() then
-                  EgtSetOperationMode( nMchFId, false)
-                  return false, sWarn
-               end
            end
            -- se divisa in due metà
            if bDouble then
@@ -7261,12 +7183,6 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                  local _, sErr = EgtGetLastMachMgrError()
                  EgtSetOperationMode( nMchFNId, false)
                  return false, sErr
-               else
-                  local _, sWarn = EgtGetMachMgrWarning( 0)
-                  if EgtIsMachiningEmpty() then
-                     EgtSetOperationMode( nMchFNId, false)
-                     return false, sWarn
-                  end
               end
            end
         end
@@ -7347,12 +7263,6 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
               local _, sErr = EgtGetLastMachMgrError()
               EgtSetOperationMode( nMchFId, false)
               return false, sErr
-            else
-               local _, sWarn = EgtGetMachMgrWarning( 0)
-               if EgtIsMachiningEmpty() then
-                  EgtSetOperationMode( nMchFId, false)
-                  return false, sWarn
-               end
            end

         -- CASO SPECIALE 3 FACCE (se rimane esclusa molta sezione trasversale complessiva della feature, solo per feature 20)
@@ -7468,12 +7378,6 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                     EgtSetOperationMode( nMchFId, false)
                     return false, sErr
                  end
-               else
-                  local _, sWarn = EgtGetMachMgrWarning( 0)
-                  if EgtIsMachiningEmpty() then
-                     EgtSetOperationMode( nMchFId, false)
-                     return false, sWarn
-                  end
               end
               -- se abilitato dal parametro Q inserisco foro sullo spigolo
               if EgtGetInfo( Proc.Id, Q_BORE_ON_CORNER, 'i') == 1 then
@@ -8655,12 +8559,6 @@ local function MakeStaircaseStep( Proc, nRawId, b3Raw, nPartId)
         local _, sErr = EgtGetLastMachMgrError()
         EgtSetOperationMode( nMchFId, false)
         return false, sErr
-      else
-         local _, sWarn = EgtGetMachMgrWarning( 0)
-         if EgtIsMachiningEmpty() then
-            EgtSetOperationMode( nMchFId, false)
-            return false, sWarn
-         end
      end
      -- eventuale segnalazione ingombro di testa o coda
      UpdateEncumbrance( Proc, nRawId, b3Raw, b3Solid)