Lettura HCING e TCING anche su fase

Saomad-KAIROS.mlde

@@ -9,7 +9,7 @@
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '2.7e4'
+PP_VER = '2.7e5'
 MIN_MACH_VER = '2.5j1'
 
 EgtOutLog ( '** Saomad-KAIROS '..PP_VER..' (MinMach '.. MIN_MACH_VER ..') **', 1)

Saomad-KAIROS.mlse

@@ -639,12 +639,25 @@ function SpecApplyPath( bPreSplit, bSplitting, bPreCut, bCutting, bUnload, bPreR
    -- Aggiorno limiti di presa e tolleranza
    UpdateMinJoinDeltaTol()
 
-   -- Recupero sovramateriale di testa e ingombro tagli di testa e di coda
+   -- Recupero sovramateriale di testa e ingombro tagli di testa e di coda dal pezzo
    EMC.HOVM = EgtGetInfo( nCurrRawId, 'HOVM', 'd') or 0
    EMC.HCING = EgtGetInfo( nCurrRawId, 'HCING', 'd') or 0
    EMC.TCING = EgtGetInfo( nCurrRawId, 'TCING', 'd') or 0
    EMC.XMAX = b3Raw:getMax():getX() - EMC.HOVM
 
+   -- correggo area non pinzabile in testa o coda in base alle info sulla disposizione, se presenti
+   local sNotes = EgtGetMachiningParam( MCH_MP.USERNOTES)
+
+   local idDisp = EgtGetPhaseDisposition( EMC.PHASE)
+   local dHCING = EgtGetInfo( idDisp, 'HCING', 'd') or 0
+   if dHCING then
+      EMC.HCING = dHCING
+   end
+   local dTCING = EgtGetInfo( idDisp, 'TCING', 'd') or 0
+   if dTCING then
+      EMC.TCING = dTCING
+   end
+
    -- Calcolo dell'ingombro della lavorazione
    local dDistFront, dDistBack = SpecialCalcMachiningEncumbrance( EMC.MCHID, bPreCut)
    if not dDistFront or not dDistBack then return end