- tabella Proc.Face in Collect da rendere read-only

- in ProcessBlockHouseFront chiamate a GetFaceHvRefDim sostituite con lettura di Proc.Face[]

Compile.bat

@@ -4,52 +4,52 @@ REM Per togliere info di debug aggiungere flag -s prima del nome del file di inp
 
 REM Compilazione 32 e 64 bit
 
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\BeamExec.lua                      LuaLibs\BeamExec.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\BeamLib.lua                       LuaLibs\BeamLib.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\DiceCut.lua                       LuaLibs\DiceCut.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\FaceByPocket.lua                  LuaLibs\FaceByPocket.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\FacesBySaw.lua                    LuaLibs\FacesBySaw.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\FeatureTopology.lua               LuaLibs\FeatureTopology.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\MachiningLib.lua                  LuaLibs\MachiningLib.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessBlockHausFront.lua         LuaLibs\ProcessBlockHausFront.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessChamfer.lua                LuaLibs\ProcessChamfer.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessCut.lua                    LuaLibs\ProcessCut.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessDecor.lua                  LuaLibs\ProcessDecor.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessDoubleCut.lua              LuaLibs\ProcessDoubleCut.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessDovetail.lua               LuaLibs\ProcessDovetail.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessDrill.lua                  LuaLibs\ProcessDrill.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessDtMortise.lua              LuaLibs\ProcessDtMortise.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessDtTenon.lua                LuaLibs\ProcessDtTenon.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessFreeContour.lua            LuaLibs\ProcessFreeContour.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessFrenchRidgeLap.lua         LuaLibs\ProcessFrenchRidgeLap.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessHeadCut.lua                LuaLibs\ProcessHeadCut.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessLapJoint.lua               LuaLibs\ProcessLapJoint.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessLongCut.lua                LuaLibs\ProcessLongCut.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessLongDoubleCut.lua          LuaLibs\ProcessLongDoubleCut.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessMark.lua                   LuaLibs\ProcessMark.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessMortise.lua                LuaLibs\ProcessMortise.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessProfCamb.lua               LuaLibs\ProcessProfCamb.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessProfConcave.lua            LuaLibs\ProcessProfConcave.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessProfConvex.lua             LuaLibs\ProcessProfConvex.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessProfFront.lua              LuaLibs\ProcessProfFront.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessProfHead.lua               LuaLibs\ProcessProfHead.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessRidgeLap.lua               LuaLibs\ProcessRidgeLap.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessRoundArch.lua              LuaLibs\ProcessRoundArch.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessSawCut.lua                 LuaLibs\ProcessSawCut.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessScarfJoint.lua             LuaLibs\ProcessScarfJoint.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessSimpleScarf.lua            LuaLibs\ProcessSimpleScarf.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessSplit.lua                  LuaLibs\ProcessSplit.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessStepJoint.lua              LuaLibs\ProcessStepJoint.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessStepJointNotch.lua         LuaLibs\ProcessStepJointNotch.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessTenon.lua                  LuaLibs\ProcessTenon.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessText.lua                   LuaLibs\ProcessText.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessTyroleanDovetail.lua       LuaLibs\ProcessTyroleanDovetail.lua
-\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessVariant.lua                LuaLibs\ProcessVariant.lua
-\EgtProg\Dll32\luac54 -o bin\BatchProcess.lua                          BatchProcess.lua
-\EgtProg\Dll32\luac54 -o bin\BatchProcessNew.lua                       BatchProcessNew.lua
-\EgtProg\Dll32\luac54 -o bin\GetBeamData.lua                           GetBeamData.lua
-\EgtProg\Dll32\luac54 -o bin\NestProcess.lua                           NestProcess.lua
-\EgtProg\Dll32\luac54 -o bin\Process.lua                               Process.lua
-\EgtProg\Dll32\luac54 -o bin\Rotate.lua                                Rotate.lua
-\EgtProg\Dll32\luac54 -o bin\Swap.lua                                  Swap.lua
-\EgtProg\Dll32\luac54 -o bin\Version.lua                               Version.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\BeamExec.lua                      -s LuaLibs\BeamExec.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\BeamLib.lua                       -s LuaLibs\BeamLib.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\DiceCut.lua                       -s LuaLibs\DiceCut.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\FaceByPocket.lua                  -s LuaLibs\FaceByPocket.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\FacesBySaw.lua                    -s LuaLibs\FacesBySaw.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\FeatureTopology.lua               -s LuaLibs\FeatureTopology.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\MachiningLib.lua                  -s LuaLibs\MachiningLib.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessBlockHausFront.lua         -s LuaLibs\ProcessBlockHausFront.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessChamfer.lua                -s LuaLibs\ProcessChamfer.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessCut.lua                    -s LuaLibs\ProcessCut.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessDecor.lua                  -s LuaLibs\ProcessDecor.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessDoubleCut.lua              -s LuaLibs\ProcessDoubleCut.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessDovetail.lua               -s LuaLibs\ProcessDovetail.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessDrill.lua                  -s LuaLibs\ProcessDrill.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessDtMortise.lua              -s LuaLibs\ProcessDtMortise.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessDtTenon.lua                -s LuaLibs\ProcessDtTenon.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessFreeContour.lua            -s LuaLibs\ProcessFreeContour.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessFrenchRidgeLap.lua         -s LuaLibs\ProcessFrenchRidgeLap.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessHeadCut.lua                -s LuaLibs\ProcessHeadCut.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessLapJoint.lua               -s LuaLibs\ProcessLapJoint.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessLongCut.lua                -s LuaLibs\ProcessLongCut.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessLongDoubleCut.lua          -s LuaLibs\ProcessLongDoubleCut.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessMark.lua                   -s LuaLibs\ProcessMark.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessMortise.lua                -s LuaLibs\ProcessMortise.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessProfCamb.lua               -s LuaLibs\ProcessProfCamb.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessProfConcave.lua            -s LuaLibs\ProcessProfConcave.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessProfConvex.lua             -s LuaLibs\ProcessProfConvex.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessProfFront.lua              -s LuaLibs\ProcessProfFront.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessProfHead.lua               -s LuaLibs\ProcessProfHead.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessRidgeLap.lua               -s LuaLibs\ProcessRidgeLap.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessRoundArch.lua              -s LuaLibs\ProcessRoundArch.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessSawCut.lua                 -s LuaLibs\ProcessSawCut.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessScarfJoint.lua             -s LuaLibs\ProcessScarfJoint.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessSimpleScarf.lua            -s LuaLibs\ProcessSimpleScarf.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessSplit.lua                  -s LuaLibs\ProcessSplit.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessStepJoint.lua              -s LuaLibs\ProcessStepJoint.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessStepJointNotch.lua         -s LuaLibs\ProcessStepJointNotch.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessTenon.lua                  -s LuaLibs\ProcessTenon.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessText.lua                   -s LuaLibs\ProcessText.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessTyroleanDovetail.lua       -s LuaLibs\ProcessTyroleanDovetail.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessVariant.lua                -s LuaLibs\ProcessVariant.lua
+\EgtProg\Dll32\luac54 -o bin\BatchProcess.lua                          -s BatchProcess.lua
+\EgtProg\Dll32\luac54 -o bin\BatchProcessNew.lua                       -s BatchProcessNew.lua
+\EgtProg\Dll32\luac54 -o bin\GetBeamData.lua                           -s GetBeamData.lua
+\EgtProg\Dll32\luac54 -o bin\NestProcess.lua                           -s NestProcess.lua
+\EgtProg\Dll32\luac54 -o bin\Process.lua                               -s Process.lua
+\EgtProg\Dll32\luac54 -o bin\Rotate.lua                                -s Rotate.lua
+\EgtProg\Dll32\luac54 -o bin\Swap.lua                                  -s Swap.lua
+\EgtProg\Dll32\luac54 -o bin\Version.lua                               -s Version.lua

