Merge branch 'release/2.5d1'

Finish Release: 2.5d1

.gitlab-ci.yml

@@ -2,7 +2,7 @@ variables:
  VERS_MAIN: '1.0'
  APP_NAME: 'Wall'
  NEW_REL: ''
- NET_SHARE_R: '\\10.74.82.201\EgwTech'
+ NET_SHARE_X: '\\10.74.82.201\EgwTech'
  NET_SHARE_Z: '\\10.74.82.201\Artifacts'
  NET_USERQ: 'steamw\egalware'
 
@@ -34,29 +34,32 @@ variables:
       echo "lua54 -o bin\LuaLibs\$FileName LuaLibs\$FileName"
     }
 
-# helper copia SORGENTI verso cartella di rete R:\ dei SORGENTI
+# helper copia SORGENTI verso cartella di rete X:\ dei SORGENTI
 .CodeReplicaR: &CodeReplicaR
   - |
-    net use R: /delete
-    net use R: $env:NET_SHARE_R /u:$env:NET_USERQ $ZDRIVE_PASSWD
-    ROBOCOPY . R:\EgtData\$env:APP_NAME /MIR /XF .git* /XD .git
+    net use X: /delete
     SLEEP 2
-    net use R: /delete
+    net use X: $env:NET_SHARE_X /u:$env:NET_USERQ $ZDRIVE_PASSWD
+    ROBOCOPY . X:\EgtData\$env:APP_NAME /MIR /XF .git* /XD .git
+    SLEEP 2
+    net use X: /delete
 
-# helper copia script verso cartella di rete R:\ delle cartelle bin
+# helper copia script verso cartella di rete X:\ delle cartelle bin
 .ReplicaR: &ReplicaR
   - |
-    net use R: /delete
-    net use R: $env:NET_SHARE_R /u:$env:NET_USERQ $ZDRIVE_PASSWD
-    ROBOCOPY /MIR bin R:\EgtData\$env:APP_NAME\bin
-    ROBOCOPY /MIR Images R:\EgtData\$env:APP_NAME\bin\Images
+    net use X: /delete
     SLEEP 2
-    net use R: /delete
+    net use X: $env:NET_SHARE_X /u:$env:NET_USERQ $ZDRIVE_PASSWD
+    ROBOCOPY /MIR bin X:\EgtData\$env:APP_NAME\bin
+    ROBOCOPY /MIR Images X:\EgtData\$env:APP_NAME\bin\Images
+    SLEEP 2
+    net use X: /delete
 
-# helper copia script verso cartella di rete R:\ delle cartelle bin
+# helper copia script verso cartella di rete X:\ delle cartelle bin
 .ReplicaZ: &ReplicaZ
   - |
     net use Z: /delete
+    SLEEP 2
     net use Z: $env:NET_SHARE_Z /u:$env:NET_USERQ $ZDRIVE_PASSWD
     ROBOCOPY /MIR bin Z:\EgtData\$env:APP_NAME\bin
     ROBOCOPY /MIR Images Z:\EgtData\$env:APP_NAME\bin\Images

LuaLibs/WMachiningLib.lua

@@ -3,6 +3,7 @@
 
 -- Tabella per definizione modulo
 -- 2023/03/09 Piccola correzione alla SideDepth in FindMilling
+--            In FindMilling aggiunta gestione spessore e massimo materiale nel caso di lam
 local WMachiningLib = {}
 
 -- Include
