- Corretta gestione Movimento in Z sicurezza per chiusura pinze

- Se scarico al carico, alla fine si manda in parcheggio rulliera lato scarico
- Cambio versione per rilascio a cliente

Beam/BeamData.lua

@@ -73,10 +73,11 @@ local BeamData = {
    PRECUT_HEAD = true,                      -- flag abilitazione pretaglio grezzo a zero in testa
    PRECUT_TAIL = true,                      -- flag abilitazione pretaglio grezzo a zero in coda
    ADVANCE_TAIL_CUT = true,                 -- per spostare prima del taglio di separazione il taglio di coda su pezzi corti con robabile caduta
-   ADVANCE_TAIL_OFFS = 5,                    -- accorciamento taglio di coda avanzato (minimo 1)
+   ADVANCE_TAIL_OFFS = 5,                   -- accorciamento taglio di coda avanzato (minimo 1)
    DOUBLE_HEAD_DOVETAIL = true,             -- flag abilitazione lavorazione mortase a coda di rondine in doppio
    DOUBLE_HEAD_MORTISE = true,              -- flag abilitazione lavorazione mortase in doppio
-   DOUBLE_HEAD_DRILLING = true              -- flag abilitazione forature in doppio
+   DOUBLE_HEAD_DRILLING = true,             -- flag abilitazione forature in doppio
+   USE_PART_OFFSET = false                  -- flag abilitazione lettura PART_OFFSET da btl
 }
 
 ---------------------------------------------------------------------
@@ -116,6 +117,7 @@ if EgtExistsFile( sDataBeam) then
          if Machine.Offsets.SECONDSAW then SecondSaw = ( Machine.Offsets.SECONDSAW == 1) end
          BeamData.USE_LONGCUT = SecondSaw or BeamData.USE_LONGCUT
          if Machine.Offsets.CUT_SIC then BeamData.CUT_SIC = EgtClamp( Machine.Offsets.CUT_SIC, 15, 50) end
+         if Machine.Offsets.USE_PART_OFFSET then BeamData.USE_PART_OFFSET = ( Machine.Offsets.USE_PART_OFFSET == 1) end
       end
       if Machine.Trave then
          BeamData.MIN_WIDTH = Machine.Trave.XMIN or BeamData.MIN_WIDTH

Common_PF1250.TPA.mlpe

@@ -32,6 +32,10 @@ function OnStart()
    EMT.MAXACC = MaxAcc or 6000    -- accelerazione massima pinze. In realtà è il tempo in millisecondi, quindi MAXACC corrisponde al tempo massimo per raggiungere la velocità desiderata
    EMT.MINACC = MinAcc or 600     -- accelerazione minima pinze. In realtà è il tempo in millisecondi, quindi MINACC corrisponde al tempo massimo per raggiungere la velocità desiderata
    SetToParkLine()        -- si inizia con linee da parcheggiare su stack
+
+   -- se il pezzo dev'essere scaricato al carico
+   local dUnloadType = EgtGetInfo( EgtGetFirstNameInGroup( GDB_ID.ROOT, 'BtlInfo') or GDB_ID.NULL, 'UNLOAD', 'd')
+   EMT.UNLOAD = dUnloadType == 1 or dUnloadType == -1
 end
 
 ---------------------------------------------------------------------
@@ -289,7 +293,11 @@ function OnDispositionEnd()
    -- altrimenti disposizione finale, eventuale scarico pezzo lavorato se non ci sono lavorazioni
    else   
       if #EMT.MDCHAR > 0 then
-         EmitRemark( 'PART UNLOAD')
+         if EMT.AUXTYPE == 'R' and EMT.UNLOAD then
+            EmitRemark( 'PART UNLOAD ON LOAD POSITION')
+         else
+            EmitRemark( 'PART UNLOAD')
+         end
       end
       for i = 1, #EMT.MDCHAR do
          -- Se è un'istruzione del piano ferma pezzo