LuaLibs/BeamExec.lua

@@ -58,6 +58,8 @@
 -- 2024/02/19 In Collect aggiunta la scrittura nella Proc di Width e Height delle facce.
 -- 2024/02/29 Migliorata 'CompareFeatures' per ordine forature
 -- 2024/03/04 Creata funzione calcolo dipendenze tra feature con calcolo topologia.
+-- 2024/03/07 Implementate le lavorazioni in doppio per fori specchiati non passanti e DrillPocket.
+-- 2024/03/11 In CollectFeatures si scrive ora Width e Height della faccia sia trimmate con il grezzo che intere.
 
 -- Tabella per definizione modulo
 local BeamExec = {}
@@ -347,9 +349,21 @@ local function CollectFeatures( PartId, b3Raw, dCurrOvmH, dCurrOvmT)
                   if not Proc.Face then
                      Proc.Face = {}
                      for i = 1, Proc.Fct do
-                        local _, dFaceWidth, dFaceHeight = BL.GetFaceHvRefDim( Proc.Id, i - 1, b3Raw)
-                        Proc.Face[i] = { Id = i - 1, VtN = EgtSurfTmFacetNormVersor( Proc.Id, i - 1, GDB_ID.ROOT ), Width = dFaceWidth, Height = dFaceHeight}
+                        Proc.Face[i] = { Id = i - 1, VtN = EgtSurfTmFacetNormVersor( Proc.Id, i - 1, GDB_ID.ROOT )}
                         if Proc.Fct < 10 then