@@ -56,14 +57,15 @@ function WMachiningLib.FindMilling( sType, dDepth, sTuuid, nTool_ID, dMaxDiam, d
    for i = 1, #Millings do
       local Milling = Millings[i]
       if Milling.On and Milling.Type == sType and SetCurrMachiningAndTool( Milling.Name) then
+         local bIsBlade = ( EgtTdbGetCurrToolParam( MCH_TP.TYPE) & MCH_TF.SAWBLADE ~= 0) or false
          local nMchType = EgtMdbGetCurrMachiningParam( MCH_MP.TYPE)
          local sMyTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
-         local dTMaxMat = EgtTdbGetCurrToolParam( MCH_TP.MAXMAT)
+         local dTMaxMat = EgtIf( bIsBlade, EgtTdbGetCurrToolParam( MCH_TP.THICK), EgtTdbGetCurrToolParam( MCH_TP.MAXMAT))
          local dTMaxDepth = EgtIf( WD.MILL_MAX_DEPTH_AS_MAT, dTMaxMat, EgtTdbGetCurrToolMaxDepth())
          local dTDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM)
          local dTDiamTh = EgtTdbGetCurrToolThDiam() or 0
          local dTTipFeed = EgtTdbGetCurrToolParam( MCH_TP.TIPFEED)
-         local dTMaxDepthOnSide = min( EgtTdbGetCurrToolValInNotes( MCH_TP.USERNOTES, 'SIDEDEPTH', 'd') or 999, 0.5 * ( dTDiam - dTDiamTh))
+         local dTMaxDepthOnSide = EgtIf( bIsBlade, EgtTdbGetCurrToolParam( MCH_TP.MAXMAT), min( EgtTdbGetCurrToolValInNotes( MCH_TP.USERNOTES, 'SIDEDEPTH', 'd') or 999, 0.5 * ( dTDiam - dTDiamTh)))
          local nMyTool_ID = EgtTdbGetCurrToolValInNotes( MCH_TP.USERNOTES, 'Tool_ID', 'i')
          if nMchType == MCH_MY.MILLING and
             ( not sTuuid or sTuuid == sMyTuuid) and

LuaLibs/WProcessDrill.lua

@@ -137,7 +137,7 @@ function WPD.RotateClassify( Proc)
    local vtExtr = EgtCurveExtrusion( AuxId, GDB_RT.GLOB)
    local ptCen = EgtCP( AuxId, GDB_RT.GLOB)
    -- se foro orizzontale con punta lunga
-   if dDiam <= WD.HOR_DRILL_DIAM + WD.DRILL_TOL and dDiam >= WD.HOR_DRILL_DIAM - WD.DRILL_TOL and vtExtr:getZ() > -0.1 and vtExtr:getZ() < 0.1 then
+   if dDiam <= ( WD.HOR_DRILL_DIAM or 35) + WD.DRILL_TOL and dDiam >= ( WD.HOR_DRILL_DIAM or 35) - WD.DRILL_TOL and vtExtr:getZ() > -0.1 and vtExtr:getZ() < 0.1 then
       -- se orientato perpendicolare ad X
       if AreSameOrOppositeVectorApprox( vtExtr, X_AX()) then
          nRot0 = 0

LuaLibs/WProcessLapJoint.lua

@@ -15,6 +15,8 @@
 -- 2022/12/01 Per 2 facce con angolo > 90° implementata lavorazione principale verticale. Se da sopra, aggiunta ripresa del lato inclinato.
 -- 2022/12/14 Nel caso di 2 facce piccola correzione al modo di ordinare le facce.
 -- 2023/03/09 Gestito caso riconoscimento errato Stype 3
+-- 2023/03/09 In MakeMoreFaces aggiunta la possibilità di lavorare le fessure con la lama
+-- 2023/03/17 In MakeByMill gestito correttamente il caso di Workside destro.
 
 -- Tabella per definizione modulo
 local WPL = {}
@@ -1380,6 +1382,13 @@ local function MakeByMill( Proc, nFacet, nOthFac, nRawId, b3Raw, dSideDist)
    EgtSetMachiningParam( MCH_MP.ENDADDLEN, 0)     -- -dMillDiam/2 + dAddLen)
    EgtSetMachiningParam( MCH_MP.LOTANG, 0)
    EgtSetMachiningParam( MCH_MP.LOPERP, dSideDist + WD.CUT_SIC)
