Merge remote-tracking branch 'origin/master' into develop

LuaLibs/ProcessDtTenon.lua

@@ -353,8 +353,15 @@ function ProcessDtTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
       end
    end
 
+   -- si controllano le ultime 5 facce della feature
+   local nIndFace = -1
+   for i = 1, 5 do
+      if abs( vtExtr * EgtSurfTmFacetNormVersor( Proc.Id, Proc.Fct-i, GDB_ID.ROOT)) < GEO.EPS_ANG_SMALL then
+         nIndFace = Proc.Fct-i
+      end
+   end
    -- controllo se serve passaggio di finitura in caso il tenone non cominci dal bordo della trave (P14 > 0)
-   if abs( vtExtr * EgtSurfTmFacetNormVersor( Proc.Id, Proc.Fct-1, GDB_ID.ROOT)) < GEO.EPS_ANG_SMALL then
+   if nIndFace > 0 then
       -- verifico se almeno uno dei punti iniziale e finale della curva giace in uno dei piani limite del pezzo, quindi se è un lato aperto
       local bOpen = false
       local ptIni = EgtSP( AuxId, GDB_RT.GLOB)
@@ -396,7 +403,7 @@ function ProcessDtTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
                return false, sErr
             end
             -- aggiungo geometria
-            EgtSetMachiningGeometry( {{ Proc.Id, Proc.Fct-1}})
+            EgtSetMachiningGeometry( {{ Proc.Id, nIndFace}})
             -- sistemo i parametri
             EgtSetMachiningParam( MCH_MP.DEPTH_STR, 'TH')
             -- sistemo il lato e la direzione di lavoro
@@ -407,10 +414,14 @@ function ProcessDtTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
             EgtSetMachiningParam( MCH_MP.LOTANG, 0.7 * dTDiam)
             EgtSetMachiningParam( MCH_MP.LOPERP, 20)
 
-            local nOrthoOpposite = BL.GetNearestParalOpposite( vtExtr, vtExtr)
-            -- imposto utilizzo faccia
-            EgtSetMachiningParam( MCH_MP.FACEUSE, nOrthoOpposite)
-            
+            local nFaceUse
+            if vtExtr:getX() > -GEO.EPS_SMALL then
+               nFaceUse = MCH_MILL_FU.PARAL_LEFT
+            else
+               nFaceUse = MCH_MILL_FU.PARAL_RIGHT
+            end
+            EgtSetMachiningParam( MCH_MP.FACEUSE, nFaceUse)
+
             -- imposto elevazione
             local sUserNotes = EgtSetVal( 'MaxElev', EgtNumToString( dDtTenH, 1)) .. ';'
             EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
@@ -430,6 +441,12 @@ function ProcessDtTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
                end
             end
             EgtSetMachiningParam( MCH_MP.SCC, nSCC)
+            -- eseguo
+            if not ML.ApplyMachining( true, false) then
+               local _, sErr = EgtGetLastMachMgrError()
+               EgtSetOperationMode( nMchFId, false)
+               return false, sErr
+            end
          end
       end
    end