+                           local frHV, dFaceWidthTrimmed, dFaceHeightTrimmed = BL.GetFaceHvRefDim( Proc.Id, i - 1, b3Raw)
+                           -- frame OCS faccia
+                           Proc.Face[i].FrameHV = frHV
+                           -- larghezza OCS faccia trimmata con grezzo
+                           Proc.Face[i].WidthTrimmed = dFaceWidthTrimmed
+                           -- altezza OCS faccia trimmata con grezzo
+                           Proc.Face[i].HeightTrimmed = dFaceHeightTrimmed
+                           local _, dFaceWidth, dFaceHeight = BL.GetFaceHvRefDim( Proc.Id, i - 1)
+                           -- larghezza OCS faccia
+                           Proc.Face[i].Width = dFaceWidth
+                           -- altezza OCS faccia
+                           Proc.Face[i].Height = dFaceHeight
+                           -- elevazione calcolata rispetto al box della parte
                            Proc.Face[i].Elevation = EgtSurfTmFacetElevationInBBox( Proc.Id, i - 1, b3Solid, true, GDB_ID.ROOT)
                         end
                      end
@@ -1552,30 +1566,29 @@ local function CheckMirrorPocket( Proc, ProcMirror, b3Raw, AuxId)
          return false
       end
    end
-   -- devono avere il centro allineato, essere equidistanti dalla mezzaria trave e non essere troppo vicine
+   -- devono avere il centro allineato, essere equidistanti dalla mezzeria trave e non essere troppo vicine
    local vtDisplacement = ptBC - ptBCMirror
    local ptCenRaw = b3Raw:getCenter()
-   local dMinimumDistanceMirroredFeatures = 50
    if AreSameOrOppositeVectorApprox( vtExtr, Y_AX()) then
       local dYMinDistance = max( b3Proc:getMin():getY(), b3ProcMirror:getMin():getY()) - min( b3Proc:getMax():getY(), b3ProcMirror:getMax():getY())
-      if not ( abs( vtDisplacement:getX()) < 500 * GEO.EPS_SMALL and abs( vtDisplacement:getZ()) < 500 * GEO.EPS_SMALL and 
+      if not ( abs( vtDisplacement:getX()) < 500 * GEO.EPS_SMALL and abs( vtDisplacement:getZ()) < 500 * GEO.EPS_SMALL and
                ( abs( ptBC:getY() - ptCenRaw:getY()) - abs( ptBCMirror:getY() - ptCenRaw:getY())) < 500 * GEO.EPS_SMALL and
-               dYMinDistance > dMinimumDistanceMirroredFeatures + 10 * GEO.EPS_SMALL) then
+               dYMinDistance > MIRROR_POCKETS_MIN_DISTANCE + 10 * GEO.EPS_SMALL) then
          return false
       end
    elseif AreSameOrOppositeVectorApprox( vtExtr, Z_AX()) then
       local dZMinDistance = max( b3Proc:getMin():getZ(), b3ProcMirror:getMin():getZ()) - min( b3Proc:getMax():getZ(), b3ProcMirror:getMax():getZ())