@@ -316,6 +324,9 @@ function OnDispositionEnd()
             local sEnd= 'M113 P1='..tostring( EMT.PRODID)..' P2='..tostring( EMT.PATTID)..' P3='..tostring( EMT.CUTID)..' P4=2' 
             MyOutput( sEnd)
          end
+         if EMT.UNLOAD then
+            MyOutput('M77')
+         end
       end
       EMT.MDCHAR = {}
       EMT.AUXTYPE = nil
@@ -494,6 +505,10 @@ function OnMachiningEnd()
       elseif EMT.AUXTYPE == 'U' then
          EmitRemark( 'PART UNLOAD')
       elseif EMT.AUXTYPE == 'P' then
+         local nNextPathId
+         local nNextMchId
+         if EMT.PATHID then nNextPathId = EgtGetNextActiveOperation( EMT.PATHID) end
+         if EMT.MCHID then nNextMchId = EgtGetNextActiveOperation( EMT.MCHID) end
          if EMT.PREROT then
             EmitZmax( false, true, EMT.R1, EMT.R2, false, false, false)
             EMT.ZMAX = true
@@ -505,6 +520,10 @@ function OnMachiningEnd()
                EMT.TO_ZMAX = nil
             end
             EmitRemark( 'PART FALL')
+         elseif EMT.UNLOAD and not nNextPathId and not nNextMchId then
+            EmitZmax( false, true, EMT.R1, EMT.R2, false, false, false)
+            EMT.ZMAX = true
+            EmitRemark( 'PART UNLOAD ON LOAD POSITION')
          else
             EmitZmax( false, true, EMT.R1, EMT.R2, false, false, false)
             EMT.ZMAX = true
@@ -1965,9 +1984,18 @@ function PrepareResidue( sCmd, nInd)
       else
          EMT.UNL = true
       end
+      -- se è scarico al carico
+      if Cmd[2] == 'Unload-On-Load' then
+         EMT.UNL2 = true
+      end
    elseif Cmd[1] == '1' then
       if Cmd[2] ~= 'Z' then
          local MDChar
+         -- se scarico al carico parcheggio per sicurezza morsa e paratia lato scarico
+         if EMT.UNL2 then
+            MDChar = { Y2=ParkY2, V2=ParkV2, IniStatY2=1, FinStatY2=1, BeamVise=0}
+            table.insert( EMT.MDCHAR, MDChar)
+         end
          if not EMT.UNL then
             MDChar = { [Cmd[2]]=tonumber(Cmd[3]), IniStatY1=EMT.ISY1, FinStatY1=EMT.FSY1, IniStatY2=EMT.ISY2, FinStatY2=EMT.FSY2, BeamVise=EMT.BV}
          else

Common_PF1250.mlse

@@ -381,7 +381,7 @@ local function GetNextRawInOrd( nCurrRawId)
 end
 
 -----------------------------------------------------------------------
-local function EnsureZmax( bCloseV, vCmd)
+local function EnsureZmax( bCloseV, vCmd, nInd)
    -- verifico non sia già inserito nella lista dei comandi
    for i = 1, #vCmd do
       if vCmd[i][1] == 4 then
@@ -393,7 +393,11 @@ local function EnsureZmax( bCloseV, vCmd)
       end
    end
    -- posizionamento sicuro teste e rulli
-   table.insert( vCmd, { 4, EgtIf( bCloseV, 1, 0)})
+   if not nInd then
+      table.insert( vCmd, { 4, EgtIf( bCloseV, 1, 0)})
+   else
+      table.insert( vCmd, nInd, { 4, EgtIf( bCloseV, 1, 0)})
+   end
    return true
 end
 
@@ -567,6 +571,14 @@ function OnSpecialApplyDisposition()
    end
    -- eseguo scarico
    SpecSetCarrPosFromCmds( vCmd2)