+   -- setto inversione in base al workside
+   local bIsWorkSideRight = ( EgtGetMachiningParam( MCH_MP.WORKSIDE) == MCH_MILL_WS.RIGHT)
+   local bInvert = false
+   if bIsWorkSideRight then
+      bInvert = true
+   end
+   EgtSetMachiningParam( MCH_MP.INVERT, bInvert)
    -- imposto posizione braccio porta testa
    local nSCC = MCH_SCC.ADIR_ZP
    if AreSameOrOppositeVectorApprox( vtN, Z_AX()) then
@@ -2546,15 +2555,17 @@ local function MakeMoreFaces( Proc, nRawId, b3Raw)
       end
       local vtN = EgtSurfTmFacetNormVersor( Proc.Id, nFacInd, GDB_ID.ROOT)
       local _, dH, dV = EgtSurfTmFacetMinAreaRectangle( Proc.Id, nFacInd, GDB_ID.ROOT)
+      local dMaxSlotThicknessForBlade = 25
+      local bIsSmallSlot = ( Proc.Fct == 3 and ( min( dH, dV) < dMaxSlotThicknessForBlade + 10 * GEO.EPS_SMALL) and vtN:getZ() > -0.01)
       -- se di fianco
-      if not bPckt and Proc.Fct >= 3 and vtN:getZ() < WD.NZ_MINA then
+      if not bPckt and Proc.Fct >= 3 and ( ( vtN:getZ() < WD.NZ_MINA) or bIsSmallSlot) then
          -- recupero elevazione faccia in feature
          local dSideElev = WL.GetFaceElevation( Proc.Id, nFacInd)
          -- se abilitata lavorazione ribasso con fresa di fianco e parametro Q03 abilitato
          local sMillOnSide, dTMaxDepth, dMaxMat, dDiam = WM.FindMilling( 'SideMill', nil, nil, nil, nil, min( dH, dV), nil, dSideElev)
          local _, nUseMillOnSide = EvaluateQParam( Proc)
          -- se ho abilitata lavorazione di fresa di fianco
-         if Proc.Fct >= 3 and sMillOnSide and nUseMillOnSide >= 1 then
+         if Proc.Fct >= 3 and sMillOnSide and nUseMillOnSide >= 1 and not bIsSmallSlot then
             -- cerco nei parametri utensili la nota di affondamento di fianco SIDEDEPTH
             local dMaxDepthOnSide = 0
             local dMillDiam = 0
@@ -2596,15 +2607,17 @@ local function MakeMoreFaces( Proc, nRawId, b3Raw)
             end
          else
             -- fresatura (se definita)
-            local sMilling = WM.FindMilling( 'SideGroove')
+            local sMilling = WM.FindMilling( 'SideGroove', nil, nil, nil, nil, min( dH, dV))
             -- recupero i dati dell'utensile
             local dMaxMat = 1000
             local dMaxDepthOnSide = 0
+            local bIsBlade = false
             if sMilling and EgtMdbSetCurrMachining( sMilling) then
                local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
                if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
                   local dMillDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dMillDiam
-                  if ( EgtTdbGetCurrToolParam( MCH_TP.TYPE) & MCH_TF.SAWBLADE) ~= 0 then
+                  bIsBlade = EgtTdbGetCurrToolParam( MCH_TP.TYPE) & MCH_TF.SAWBLADE ~= 0
+                  if bIsBlade then
                      dMaxMat = EgtTdbGetCurrToolParam( MCH_TP.THICK) or dMaxMat
                      dMaxDepthOnSide = EgtTdbGetCurrToolParam( MCH_TP.MAXMAT)
                   else
@@ -2617,12 +2630,12 @@ local function MakeMoreFaces( Proc, nRawId, b3Raw)
                   end
                end
             end