-      if not ( abs( vtDisplacement:getX()) < 500 * GEO.EPS_SMALL and abs( vtDisplacement:getY()) < 500 * GEO.EPS_SMALL and 
+      if not ( abs( vtDisplacement:getX()) < 500 * GEO.EPS_SMALL and abs( vtDisplacement:getY()) < 500 * GEO.EPS_SMALL and
                ( abs( ptBC:getZ() - ptCenRaw:getZ()) - abs( ptBCMirror:getZ() - ptCenRaw:getZ())) < 500 * GEO.EPS_SMALL and
-               dZMinDistance > dMinimumDistanceMirroredFeatures + 10 * GEO.EPS_SMALL) then
+               dZMinDistance > MIRROR_POCKETS_MIN_DISTANCE + 10 * GEO.EPS_SMALL) then
          return false
       end
    else
       return false
    end
    -- devono avere box con le stesse dimensioni
-   if not ( abs( b3DtMrt:getDimX() - b3DtMrtMirror:getDimX()) < 500 * GEO.EPS_SMALL and 
-            abs( b3DtMrt:getDimY() - b3DtMrtMirror:getDimY()) < 500 * GEO.EPS_SMALL and 
+   if not ( abs( b3DtMrt:getDimX() - b3DtMrtMirror:getDimX()) < 500 * GEO.EPS_SMALL and
+            abs( b3DtMrt:getDimY() - b3DtMrtMirror:getDimY()) < 500 * GEO.EPS_SMALL and
             abs( b3DtMrt:getDimZ() - b3DtMrtMirror:getDimZ()) < 500 * GEO.EPS_SMALL) then
       return false
    end
@@ -1767,18 +1780,21 @@ local function VerifyDrillMirrored( Proc, vProc, b3Raw)
    if not AuxId  or  EgtGetType( AuxId) ~= GDB_TY.CRV_ARC then
       return
    end
+   -- verifico se foratura splittata oppure da specchiare
+   local bIsDrillingOkForMirror = abs( Proc.Flg) == 2 or ( Proc.Mirror ~= nil)
+   if not bIsDrillingOkForMirror then return end
    -- recupero direzione e dimensioni del foro
    local vtExtr = EgtCurveExtrusion( AuxId, GDB_RT.GLOB)
    local dDiam = 2 * EgtArcRadius( AuxId)
    local dLen = abs( EgtCurveThickness( AuxId))
-   local dMachiningDepth = dLen / 2 + BD.DRILL_OVERLAP
+   local dMachiningDepth = EgtIf( abs( Proc.Flg) == 2, dLen / 2 + BD.DRILL_OVERLAP, dLen)
    -- recupero lavorazione adatta
    local sDrilling, sType, dMaxDepth = ML.FindDrilling( dDiam, dMachiningDepth, true, false, true)
    if not sDrilling then
       sDrilling, sType, dMaxDepth = ML.FindDrilling( dDiam, 0, true, false, true)
       dMachiningDepth = dMaxDepth or dMachiningDepth
    end
-   if not sDrilling or sType ~= 'Drill' or not EgtMdbSetCurrMachining( sDrilling) then
+   if not sDrilling or ( sType ~= 'Drill' and sType ~= 'Pocket') or not EgtMdbSetCurrMachining( sDrilling) then
       return
    end
    local dDrillingStep = EgtMdbGetCurrMachiningParam( MCH_MP.STEP)
@@ -1786,7 +1802,8 @@ local function VerifyDrillMirrored( Proc, vProc, b3Raw)
    if not EgtTdbSetCurrTool( EgtMdbGetCurrMachiningParam( MCH_MP.TOOL) or '') then
       return
    end
-   -- recupero la lunghezza della parte inclinata della punta
+   -- recupero diametro utensile e lunghezza della parte inclinata della punta
+   local dToolDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM, 'd')
    local dToolTipLength = EgtTdbGetCurrToolParam( MCH_TP.TOTLEN) - EgtTdbGetCurrToolParam( MCH_TP.LEN)
    -- recupero eventuale utensile in doppio, suo diametro e massima lavorazione
    local sToolDoubleName = EgtTdbGetCurrToolValInNotes( MCH_TP.USERNOTES, 'DOUBLE', 's')