+   -- determino posizione testa trave
+   local nLastEntId = EgtGetLastInGroup( EgtGetLastInGroup( EgtGetFirstNameInGroup( EgtGetPrev( EMC.DISPID), 'CL')))
+   if nLastEntId then
+      local vAxes = EmtGetAxesPos( nLastEntId)
+      if #vAxes > 0 then EMC.TPOS = vAxes[1] end
+   else
+      EMC.TPOS = EgtGetInfo( EMC.DISPID, 'TPOS', 'd')
+   end
    local vCmd3 = SpecCalcUnload()
    -- unisco ed emetto i comandi
    vCmd = EgtJoinTables( vCmd, vCmd2)
@@ -732,7 +744,10 @@ function SpecApplyPath( bPreSplit, bSplitting, bPreCut, bCutting, bUnload)
 
    -- Verifico se lavorazione pareti
    local bWall = ( EgtGetInfo( EgtGetCurrMachGroup() or GDB_ID.NULL, 'Wall', 'd') == 1)
-   
+   -- se il pezzo dev'essere scaricato al carico
+   local dUnloadType = EgtGetInfo( EgtGetFirstNameInGroup( GDB_ID.ROOT, 'BtlInfo') or GDB_ID.NULL, 'UNLOAD', 'd')
+   local bUnloadOnLoadPos = dUnloadType == 1 or dUnloadType == -1
+
    -- mi salvo info lavorazione su una lista
    local AuxInfoMach = {}
    AuxInfoMach.bPreSplit = bPreSplit
@@ -740,7 +755,7 @@ function SpecApplyPath( bPreSplit, bSplitting, bPreCut, bCutting, bUnload)
    AuxInfoMach.bPreCut = bPreCut
    AuxInfoMach.bCutting = bCutting
    AuxInfoMach.bUnload = bUnload
-   
+
    -- Assegno flag di pezzo separato dal resto del grezzo
    SPLIT = IsEndPhase( EMC.PHASE)
 
@@ -748,6 +763,8 @@ function SpecApplyPath( bPreSplit, bSplitting, bPreCut, bCutting, bUnload)
    local b3Tot = BBox3d()
    local b3Raw = BBox3d()
    local nNextOddPhase = GetNextStartOrRestPhase( EMC.PHASE)
+   -- se esistono più grezzi toglie l'impostazione di scarico al carico
+   if bUnloadOnLoadPos and ( nNextOddPhase and nNextOddPhase <= EgtGetPhaseCount()) then bUnloadOnLoadPos = false end
    local nRawId = EgtGetFirstRawPart()
    local nCurrRawId = GDB_ID.NULL
    while nRawId do
@@ -798,6 +815,10 @@ function SpecApplyPath( bPreSplit, bSplitting, bPreCut, bCutting, bUnload)
    elseif bPreCut  or  bCutting then
       local dDistF, dDistB, dRollF, dRollB = SpecialCalcPhaseEncumbrance( EMC.PHASE + 1)
       dDistFront = min( dDistFront, dDistF)
+      -- Se è previsto lo scarico al carico aumenta l'ingombro dell'area di lavoro
+      if bUnloadOnLoadPos then
+         dDistFront = dDistFront -( MinDeltaYV*2 + AGG_V)
+      end
       dDistBack = min( dDistBack, dDistB)
    end
 
@@ -896,11 +917,10 @@ function SpecApplyPath( bPreSplit, bSplitting, bPreCut, bCutting, bUnload)
          EgtSetInfo( NextDispId, 'V1POS', EMC.V1POS)
          EgtSetInfo( NextDispId, 'V2POS', EMC.V2POS)
       end
-   end   
+   end
 
    -- Se previsto scarico, lo eseguo
    if bUnload then
-      EMC.LB = b3Raw:getDimX()
       local vCmdTmp = SpecCalcUnload()
       vCmd = EgtJoinTables( vCmd, vCmdTmp)
    end
@@ -1326,8 +1346,70 @@ function SpecCalcSplit( dLenRaw, dMaxLenLeft)
    return vCmd
 end
 