-            if sMilling and dElev < dMaxDepthOnSide and dMaxMat <= min( dH, dV) + 20 * GEO.EPS_SMALL then
-               return MakeSideGrooveByMill( Proc, nFacInd, nRawId, b3Raw, sMilling)
-            -- altrimenti sega a catena
-            else
-               return MakeByChainSaw( Proc, nFacInd, nRawId, b3Raw, dElev, dH, dV)
-            end
+               if sMilling and dElev < dMaxDepthOnSide then
+                  return MakeSideGrooveByMill( Proc, nFacInd, nRawId, b3Raw, sMilling)
+               -- altrimenti sega a catena
+               else
+                  return MakeByChainSaw( Proc, nFacInd, nRawId, b3Raw, dElev, dH, dV)
+               end
          end
       end
       local nFacet = EgtIf( bPckt or vtN:getZ() >= WD.NZ_MINA, nFacInd, nFacInd2)

NestFlipAndRotate.lua

@@ -56,21 +56,22 @@ local Text = require( 'WProcessText')
 -- Carico i dati globali
 local WD = require( 'WallData')
 
+-------------------------------------------------------------------
 local function ClassifyFlip( vPartProc, b3Part)
    
    local FlipFeatureStates = {}
    local bLapJoints = false
    
    for nInd = 1, #vPartProc do
-      if LapJoint.Identify( vPartProc[nInd]) then         
+      if LapJoint.Identify( vPartProc[nInd]) then
          -- setto parametro Q 
          if vPartProc[nInd].Prc == 30 then
             EgtSetInfo( vPartProc[nInd].Id, "Q08", 1)
-            EgtSetInfo( vPartProc[nInd].Id, "Q08A", 1)           
+            EgtSetInfo( vPartProc[nInd].Id, "Q08A", 1)
          else
             EgtSetInfo( vPartProc[nInd].Id, "Q03", 1)
-            EgtSetInfo( vPartProc[nInd].Id, "Q03A", 1)   
-         end        
+            EgtSetInfo( vPartProc[nInd].Id, "Q03A", 1)
+         end
          bLapJoints = true 
          local nFlip0, nFlip1 = LapJoint.FlipClassify(vPartProc[nInd])
          if nFlip0 and nFlip1 and nFlip0 ~= nFlip1 then
@@ -80,7 +81,7 @@ local function ClassifyFlip( vPartProc, b3Part)
          local nFlip0, nFlip1 = Drill.FlipClassify(vPartProc[nInd], b3Part)
          if nFlip0 and nFlip1 and nFlip0 ~= nFlip1 then
             table.insert( FlipFeatureStates, { Flip0 = nFlip0, Flip1 = nFlip1})
-         end      
+         end
       elseif Cut.Identify( vPartProc[nInd]) then
          local nFlip0, nFlip1 = Cut.FlipClassify(vPartProc[nInd], b3Part)
          if nFlip0 and nFlip1 and nFlip0 ~= nFlip1 then
@@ -90,7 +91,7 @@ local function ClassifyFlip( vPartProc, b3Part)
          -- setto parametro Q
          if vPartProc[nInd].Prc == 12 then
             EgtSetInfo( vPartProc[nInd].Id, "Q02", 1)
-            EgtSetInfo( vPartProc[nInd].Id, "Q02A", 1)           
+            EgtSetInfo( vPartProc[nInd].Id, "Q02A", 1)
          end
          local nFlip0, nFlip1 = DoubleCut.FlipClassify(vPartProc[nInd], b3Part)
          if nFlip0 and nFlip1 and nFlip0 ~= nFlip1 then
@@ -100,7 +101,7 @@ local function ClassifyFlip( vPartProc, b3Part)
          local nFlip0, nFlip1 = SawCut.FlipClassify(vPartProc[nInd], b3Part)
          if nFlip0 and nFlip1 and nFlip0 ~= nFlip1 then
             table.insert( FlipFeatureStates, { Flip0 = nFlip0, Flip1 = nFlip1})