@@ -1795,24 +1812,27 @@ local function VerifyDrillMirrored( Proc, vProc, b3Raw)
    end
    local dToolDoubleDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM, 'd')
    local dToolDoubleMaxDepth = EgtTdbGetCurrToolParam( MCH_TP.MAXMAT)
+   dMachiningDepth = min( dMachiningDepth, dToolDoubleMaxDepth)
    -- recupero la lunghezza della parte inclinata della punta
    local dToolDoubleTipLength = EgtTdbGetCurrToolParam( MCH_TP.TOTLEN) - EgtTdbGetCurrToolParam( MCH_TP.LEN)
+   -- se foratura splittata, verifico che la distanza minima tra le due punte sia rispettata
+   if abs( Proc.Flg) == 2 and not ( ( ( 2 * dDrillingStep - dToolTipLength - dToolDoubleTipLength) - MIRROR_DRILLINGS_MIN_DISTANCE) > 10 * GEO.EPS_SMALL) then
+      return
+   end
    -- verifico se in doppio
-   local dMinimumDistanceMirroredFeatures = 40
-   dMachiningDepth = min( dMachiningDepth, dToolDoubleMaxDepth)
-   if abs( Proc.Flg) == 2 and dToolDoubleDiam < dDiam + 10 * GEO.EPS_SMALL and dToolDoubleDiam > dDiam - BD.DRILL_TOL - 10 * GEO.EPS_SMALL and
-   (( 2 * dDrillingStep - dToolTipLength - dToolDoubleTipLength) - dMinimumDistanceMirroredFeatures) > 10 * GEO.EPS_SMALL then
-      if Proc.Fce ~= 0 then
+   if ( abs( dToolDiam - dToolDoubleDiam) < 10 * GEO.EPS_SMALL) then
+      if Proc.Fce ~= 0 or Proc.Mirror then
          if Proc.Flg == -2 then vtExtr = -vtExtr end
+         local ProcToDisable = EgtIf( abs( Proc.Flg) == 2, Proc, Proc.Mirror)
          if ( not BD.DOWN_HEAD and AreSameVectorApprox( vtExtr, Y_AX())) or
             ( BD.DOWN_HEAD and AreOppositeVectorApprox( vtExtr, Y_AX())) then
             Proc.Double = 2
             Proc.MachDepthDouble = dMachiningDepth
-            DisableOtherDrilling( Proc, vProc)
+            DisableOtherDrilling( ProcToDisable, vProc)
          elseif BD.DOWN_HEAD and AreSameVectorApprox( vtExtr, Z_AX()) then
             Proc.Double = 3
             Proc.MachDepthDouble = dMachiningDepth
-            DisableOtherDrilling( Proc, vProc)
+            DisableOtherDrilling( ProcToDisable, vProc)
          end
       end
    end