+---------------------------------------------------------------------
+-- Scarica il pezzo in zona di carico
+function SpecCalcUnloadOnLoadPos()
+   local vCmdPre = {}
+   EgtOutLog( ' *[UL]', 1)
+   -- Se pinza Y2 chiusa, devo effettuare uno scambio
+   local dY1DeltaMaxSP = MaxY1 - LoadT - TurnerOffs - 10 * GEO.EPS_SMALL
+   if EMC.Y2DELTA or EMC.Y1DELTA > dY1DeltaMaxSP then
+      -- imposto quote aggancio per avere solo pinza Y
+      local dDistFront = 0
+      local dDistBack = EMC.LB - MinOther - EMC.HOVM + 10 * GEO.EPS_SMALL
+      -- effettuo scambio
+      vCmdPre = SpecCalcCarriages( dDistFront, dDistBack, 0, 0, dY1DeltaMaxSP)
+      -- recupero nuova posizione carrelli
+      SpecSetCarrPosFromCmds( vCmdPre)
+      EgtOutLog( '  [UL1]', 1)
+   end
+   -- porto il pezzo alla zona di rotazione con il carro Y1
+   local vCmd = {}
+   -- Commento
+   table.insert( vCmd, { 0, 'Unload-On-Load'})
+   -- posizionamento sicuro teste e rulli
+   if #vCmdPre > 0 then
+      EnsureZmax( true, vCmdPre, 2)
+   else
+      EnsureZmax( true, vCmd)
+   end
+   -- Se pinza V chiusa, la apro
+   if EMC.Y2DELTA then
+      table.insert( vCmd, { 12, 0})
+   end
+   -- riporto la trave al carico
+   local dRotT = LoadT + TurnerOffs
+   table.insert( vCmd, { 2, 'Y1', dRotT + EMC.Y1DELTA, 'T', dRotT})
+   -- apro la morsa
+   table.insert( vCmd, { 11, 0})
+   EMC.CNT = nil
+   -- riporto il carrello in home
+   table.insert( vCmd, { 1, 'Y1', ParkY1})
+
+   -- eventuale unione tabelle
+   if #vCmdPre > 0 then
+      vCmd = EgtJoinTables( vCmdPre, vCmd)
+   end
+
+   return vCmd
+end
+
 ---------------------------------------------------------------------
 function SpecCalcUnload()
+   -- In caso di condizioni rispettate richiama lo scarico al carico e ritorna
+   local nNextPathId
+   local nNextMchId
+   if EMC.PATHID then nNextPathId = EgtGetNextActiveOperation( EMC.PATHID) end
+   if EMC.MCHID then nNextMchId = EgtGetNextActiveOperation( EMC.MCHID) end
+   -- se il pezzo dev'essere scaricato al carico
+   local dUnloadType = EgtGetInfo( EgtGetFirstNameInGroup( GDB_ID.ROOT, 'BtlInfo') or GDB_ID.NULL, 'UNLOAD', 'd')
+   local bUnloadOnLoadPos = dUnloadType == 1 or dUnloadType == -1
+
+   -- Opzione attiva, è l'ultimo path, è l'ultima lavorazione e non c'è rimanenza
+   if bUnloadOnLoadPos and not nNextPathId and not nNextMchId and not IsStartOrRestPhase(EMC.PHASE) then
+      local vCmd = SpecCalcUnloadOnLoadPos()
+      return vCmd
+   end
    local vCmdPre = {}
    EgtOutLog( '  *[U]', 1)
    if not EMC.Y1DELTA and not EMC.Y2DELTA then
@@ -1633,7 +1715,7 @@ local function MaxDispl( TabI, vCmd, sType)
      -- allontano (Y1+T) e (Y2)
       dY1a = MaxY1
       dY2a = MinY2
-      dTa = ( dY1a - TabI.dY1PosI) + dTa 
+      dTa = ( dY1a - TabI.dY1PosI) + dTa
    -- **[M2]** = allontanamento dei trascinatori con Y2 in presa
    elseif sType == 'M2'   then
       EmitComment( vCmd, '[M2]')
