Piccola modifica a VICE_MINH

Beam/BeamData.lua

@@ -54,7 +54,7 @@ local BeamData = {
    DIM_STRIP_SMALL = 1.0,                     -- dimensione codolo piccolo (quando le parti sostenute sono sicuramente sulla parte sopra del pezzo)
    RAWCOL = { 255, 160, 32, 30},              -- colore del grezzo
    RAW_OFFSET = 2000,                         -- spostamento grezzo rimanente dopo split
-   VICE_MINH = 110,                           -- altezza minima della morsa
+   VICE_MINH = 1000,                          -- altezza minima della morsa
    OFFSET_DRILL_TENON = 0,                    -- offset fori su tenoni verso base degli stessi (0=non fare)
    USER_HOLE_DIAM = 0,                        -- diametro foro per L20
    MAX_TOOL_LEN_FOR_HOR_MACH = 500,           -- massima lunghezza ingombro per poter fare forature (fresature) oltre i 10 gradi dalla verticale

Common_ONE-PF.NUM.mlpe

@@ -1089,8 +1089,6 @@ function OnRapid()
             EmitMoveWaitChars( nMoveType)
          end
          EMT.MDCHAR = {}
-         -- se pezzo a destra, dichiaro cabina sinistra da parcheggiare
-         if not EMT.Y1DELTA then EMT.V1NEXTPOS = ParkV1 end
          -- se necessario allargo le cabine
          if RollerParkingNeeded( EMT.HEAD, PrevR1, PrevR2, EMT.R1, EMT.R2) or
             EMT.V1POS < EMT.V1NEXTPOS - 1 or EMT.V2POS > EMT.V2NEXTPOS + 1 then

Common_ONE-PF.mlpe

@@ -792,7 +792,7 @@ function OnSimulPathEnd()
       if EMT.MCHSPLIT and not EMT.TO_FALL and not EMT.TO_SPECSPLIT then
          EMT.SPLIT_Y1DELTA = EMT.Y1DELTA
          EMT.Y1DELTA = nil
-         SetPY1Light( false)
+         ExecMovePY1( false)
       end
       ExecMoveZmax( EMT.MCHSPLIT)
       EMT.TO_ZMAX = nil
@@ -802,19 +802,19 @@ end
 ---------------------------------------------------------------------
 function OnSimulPathStartAux()
    -- eseguo il comando
-   ExecAuxCmd( EMT.AUX)
+   ExecAuxCmd( EMT.AUX, true)
    -- se ultimo comando e lavorazione di split, sgancio il carro Y1
    if EMT.AUXIND == EMT.AUXTOT and EMT.MCHSPLIT and not EMT.TO_SPECSPLIT and not EMT.TO_FALL then
       EMT.SPLIT_Y1DELTA = EMT.Y1DELTA
       EMT.Y1DELTA = nil
-      SetPY1Light( false)
+      ExecMovePY1( false)
    end
 end
 
 ---------------------------------------------------------------------
 function OnSimulPathEndAux()
    -- eseguo il comando
-   ExecAuxCmd( EMT.AUX)
+   ExecAuxCmd( EMT.AUX, false)
    -- se ultimo comando e richiesta risalita a Zmax
    if EMT.AUXIND == EMT.AUXTOT and EMT.TO_ZMAX then
       ExecMoveZmax( EMT.MCHSPLIT)
@@ -1127,7 +1127,7 @@ function OnSimulMoveEnd()
       -- se lavorazione split, dichiaro carro Y1 riagganciato
       if EMT.SPLIT_Y1DELTA then
          EMT.SPLIT_Y1DELTA = nil
-         SetPY1Light( true)
+         ExecMovePY1( true)
       end
       -- chiusura pinza speciale (e posizionamento iniziale)
       if EMT.W2DELTA then
@@ -1192,7 +1192,7 @@ function OnSimulCollision()
 end
 
 ---------------------------------------------------------------------
-function ExecAuxCmd( sCmd)
+function ExecAuxCmd( sCmd, bPathStart)
    -- analizzo il comando
    local Cmd = EgtSplitString( sCmd)
    if Cmd[1] == '0' then
@@ -1212,29 +1212,31 @@ function ExecAuxCmd( sCmd)
       end
       EgtOutText( Cmd[2])
    elseif Cmd[1] == '1' then
-      if EMT.SPLIT or EMT.SPECSPLIT then ExecOpenRoller( 1) end
-      if EMT.UNLOADING or EMT.TO_FALL or EMT.TO_SPECSPLIT then ExecOpenRoller( 2) end
-      local sV1, MoveV1, sV2, MoveV2 = CalcMoveV1V2ForAuxCmd( Cmd)
-      local bOk, bOk1, bOk2, bOk3 = SimulMoveAxes( Cmd[2], tonumber( Cmd[3]), MCH_SIM_STEP.RAPID,
-                                                   sV1, MoveV1, MCH_SIM_STEP.RAPID,
-                                                   sV2, MoveV2, MCH_SIM_STEP.RAPID)
-      if not bOk then
-         if not bOk1 then
-            if VerifyY1Y2Stroke( Cmd[2], tonumber( Cmd[3])) == nil then 
-               EgtOutLog( 'Error on ExecAuxCmd : ' .. sCmd)
+      if Cmd[2] ~= 'Z' then
+         ExecOpenRoller( 1)
+         ExecOpenRoller( 2)
+         local sV1, MoveV1, sV2, MoveV2 = CalcMoveV1V2ForAuxCmd( Cmd)
+         local bOk, bOk1, bOk2, bOk3 = SimulMoveAxes( Cmd[2], tonumber( Cmd[3]), MCH_SIM_STEP.RAPID,
+                                                      sV1, MoveV1, MCH_SIM_STEP.RAPID,
+                                                      sV2, MoveV2, MCH_SIM_STEP.RAPID)
+         if not bOk then
+            if not bOk1 then
+               if VerifyY1Y2Stroke( Cmd[2], tonumber( Cmd[3])) == nil then 
+                  EgtOutLog( 'Error on ExecAuxCmd : ' .. sCmd)
+               end
+            elseif not bOk2 then
+               VerifyV1V2Stroke( sV1, MoveV1)
+            elseif not bOk3 then
+               VerifyV1V2Stroke( sV2, MoveV2)
             end
-         elseif not bOk2 then
-            VerifyV1V2Stroke( sV1, MoveV1)
-         elseif not bOk3 then
-            VerifyV1V2Stroke( sV2, MoveV2)
          end
       end
    elseif Cmd[1] == '2' then
       -- Verifico movimento carrello con trave agganciata
       VerifyOneChariotSlide( Cmd[2], Cmd[3], Cmd[4], Cmd[5])
       -- Eseguo i movimenti necessari
-      if EMT.SPLIT then ExecOpenRoller( 1) end
-      if EMT.UNLOADING or EMT.TO_FALL or EMT.TO_SPECSPLIT then ExecOpenRoller( 2) end
+      ExecOpenRoller( 1)
+      ExecOpenRoller( 2)
       local sV1, MoveV1, sV2, MoveV2 = CalcMoveV1V2ForAuxCmd( Cmd)
       local bOk, bOk1, bOk2, bOk3, bOk4 =  SimulMoveAxes( Cmd[2], tonumber( Cmd[3]), MCH_SIM_STEP.RAPID,
                                                           Cmd[4], tonumber( Cmd[5]), MCH_SIM_STEP.RAPID,
@@ -1256,8 +1258,8 @@ function ExecAuxCmd( sCmd)
       -- Verifico movimento carrelli con trave agganciata
       VerifyTwoChariotsSlide( Cmd[2], Cmd[3], Cmd[4], Cmd[5], Cmd[6], Cmd[7])
       -- Eseguo i movimenti necessari
-      if EMT.SPLIT then ExecOpenRoller( 1) end
-      if EMT.UNLOADING or EMT.TO_FALL or EMT.TO_SPECSPLIT then ExecOpenRoller( 2) end
+      ExecOpenRoller( 1)
+      ExecOpenRoller( 2)
       local sV1, MoveV1, sV2, MoveV2 = CalcMoveV1V2ForAuxCmd( Cmd)
       local bOk, bOk1, bOk2, bOk3, bOk4, bOk5 = SimulMoveAxes( Cmd[2], tonumber( Cmd[3]), MCH_SIM_STEP.RAPID,
                                                                Cmd[4], tonumber( Cmd[5]), MCH_SIM_STEP.RAPID,
@@ -1277,15 +1279,13 @@ function ExecAuxCmd( sCmd)
          end
       end
    elseif Cmd[1] == '4' then
-      ExecMoveHome( Cmd[2] == '1', EMT.MCHSPLIT)
+      ExecMoveHome( Cmd[2] == '1', EgtIf( bPathStart, false, EMT.MCHSPLIT))
    elseif Cmd[1] == '11' then
-      local dPY = EgtIf( Cmd[2] == '0', MaxHoOpen, EgtIf( EMT.ROT == -1, EMT.SB, EMT.HB))
-      SimulMoveAxis( 'PY1', dPY, MCH_SIM_STEP.RAPID)
-      SetPY1Light( Cmd[2] ~= '0')
+      local bClose = Cmd[2] ~= '0'
+      if bPathStart and EMT.MCHSPLIT and not EMT.FALL and EMT.AUXIND >= 8 then bClose = false end
+      ExecMovePY1( bClose)
    elseif Cmd[1] == '12' then
-      local dPY = EgtIf( Cmd[2] == '0', MaxHoOpen, EgtIf( EMT.ROT == -1, EMT.SB, EMT.HB))
-      SimulMoveAxis( 'PY2', dPY, MCH_SIM_STEP.RAPID)
-      SetPY2Light( Cmd[2] ~= '0')
+      ExecMovePY2( Cmd[2] ~= '0')
    elseif Cmd[1] == '21' then
       local nY1Delta = tonumber( Cmd[2])
       local nY2Delta = tonumber( Cmd[3])
@@ -1367,6 +1367,7 @@ end
 function ExecMoveHome( bNearV, bMchSplit)
    -- risalita a Zmax
    ExecMoveZmax( bMchSplit)
+   EMT.TO_ZMAX = nil
    -- se richiesto, avvicino i rulli
    if bNearV then
       -- se sega a catena su testa 1 devo prima depositarla
@@ -1576,6 +1577,18 @@ function ExecUnloading()
    end
 end
 
+---------------------------------------------------------------------
+function ExecMovePY1( bClose)
+   SimulMoveAxes( 'PY1', EgtIf( not bClose, MaxHoOpen, EMT.HB), MCH_SIM_STEP.RAPID)
+   SetPY1Light( bClose)
+end
+
+---------------------------------------------------------------------
+function ExecMovePY2( bClose)
+   SimulMoveAxes( 'PY2', EgtIf( not bClose, MaxHoOpen, EMT.HB), MCH_SIM_STEP.RAPID)
+   SetPY2Light( bClose)
+end
+
 ---------------------------------------------------------------------
 local function LinkRemainingPartsToY1()
    local nCurrOrd = GetPhaseOrd( EMT.PHASE)
@@ -1607,6 +1620,9 @@ function ExecParkRoller( PosY1, PosY2, PosV1, PosV2, bSpliCut, bAgg)
    -- Parcheggi pinze
    local MyParkY1 = ParkY1 + EgtIf( bAgg, AggLoad, 0)
    local MyParkY2 = ParkY2
+   -- Apro i rulli, se necessario
+   if abs( ParkV1 - PosV1) > 0.1 then ExecOpenRoller( 1) end
+   if abs( ParkV2 - PosV2) > 0.1 then ExecOpenRoller( 2) end
    -- Eseguo spostamenti
    if EMT.Y1DELTA and EMT.Y2DELTA then
       local DiffY1 = MyParkY1 - PosY1

Common_ONE-PF.mlse

@@ -291,6 +291,22 @@ local function GetNextStartOrRestPhase( nPhase)
    return nNextPhase
 end
 
+---------------------------------------------------------------------
+local function IsFirstMachiningOfStart( nMchId)
+   -- se non è fase inizio di pezzo, ritorno risultato negativo
+   if not IsStartOrRestPhase( EMC.PHASE) then
+      return false
+   end
+   -- recupero la precedente operazione attiva
+   local nPrevOperId = EgtGetPrevActiveOperation( nMchId)
+   -- se non esiste o non è una disposizione, ritorno risultato negativo
+   if not nPrevOperId or EgtGetOperationType( nPrevOperId) ~= MCH_OY.DISP then
+      return false
+   end
+   -- è la prima
+   return true
+end
+
 ---------------------------------------------------------------------
 local function GetPhaseRot( nPhase)
    return ( EgtGetInfo( EgtGetPhaseDisposition( nPhase) or GDB_ID.NULL, 'ROT', 'i') or 0)
@@ -839,6 +855,7 @@ function SpecApplyPath( bPreSplit, bSplitting, bPreCut, bCutting, bUnload, bPreR
    EMC.SB = b3Tot:getDimY()
    EMC.HB = b3Tot:getDimZ()
    EMC.LT = b3Raw:getDimX()
+   EgtOutLog( '  BarLen='..EgtNumToString( EMC.LB, 1), 3)
 
    -- Aggiorno limiti di presa
    UpdateMinJoin()
@@ -1297,6 +1314,9 @@ function SpecCalcCarriages( dDistFront, dDistBack, dRollFront, dRollBack, dY1Del
          return {}
       end
 
+      -- al carico o con prima lavorazione di un pezzo si deve ignorare l'ingombro delle lavorazioni di testa per il pinzaggio
+      if EMC.LOAD or IsFirstMachiningOfStart( EMC.MCHID) then EMC.HCING = 0 end
+
       return SpecAdjustCarriages( WorkTab)
 
    -- [B] se richiesti entrambi e posso metterli
@@ -2599,7 +2619,7 @@ function SpecAdjustCarrC( WorkTab)
          WorkTab.dY1DeltaMaxF = EMC.LB - ( MinJoin + MyTCING)
          -- se Y1 deve accentrarsi 
          if WorkTab.dY1DeltaI > WorkTab.dY1DeltaMaxF then
-            WorkTab.dY1DeltaMinF = EMC.LB - 2 *( MinJoin + MyTCING)
+            WorkTab.dY1DeltaMinF = EMC.LB - 2 * MinJoin - MyTCING
          end
       end
       -- posizioni obiettivo dei carrelli al centro dei rispettivi intervalli di validità

Essetre-PF.mlde

@@ -43,12 +43,14 @@
 -- 2023/11/28 ver 2.6a1 Prima versione con utilizzo post-processore standard per macchine ONE e PF
 -- 2024/01/22 ver 2.6a2 Allineamento con common ver 2.6a2
 -- 2024/01/23 ver 2.6a3 Allineamento con common ver 2.6a3
+-- 2024/01/23 ver 2.6a4 Allineamento con common ver 2.6a4
+--                      In BeamData, parametro VICE_MINH portato a 1000
 
 -- Intestazioni
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '2.6a3'
+PP_VER = '2.6a4'
 MIN_MACH_VER = '2.5k1'
 
 local sBaseDir = EgtGetSourceDir()

UpdateLog.txt

@@ -15,4 +15,8 @@ Versione 2.6a2 (09/01/2024)
 - Nuova versione. Prima versione stabile rilasciabile.
 
 Versione 2.6a3 (23/01/2024)
-- (GEN) Corretto gestione del movimento precedente all'ultimo che manda il pezzo alla posizione di scarico
+- (GEN) Corretto gestione del movimento precedente all'ultimo che manda il pezzo alla posizione di scarico
+
+versione 2.6a4 (05/02/2024)
+- (GEN) Se pezzo tenuto solo con pinza destra non si esclude la rulliera di sinistra, se pezzogrande, può venire in supporto
+- (SIM-GEN) Correzione gestione apertura/chiusura rulli sul fine barra e in generale (da PF1250)

Version.lua

@@ -3,7 +3,7 @@
 
 local InfoCommon_STD_PP = {
    NAME = 'Common_ONE-PF',            -- nome script PP standard
-   VERSION = '2.6a3',                 -- versione script
+   VERSION = '2.6a4',                 -- versione script
    MIN_MACH_VER_PP_COMMON = '2.5k1'   -- versione minima kernel
 }