-         end            
+         end
       elseif FreeContour.Identify( vPartProc[nInd]) then
          local nFlip0, nFlip1 = FreeContour.FlipClassify(vPartProc[nInd], b3Part)
          if nFlip0 and nFlip1 and nFlip0 ~= nFlip1 then
@@ -120,19 +121,19 @@ local function ClassifyFlip( vPartProc, b3Part)
          local nFlip0, nFlip1 = Mark.FlipClassify(vPartProc[nInd], b3Part)
          if nFlip0 and nFlip1 and nFlip0 ~= nFlip1 then
             table.insert( FlipFeatureStates, { Flip0 = nFlip0, Flip1 = nFlip1})
-         end   
+         end
       elseif Text.Identify( vPartProc[nInd]) then
          local nFlip0, nFlip1 = Text.FlipClassify(vPartProc[nInd], b3Part)
          if nFlip0 and nFlip1 and nFlip0 ~= nFlip1 then
             table.insert( FlipFeatureStates, { Flip0 = nFlip0, Flip1 = nFlip1})
-         end               
+         end
       end
    end
-      
-   return FlipFeatureStates, bLapJoints     
+
+   return FlipFeatureStates, bLapJoints
 end
 
-
+-------------------------------------------------------------------
 local function ClassifyRotation( vPartProc)
    
    local RotateFeatureStates = {}
@@ -144,22 +145,21 @@ local function ClassifyRotation( vPartProc)
          end
        end
    end
-    
-   return RotateFeatureStates 
+   return RotateFeatureStates
 end
 
----
-   
+-------------------------------------------------------------------
+-------------------------------------------------------------------
 local vPartProc = WE.CollectFeatures( NFAR.PARTID)
 local b3Part = EgtGetBBoxGlob( NFAR.PARTID, GDB_BB.STANDARD)   
 local bManualFlip = EgtGetInfo( NFAR.PARTID, "MANUALFLIP", 'b')
 local bManualRot = EgtGetInfo( NFAR.PARTID, "MANUALROT", 'b')
-   
--- FLIP 
+
+-- FLIP
 local FlipFeatureStates, bLapJoints = ClassifyFlip( vPartProc, b3Part)
 
-if not bManualFlip then   
-   local bFlip 
+if not bManualFlip then
+   local bFlip
    -- analizzo stati flip delle feature
    local nFlip0Min = 100
    local nFlip0Cnt = 0
@@ -187,16 +187,16 @@ if not bManualFlip then
       elseif nFlip0Cnt < nFlip1Cnt then
          bFlip = false
       elseif bLapJoints then 
-         -- se equivalenti ma ci sono lap joints, fisso il flip per non avere problemi con le aree di lavorazione nel nesting  
-         bFlip = false 
+         -- se equivalenti ma ci sono lap joints, fisso il flip per non avere problemi con le aree di lavorazione nel nesting
+         bFlip = false
       end
    elseif nFlip0Min < nFlip1Min then
       bFlip = true
    else
-      bFlip = false 
+      bFlip = false
    end
    
-   if bFlip ~= nil then 
+   if bFlip ~= nil then
       -- se una posizione è più conveniente dell'altra setto info nel pezzo  
       EgtSetInfo( NFAR.PARTID, "NestAllowFlip", false)
       EgtSetInfo( NFAR.PARTID, "NestFlip", bFlip)
@@ -206,10 +206,10 @@ if not bManualFlip then
    
    if bFlip then
       -- flip pezzo
-      EgtRotate( NFAR.PARTID, b3Part:getCenter(), X_AX(), 180, GDB_RT.GLOB) 
+      EgtRotate( NFAR.PARTID, b3Part:getCenter(), X_AX(), 180, GDB_RT.GLOB)
       -- modifico le info del pezzo
       local nPartFlip = EgtGetInfo( NFAR.PARTID, "INVERTED", 'i') or 0
