Merge branch 'develop'

- in Is3EdgesApprox di FreeContour aggiunta cancellazione dei loop temporanei.

Compile.bat

@@ -1,5 +1,5 @@
 
-REM Compilazione degli script Wall Egaltech                         2023.02.27
+REM Compilazione degli script Wall Egaltech                         2023.09.26
 REM Per togliere info di debug aggiungere flag -s prima del nome del file di input
 
 REM Compilazione 32 e 64 bit
@@ -11,6 +11,7 @@ REM Compilazione 32 e 64 bit
 \EgtProg\Dll32\luac54 -o bin\LuaLibs\WProcessDoubleCut.lua             LuaLibs\WProcessDoubleCut.lua
 \EgtProg\Dll32\luac54 -o bin\LuaLibs\WProcessDrill.lua                 LuaLibs\WProcessDrill.lua
 \EgtProg\Dll32\luac54 -o bin\LuaLibs\WProcessDtMortise.lua             LuaLibs\WProcessDtMortise.lua
+REM \EgtProg\Dll32\luac54 -o bin\LuaLibs\WFeatureTopology.lua             LuaLibs\WFeatureTopology.lua
 \EgtProg\Dll32\luac54 -o bin\LuaLibs\WProcessFreeContour.lua           LuaLibs\WProcessFreeContour.lua
 \EgtProg\Dll32\luac54 -o bin\LuaLibs\WProcessLapJoint.lua              LuaLibs\WProcessLapJoint.lua
 \EgtProg\Dll32\luac54 -o bin\LuaLibs\WProcessMark.lua                  LuaLibs\WProcessMark.lua

LuaLibs/WMachiningLib.lua

@@ -186,9 +186,11 @@ end
 ---------------------------------------------------------------------
 function WMachiningLib.AddMachining( Proc, sName, sMachining)
    local nMchId, sFinalName = EgtAddMachining( sName, sMachining)
-   local nPriority = EgtGetInfo( Proc.Id, 'PRIORITY', 'i')
-   EgtSetInfo( nMchId, 'PRIORITY', nPriority)
-   EgtSetInfo( nMchId, 'ISOUTLINE', Proc.IsOutline)
+   if type(Proc) == 'table' then
+      local nPriority = EgtGetInfo( Proc.Id or GDB_ID.NULL, 'PRIORITY', 'i')
+      EgtSetInfo( nMchId or GDB_ID.NULL, 'PRIORITY', nPriority)
+      EgtSetInfo( nMchId or GDB_ID.NULL, 'ISOUTLINE', Proc.IsOutline)
+   end
    return nMchId, sFinalName
 end
 

LuaLibs/WProcessFreeContour.lua

@@ -1,4 +1,4 @@
--- ProcessFreeContour.lua by Egaltech s.r.l. 2023/04/17
+-- ProcessFreeContour.lua by Egaltech s.r.l. 2023/09/26
 -- Gestione calcolo profilo libero per Pareti
 -- 2021/11/15 Penna e chiodature sono sempre riportate sulla faccia sopra anche se nel progetto sono sotto.
 -- 2021/12/10 In taglio con lama aggiunta gestione SCC per testa Gearbox.
@@ -21,6 +21,9 @@
 -- 2023/05/25 Funzioni EgtAddMachining sostituite da WM.AddMachining in modo da trascrivere le priorità da btl alle lavorazioni.
 -- 2023/06/06 Aggiunta gestione lavorazione per lamatura speciale affondata con Tool_ID specifico.
 -- 2023/07/26 In MakeByCut migliorata la scelta della fresa secondaria nel caso non sia disponibile una fresa di lunghezza sufficiente.
+-- 2023/09/12 Modifiche a GetTunnelDimension (asse deve essere com Z globale) e MakeLocalSurf per gestire finestre con lati inclinati.
+-- 2023/09/21 In MakeByMill modificato SCC per correggere caso con lama su testa fresa.
+-- 2023/09/26 In Is3EdgesApprox aggiunta cancellazione dei loop temporanei.
 
 -- Tabella per definizione modulo
 local WPF = {}