@@ -1644,7 +1726,7 @@ local function MaxDispl( TabI, vCmd, sType)
       -- allontano (Y2+T) e (Y1)
       dY1a = MaxY1
       dY2a = MinY2
-      dTa = ( dY2a - TabI.dY2PosI) + dTa 
+      dTa = ( dY2a - TabI.dY2PosI) + dTa
    -- **[M3]** = accentramento dei trascinatori con Y1 in presa
    elseif sType == 'M3' then
       EmitComment( vCmd, '[M3]')
@@ -1654,7 +1736,7 @@ local function MaxDispl( TabI, vCmd, sType)
       -- accentro (Y1+T) e (Y2)
       dY1a = TabI.MyMinY1V1
       dY2a = TabI.MaxY2V2
-      dTa = ( dY1a - TabI.dY1PosI) + dTa 
+      dTa = ( dY1a - TabI.dY1PosI) + dTa
    -- **[M4]** = accentramento dei trascinatori con Y2 in presa
    elseif sType == 'M4' then
       EmitComment( vCmd, '[M4]')
@@ -1665,7 +1747,7 @@ local function MaxDispl( TabI, vCmd, sType)
       -- accentro (Y2+T) e (Y1)
       dY1a = TabI.MyMinY1V1
       dY2a = TabI.MaxY2V2
-      dTa = ( dY2a - TabI.dY2PosI) + dTa 
+      dTa = ( dY2a - TabI.dY2PosI) + dTa
    end
    --
    table.insert( vCmd, { 3, 'Y1', dY1a,  'Y2', dY2a, 'T', dTa, EMC.CNT})
@@ -1953,7 +2035,7 @@ local function PosY1Y2B( TabI, vCmd)
                PosY2FromY1B( TabI, vCmd)
             end
          end
-         bXW = false      
+         bXW = false
       -- se posso posizionare 'direttamente' Y2 all'interno dell'intervallo I2 (casi [rp] o [ri])
       else
          -- |POSIZIONO MORSA 2| e poi MORSA 1
@@ -1964,7 +2046,7 @@ local function PosY1Y2B( TabI, vCmd)
                TabI.dY1PosI < TabI.dTPosI + EMC.LB - MinJoin - EgtIf( SPLIT, EMC.TCING, 0) + 10 * GEO.EPS_SMALL then
                PosY2FromY1A( TabI, vCmd)
                PosY1FromY2B( TabI, vCmd)
-               bXW = false   
+               bXW = false
             end
          -- in **accentramento** 
          else
@@ -1973,9 +2055,9 @@ local function PosY1Y2B( TabI, vCmd)
                TabI.dY1PosI <= TabI.dTPosI + EMC.LB - MinJoin - EgtIf( SPLIT, EMC.TCING, 0) + 10 * GEO.EPS_SMALL then
                PosY2FromY1B( TabI, vCmd)
                PosY1FromY2B( TabI, vCmd)
-               bXW = false   
-            end   
-         end 
+               bXW = false
+            end
+         end
       end
       if bXW then
          -- Massimo trascinamento della trave in direzione positiva (casi  **[xw]** )
@@ -1985,10 +2067,10 @@ local function PosY1Y2B( TabI, vCmd)
             TabI.dY1PosI < TabI.dTPosI + EMC.LB - MinJoin - EgtIf( SPLIT, EMC.TCING, 0) + 10 * GEO.EPS_SMALL then
          -- allontanamento morse, trascinamento trave con Y1
             MaxDispl( TabI, vCmd, 'M1')
-         else 
+         else
          -- accentramento morse, trascinamento trave con Y2
             MaxDispl( TabI, vCmd, 'M4')
-         end 
+         end
       end
       nCnt = nCnt + 1
       if nCnt > 10 then return end

Essetre-PF1250-3T_5Ax.mlde

@@ -5,7 +5,7 @@
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '3.1a2_DEV2'
+PP_VER = '3.1a2_DEV8'
 PP_NVER = '3.1.1.2'
 MIN_MACH_VER = '2.7d2'
 MACH_NAME = EgtGetCurrMachineName()