-      local nTotFlip = EgtIf( nPartFlip == 180, 0, 180)    
+      local nTotFlip = EgtIf( nPartFlip == 180, 0, 180)
       EgtSetInfo( NFAR.PARTID, "INVERTED", nTotFlip)
       EgtSetInfo( NFAR.PARTID, "FLIPROTMODIFIED", 1)
    end  
@@ -217,12 +217,12 @@ end
 
 -- rimuovo parametri Q
 local b3PartInside = BBox3d( b3Part)
-b3PartInside:expand( - WD.INSIDE_RAW_TOL)
-for nInd = 1, #vPartProc do   
+b3PartInside:expand( - ( WD.INSIDE_RAW_TOL or 30))
+for nInd = 1, #vPartProc do
    local Proc = vPartProc[nInd]
    
-   if LapJoint.Identify( Proc) then         
-      -- cerco la faccia rivolta verso l'alto e la faccia rivolta verso il basso       
+   if LapJoint.Identify( Proc) then
+      -- cerco la faccia rivolta verso l'alto e la faccia rivolta verso il basso
       local nFaceInd = -1
       local nFaceDownInd = -1 
       for nIdx = 0, Proc.Fct - 1 do
@@ -231,8 +231,8 @@ for nInd = 1, #vPartProc do
             nFaceInd = nIdx
          elseif vtN:getZ() < - 0.95 then
             nFaceDownInd = nIdx
-         end                  
-      end               
+         end
+      end
       -- se è lap joint dall'alto
       if nFaceInd ~= -1 and nFaceDownInd == -1 then 
          local ptCen = EgtSurfTmFacetCenter( Proc.Id, nFaceInd, GDB_ID.ROOT)
@@ -241,11 +241,11 @@ for nInd = 1, #vPartProc do
             -- resetto parametro Q
             if Proc.Prc == 30 then
                EgtRemoveInfo( Proc.Id, "Q08")
-               EgtRemoveInfo( Proc.Id, "Q08A")    
+               EgtRemoveInfo( Proc.Id, "Q08A")
             else
                EgtRemoveInfo( Proc.Id, "Q03")
-               EgtRemoveInfo( Proc.Id, "Q03A")   
-            end                 
+               EgtRemoveInfo( Proc.Id, "Q03A")
+            end
          end 
       end
       
@@ -264,21 +264,22 @@ for nInd = 1, #vPartProc do
                -- resetto parametro Q
                if Proc.Prc == 12 then
                   EgtRemoveInfo( Proc.Id, "Q02")
-                  EgtRemoveInfo( Proc.Id, "Q02A")    
+                  EgtRemoveInfo( Proc.Id, "Q02A")
                end
             end
          end
-      end  
-   end 
-end   
-   
-   
+      end
+   end
+end
+
+
 -- ROTATION
-nRotate = 0 
+nRotate = 0
+
 -- venatura
 EgtRemoveInfo( NFAR.PARTID, "HasGrainDirection")
 local bGrain = false 
-local sGrainInfo = EgtGetInfo( NFAR.PARTID, "GRAINDIRECTION", 's')   
+local sGrainInfo = EgtGetInfo( NFAR.PARTID, "GRAINDIRECTION", 's')
 if sGrainInfo then 
    local sGrainAlign = string.sub( sGrainInfo, 7)
    local sGrainDir = string.sub( sGrainInfo, 1, 5)
@@ -286,21 +287,21 @@ if sGrainInfo then
       EgtSetInfo( NFAR.PARTID, "HasGrainDirection", 1)
       bGrain = true 
       -- trovo la rotazione ( a meno di 180°) che deve avere il pezzo per essere allineato con la venatura del grezzo
-      local nGrainRot = 0 
+      local nGrainRot = 0
       if ( sGrainDir == "1,0,0" and not NFAR.RAW_GRAIN_DIR_X) or ( sGrainDir == "0,1,0" and NFAR.RAW_GRAIN_DIR_X) then
