Piccola correzione per gestire diametro utensile a nil

- Gestione limite corsa asse B2 se lama su H21

Common-PF1250.mlpe

@@ -1914,7 +1914,7 @@ function LoadFirstTool( nHSet, sTcPosDef)
    if nHSet ~= 1 and nHSet ~= 2 then return end
    EgtUnloadTool( EgtIf( nHSet == 1, 'H11', 'H21'), 1)
    if GetHeadSetFromTcPos( sTcPosDef) ~= nHSet then return end
-   local sTool, sHead, sTcPos, sTTotLen, sBlockedAxis = FindFirstToolOnHeadSet( nHSet)
+   local sTool, sHead, sTcPos, sTTotLen, sTotDiam, sBlockedAxis = FindFirstToolOnHeadSet( nHSet)
    if not sTool then
       local vTools = EgtGetToolsInCurrSetupPos( sTcPosDef)
       if vTools and vTools[1] then
@@ -1926,7 +1926,7 @@ function LoadFirstTool( nHSet, sTcPosDef)
    if sTool then
       -- imposto correttamente i dati di testa
       local OrigEMC = EMC
-      EMC = { HEAD = sHead, TOOL = sTool, TCPOS = sTcPos, TOTLEN = sTTotLen, BLOCKEDAXIS = sBlockedAxis}
+      EMC = { HEAD = sHead, TOOL = sTool, TCPOS = sTcPos, TOTLEN = sTTotLen, TOTDIAM = sTotDiam, BLOCKEDAXIS = sBlockedAxis}
       OnSetHead()
       EMC = OrigEMC
       if sBlockedAxis then
@@ -2365,7 +2365,7 @@ function FindFirstToolOnHeadSet( nHSet)
    local CurrMachId = EgtGetCurrMachining()
    local CurrTool = EgtTdbGetCurrToolParam( MCH_TP.NAME)
    -- cerco lavorazione con utensile su gruppo testa indicato
-   local sTool, sHead, sTcPos, sTTotLen, sBlockedAxis
+   local sTool, sHead, sTcPos, sTTotLen, sTotDiam, sBlockedAxis
    local OpId = EgtGetFirstActiveOperation()
    while OpId do
       local nType = EgtGetOperationType( OpId)
@@ -2383,6 +2383,7 @@ function FindFirstToolOnHeadSet( nHSet)
                   end
                   sTool = sTest
                   sTTotLen = EgtTdbGetCurrToolParam( MCH_TP.TOTLEN)
+                  sTotDiam = EgtTdbGetCurrToolParam( MCH_TP.TOTDIAM)
                   sBlockedAxis = EgtGetMachiningParam( MCH_MP.BLOCKEDAXIS)
                   break
                end
@@ -2395,7 +2396,7 @@ function FindFirstToolOnHeadSet( nHSet)
    EgtSetCurrMachining( CurrMachId or GDB_ID.NULL)
    EgtTdbSetCurrTool( CurrTool or '')
    -- restituisco risultato
-   return sTool, sHead, sTcPos, sTTotLen, sBlockedAxis
+   return sTool, sHead, sTcPos, sTTotLen, sTotDiam, sBlockedAxis
 end
 
 ---------------------------------------------------------------------

Essetre-PF1250MAX.mlde

@@ -57,12 +57,14 @@
 -- 2024/07/22 ver 2.6g3 Allineamento con common ver. 2.6g3
 -- 2024/07/23 ver 2.6g4 Allineamento con common ver. 2.6g4
 --                      Aggiunti file per note utensile e lavorazione
+-- 2024/07/24 ver 2.6g5 Allineamento con common ver. 2.6g5
+--                      Gestione limite corsa asse B2 se lama su H21
 
 -- Intestazioni
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '2.6g4'
+PP_VER = '2.6g5'
 MIN_MACH_VER = '2.5k1'
 MACH_NAME = 'Essetre-PF1250MAX'
 
@@ -248,6 +250,8 @@ if EgtExistsFile( sDataBeam) then
          if Machine.Offsets.C2_POS then MaxC2 = Machine.Offsets.C2_POS end
          if Machine.Offsets.B2_NEG then MinB2 = Machine.Offsets.B2_NEG end
          if Machine.Offsets.B2_POS then MaxB2 = Machine.Offsets.B2_POS end
+         if Machine.Offsets.B2_NEG1 then MinB2b = Machine.Offsets.B2_NEG1 end
+         if Machine.Offsets.B2_POS1 then MaxB2b = Machine.Offsets.B2_POS1 end
          if Machine.Offsets.MIN_Y1 then MinMchY1 = Machine.Offsets.MIN_Y1 end
          if Machine.Offsets.MAX_Y1 then MaxMchY1 = Machine.Offsets.MAX_Y1 end
          if Machine.Offsets.PARK_Y1 then ParkMchY1 = Machine.Offsets.PARK_Y1 end
@@ -1049,6 +1053,11 @@ function OnSetHead()
       EmtModifyAxisDirection( 'B1', Vector3d( cos( Saw2C1Offs), sin( Saw2C1Offs), 0))
    -- se testa H21 (fresa sotto)
    elseif EMC.HEAD == 'H21' then
+      if not EMC.TOTDIAM or EMC.TOTDIAM > 300 then
+         EmtModifyAxisStroke( 'B2', {MinB2b, MaxB2b})
+      else
+         EmtModifyAxisStroke( 'B2', {MinB2, MaxB2})
+      end
       EmtModifyAxisHome( 'C2', ParkC2)
       EmtModifyAxisDirection( 'B2', X_AX())
    -- se testa H22 (lama su aggregato sotto)

UpdateLog.txt

@@ -1,5 +1,8 @@
            ==== Common_PF1250 Update Log ====
 
+Versione 2.6g5 (24/07/2024)
+- (SIM) Per OnSetHead chiamata da simulazione, aggiunta lettura TOTDIAM. Serve per limitare corse assi testa sotto. Ticket#1946
+
 Versione 2.6g4 (23/07/2024)
 - (SIM) Corretta ultima modifica per controllo collisioni testa non utilizzata. Trovava collisioni in lavorazioni in doppio.
 

Version.lua

@@ -3,7 +3,7 @@
 
 local InfoCommon_STD_PP = {
    NAME = 'Common_PF1250',            -- nome script PP standard
-   VERSION = '2.6g4',                 -- versione script
+   VERSION = '2.6g5',                 -- versione script
    MIN_MACH_VER_PP_COMMON = '2.5k1'   -- versione minima kernel
 }