Merge branch 'develop' into CheckGenerateFix

BatchProcess.lua

@@ -59,9 +59,23 @@ end
 local sLog = 'BatchProcess : ' .. BEAM.FILE .. ', ' .. BEAM.MACHINE .. ', ' .. sFlag
 EgtOutLog( sLog)
 
--- Cancello file di log specifico
 local sLogFile = EgtChangePathExtension( BEAM.FILE, '.txt')
-EgtEraseFile( sLogFile) 
+-- in caso sia richiesta generazione senza check, verifico prima che il file log specifico non contenga errori: se sì, forzo il check
+if BEAM.FLAG == 0 then
+   local hLogFile = io.open( sLogFile, 'r')
+   if hLogFile then
+      for line in hLogFile:lines() do
+         if EgtStartsWith( line, 'ERR') and tonumber( EgtSplitString( line, '=')[2] or 0) > 0 then
+            BEAM.FLAG = 4
+            break
+         end
+      end
+      hLogFile:close()
+   end
+end
+
+-- Cancello file di log specifico
+EgtEraseFile( sLogFile)
 
 -- Funzioni per scrittura su file di log specifico
 local function WriteErrToLogFile( nErr, sMsg, nRot, nCutId, nTaskId)

BatchProcessNew.lua

@@ -45,9 +45,23 @@ end
 local sLog = 'BatchProcess : ' .. BEAM.FILE .. ', ' .. BEAM.MACHINE .. ', ' .. sFlag
 EgtOutLog( sLog)
 
--- Cancello file di log specifico
 local sLogFile = EgtChangePathExtension( BEAM.FILE, '.txt')
-EgtEraseFile( sLogFile) 
+-- in caso sia richiesta generazione senza check, verifico prima che il file log specifico non contenga errori: se sì, forzo il check
+if BEAM.FLAG == 0 then
+   local hLogFile = io.open( sLogFile, 'r')
+   if hLogFile then
+      for line in hLogFile:lines() do
+         if EgtStartsWith( line, 'ERR') and tonumber( EgtSplitString( line, '=')[2] or 0) > 0 then
+            BEAM.FLAG = 4
+            break
+         end
+      end
+      hLogFile:close()
+   end
+end
+
+-- Cancello file di log specifico
+EgtEraseFile( sLogFile)
 
 -- Funzioni per scrittura su file di log specifico
 local function WriteErrToLogFile( nErr, sMsg, nRot, nCutId, nTaskId)

LuaLibs/FacesBySaw.lua

@@ -29,6 +29,7 @@
 -- 2024/02/22 Migliorato calcolo area non pinzabile in testa HCING e coda TCING
 -- 2024/03/27 In MakeTwo rimossa gestione calcolo differente su ultima passata in caso di macchina FAST
 -- 2024/06/18 In MakeOne in caso di inversione del percorso, si scambia anche accorciamento start con end
+-- 2024/09/12 In MakeOne per settare il FaceUse si usa il versore nelle UserNotes
 
 -- Tabella per definizione modulo
 local FacesBySaw = {}
@@ -232,8 +233,8 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
    if not dVzLimDwnUp then dVzLimDwnUp = BL.GetNzLimDownUp( b3Raw, vtN, vtOrthO) end
    local bDownHead = ( dVzLimDwnUp and dVzLimDwnUp < - 1.5)
    local bDownUp = ( vtN:getZ() < dVzLimDwnUp)
-   -- linea o bilinea di lavorazione (qui uso nOrthoOpposite per ripetere esattamente il calcolo del Mach)
-   local ptP1, ptPm, ptP2, vtV1, vtV2, dLen, dWidth = EgtSurfTmFacetOppositeSide( nSurfId, nFacet, BL.GetVersRef( nOrthoOpposite), GDB_ID.ROOT)
+   -- linea o bilinea di lavorazione
+   local ptP1, ptPm, ptP2, vtV1, vtV2, dLen, dWidth = EgtSurfTmFacetOppositeSide( nSurfId, nFacet, vtOrthO, GDB_ID.ROOT)
    if not dLen or dLen < 1.1 or not dWidth or dWidth < 1.1 then
       local sWarn = 'Face ' .. string.format( '%d,%d', nSurfId, nFacet) .. ' skipped : too small'
       EgtOutLog( sWarn, 1)
@@ -260,7 +261,7 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
                nOrthoOpposite = nOrthoOppositeAlternative
                vtOrthO = vtOrthOAlternative
                -- avendo riassegnato la direzione di lavoro, i dati della linea vanno ricalcolati
-               ptP1, ptPm, ptP2, vtV1, vtV2, dLen, dWidth = EgtSurfTmFacetOppositeSide( nSurfId, nFacet, BL.GetVersRef( nOrthoOpposite), GDB_ID.ROOT)
+               ptP1, ptPm, ptP2, vtV1, vtV2, dLen, dWidth = EgtSurfTmFacetOppositeSide( nSurfId, nFacet, vtOrthO, GDB_ID.ROOT)
                if not dLen or dLen < 1.1 or not dWidth or dWidth < 1.1 then
                   local sWarn = 'Face ' .. string.format( '%d,%d', nSurfId, nFacet) .. ' skipped : too small'
                   EgtOutLog( sWarn, 1)
@@ -515,6 +516,8 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
    EgtSetMachiningGeometry( {{ nSurfId, nFacet}})
    -- imposto uso faccia
    EgtSetMachiningParam( MCH_MP.FACEUSE, nFaceUse)
+   local sNoteVtFaceUse = 'VtFaceUse=' .. EgtNumToString( vtOrthO:getX(),3) .. ',' .. EgtNumToString( vtOrthO:getY(),3) .. ',' .. EgtNumToString( vtOrthO:getZ(),3) .. ';'
+   EgtSetMachiningParam( MCH_MP.USERNOTES, sNoteVtFaceUse)
    -- imposto posizione braccio porta testa
    EgtSetMachiningParam( MCH_MP.SCC, nSCC)
    -- imposto inversione e lato correzione

LuaLibs/ProcessDrill.lua

@@ -23,6 +23,7 @@
 -- 2024/03/13 Aggiunta gestione Predrill
 -- 2024/03/18 Per Predrill corretta direzione estrusione per fori con direzione verso il basso
 -- 2024/09/04 Gestione dipendenza foro-tasca in caso di fase con pezzo ribaltato
+-- 2024/09/10 In GetData corretta gestione modifica diametro foro
 
 -- Tabella per definizione modulo
 local ProcessDrill = {}
@@ -102,9 +103,10 @@ function ProcessDrill.GetData( Proc, b3Raw)
    local AuxId = EgtGetInfo( Proc.Id, 'AUXID', 'i')
    -- verifico se foro da adattare
    if EgtExistsInfo( Proc.Id, 'DiamUser') then
-      if AuxId then AuxId = AuxId + Proc.Id end
-      if AuxId and EgtGetType( AuxId) == GDB_TY.CRV_ARC and BD.USER_HOLE_DIAM and BD.USER_HOLE_DIAM > 1 then
-         EgtModifyArcRadius( AuxId, BD.USER_HOLE_DIAM / 2)
+      local nNewAuxId
+      if AuxId then nNewAuxId = AuxId + Proc.Id end
+      if AuxId and EgtGetType( nNewAuxId) == GDB_TY.CRV_ARC and BD.USER_HOLE_DIAM and BD.USER_HOLE_DIAM > 1 then
+         EgtModifyArcRadius( nNewAuxId, BD.USER_HOLE_DIAM / 2)
       end
    end
    -- recupero diametro e lunghezza