-         nGrainRot = 90 
+         nGrainRot = 90
       end  
       
       local nPartRot = EgtGetInfo( NFAR.PARTID, "ROTATED", 'i') or 0
       if ( nGrainRot == 0 and ( nPartRot == 90 or nPartRot == 270)) or ( nGrainRot == 90 and ( nPartRot == 0 or nPartRot == 180)) then
-         local b3Part = EgtGetBBoxGlob( NFAR.PARTID, GDB_BB.STANDARD) 
+         local b3Part = EgtGetBBoxGlob( NFAR.PARTID, GDB_BB.STANDARD)
          EgtRotate( NFAR.PARTID, b3Part:getCenter(), Z_AX(), 90, GDB_RT.GLOB)
          nRotate = 90
-      end        
+      end
    end
-end  
+end
 
-if not bManualRot then 
+if not bManualRot then
    
    local RotateFeatureStates = ClassifyRotation( vPartProc)
    
@@ -346,7 +347,7 @@ if not bManualRot then
                      { Rot = 90, Score = nRot90Min, ScoreCnt = nRot90Cnt},
                      { Rot = 180, Score = nRot180Min, ScoreCnt = nRot180Cnt},
                      { Rot = 270, Score = nRot270Min, ScoreCnt = nRot270Cnt}}
-   local nRotateOpt = 0 
+   local nRotateOpt = 0
    if #RotateFeatureStates > 0 then
       -- calcolo lato con punteggio minore o molteplicita' piu' alta
       local nRotMax = MinList[1].Rot
@@ -359,7 +360,7 @@ if not bManualRot then
             nScoreCnt = MinList[nInd].ScoreCnt
          elseif MinList[nInd].Score == nScoreMax then
             -- se punteggio > 0 conservo quello con molteplicità più alta, se punteggio = 0 conservo quello con molteplicità più bassa
-            if ( nScoreMax ~= 0 and MinList[nInd].ScoreCnt > nScoreCnt) or ( nScoreMax == 0 and MinList[nInd].ScoreCnt < nScoreCnt) then               
+            if ( nScoreMax ~= 0 and MinList[nInd].ScoreCnt > nScoreCnt) or ( nScoreMax == 0 and MinList[nInd].ScoreCnt < nScoreCnt) then
                nRotMax = MinList[nInd].Rot
                nScoreMax = MinList[nInd].Score
                nScoreCnt = MinList[nInd].ScoreCnt
@@ -369,7 +370,7 @@ if not bManualRot then
       nRotateOpt = nRotMax
    else
       nRotateOpt = 0
-   end      
+   end
    
    local bRotNest = false
    local nStepRotNest = 0
@@ -387,40 +388,40 @@ if not bManualRot then
       -- altrimenti permetto tutto
       bRotNest = true
       nStepRotNest = 90
-   end 
+   end
    
     -- verifico se ci sono fori lungo Y che bloccano la rotazione
-   local bDrillOnY = ( nStepRotNest == 180)  
+   local bDrillOnY = ( nStepRotNest == 180)
    
-   local b3Part = EgtGetBBoxGlob( NFAR.PARTID, GDB_BB.STANDARD) 
+   local b3Part = EgtGetBBoxGlob( NFAR.PARTID, GDB_BB.STANDARD)
     
-   if bGrain then       
-      -- se venatura eseguo rotazione solo se è di 180° 
-      if nRotateOpt == 180 then 
-         EgtRotate( NFAR.PARTID, b3Part:getCenter(), Z_AX(), nRotateOpt, GDB_RT.GLOB) 
+   if bGrain then
+      -- se venatura eseguo rotazione solo se è di 180°
+      if nRotateOpt == 180 then
+         EgtRotate( NFAR.PARTID, b3Part:getCenter(), Z_AX(), nRotateOpt, GDB_RT.GLOB)
          nRotate = nRotate + nRotateOpt
