Corretta gestione scarico manuale

Common_PF1250.TPA.mlpe

@@ -2079,12 +2079,16 @@ function PrepareUnload( sCmd, nInd)
 
    local Cmd = EgtSplitString( sCmd)
    if Cmd[1] == '0' then
-      -- non interessa
+      if Cmd[3] == 'Manual Unloading' then
+         EMT.MANUAL_UNL = true
+      end
    elseif Cmd[1] == '1' then
       if Cmd[2] == 'Y2' then
          -- se non è ultima fase e non è fase successiva a scarico su carico c'è una barra sulla pinza Y1
+         local dUnloadMacroCode = EgtIf( EMT.MANUAL_UNL, 85, 84)
+         EMT.MANUAL_UNL = nil
          local bBarOnY = ( EMT.PHASE < EgtGetPhaseCount() and not IsEnd2Phase( EMT.PHASE))
-         local MDChar = { Y2=tonumber(Cmd[3]), V2=ParkV2, IniStatY2=1, FinStatY2=-84, BeamVise=EgtIf( bBarOnY, 1, 0), MovType=EgtIf( EMT.CHY_ON, 3, 2)}
+         local MDChar = { Y2=tonumber(Cmd[3]), V2=ParkV2, IniStatY2=1, FinStatY2=-dUnloadMacroCode, BeamVise=EgtIf( bBarOnY, 1, 0), MovType=EgtIf( EMT.CHY_ON, 3, 2)}
          table.insert( EMT.MDCHAR, MDChar)
       end
    elseif Cmd[1] == '2' then

Common_PF1250.mlpe

@@ -1270,7 +1270,7 @@ function OnSimulMoveStart()
             EMT.A6 = EgtClamp( Z2, MinZ2, MaxZ2)
             -- dato che la testa 2 è slave, bisogna controllare eventuale extra-corsa da post
             if not( EMT.MOVE == 0 and EMT.FLAG == 2) and Z2 > MaxZ2 then
-               local sErr = EMT.MCHNAME..'  ==>  Out of Stroke: Z2 : '.. EgtNumToString( dZ2-MaxZ2, 2)
+               local sErr = EMT.MCHNAME..'  ==>  Out of Stroke: Z2 : '.. EgtNumToString( Z2-MaxZ2, 2)
                EmtSetLastError( 1220, sErr, true)
                EgtOutBox( sErr, 'ERROR')
             end

Common_PF1250.mlse

@@ -1406,7 +1406,9 @@ function SpecCalcUnload()
       table.insert( vCmd, { 2, 'T', dFinT, 'Y2', dFinY2})
       EgtOutLog( '  Y2PosF=' .. EgtNumToString( dFinY2), 1)
    else
-      table.insert( vCmd, { 1, 'Y2', MaxY2})
+      local dFinT = min( MaxY2 - EMC.Y2DELTA, max( UnloadT - MaxUnloadLen, MinY2 - EMC.Y2DELTA))
+      local dFinY2 = dFinT + EMC.Y2DELTA
+      table.insert( vCmd, { 2, 'T', dFinT, 'Y2', dFinY2})
    end
    -- apro la morsa
    table.insert( vCmd, { 12, 0})
@@ -2533,6 +2535,9 @@ function SpecOutputCmds( vCmd, bEnd)
       -- commento
       if Cmd[1] == 0 then
          local sInfo = '0,'..Cmd[2]
+         if Cmd[3] then
+            sInfo = sInfo..','..Cmd[3]
+         end
          EgtSetInfo( EMC.PATHID, sKey, sInfo)
       -- movimento di 1 asse
       elseif Cmd[1] == 1 then