diff --git a/Saomad-KAIROS.mlde b/Saomad-KAIROS.mlde index 18f2a80..d9926dc 100644 --- a/Saomad-KAIROS.mlde +++ b/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) diff --git a/Saomad-KAIROS.mlse b/Saomad-KAIROS.mlse index 201e440..7385c2d 100644 --- a/Saomad-KAIROS.mlse +++ b/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