@@ -544,87 +547,63 @@ local function GetFacesData( Proc, bOpposite, bCalclForBlade, dToolDiam, dToolMa
 end
 
 ---------------------------------------------------------------------
-local function GetTunnelDimension( nId, nPartId, nAddGrpId)
-   -- ottengo i versori delle 4 facce e ottengo l'orientamento del tunnel
-   -- recupero il numero di facce
+local function GetTunnelDimension( nId, nPartId, nAddGrpId, bClosed)
+   -- sono necessarie almeno 2 facce
    local nFacCnt = EgtSurfTmFacetCount( nId)
    if nFacCnt < 2 then return end
-   -- recupero l'ingombro della trave
+   -- recupero l'ingombro del pezzo
    local b3Solid = EgtGetBBoxGlob( EgtGetFirstNameInGroup( nPartId, 'Box') or GDB_ID.NULL, GDB_BB.STANDARD)
-   -- variabili dimensioni fessura e id faccia lunga
-   local dDimMin
-   local dDimMax
-   local nLongIdFace = 0
-   local bNegFace
-   local bOppoFace = false
-   -- ottengo il versore ortogonale
-   local ptN1, vtN1 = EgtSurfTmFacetCenter( nId, 0, GDB_ID.ROOT)
-   local vtN2 = EgtSurfTmFacetNormVersor( nId, 1, GDB_ID.ROOT)
-   local vtOrtho = vtN1 ^ vtN2
-   if vtOrtho:isSmall() then
-      vtN2 = EgtSurfTmFacetNormVersor( nId, 2, GDB_ID.ROOT) or V_NULL()
-      vtOrtho = vtN1 ^ vtN2
-      bOppoFace = true
+   -- recupero centro e normale delle facce
+   local ptC = {}
+   local vtN = {}
+   for i = 1, nFacCnt do
+      ptC[i], vtN[i] = EgtSurfTmFacetCenter( nId, i - 1, GDB_ID.ROOT)
    end
-   if not vtOrtho:normalize() then return end
-   if vtOrtho:getZ() < -0.5 then 
-      vtOrtho = -vtOrtho
-      bNegFace = true
+   -- determino l'asse medio (le facce sono già ordinate consecutivamente)
+   local vtAx = V_NULL()
+   for i = 1, EgtIf( bClosed, nFacCnt, nFacCnt - 1) do
+      local j = i % nFacCnt + 1
+      local vtOrtho = vtN[i] ^ vtN[j]
+      if vtOrtho:normalize() then
+         vtAx = vtAx + vtOrtho
+      end
    end
-   -- ottengo il boundingBox e prendo le dimensioni lungo la normale (Z locale) che rappresenta la profondità della fessura
-   local frFc = Frame3d( ptN1, vtOrtho) ;
-   local bBoxLoc = EgtGetBBoxRef( nId, GDB_BB.STANDARD, frFc)
-   local dDepth = bBoxLoc:getDimZ()
-   -- mi assicuro che la Z del punto utilizzato per creare la superficie sia alla Z inferiore del bounding box locale
-   local ptN2 = Point3d(ptN1)
-   ptN2:toLoc(frFc)
-   ptN2 = Point3d( ptN2:getX(), ptN2:getY(), bBoxLoc:getMin():getZ() + 2*GEO.EPS_SMALL)
-   ptN2:toGlob(frFc)
-   -- creo superficie intermedia
-   local nSurfInt = EgtSurfTmPlaneInBBox( nAddGrpId, ptN2, vtOrtho, b3Solid, GDB_ID.ROOT)
+   if not vtAx:normalize() or abs( vtAx:getZ()) < 0.5 then return end
+   -- impongo come asse Z globale
+   vtAx = Z_AX()
+   -- recupero ingombro del tunnel nel riferimento globale
+   local b3Box = EgtGetBBoxGlob( nId, GDB_BB.STANDARD)
+   local dDepth = b3Box:getDimZ()
+   -- creo faccia in basso (di poco sollevata)
+   local nSurfInt = EgtSurfTmPlaneInBBox( nAddGrpId, b3Box:getMin() + 2 * GEO.EPS_SMALL * vtAx, vtAx, b3Solid, GDB_ID.ROOT)
    if not nSurfInt then return end
    -- ritaglio la superficie con le facce della fessura
    for i = 1, nFacCnt do
       local ptN, vtN = EgtSurfTmFacetCenter( nId, i - 1, GDB_ID.ROOT)
       EgtCutSurfTmPlane( nSurfInt, ptN, -vtN, false, GDB_ID.ROOT)
    end
-   -- sposto la geometria trovata sulla Z minima (era su di 2 * GEO.EPS_SMALL)
-   EgtMove( nSurfInt, Point3d(0,0,-2*GEO.EPS_SMALL) - ORIG(), GDB_RT.GLOB)
+   -- sposto la geometria trovata sulla Z minima del pezzo
+   EgtMove( nSurfInt, -2 * GEO.EPS_SMALL * vtAx, GDB_RT.GLOB)
    -- mi faccio dare il contorno della superfice e la ricreo in modo più corretto
    local nIdCont, nIdNum = EgtExtractSurfTmLoops( nSurfInt, nAddGrpId)
    if not nIdCont then return end
    -- elimino le entità allineate dello stesso tipo
-   EgtMergeCurvesInCurveCompo( nIdCont, 2*GEO.EPS_SMALL)
-   EgtErase(nSurfInt)
-   nSurfInt = EgtSurfTmByFlatContour( nAddGrpId, nIdCont, 2*GEO.EPS_SMALL)
-   -- elimino il contorno
+   EgtMergeCurvesInCurveCompo( nIdCont, 2 * GEO.EPS_SMALL)
+   EgtErase( nSurfInt)
+   nSurfInt = EgtSurfTmByFlatContour( nAddGrpId, nIdCont, 2 * GEO.EPS_SMALL)
    EgtErase(nIdCont)
-   -- se normale negativa inverto
-   _, vtN1 = EgtSurfTmFacetCenter( nSurfInt, 0, GDB_ID.ROOT)
-   if vtN1:getZ() < -0.5 then EgtInvertSurf( nSurfInt) end
-   local _, DimH, DimV = EgtSurfTmFacetMinAreaRectangle( nSurfInt, 0, GDB_ID.ROOT)
-   dDimMin = min( DimH, DimV)
-   dDimMax = max( DimH, DimV)
-   _, DimH, DimV = EgtSurfTmFacetMinAreaRectangle( nId, nFacCnt-1, GDB_ID.ROOT)
-   -- se faccia pari alla larghezza fessura
-   if abs(DimH - dDimMax) < GEO.EPS_SMALL or abs(DimV - dDimMax) < GEO.EPS_SMALL then
-      nLongIdFace = nFacCnt-1
-   -- altrimenti verifico anche con la faccia precedente
-   else
-      local nFaceToCheck = EgtIf( bOppoFace, nFacCnt-3, nFacCnt-2)
-      -- prendo le dimensioni della faccia e poi confronto con il minimo
-      _, DimH, DimV = EgtSurfTmFacetMinAreaRectangle( nId, nFaceToCheck, GDB_ID.ROOT)
-      -- se trovato con il minimo, questa seconda faccia non è la più lunga
-      if abs(DimH - dDimMin) < GEO.EPS_SMALL or abs(DimV - dDimMin) < GEO.EPS_SMALL then
-         nLongIdFace = nFacCnt-1
-      else
-         nLongIdFace = nFaceToCheck
+   -- ne recupero le dimensioni
+   local _, dDimMax, dDimMin = EgtSurfTmFacetMinAreaRectangle( nSurfInt, 0, GDB_ID.ROOT)
+   -- cerco faccia del contorno con lunghezza vicino alla massima
+   local nLongIdFace
+   for i = 1, nFacCnt do
+      local _, DimH, DimV = EgtSurfTmFacetMinAreaRectangle( nId, i - 1, GDB_ID.ROOT)
+      if DimH > dDimMax - 100 * GEO.EPS_SMALL then
+         nLongIdFace = i - 1
+         break
       end
    end
-   if not dDimMax then
-      return dDimMin, dDimMax, dDepth, nil, nil
-   end
-   return dDimMin, dDimMax, dDepth, vtOrtho, nLongIdFace, nSurfInt
+   return dDimMin, dDimMax, dDepth, vtAx, nLongIdFace, nSurfInt
 end
 
 ---------------------------------------------------------------------
@@ -688,7 +667,7 @@ local function MakeCustomPath( vGeom, nConeCut, dMillDiam, nAddGrpId, dThick, bC
    -- in base al tipo di ripresa spigolo modifico il percorso
    if nConeCut == 2 then
       -- acquisisco la lunghezza utensile
-      sMilling, dMaxDepth = WM.FindMilling( 'CleanCorner30')
+      local sMilling = WM.FindMilling( 'CleanCorner30')
       if not sMilling then
          local sErr = 'Error : CleanCorner 30 not found in library'
          return 0, sErr
@@ -721,7 +700,7 @@ local function MakeCustomPath( vGeom, nConeCut, dMillDiam, nAddGrpId, dThick, bC
             vtExtrExit:normalize()
             -- linea intermedia (componente lunghezza utensile in direzione bisettrice)
             local pEnd = ptP1 + ( dLenAdd * vtExtrExit)
-            nAuxId = EgtLine( nAddGrpId, ptP1, pEnd, GDB_RT.GLOB)
+            local nAuxId = EgtLine( nAddGrpId, ptP1, pEnd, GDB_RT.GLOB)
             table.insert( nPath, nAuxId)
             -- linea di ritorno
             nAuxId = EgtLine( nAddGrpId, pEnd, ptP1, GDB_RT.GLOB)
@@ -750,7 +729,7 @@ local function MakeCustomPath( vGeom, nConeCut, dMillDiam, nAddGrpId, dThick, bC
             local dLenAdd = abs( (dMillDiam/2) / cos( nPathData[i][2]/2)) + dExtraCorner - (dMillDiam/2)
             -- linea intermedia (componente lunghezza utensile in direzione bisettrice)
             local pEnd = ptP1 + ( dLenAdd * vtExtrExit)
-            nAuxId = EgtLine( nAddGrpId, ptP1, pEnd, GDB_RT.GLOB)
+            local nAuxId = EgtLine( nAddGrpId, ptP1, pEnd, GDB_RT.GLOB)
             table.insert( nPath, nAuxId)
             -- linea di ritorno
             nAuxId = EgtLine( nAddGrpId, pEnd, ptP1, GDB_RT.GLOB)
@@ -790,40 +769,28 @@ end
 
 ---------------------------------------------------------------------
 local function MakeLocalSurf( ptP1, ptP2, ptP3, nAddGrpId)
-
+   -- verifico che i tre punti siano definiti
    if not ptP1 or not ptP2 or not ptP3 then
       return nil
    end
-
-   local pAuxId = {}
-   local nAuxId, AuxId
-   nAuxId = EgtLine( nAddGrpId, ptP1, ptP2, GDB_RT.GLOB)
-   table.insert( pAuxId, nAuxId)
-   nAuxId = EgtLine( nAddGrpId, ptP2, ptP3, GDB_RT.GLOB)
-   table.insert( pAuxId, nAuxId)
-   nAuxId = EgtLine( nAddGrpId, ptP3, ptP1, GDB_RT.GLOB)
-   table.insert( pAuxId, nAuxId)
-   -- trasformo in percorso
-   if #pAuxId ~= 3 then
+   -- creo il contorno
+   local nLoopId = EgtCurveCompoFromPoints( nAddGrpId, { ptP1, ptP2, ptP3, ptP1}, GDB_RT.GLOB)
+   if not nLoopId then
       return nil
    end
-   AuxId = EgtCurveCompo( nAddGrpId, pAuxId, true)
-   -- se non c'é il percorso esco
-   if not AuxId then
-      return nil
-   end
-   -- creo la superfice piana
-   local nidFace = EgtSurfTmByFlatContour( nAddGrpId, AuxId, 0.01)
-   if not nidFace then
-      EgtErase(AuxId)
+   -- creo la superfice triangolare (quindi piana)
+   local nFaceId = EgtSurfTmByFlatContour( nAddGrpId, nLoopId, 0.01)
+   EgtErase( nLoopId)
+   if not nFaceId then
       return nil
    end
    -- se normale negativa inverto
-   local _, vtN1 = EgtSurfTmFacetCenter( nidFace, 0, GDB_ID.ROOT)
-   if vtN1:getZ() < -0.5 then EgtInvertSurf( nidFace) end
+   local vtN1 = EgtSurfTmFacetNormVersor( nFaceId, 0, GDB_ID.ROOT)
+   if vtN1:getZ() < -0.01 then
+      EgtInvertSurf( nFaceId)
+   end
 
-   EgtErase(AuxId)
-   return nidFace
+   return nFaceId
 end
 
 ---------------------------------------------------------------------
@@ -840,7 +807,7 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
    -- se devo creare superfice locale
    if bMakeLocSurf then
       -- creo superfice locale o esco
-      local nSurfToAdd = MakeLocalSurf( tFacAdj[1][7], tFacAdj[1][8], tFacAdj[1][9], nAddGrpId)
+      local nSurfToAdd = MakeLocalSurf( tFacAdj[7], tFacAdj[8], tFacAdj[9], nAddGrpId)
       if nSurfToAdd then
          local nFacCntPre = EgtSurfTmFacetCount( nNewProc)
          -- creo copia del percorso principale e gli aggiungo la nuova faccia
@@ -849,7 +816,7 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
          -- riordino le facce
          ReorderFacesFromTab( nNewProcLoc, vFace)
          -- acquisisco il numero della faccia   
-         nFacCnt = EgtSurfTmFacetCount( nNewProcLoc)
+         local nFacCnt = EgtSurfTmFacetCount( nNewProcLoc)
          nFacInd = nFacCnt - 1
       else
          return true, ''
@@ -859,28 +826,31 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
    end
    -- prendo il primo versore
    local _, vtN1 = EgtSurfTmFacetCenter( nNewProcLoc, nFacInd, GDB_ID.ROOT)
-   local _, vtN2 = EgtSurfTmFacetCenter( nNewProcLoc, tFacAdj[1][1], GDB_ID.ROOT)
-   local _, vtN3 = EgtSurfTmFacetCenter( nNewProcLoc, tFacAdj[1][2], GDB_ID.ROOT)
+   local _, vtN2 = EgtSurfTmFacetCenter( nNewProcLoc, tFacAdj[1], GDB_ID.ROOT)
+   local _, vtN3 = EgtSurfTmFacetCenter( nNewProcLoc, tFacAdj[2], GDB_ID.ROOT)
    -- trovo il punto sulla superfice di riferimento
-   local _, ptLocP1, ptLocP2, _ = EgtSurfTmFacetsContact( nNewProcLoc, nFacInd, tFacAdj[1][1], GDB_ID.ROOT)
-   local _, ptLocP3, ptLocP4, _ = EgtSurfTmFacetsContact( nNewProcLoc, nFacInd, tFacAdj[1][2], GDB_ID.ROOT)
+   local _, ptLocP1, ptLocP2, _ = EgtSurfTmFacetsContact( nNewProcLoc, nFacInd, tFacAdj[1], GDB_ID.ROOT)
+   local _, ptLocP3, ptLocP4, _ = EgtSurfTmFacetsContact( nNewProcLoc, nFacInd, tFacAdj[2], GDB_ID.ROOT)
    -- se ho creato faccia locale su copia superficie, cancella la copia
    if bMakeLocSurf then
       EgtErase( nNewProcLoc)
    end
+   if not ptLocP1 or not ptLocP2 then
+      return false, 'Error : clean corner with non adjacent faces'
+   end
    local nIdIniPoint
    local nIdEndPoint
    if ptLocP1 and ptLocP2 then
-      if ( dist( ptLocP1, tFacAdj[1][4]) < GEO.EPS_SMALL) or ( dist( ptLocP2, tFacAdj[1][4]) < GEO.EPS_SMALL) then
+      if ( dist( ptLocP1, tFacAdj[4]) < GEO.EPS_SMALL) or ( dist( ptLocP2, tFacAdj[4]) < GEO.EPS_SMALL) then
          nIdEndPoint = 4
          nIdIniPoint = 5
-      elseif ( dist( ptLocP1, tFacAdj[1][5]) < GEO.EPS_SMALL) or ( dist( ptLocP2, tFacAdj[1][5]) < GEO.EPS_SMALL) then
+      elseif ( dist( ptLocP1, tFacAdj[5]) < GEO.EPS_SMALL) or ( dist( ptLocP2, tFacAdj[5]) < GEO.EPS_SMALL) then
          nIdEndPoint = 5
          nIdIniPoint = 4
       end
    end
    -- versore direzione
-   local vtExtr = tFacAdj[1][nIdIniPoint] - tFacAdj[1][nIdEndPoint]
+   local vtExtr = tFacAdj[nIdIniPoint] - tFacAdj[nIdEndPoint]
    vtExtr:normalize()
    -- versore direzione di uscita
    local vtExtrExit
@@ -909,44 +879,44 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
          vtCheck:rotate( Z_AX(), dOffsAng)
       end
       -- controllo se c'è collisione con le facce della superfice
-      if nTypeConeCut == 1 and CalcInterference( nNewProc, vtCheck, tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach), dDiam1, dDiam2,
+      if nTypeConeCut == 1 and CalcInterference( nNewProc, vtCheck, tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach), dDiam1, dDiam2,
                                                  dTall1, dTall2, dDiam3, dTall3) then
          local sErr = 'Collision detect from clean corner tool and surface'
          EgtOutLog( sErr)
          return true, ''
       end
-      nAuxId = EgtLine( nAddGrpId, tFacAdj[1][nIdIniPoint], tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
+      nAuxId = EgtLine( nAddGrpId, tFacAdj[nIdIniPoint], tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
       table.insert( pAuxId, nAuxId)
       -- se uso utensile cono 60°
       if nTypeConeCut == 1 then
          -- se offset angolare valido e/o negativo creo il baffo precedente
          if dOffsAng < ( 100 * GEO.EPS_SMALL) then
             -- se il punto finale corrisponde con il punto utilizzato in precedenza, uso l'altro
-            if dist( tFacAdj[1][nIdEndPoint], ptLocP1) < 10 * GEO.EPS_SMALL then
+            if dist( tFacAdj[nIdEndPoint], ptLocP1) < 10 * GEO.EPS_SMALL then
                ptApPoint = ptLocP2
             else
                ptApPoint = ptLocP1
             end
-            nAuxId = EgtLine( nAddGrpId, tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach), ptApPoint + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
-            local dLenTrimExt = dist( tFacAdj[1][nIdEndPoint], ptApPoint) - (( dToolDiam/2) + 0.2)
+            nAuxId = EgtLine( nAddGrpId, tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach), ptApPoint + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
+            local dLenTrimExt = dist( tFacAdj[nIdEndPoint], ptApPoint) - (( dToolDiam/2) + 0.2)
             -- se la distanza dei due punti della linea è maggiore dal raggio fresa + delta, trimmo al raggio fresa + delta
             if dLenTrimExt > 10 * GEO.EPS_SMALL then
                EgtTrimExtendCurveByLen( nAuxId , -dLenTrimExt, ptApPoint + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
                -- se ho l'offset angolare ruoto la linea per compensare la rotazione che verrà applicata
                if abs(dOffsAng) > 100 * GEO.EPS_SMALL then
-                  EgtRotate( nAuxId, tFacAdj[1][nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
+                  EgtRotate( nAuxId, tFacAdj[nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
                end
                -- prendo il nuovo punto finale
                ptApPoint = EgtEP( nAuxId, GDB_RT.GLOB) + Point3d( 0, 0, dDepthMach)
             else
                -- se ho l'offset angolare ruoto la linea per compensare la rotazione che verrà applicata
                if abs(dOffsAng) > 100 * GEO.EPS_SMALL then
-                  EgtRotate( nAuxId, tFacAdj[1][nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
+                  EgtRotate( nAuxId, tFacAdj[nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
                end
             end
             table.insert( pAuxId, nAuxId)
             -- creo linea di ritorno
-            nAuxId = EgtLine( nAddGrpId, ptApPoint + Point3d( 0, 0, -dDepthMach), tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
+            nAuxId = EgtLine( nAddGrpId, ptApPoint + Point3d( 0, 0, -dDepthMach), tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
             table.insert( pAuxId, nAuxId)
          end
       end
@@ -956,7 +926,7 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
    ptLocP1, ptLocP2 = ptLocP3, ptLocP4
    if ptLocP1 and ptLocP2 then
       -- se il punto finale corrisponde con il punto utilizzato in precedenza, uso l'altro
-      if dist( tFacAdj[1][nIdEndPoint], ptLocP1) < 10 * GEO.EPS_SMALL then
+      if dist( tFacAdj[nIdEndPoint], ptLocP1) < 10 * GEO.EPS_SMALL then
          ptApPoint = ptLocP2
       else
          ptApPoint = ptLocP1
@@ -965,36 +935,36 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
       if nTypeConeCut == 1 then
          -- se offset angolare valido e/o negativo creo il baffo precedente
          if dOffsAng > -( 100 * GEO.EPS_SMALL) then
-            nAuxId = EgtLine( nAddGrpId, tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach), ptApPoint + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
-            local dLenTrimExt = dist( tFacAdj[1][nIdEndPoint], ptApPoint) - (( dToolDiam/2) + 0.2)
+            nAuxId = EgtLine( nAddGrpId, tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach), ptApPoint + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
+            local dLenTrimExt = dist( tFacAdj[nIdEndPoint], ptApPoint) - (( dToolDiam/2) + 0.2)
             -- se la distanza dei due punti della linea è maggiore dal raggio fresa + delta, trimmo al raggio fresa + delta
             if dLenTrimExt > 10 * GEO.EPS_SMALL then
                EgtTrimExtendCurveByLen( nAuxId , -dLenTrimExt, ptApPoint + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
                -- se ho l'offset angolare ruoto la linea per compensare la rotazione che verrà applicata
                if abs(dOffsAng) > 100 * GEO.EPS_SMALL then
-                  EgtRotate( nAuxId, tFacAdj[1][nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
+                  EgtRotate( nAuxId, tFacAdj[nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
                end
                -- prendo il nuovo punto finale
                ptApPoint = EgtEP( nAuxId, GDB_RT.GLOB) + Point3d( 0, 0, dDepthMach)
             else
                -- se ho l'offset angolare ruoto la linea per compensare la rotazione che verrà applicata
                if abs(dOffsAng) > 100 * GEO.EPS_SMALL then
-                  EgtRotate( nAuxId, tFacAdj[1][nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
+                  EgtRotate( nAuxId, tFacAdj[nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
                end
             end
             table.insert( pAuxId, nAuxId)
             -- creo linea di ritorno
-            nAuxId = EgtLine( nAddGrpId, ptApPoint + Point3d( 0, 0, -dDepthMach), tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
+            nAuxId = EgtLine( nAddGrpId, ptApPoint + Point3d( 0, 0, -dDepthMach), tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
             table.insert( pAuxId, nAuxId)
          end
          -- ultima linea di distacco (5mm in direzione utensile)
-         local pEnd =  tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach) + ( 5 * vtExtr)
-         nAuxId = EgtLine( nAddGrpId, tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach), pEnd, GDB_RT.GLOB)
+         local pEnd =  tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach) + ( 5 * vtExtr)
+         nAuxId = EgtLine( nAddGrpId, tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach), pEnd, GDB_RT.GLOB)
          table.insert( pAuxId, nAuxId)
       else
          -- linea di distacco (2mm in direzione utensile)
-         local pEnd =  tFacAdj[1][nIdEndPoint] + ( 2 * vtExtr)
-         nAuxId = EgtLine( nAddGrpId, tFacAdj[1][nIdEndPoint], pEnd, GDB_RT.GLOB)
+         local pEnd =  tFacAdj[nIdEndPoint] + ( 2 * vtExtr)
+         nAuxId = EgtLine( nAddGrpId, tFacAdj[nIdEndPoint], pEnd, GDB_RT.GLOB)
          table.insert( pAuxId, nAuxId)
          -- ultima linea di risalita in Z
          local pIni = pEnd
@@ -1017,7 +987,7 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
    EgtModifyCurveExtrusion( AuxId, vtExtr, GDB_RT.GLOB)
    -- se ho un offset angolare ruoto il percorso
    if abs(dOffsAng) > 100 * GEO.EPS_SMALL then
-      EgtRotate( AuxId, tFacAdj[1][nIdEndPoint], Z_AX(), dOffsAng, GDB_RT.GLOB)
+      EgtRotate( AuxId, tFacAdj[nIdEndPoint], Z_AX(), dOffsAng, GDB_RT.GLOB)
    end
    -- inserisco la lavorazione
    local sName = 'Clean_' .. ( EgtGetName( nNewProc) or tostring( nNewProc))
@@ -1035,10 +1005,7 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
    -- aggiungo geometria
    EgtSetMachiningGeometry( {{ AuxId, -1}})
    -- imposto posizione braccio porta testa
-   local nSCC = MCH_SCC.ADIR_YM
-   if vtExtr:getY() > 100 * GEO.EPS_ZERO then
-      nSCC = MCH_SCC.ADIR_YP
-   end
+   local nSCC = MCH_SCC.ADIR_ZP
    EgtSetMachiningParam( MCH_MP.SCC, nSCC)
    EgtSetMachiningParam( MCH_MP.LEADINTYPE, 0)
    EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, 4)
@@ -1111,9 +1078,11 @@ local function AddMillCorner( nTypeConeCut, vFace, Proc, nRawId, b3Raw,
          dToolLength = EgtTdbGetCurrToolParam( MCH_TP.LEN) or dToolLength
          dMaxDepth = EgtTdbGetCurrToolMaxDepth() or dMaxDepth      -- qui è la distanza dal portautensile
          -- calcolo il secondo diametro del cono
-         dMillTotDiam = dMillDiam + ( abs(dThickTool) * tan(dSideAng)) * 2
+         dMillTotDiam = dMillDiam + ( abs( dThickTool) * tan( dSideAng)) * 2
       end
    end
+   -- verifico se ciclo chiuso
+   local bClosed = ( abs( vFace[1].PrevAng) > 0.1)
    -- copio la feature nel layer di appoggio
    local nNewProc
    if nMasterNewProc then
@@ -1122,31 +1091,27 @@ local function AddMillCorner( nTypeConeCut, vFace, Proc, nRawId, b3Raw,
       nNewProc = EgtCopyGlob( Proc.Id, nAddGrpId) or GDB_ID.NULL
    end
    local nFacCnt = EgtSurfTmFacetCount( nNewProc)
-   local nFacInd, dDimMin, dDimMax, dDepth, nSurfInt
+   local nFacInd, dDepth, nSurfInt
    local bMakeLocSurf
-   if nFacCnt <= 4 then
-      -- ottengo le dimensioni apertura, la normale e la faccia inferiore
-      dDimMin, dDimMax, dDepth, _, _, nSurfInt = GetTunnelDimension( nNewProc, Proc.PartId, nAddGrpId)
+   -- RIMUOVERE
+   if false and nFacCnt <= 4 then
+      -- recupero profondità e faccia di fondo
+      _, _, dDepth, _, _, nSurfInt = GetTunnelDimension( nNewProc, Proc.PartId, nAddGrpId, bClosed)
       if nSurfInt then
-         -- uso la dimensione minima anche nel caso che la cava sborda perchè la lavorazione potrebbe collidere con un pezzo limitrofo
-         local dMinWidth = dDimMin
-         nNewProc = EgtSurfTmBySewing( nAddGrpId, {nNewProc,nSurfInt} , true)
+         -- aggiungo la faccia di fondo appena calcolata
+         nNewProc = EgtSurfTmBySewing( nAddGrpId, { nNewProc, nSurfInt}, true)
          -- riordino le facce
          ReorderFacesFromTab( nNewProc, vFace)
-         -- acquisisco il numero della faccia   
+         -- aggiorno numero di facce e assegno indice di quella di fondo (sempre ultima)
          nFacCnt = EgtSurfTmFacetCount( nNewProc)
          nFacInd = nFacCnt - 1
       else
          return true
-         --local sErr = 'Error : cannot create base surface'
-         --EgtOutLog( sErr)
-         --return false, sErr
       end
+      -- FINE PARTE DA RIMUOVERE
    else
       bMakeLocSurf = true
    end
-   -- verifico se ciclo chiuso
-   local bClosed = ( abs( vFace[1].PrevAng) > 0.1)
    -- ciclo di inserimento delle fresate sulle facce del contorno in esame
    local i = 1
    -- se faccia finale con fine non lavorato, forzo partenza da prima faccia non tutta saltata (tipo 4)
@@ -1161,38 +1126,37 @@ local function AddMillCorner( nTypeConeCut, vFace, Proc, nRawId, b3Raw,
    while i <= #vFace do
       -- se tutta la faccia o la sua fine senza taglio, inserisco una fresatura
       if ( vFace[i].Type & 2) ~= 0  or  vFace[i].Type == 4 then
-         -- variabili costruzione geometria
-         local tFacAdj = {}
+         -- variabili costruzione geometria (nFace1, nFace2, tFacAdj)
          local nFace1 = vFace[i].Fac
-         local nFace2
+         -- aggiungo geometria
+         local j = EgtIf( i < #vFace, i + 1, EgtIf( bClosed, 1, nil))
+         if not j then return true end
+         local nFace2 = vFace[j].Fac
          -- ricavo i tre punti per eventuale superficie locale
          local ptLoc1, ptLoc2, ptLoc3
-         -- punto precedente (punto precedente della faccia [i])
-         ptLoc3 = vFace[i].PPrev
-         -- aggiungo geometria
-         i = i + 1
-         local j = EgtIf( i <= #vFace, i, EgtIf( bClosed, 1, nil))
-         if not j then
-            return true
-         end
-         nFace2 = vFace[j].Fac
          -- punto in comune tra le due facce (punto precedente della faccia [j])
          ptLoc1 = vFace[j].PPrev
+         -- punto precedente (punto precedente della faccia [i])
+         if vFace[i].PPrev then
+            ptLoc3 = vFace[i].PPrev
+         else
+            ptLoc3 = Point3d( vFace[i].Cen:getX(), vFace[i].Cen:getY(), ptLoc1:getZ())
+         end
          -- punto successivo ( precedente della faccia successiva)
-         j = j + 1
-         local k = EgtIf( j <= #vFace, j, EgtIf( bClosed, 1, nil))
+         local k = EgtIf( j < #vFace, j + 1, EgtIf( bClosed, 1, nil))
          -- se è un percorso aperto prendo il punto medio della seconda faccia come punto locale 2
          if not k then
-            ptLoc2 = Point3d( vFace[j-1].Cen:getX(), vFace[j-1].Cen:getY(), ptLoc1:getZ())
+            ptLoc2 = Point3d( vFace[j].Cen:getX(), vFace[j].Cen:getY(), ptLoc1:getZ())
          else
             ptLoc2 = vFace[k].PPrev
          end
          -- ricavo i punti e l'angolo interno
          local _, ptP1, ptP2, dAng = EgtSurfTmFacetsContact( nNewProc, nFace1, nFace2, GDB_ID.ROOT)
          -- se punti validi e angolo è interno e non è quasi piatto e >= 90 creo istanza
+         local tFacAdj = {}
          if ptP1 and ptP2 and dAng < 0 and dAng < -6 and dAng > EgtIf( nTypeConeCut == 1, -(90 + 10 * GEO.EPS_SMALL), -(180-dAngleSmall + 10 * GEO.EPS_SMALL))  then
             local dLen = dist( ptP1, ptP2)
-            table.insert( tFacAdj, { nFace1, nFace2, dLen, ptP1, ptP2, dAng, ptLoc1, ptLoc2, ptLoc3})
+            tFacAdj = { nFace1, nFace2, dLen, ptP1, ptP2, dAng, ptLoc1, ptLoc2, ptLoc3}
          end
          -- se ho un elemento creo percorso o percorsi in base al tipo di cono e all'apertura dall'angolo rispetto ai 90°
          -- con una tolleranza di 2 gradi
@@ -1220,9 +1184,9 @@ local function AddMillCorner( nTypeConeCut, vFace, Proc, nRawId, b3Raw,
                if not bOk then return bOk, sErr end
             end
          end
-      else
-         i = i + 1
       end
+      -- passo alla successiva
+      i = i + 1
    end
    -- cancello la copia della superfice
    if nNewProc then
@@ -1247,26 +1211,28 @@ end
 ---------------------------------------------------------------------
 -- Funzione per determinare se la faccia ha lati molto corti (trascurabili) ed è quindi approssimabile ad una 3 facce
 local function Is3EdgesApprox( Proc, nFacet, nAddGrpId)
-   local bResult = false
-   local nContourId = EgtExtractSurfTmFacetLoops( Proc.Id, nFacet, nAddGrpId)
+   nAddGrpId = nAddGrpId or WL.GetAddGroup( Proc.PartId)
+   -- recupero il contorno della faccia
+   local nContourId, nContourCnt = EgtExtractSurfTmFacetLoops( Proc.Id, nFacet, nAddGrpId)
+   if not nContourId then return false end
    EgtMergeCurvesInCurveCompo( nContourId)
-   -- recupero il numero effettivo di lati
+   -- recupero il numero di lati del contorno
    local _, nEntityCount = EgtCurveDomain( nContourId)
+   if not nEntityCount then return false end
+   -- se sono già tre, ho finito
+   if nEntityCount == 3 then return true end
+   -- rimuovo i lati molto corti dal conteggio totale
    local nEdges = nEntityCount
-   if nContourId then
-      if nEntityCount and nEntityCount  == 3 then
-         bResult = true
-      -- rimuovo i lati molto corti dal conteggio totale
-      elseif nEntityCount then
-         for i = 1, nEntityCount do
-            local dLength = EgtCurveCompoLength( nContourId, i - 1)
-            if dLength < 15 then nEdges = nEdges - 1 end
-         end
-      end
-      if nEdges == 3 then bResult = true end
+   for i = 1, nEntityCount do
+      local dLength = EgtCurveCompoLength( nContourId, i - 1)
+      if dLength < 15 then nEdges = nEdges - 1 end
    end
-   if bResult == true then
-      EgtOutLog( 'FreeContour : Face with ' .. tointeger( nEntityCount) .. ' edges skipped (approx 3 edges)')
+   -- verifico il numero significativo di lati
+   local bResult = ( nEdges == 3)
+   -- cancello tutti i contorni appena creati
+   EgtErase( EgtTableFill( nContourId, nContourCnt))
+   if bResult then
+      EgtOutLog( 'FreeContour : Face with ' .. tostring( nEntityCount) .. ' edges skipped (approx 3 edges)')
    end
    return bResult
 end
@@ -2228,7 +2194,7 @@ local function MakeByMill( Proc, nRawId, b3Raw)
    -- posizione braccio porta testa
    local nSCC = MCH_SCC.ADIR_ZP
    if AreSameOrOppositeVectorApprox( vtExtr, Z_AX()) then
-      nSCC = EgtIf( Proc.Box:getDimX() >= Proc.Box:getDimY(), MCH_SCC.ADIR_YP, MCH_SCC.ADIR_XP)
+      nSCC = EgtIf( Proc.Box:getDimX() >= Proc.Box:getDimY(), MCH_SCC.ADIR_YP, MCH_SCC.ADIR_XM)
    end
    EgtSetMachiningParam( MCH_MP.SCC, nSCC)
    -- eseguo
@@ -2449,7 +2415,7 @@ local function MakeByPocket( Proc, nRawId, b3Raw)
       return MakeByMill( Proc, nRawId, b3Raw)
    end
    -- se la faccia di fondo ha confini aperti, devo lavorarla direttamente
-   vAdj = EgtSurfTmFacetAdjacencies( Proc.Id, nFacet)[1] or {}
+   local vAdj = EgtSurfTmFacetAdjacencies( Proc.Id, nFacet)[1] or {}
    for i = 1, #vAdj do
       if vAdj[i] == - 1 then
          bPocketBotface = true

LuaLibs/WProcessLapJoint.lua

@@ -1,4 +1,4 @@
--- WProcessLapJoint.lua by Egaltech s.r.l. 2023/04/17
+-- WProcessLapJoint.lua by Egaltech s.r.l. 2023/09/21
 -- Gestione calcolo mezzo-legno per Pareti
 -- 2021/08/27 DS Se tre o più facce con flag PCKT=1 forzo svuotatura con fresa (per Variant).
 -- 2021/08/29 DS Se svuotatura di fianco setto flag per farla dopo i tagli.
@@ -24,6 +24,11 @@
 -- 2023/06/30 Aggiunta lettura delle note esistenti dalle lavorazioni per evitare di sovrascriverle.
 -- 2023/07/10 In MakeSideGrooveByMill si impedisce ora di lavorare una groove se la testa deve scendere sotto al limite superiore del grezzo.
 -- 2023/07/25 Aggiunte passate laterali per SideGroove, se specificato SIDESTEP nelle note utensile.
+-- 2023/08/01 Migliorato controllo testa sotto al grezzo in SieGroove.
+-- 2023/08/07 Controllo testa sotto al grezzo in SideGroove escluso se richiesto il move after.
+-- 2023/09/19 Controllo lavorabilità con una sola faccia ora ha limiti come FreeContour.
+-- 2023/09/21 Modifica controllo lavorabilità con tre facce tipo tunnel ma non ortogonali tra loro.
+-- 2023/09/21 In MakeByMill modificato SCC per correggere caso con lama su testa fresa.
 
 -- Tabella per definizione modulo
 local WPL = {}
@@ -111,8 +116,8 @@ function WPL.Classify( Proc, b3Raw)
    if Proc.Fct == 1 then
       -- dati della faccia
       local vtN = EgtSurfTmFacetNormVersor( Proc.Id, 0, GDB_ID.ROOT)
-      -- verifico se è lavorabile da sopra
-      return vtN:getZ() >= WD.NZ_MINA
+      -- verifico se è lavorabile da sopra o di fianco
+      return vtN:getZ() >= -0.5
    -- se 2 facce
    elseif Proc.Fct == 2 then
       -- dati delle facce
@@ -120,7 +125,7 @@ function WPL.Classify( Proc, b3Raw)
       vtN[1] = EgtSurfTmFacetNormVersor( Proc.Id, 0, GDB_ID.ROOT)
       vtN[2] = EgtSurfTmFacetNormVersor( Proc.Id, 1, GDB_ID.ROOT)
       -- verifico se è lavorabile da sopra o di fianco
-      return ( vtN[1]:getZ() >= - 0.028 or vtN[2]:getZ() >= - 0.028) 
+      return ( vtN[1]:getZ() >= -0.028 or vtN[2]:getZ() >= -0.028) 
    -- se più di 2 facce
    else
       local nFacInd, dElev, nFacInd2, dElev2 = WL.GetFaceWithMostAdj( Proc.Id, Proc.PartId)
@@ -189,8 +194,8 @@ function WPL.Classify( Proc, b3Raw)
          else
             return false
          end
-      -- se altrimenti tunnel
-      elseif nFacInd == -1 then
+      -- se altrimenti tunnel o assimilabile
+      elseif nFacInd == -1 or nFacInd == -2 then
          -- dati delle prime tre facce
          local vtN = {}
          vtN[1] = EgtSurfTmFacetNormVersor( Proc.Id, 0, GDB_ID.ROOT)
@@ -805,7 +810,7 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
    -- se devo creare superfice locale
    if bMakeLocSurf then
       -- creo superfice locale o esco
-      local nSurfToAdd = MakeLocalSurf( tFacAdj[1][7], tFacAdj[1][8], tFacAdj[1][9], nAddGrpId)
+      local nSurfToAdd = MakeLocalSurf( tFacAdj[7], tFacAdj[8], tFacAdj[9], nAddGrpId)
       if nSurfToAdd then
          local nFacCntPre = EgtSurfTmFacetCount( nNewProc)
          -- creo copia del percorso principale e gli aggiungo la nuova faccia
@@ -826,11 +831,11 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
    end
    -- prendo il primo versore
    local _, vtN1 = EgtSurfTmFacetCenter( nNewProcLoc, nFacInd, GDB_ID.ROOT)
-   local _, vtN2 = EgtSurfTmFacetCenter( nNewProcLoc, tFacAdj[1][1], GDB_ID.ROOT)
-   local _, vtN3 = EgtSurfTmFacetCenter( nNewProcLoc, tFacAdj[1][2], GDB_ID.ROOT)
+   local _, vtN2 = EgtSurfTmFacetCenter( nNewProcLoc, tFacAdj[1], GDB_ID.ROOT)
+   local _, vtN3 = EgtSurfTmFacetCenter( nNewProcLoc, tFacAdj[2], GDB_ID.ROOT)
    -- trovo il punto sulla superfice di riferimento
-   local _, ptLocP1, ptLocP2, _ = EgtSurfTmFacetsContact( nNewProcLoc, nFacInd, tFacAdj[1][1], GDB_ID.ROOT)
-   local _, ptLocP3, ptLocP4, _ = EgtSurfTmFacetsContact( nNewProcLoc, nFacInd, tFacAdj[1][2], GDB_ID.ROOT)
+   local _, ptLocP1, ptLocP2, _ = EgtSurfTmFacetsContact( nNewProcLoc, nFacInd, tFacAdj[1], GDB_ID.ROOT)
+   local _, ptLocP3, ptLocP4, _ = EgtSurfTmFacetsContact( nNewProcLoc, nFacInd, tFacAdj[2], GDB_ID.ROOT)
    -- se ho creato faccia locale su copia superficie, cancella la copia
    if bMakeLocSurf then
       EgtErase( nNewProcLoc)
@@ -838,16 +843,16 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
    local nIdIniPoint
    local nIdEndPoint
    if ptLocP1 and ptLocP2 then
-      if ( dist( ptLocP1, tFacAdj[1][4]) < GEO.EPS_SMALL) or ( dist( ptLocP2, tFacAdj[1][4]) < GEO.EPS_SMALL) then
+      if ( dist( ptLocP1, tFacAdj[4]) < GEO.EPS_SMALL) or ( dist( ptLocP2, tFacAdj[4]) < GEO.EPS_SMALL) then
          nIdEndPoint = 4
          nIdIniPoint = 5
-      elseif ( dist( ptLocP1, tFacAdj[1][5]) < GEO.EPS_SMALL) or ( dist( ptLocP2, tFacAdj[1][5]) < GEO.EPS_SMALL) then
+      elseif ( dist( ptLocP1, tFacAdj[5]) < GEO.EPS_SMALL) or ( dist( ptLocP2, tFacAdj[5]) < GEO.EPS_SMALL) then
          nIdEndPoint = 5
          nIdIniPoint = 4
       end
    end
    -- versore direzione
-   local vtExtr = tFacAdj[1][nIdIniPoint] - tFacAdj[1][nIdEndPoint]
+   local vtExtr = tFacAdj[nIdIniPoint] - tFacAdj[nIdEndPoint]
    vtExtr:normalize()
    -- versore direzione di uscita
    local vtExtrExit
@@ -876,44 +881,44 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
          vtCheck:rotate( Z_AX(), dOffsAng)
       end
       -- controllo se c'è collisione con le facce della superfice
-      if nTypeConeCut == 1 and CalcInterference( nNewProc, vtCheck, tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach), dDiam1, dDiam2, 
+      if nTypeConeCut == 1 and CalcInterference( nNewProc, vtCheck, tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach), dDiam1, dDiam2, 
                                                  dTall1, dTall2, dDiam3, dTall3) then
          local sErr = 'Collision detect from clean corner tool and surface'
          EgtOutLog( sErr)
          return true, ''
       end
-      nAuxId = EgtLine( nAddGrpId, tFacAdj[1][nIdIniPoint], tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
+      nAuxId = EgtLine( nAddGrpId, tFacAdj[nIdIniPoint], tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
       table.insert( pAuxId, nAuxId)
       -- se uso utensile cono 60°
       if nTypeConeCut == 1 then
          -- se offset angolare valido e/o negativo creo il baffo precedente
          if dOffsAng < ( 100 * GEO.EPS_SMALL) then
             -- se il punto finale corrisponde con il punto utilizzato in precedenza, uso l'altro
-            if dist( tFacAdj[1][nIdEndPoint], ptLocP1) < 10 * GEO.EPS_SMALL then
+            if dist( tFacAdj[nIdEndPoint], ptLocP1) < 10 * GEO.EPS_SMALL then
                ptApPoint = ptLocP2
             else
                ptApPoint = ptLocP1
             end
-            nAuxId = EgtLine( nAddGrpId, tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach), ptApPoint + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
-            local dLenTrimExt = dist( tFacAdj[1][nIdEndPoint], ptApPoint) - (( dToolDiam/2) + 0.2)
+            nAuxId = EgtLine( nAddGrpId, tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach), ptApPoint + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
+            local dLenTrimExt = dist( tFacAdj[nIdEndPoint], ptApPoint) - (( dToolDiam/2) + 0.2)
             -- se la distanza dei due punti della linea è maggiore dal raggio fresa + delta, trimmo al raggio fresa + delta
             if dLenTrimExt > 10 * GEO.EPS_SMALL then
                EgtTrimExtendCurveByLen( nAuxId , -dLenTrimExt, ptApPoint + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
                -- se ho l'offset angolare ruoto la linea per compensare la rotazione che verrà applicata
                if abs(dOffsAng) > 100 * GEO.EPS_SMALL then
-                  EgtRotate( nAuxId, tFacAdj[1][nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
+                  EgtRotate( nAuxId, tFacAdj[nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
                end
                -- prendo il nuovo punto finale
                ptApPoint = EgtEP( nAuxId, GDB_RT.GLOB) + Point3d( 0, 0, dDepthMach)
             else
                -- se ho l'offset angolare ruoto la linea per compensare la rotazione che verrà applicata
                if abs(dOffsAng) > 100 * GEO.EPS_SMALL then
-                  EgtRotate( nAuxId, tFacAdj[1][nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
+                  EgtRotate( nAuxId, tFacAdj[nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
                end
             end
             table.insert( pAuxId, nAuxId)
             -- creo linea di ritorno
-            nAuxId = EgtLine( nAddGrpId, ptApPoint + Point3d( 0, 0, -dDepthMach), tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
+            nAuxId = EgtLine( nAddGrpId, ptApPoint + Point3d( 0, 0, -dDepthMach), tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
             table.insert( pAuxId, nAuxId)
          end
       end
@@ -923,7 +928,7 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
    ptLocP1, ptLocP2 = ptLocP3, ptLocP4
    if ptLocP1 and ptLocP2 then
       -- se il punto finale corrisponde con il punto utilizzato in precedenza, uso l'altro
-      if dist( tFacAdj[1][nIdEndPoint], ptLocP1) < 10 * GEO.EPS_SMALL then
+      if dist( tFacAdj[nIdEndPoint], ptLocP1) < 10 * GEO.EPS_SMALL then
          ptApPoint = ptLocP2
       else
          ptApPoint = ptLocP1
@@ -932,36 +937,36 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
       if nTypeConeCut == 1 then
          -- se offset angolare valido e/o negativo creo il baffo precedente
          if dOffsAng > -( 100 * GEO.EPS_SMALL) then
-            nAuxId = EgtLine( nAddGrpId, tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach), ptApPoint + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
-            local dLenTrimExt = dist( tFacAdj[1][nIdEndPoint], ptApPoint) - (( dToolDiam/2) + 0.2)
+            nAuxId = EgtLine( nAddGrpId, tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach), ptApPoint + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
+            local dLenTrimExt = dist( tFacAdj[nIdEndPoint], ptApPoint) - (( dToolDiam/2) + 0.2)
             -- se la distanza dei due punti della linea è maggiore dal raggio fresa + delta, trimmo al raggio fresa + delta
             if dLenTrimExt > 10 * GEO.EPS_SMALL then
                EgtTrimExtendCurveByLen( nAuxId , -dLenTrimExt, ptApPoint + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
                -- se ho l'offset angolare ruoto la linea per compensare la rotazione che verrà applicata
                if abs(dOffsAng) > 100 * GEO.EPS_SMALL then
-                  EgtRotate( nAuxId, tFacAdj[1][nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
+                  EgtRotate( nAuxId, tFacAdj[nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
                end
                -- prendo il nuovo punto finale
                ptApPoint = EgtEP( nAuxId, GDB_RT.GLOB) + Point3d( 0, 0, dDepthMach)
             else
                -- se ho l'offset angolare ruoto la linea per compensare la rotazione che verrà applicata
                if abs(dOffsAng) > 100 * GEO.EPS_SMALL then
-                  EgtRotate( nAuxId, tFacAdj[1][nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
+                  EgtRotate( nAuxId, tFacAdj[nIdEndPoint], Z_AX(), -dOffsAng, GDB_RT.GLOB)
                end
             end
             table.insert( pAuxId, nAuxId)
             -- creo linea di ritorno
-            nAuxId = EgtLine( nAddGrpId, ptApPoint + Point3d( 0, 0, -dDepthMach), tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
+            nAuxId = EgtLine( nAddGrpId, ptApPoint + Point3d( 0, 0, -dDepthMach), tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach), GDB_RT.GLOB)
             table.insert( pAuxId, nAuxId)
          end
          -- ultima linea di distacco (5mm in direzione utensile)
-         local pEnd =  tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach) + ( 5 * vtExtr)
-         nAuxId = EgtLine( nAddGrpId, tFacAdj[1][nIdEndPoint] + Point3d( 0, 0, -dDepthMach), pEnd, GDB_RT.GLOB)
+         local pEnd =  tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach) + ( 5 * vtExtr)
+         nAuxId = EgtLine( nAddGrpId, tFacAdj[nIdEndPoint] + Point3d( 0, 0, -dDepthMach), pEnd, GDB_RT.GLOB)
          table.insert( pAuxId, nAuxId)
       else
          -- linea di distacco (2mm in direzione utensile)
-         local pEnd =  tFacAdj[1][nIdEndPoint] + ( 2 * vtExtr)
-         nAuxId = EgtLine( nAddGrpId, tFacAdj[1][nIdEndPoint], pEnd, GDB_RT.GLOB)
+         local pEnd =  tFacAdj[nIdEndPoint] + ( 2 * vtExtr)
+         nAuxId = EgtLine( nAddGrpId, tFacAdj[nIdEndPoint], pEnd, GDB_RT.GLOB)
          table.insert( pAuxId, nAuxId)
          -- ultima linea di risalita in Z
          local pIni = pEnd
@@ -984,7 +989,7 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
    EgtModifyCurveExtrusion( AuxId, vtExtr, GDB_RT.GLOB)
    -- se ho un offset angolare ruoto il percorso
    if abs(dOffsAng) > 100 * GEO.EPS_SMALL then
-      EgtRotate( AuxId, tFacAdj[1][nIdEndPoint], Z_AX(), dOffsAng, GDB_RT.GLOB)
+      EgtRotate( AuxId, tFacAdj[nIdEndPoint], Z_AX(), dOffsAng, GDB_RT.GLOB)
    end
    -- inserisco la lavorazione
    local sName = 'Clean_' .. ( EgtGetName( nNewProc) or tostring( nNewProc))
@@ -1002,10 +1007,7 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
    -- aggiungo geometria
    EgtSetMachiningGeometry( {{ AuxId, -1}})
    -- imposto posizione braccio porta testa
-   local nSCC = MCH_SCC.ADIR_YM
-   if vtExtr:getY() > 100 * GEO.EPS_ZERO then
-      nSCC = MCH_SCC.ADIR_YP
-   end
+   local nSCC = MCH_SCC.ADIR_ZP
    EgtSetMachiningParam( MCH_MP.SCC, nSCC)
    EgtSetMachiningParam( MCH_MP.LEADINTYPE, 0)
    EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, 4)
@@ -1094,7 +1096,8 @@ local function AddMillCorner( nTypeConeCut, vFace, Proc, nRawId, b3Raw,
    local nFacCnt = EgtSurfTmFacetCount( nNewProc)
    local nFacInd, dDimMin, dDimMax, dDepth, nSurfInt
    local bMakeLocSurf
-   if nFacCnt <= 4 then
+   -- RIMUOVERE
+   if false and nFacCnt <= 4 then
       -- ottengo le dimensioni apertura, la normale e la faccia inferiore
       dDimMin, dDimMax, dDepth, _, _, nSurfInt = GetTunnelDimension( nNewProc, Proc.PartId, nAddGrpId)
       if nSurfInt then
@@ -1111,6 +1114,7 @@ local function AddMillCorner( nTypeConeCut, vFace, Proc, nRawId, b3Raw,
          EgtOutLog( sErr)
          return false, sErr
       end
+      -- FINE PARTE DA RIMUOVERE
    else
       bMakeLocSurf = true
    end
@@ -1130,38 +1134,37 @@ local function AddMillCorner( nTypeConeCut, vFace, Proc, nRawId, b3Raw,
    while i <= #vFace do
       -- se tutta la faccia o la sua fine senza taglio, inserisco una fresatura
       if ( vFace[i].Type & 2) ~= 0  or  vFace[i].Type == 4 then
-         -- variabili costruzione geometria
-         local tFacAdj = {}
+         -- variabili costruzione geometria (nFace1, nFace2, tFacAdj)
          local nFace1 = vFace[i].Fac
-         local nFace2
          -- ricavo i tre punti per eventuale superficie locale
          local ptLoc1, ptLoc2, ptLoc3
-         -- punto precedente (punto precedente della faccia [i])
-         ptLoc3 = vFace[i].PPrev
          -- aggiungo geometria
-         i = i + 1
-         local j = EgtIf( i <= #vFace, i, EgtIf( bClosed, 1, nil))
-         if not j then
-            return true
-         end
-         nFace2 = vFace[j].Fac
+         local j = EgtIf( i < #vFace, i + 1, EgtIf( bClosed, 1, nil))
+         if not j then return true end
+         local nFace2 = vFace[j].Fac
          -- punto in comune tra le due facce (punto precedente della faccia [j])
          ptLoc1 = vFace[j].PPrev
+         -- punto precedente (punto precedente della faccia [i])
+         if vFace[i].PPrev then
+            ptLoc3 = vFace[i].PPrev
+         else
+            ptLoc3 = Point3d( vFace[i].Cen:getX(), vFace[i].Cen:getY(), ptLoc1:getZ())
+         end
          -- punto successivo ( precedente della faccia successiva)
-         j = j + 1
-         local k = EgtIf( j <= #vFace, j, EgtIf( bClosed, 1, nil))
+         local k = EgtIf( j < #vFace, j + 1, EgtIf( bClosed, 1, nil))
          -- se è un percorso aperto prendo il punto medio della seconda faccia come punto locale 2
          if not k then
-            ptLoc2 = Point3d( vFace[j-1].Cen:getX(), vFace[j-1].Cen:getY(), ptLoc1:getZ())
+            ptLoc2 = Point3d( vFace[j].Cen:getX(), vFace[j].Cen:getY(), ptLoc1:getZ())
          else
             ptLoc2 = vFace[k].PPrev
          end
          -- ricavo i punti e l'angolo interno
          local _, ptP1, ptP2, dAng = EgtSurfTmFacetsContact( nNewProc, nFace1, nFace2, GDB_ID.ROOT)
          -- se punti validi e angolo è interno e non è quasi piatto e >= 90 creo istanza
+         local tFacAdj = {}
          if ptP1 and ptP2 and dAng < 0 and dAng < -6 and dAng > EgtIf( nTypeConeCut == 1, -(90 + 10 * GEO.EPS_SMALL), -(180-dAngleSmall + 10 * GEO.EPS_SMALL))  then
             local dLen = dist( ptP1, ptP2)
-            table.insert( tFacAdj, { nFace1, nFace2, dLen, ptP1, ptP2, dAng, ptLoc1, ptLoc2, ptLoc3})
+            tFacAdj = { nFace1, nFace2, dLen, ptP1, ptP2, dAng, ptLoc1, ptLoc2, ptLoc3}
          end
          -- se ho un elemento creo percorso o percorsi in base al tipo di cono e all'apertura dall'angolo rispetto ai 90°
          -- con una tolleranza di 2 gradi
@@ -1189,9 +1192,9 @@ local function AddMillCorner( nTypeConeCut, vFace, Proc, nRawId, b3Raw,
                if not bOk then return bOk, sErr end
             end
          end
-      else
-         i = i + 1
       end
+      -- passo alla successiva
+      i = i + 1
    end
    -- cancello la copia della superfice
    if nNewProc then
@@ -1399,7 +1402,7 @@ local function MakeByMill( Proc, nFacet, nOthFac, nRawId, b3Raw, dSideDist)
    -- imposto posizione braccio porta testa
    local nSCC = MCH_SCC.ADIR_ZP
    if AreSameOrOppositeVectorApprox( vtN, Z_AX()) then
-      nSCC = EgtIf( Proc.Box:getDimX() >= Proc.Box:getDimY(), MCH_SCC.ADIR_YP, MCH_SCC.ADIR_XP)
+      nSCC = EgtIf( Proc.Box:getDimX() >= Proc.Box:getDimY(), MCH_SCC.ADIR_YP, MCH_SCC.ADIR_XM)
    end
    EgtSetMachiningParam( MCH_MP.SCC, nSCC)
    -- imposto modo di lavorare la faccia
@@ -1505,9 +1508,15 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
       EgtOutLog( sErr)
       return false, sErr
    end
-   -- se la testa scende sotto al limite superiore del grezzo e non c'è sufficiente capacità di sottosquadro
+   -- dimensioni della testa
    local dHeadMaxWidth = 250
-   if dMillTotLen < ( abs( dRawMaxZ - dGrooveMinZ) + 1) and ( dElev > 0.5 * ( dMillDiam - dHeadMaxWidth) - 10 * GEO.EPS_SMALL) then
+   local dHeadMinWidth = 160
+   local dHeadMinWidthHeight = 30
+   -- se la testa scende sotto al limite superiore del grezzo e non c'è sufficiente capacità di sottosquadro
+   -- controllo disattivato se move after
+   if WD.SIDEMILL_BEFORE and not ( bEnablePreMill or bAsEnablePreMill) and
+      ( ( dMillTotLen < ( abs( dRawMaxZ - dGrooveMinZ) + 10 * GEO.EPS_SMALL) and ( dElev > 0.5 * ( dMillDiam - dHeadMinWidth) - 10 * GEO.EPS_SMALL)) or
+      ( dMillTotLen + dHeadMinWidthHeight < ( abs( dRawMaxZ - dGrooveMinZ) + 10 * GEO.EPS_SMALL) and ( dElev > 0.5 * ( dMillDiam - dHeadMaxWidth) - 10 * GEO.EPS_SMALL))) then
       local sErr = 'Error : Tool too short, head will collide with rawpart'
       EgtOutLog( sErr)
       return false, sErr
@@ -2278,7 +2287,7 @@ local function MakeOneFace( Proc, nRawId, b3Raw)
    -- recupero la lavorazione di taglio con lama e i suoi parametri  
    local sCutting, dSawDiam, dSawThick, dSawMaxDepth = WM.FindCutting( 'Standard')
    -- se non inclinata o capacità di taglio non sufficiente, provo con svuotatura
-   if not sCutting or vtN:getZ() > 0.866 or dSawMaxDepth < dDimV + WD.CUT_SIC then
+   if not sCutting or vtN:getZ() > 0.866 or dSawMaxDepth < dDimV + WD.CUT_EXTRA then
       -- faccio con svuotatura
       local nFacet = 0
       return MakeByPocketing( Proc, nFacet, nRawId, b3Raw)

LuaLibs/WallExec.lua

@@ -105,7 +105,7 @@ function WallExec.ProcessWalls( dRawL, dRawW, dRawH, vWall, bMachGroupOk, bNewPr
    -- Impostazione dell'attrezzaggio di default
    EgtImportSetup()
    -- Impostazione eventuale allargamento area disponibile per grezzo
-   EgtSetTableAreaOffset( WD.TAB_EXTRA_XP or 0, WD.TAB_EXTRA_XM or 0, WD.TAB_EXTRA_YP or 0, WD.TAB_EXTRA_YM or 0) 
+   EgtSetTableAreaOffset( WD.TAB_EXTRA_XP or 0, WD.TAB_EXTRA_YP or 0, WD.TAB_EXTRA_XM or 0, WD.TAB_EXTRA_YM or 0) 
    -- Creazione del grezzo e suo posizionamento in macchina
    local nRaw = GDB_ID.NULL
    if nRawOutlineId and nRawOutlineId ~= GDB_ID.NULL then

UpdateLog.txt

@@ -1,5 +1,23 @@
            ==== Wall Update Log ====
 
+Versione 2.5i3 (21/09/2023)
+- Modif : per pulizia corner di FreeContour disabilitato metodo con tunnel ed esteso metodo con tre punti
+- Modif : in LapJoint aggiornata pulizia corner come FreeContour
+- Fixed : in FreeContour e Lapjoint, in MakeByMill, modificato SCC per correggere caso con lama su testa fresa.
+
+Versione 2.5i2 (20/09/2023)
+- Modif : in LapJoint con una sola faccia controllo lavorabilità ora come per FreeContour
+- Modif : in CleanCorner ora AuxDir (SCC) sempre Z+
+- Fixed : in FreeContour piccola correzione alla pulizia corner
+- Fixed : corretta impostazione allargamento aree disposizone grezzi su tavola.
+
+Versione 2.5i1 (12/09/2023)
+- Fixed : correzioni per pulizia corner in FreeContour.
+
+Versione 2.5h1 (01/08/2023)
+- Modif : in sideGroove migliorato il controllo che la testa non scenda sotto al livello del grezzo (ora considera anche il diametro minimo della testa e non interviene se la lavorazione è spostata a dopo il taglio outline).
+- Fixed : corretto bug in MachiningLib -> AddMachining che contempla il caso in cui Proc non sia una tabella
+
 Versione 2.5g3 (26/07/2023)
 - Modif : Nei tagli di lama angolo Z minimo ora gestito tramite costante da WallData CUT_VZ_MIN (default -0.5)
 - Modif : Nelle fresature di ripresa angoli dei contorni migliorata la scelta della fresa secondaria in caso non sia disponibile una fresa di lunghezza sufficiente.

Version.lua

@@ -1,6 +1,6 @@
--- Version.lua by Egalware s.r.l. 2023/07/04
+-- Version.lua by Egalware s.r.l. 2023/09/18
 -- Gestione della versione di Wall
 
 NAME = 'Wall'
-VERSION = '2.5g3'
+VERSION = '2.5i3'
 MIN_EXE = '2.5b3'