-      end  
-      nStepRotNest = 180 
+      end
+      nStepRotNest = 180
    else
       -- eseguo rotazione
       EgtRotate( NFAR.PARTID, b3Part:getCenter(), Z_AX(), nRotateOpt, GDB_RT.GLOB)
       nRotate = nRotate + nRotateOpt
    end
     
-   -- verifico se rotazione è valida ( pezzo contenuto nel grezzo) solo se no venatura  
-   if not bGrain then          
-      b3Part = EgtGetBBoxGlob( NFAR.PARTID, GDB_BB.STANDARD) 
+   -- verifico se rotazione è valida ( pezzo contenuto nel grezzo) solo se no venatura
+   if not bGrain then
+      b3Part = EgtGetBBoxGlob( NFAR.PARTID, GDB_BB.STANDARD)
       local bValidRotationForRaw = b3Part:getDimX() < WD.MAX_LENGTH and b3Part:getDimY() < WD.MAX_WIDTH
       local bRotatedIsValid = b3Part:getDimY() < WD.MAX_LENGTH and b3Part:getDimX() < WD.MAX_WIDTH
       if not bValidRotationForRaw and bRotatedIsValid then
          EgtRotate( NFAR.PARTID, b3Part:getCenter(), Z_AX(), 90, GDB_RT.GLOB)
-         nRotate = nRotate + 90 
-         nStepRotNest = 180 
+         nRotate = nRotate + 90
+         nStepRotNest = 180
       end
    end
       
    -- se no venatura e non ci sono fori verifico se il pezzo cade 
-   if not bGrain and not bDrillOnY then   
+   if not bGrain and not bDrillOnY then
       b3Part = EgtGetBBoxGlob( NFAR.PARTID, GDB_BB.STANDARD)
       local bValidRotation = b3Part:getDimX() > ( WD.INTRULLI or 1200)
       -- verifico se ruotata resta valida
@@ -428,22 +429,22 @@ if not bManualRot then
       -- se non è valida ma ruotato lo sarebbe, ruoto
       if not bValidRotation and bRotatedIsValid and nStepRotNest ~= 180 then
          EgtRotate( NFAR.PARTID, b3Part:getCenter(), Z_AX(), 90, GDB_RT.GLOB)
-         nRotate = nRotate + 90 
-         nStepRotNest = 180 
+         nRotate = nRotate + 90
+         nStepRotNest = 180
       elseif bValidRotation and not bRotatedIsValid then
          -- se fosse valida ma la sua ruotata no, allora blocco lo step nella rotazione del nesting
-         nStepRotNest = 180 
-      end  
+         nStepRotNest = 180
+      end
    end
    
-   -- setto info nel pezzo 
+   -- setto info nel pezzo
    if nRotate > 0 then
       local nPartRot = EgtGetInfo( NFAR.PARTID, "ROTATED", 'i') or 0
       local nTotRot = nPartRot - nRotate
       nTotRot = EgtIf( nTotRot < 0, nTotRot + 360, nTotRot)
-      EgtSetInfo( NFAR.PARTID, "ROTATED", nTotRot)  
+      EgtSetInfo( NFAR.PARTID, "ROTATED", nTotRot)
       EgtSetInfo( NFAR.PARTID, "FLIPROTMODIFIED", 1)
-   end   
+   end
    
    EgtSetInfo( NFAR.PARTID, "NestStepRot", nStepRotNest)
    EgtSetInfo( NFAR.PARTID, "NestRot", nRotate)
@@ -451,4 +452,4 @@ if not bManualRot then
 end
 
 
-NFAR.ERR = 0 
+NFAR.ERR = 0

Version.lua

@@ -1,4 +1,6 @@
--- Version.lua by Egalware s.r.l. 2023/03/08
+-- Version.lua by Egalware s.r.l. 2023/03/27
 -- Gestione della versione di Wall
 
-VERSION = '2.5c4'
+NAME = 'Wall'
+VERSION = '2.5d1'
+MIN_EXE = '2.5b3'