@@ -1894,25 +1914,93 @@ local function SetDrillingsToMachineAfterHeadOrTailCut( vProc, vMachineBeforeInt
    end
 end
 
+-------------------------------------------------------------------------------------------------------------
+local function AreDrillingsMirrored( Proc, ProcMirror, b3Raw)
+   if Proc.Id == ProcMirror.Id then return false end
+
+   -- geometria ausiliaria foro principale
+   AuxId = EgtGetInfo( Proc.Id, 'AUXID', 'i')
+   if AuxId then AuxId = AuxId + Proc.Id end
+   if not AuxId or EgtGetType( AuxId ) ~= GDB_TY.CRV_ARC then return false end
+   -- geometria ausiliaria foro specchiato
+   local AuxIdMirror = EgtGetInfo( ProcMirror.Id, 'AUXID', 'i')
+   if AuxIdMirror then AuxIdMirror = AuxIdMirror + ProcMirror.Id end
+   if not AuxIdMirror or EgtGetType( AuxIdMirror ) ~= GDB_TY.CRV_ARC then return false end
+   -- dati del foro principale
+   local vtExtr = EgtCurveExtrusion( AuxId, GDB_RT.GLOB)
+   local ptBC = EgtGP( AuxId, GDB_RT.GLOB)
+   -- dati del foro specchiato
+   local vtExtrMirror = EgtCurveExtrusion( AuxIdMirror, GDB_RT.GLOB)
+   local ptBCMirror = EgtGP( AuxIdMirror, GDB_RT.GLOB)
+
+   -- direzione fori
+   local nDouble
+   if AreOppositeVectorApprox( vtExtr, vtExtrMirror) then
+      -- fori lungo Y
+      -- per macchine tipo PF il foro principale è sul lato back, per macchine tipo PF1250 è sul lato front
+      if ( BD.TWO_EQUAL_HEADS and AreSameVectorApprox( vtExtr, Y_AX())) or
+      ( BD.DOWN_HEAD and AreOppositeVectorApprox( vtExtr, Y_AX())) then
+         nDouble = 2
+      -- fori lungo Z
+      elseif BD.DOWN_HEAD and AreSameVectorApprox( vtExtr, Z_AX()) then
+         nDouble = 3
+      else
+         return false
+      end
+   else
+      return false
+   end
+
+   -- centri allineati, equidistanti dalla mezzeria trave, non troppo vicini
+   local vtDisplacement = ptBC - ptBCMirror
+   local ptCenRaw = b3Raw:getCenter()
+   if nDouble == 2 then
+      local dYMinDistance = max( Proc.Box:getMin():getY(), ProcMirror.Box:getMin():getY()) - min( Proc.Box:getMax():getY(), ProcMirror.Box:getMax():getY())
+      if not ( abs( vtDisplacement:getX()) < 100 * GEO.EPS_SMALL and abs( vtDisplacement:getZ()) < 100 * GEO.EPS_SMALL and
+               ( abs( ptBC:getY() - ptCenRaw:getY()) - abs( ptBCMirror:getY() - ptCenRaw:getY())) < 100 * GEO.EPS_SMALL and
+               dYMinDistance > MIRROR_DRILLINGS_MIN_DISTANCE + 10 * GEO.EPS_SMALL) then
+         return false
+      end
+   else
+      local dZMinDistance = max( Proc.Box:getMin():getZ(), ProcMirror.Box:getMin():getZ()) - min( Proc.Box:getMax():getZ(), ProcMirror.Box:getMax():getZ())
+      if not ( abs( vtDisplacement:getX()) < 100 * GEO.EPS_SMALL and abs( vtDisplacement:getY()) < 100 * GEO.EPS_SMALL and
+               ( abs( ptBC:getZ() - ptCenRaw:getZ()) - abs( ptBCMirror:getZ() - ptCenRaw:getZ())) < 100 * GEO.EPS_SMALL and
+               dZMinDistance > MIRROR_DRILLINGS_MIN_DISTANCE + 10 * GEO.EPS_SMALL) then
+         return false
+      end
+   end
+
+   return true
+end
+
 -------------------------------------------------------------------------------------------------------------
 function GetFeatureInfoAndDependency( vProc, b3Raw)
    -- ciclo tutte le feature
    for i = 1, #vProc do
+      local Proc = vProc[i]
       -- calcolo topologia della feature
-      if NeedTopologyFeature( vProc[i]) then
-         Topology.Classify( vProc[i], b3Raw)
+      if NeedTopologyFeature( Proc) then
+         Topology.Classify( Proc, b3Raw)
       -- se non richiesto, setto 'SPECIAL'
       else
-         vProc[i].Topology = 'SPECIAL'
-         vProc[i].TopologyLongName = vProc[i].Topology
+         Proc.Topology = 'SPECIAL'
+         Proc.TopologyLongName = Proc.Topology
       end
-
       -- controllo la feature con tutte le altre per recuperare le dipendenze
       for j = 1, #vProc do
          local ProcB = vProc[j]
          -- verifico se feature tipo LapJoint è attraversata da almeno un foro
-         if ( vProc[i].Topology == 'Pocket' or vProc[i].Topology == 'Tunnel' or vProc[i].Topology == 'Groove' or Mortise.Identify( vProc[i])) and Drill.Identify( ProcB) and Overlaps( vProc[i].Box, ProcB.Box) then
-            vProc[i].PassedByHole = true
+         if ( Proc.Topology == 'Pocket' or Proc.Topology == 'Tunnel' or Proc.Topology == 'Groove' or Mortise.Identify( Proc)) and Drill.Identify( ProcB) and Overlaps( Proc.Box, ProcB.Box) then
+            Proc.PassedByHole = true
+         end
+         -- verifiche per specchiature
+         if BD.DOWN_HEAD or BD.TWO_EQUAL_HEADS then
+            -- forature
+            if BD.DOUBLE_HEAD_DRILLING and Drill.Identify( Proc) and Drill.Identify( ProcB) and not Proc.Mirror then
+               if AreDrillingsMirrored( Proc, ProcB, b3Raw) then
+                  Proc.Mirror = ProcB
+               end
+            end
          end
       end
    end
@@ -1923,6 +2011,9 @@ function BeamExec.ProcessFeatures()
    if BD.IMPROVE_HEAD_TAIL_DRILLINGS == nil then
       BD.IMPROVE_HEAD_TAIL_DRILLINGS = true
    end
+   -- costanti per doppio
+   MIRROR_DRILLINGS_MIN_DISTANCE = 40
+   MIRROR_POCKETS_MIN_DISTANCE = 50
    -- verifica se possibile rotazione di 90 gradi
    BD.ROT90 = BD.ROT90 and Verify90DegRotation( EgtGetFirstRawPart())
    -- ciclo sui pezzi

LuaLibs/ProcessBlockHausFront.lua

@@ -1,6 +1,7 @@
 -- ProcessBlockHausFront.lua by Egaltech s.r.l. 2020/08/03
 -- Gestione calcolo giunzione block house in testa
 -- 2022/06/10 Aggiunto il parametro dOvmTail per gestire sovramateriali in coda diversi da OVM_MID (sezioni alte e larghe)
+-- 2024/03/11 Chiamate a GetFaceHvRefDim sostituite con lettura di Proc.Face[]
 
 -- Tabella per definizione modulo
 local ProcessBlockHausFront = {}
@@ -268,7 +269,9 @@ function ProcessBlockHausFront.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, dO
          local vtRef2 = EgtIf( bHead, X_AX(), -X_AX())
          -- se non ho il taglio sulla faccia interna
          if not bIntCut then
-            local frHV, DimH, DimV = BL.GetFaceHvRefDim( Proc.Id, vFaceOrd[3] - 1)
+            local frHV = Proc.Face[ vFaceOrd[3]].FrameHV
+            local DimH = Proc.Face[ vFaceOrd[3]].Width
+            local DimV = Proc.Face[ vFaceOrd[3]].Height
             if DimV > DimH then
                vtRef2 = Vector3d( frHV:getVersX())
             end

LuaLibs/ProcessLapJoint.lua

@@ -5824,7 +5824,7 @@ local function TestTwoFacesDownHead( Proc)
       Proc.IsTopDownRabbet = abs( vtRes:getZ()) > 10 * GEO.EPS_SMALL
       for i = 1, Proc.Fct do
          Proc.Face[i].IsTooDownwardForTopBlade = Proc.Face[i].VtN:getZ() < ( BD.CUT_VZ_MIN or -0.484) - 10 * GEO.EPS_SMALL
-         Proc.Face[i].IsTooWideForTopBlade = Proc.Face[i].Width > dTopBladeMaxDepth
+         Proc.Face[i].IsTooWideForTopBlade = Proc.Face[i].WidthTrimmed > dTopBladeMaxDepth
       end
       -- serve la lama sotto se c'è almeno una faccia troppo inclinata verso il basso e non è un rabbet stretto lavorabile dal lato
       if not ( Proc.Face[1].IsTooDownwardForTopBlade or Proc.Face[2].IsTooDownwardForTopBlade) then