Prima versione funzionante Motori 23 KW

Common_PF1250.TPA.mlpe

@@ -166,7 +166,7 @@ function OnDispositionStart()
                    ' P15='..EmtLenToString( -DeltaTabY, 2)..' P16='..EmtLenToString( DeltaTabZ - MillOffs, 2)..
                    ' P17='..EmtLenToString( Delta2TabY, 2)..' P18='..EmtLenToString( -Delta2TabZ - Mill2Offs, 2)
       -- se è in configurazione a 3 teste
-      if IsHeadExisting( 3) then 
+      if EgtGetHeadId( 'H31') then 
          sOut = sOut .. ' P19='..EmtLenToString( -Delta3TabY, 2)..' P20='..EmtLenToString( Delta3TabZ - Mill3Offs, 2)..
                         ' P21='..EmtLenToString( Mill3Offs, 2).. ' P22='.. EmtLenToString( -ParkInLavZ2, 2)
       else
@@ -475,18 +475,18 @@ function OnMachiningEnd()
          EmitRemark( 'PART UNLOAD')
       elseif EMT.AUXTYPE == 'P' then
          if EMT.PREROT then
-            EmitZmax( false, true, EMT.R1, EMT.R2, false, false, false)
+            EmitZmax( false, true, EMT.R1, EMT.R2)
             EMT.ZMAX = true
             EmitRemark( 'PART ROTATION')
          elseif EMT.FALL then
             if EMT.TO_ZMAX and not EMT.ZMAX then
-               EmitZmax( false, true, EMT.R1, EMT.R2, false, false, false)
+               EmitZmax( false, true, EMT.R1, EMT.R2)
                EMT.ZMAX = true
                EMT.TO_ZMAX = nil
             end
             EmitRemark( 'PART FALL')
          else
-            EmitZmax( false, true, EMT.R1, EMT.R2, false, false, false)
+            EmitZmax( false, true, EMT.R1, EMT.R2)
             EMT.ZMAX = true
             EmitRemark( 'PART SPLIT 2')
          end
@@ -590,10 +590,6 @@ function OnPathEnd()
    if not EMT.ZMAX then
       EmitResetMachining()
    end
-
-   -- salvo dati precedenti
-   EMT.L2pp = EMT.L2o
-
    EMT.AUXTYPE = nil
    EMT.UNL = nil
    EMT.PREROT = nil
@@ -937,7 +933,7 @@ function OnRapid()
          EmitParkedLines()
          -- se sfrido grande, emetto comando speciale
          if EMT.HOVM > 99 then
-            if IsHeadExisting( 3) then
+            if EgtGetHeadId( 'H31') then
                MyOutput( 'M107')
             else
                MyOutput( ';M107')
@@ -953,11 +949,11 @@ function OnRapid()
                -- Allora salvo l'attuale e imposto il vecchio solo momentanemente, per poi ripristinarlo
                local sBckTcPos = EMT.TCPOS
                EMT.TCPOS = EMT.PREVTCPOSREAL_H2
-               EmitZmax( false, false, PrevR1, PrevR2, false, false, true)
+               EmitZmax( false, false, PrevR1, PrevR2)
                EMT.TCPOS = sBckTcPos
                EMT.R3_CHANGED = nil
             else
-               EmitZmax( false, false, PrevR1, PrevR2, false, false, true)
+               EmitZmax( false, false, PrevR1, PrevR2)
             end
             EMT.ZMAX = true
             EMT.TO_ZMAX = nil
@@ -995,7 +991,7 @@ function OnRapid()
          if EMT.MCHUSERNOTES and EMT.MCHUSERNOTES:find( 'Cut', 1, true) then
             -- se sfrido grande, emetto comando speciale
             if EMT.LB - EMT.LT > 99 then
-               if IsHeadExisting( 3) then
+               if EgtGetHeadId( 'H31') then
                   MyOutput( 'M107')
                else
                   MyOutput( ';M107')
@@ -1036,20 +1032,9 @@ function OnRapid()
                      EmitMoveDataHead( 1, { Z=EMT.L3, B=EMT.R2, S=Speed})
                   -- caso standard
                   else
-                     -- se ero in posizione speciale, prima ruoto poi scendo
-                     if bXSpec then
-                        local dZPos = max( HomeZ1, EMT.L3)
-                        EmitMoveDataHead( 1, { Z=dZPos, S=Speed})
-                        EmitMoveDataHead( 1, { B=EMT.R2, C=EMT.R1, S=Speed})
-                        EmitMoveDataHead( 1, { X=EMT.L2, S=Speed})
-                        if abs( dZPos - EMT.L3) > 1 then
-                           EmitMoveDataHead( 1, { Z=EMT.L3, S=Speed})
-                        end
-                     else
-                        EmitMoveDataHead( 1, { Z=EMT.L3, S=Speed})
-                        EmitMoveDataHead( 1, { B=EMT.R2, S=Speed})
-                        EmitMoveDataHead( 1, { C=EMT.R1, S=Speed})
-                     end
+                     EmitMoveDataHead( 1, { Z=EMT.L3, S=Speed})
+                     EmitMoveDataHead( 1, { B=EMT.R2, S=Speed})
+                     EmitMoveDataHead( 1, { C=EMT.R1, S=Speed})
                   end
                -- altrimenti sega a catena
                else
@@ -1353,7 +1338,7 @@ function OnRapid()
       -- porto in home la testa corrente se lavorazione successiva sopra con testa diversa oppure se punta lunga
       local nNextTopHSet = GetNextTopHSet( EMT.MCHID)
       local bTopGoHome = ( nHSet ~= 2 and nNextTopHSet ~= 0 and nHSet ~= nNextTopHSet) or ( nHSet == 1 and EMT.TTOTLEN > LongTool)
-      EmitZmax( true, true, EMT.R1p, EMT.R2p, bSplitCut, bTopGoHome, false)
+      EmitZmax( true, true, EMT.R1p, EMT.R2p, bSplitCut, bTopGoHome)
       -- aggiorno quota finale trave dopo Zmax
       EMT.L1o = EMT.TPOS
       EMT.ZMAX = true
@@ -2365,12 +2350,11 @@ function GetHeadToolCode()
 end
 
 ---------------------------------------------------------------------
-function EmitZmax( bReset, bEnd, PrevR1, PrevR2, bSplitCut, bTopGoHome, bUsePrevDelta)
+function EmitZmax( bReset, bEnd, PrevR1, PrevR2, bSplitCut, bTopGoHome)
    if bReset then
       EmitResetMachining()
    end
    local nSetHead = GetHeadSet( EMT.HEAD)
-   local dXPos = EgtIf( bUsePrevDelta, EMT.L2pp or EMT.L2o, EMT.L2o)
    -- se testa 1
    if nSetHead == 1 then
       -- posizioni sicure
@@ -2391,12 +2375,12 @@ function EmitZmax( bReset, bEnd, PrevR1, PrevR2, bSplitCut, bTopGoHome, bUsePrev
             local dZref = dHomeZ1 + GetZExtra( EMT.HEAD, PrevR2)
             dZref = min( dZref, dMaxZ1)
             local MovH = { Z = EgtIf( dZref > EMT.L3o, dZref, EMT.L3o)}
-            MovH.X = -dXPos ; MovH.B = EgtClamp( PrevR2, -90, 90) ;  MovH.C = PrevR1 ;
+            MovH.X = -EMT.L2o ; MovH.B = EgtClamp( PrevR2, -90, 90) ;  MovH.C = PrevR1 ;
             EmitMoveDataHead( 1, MovH)
             if ( EMT.HEAD == 'H12' or EMT.HEAD == 'H16') and ( abs( dHomeC1 - PrevR1) > 30.1 or abs( dHomeB1 - PrevR2) > 30.1) then
                EmitMoveDataHead( 1, { Z=dMaxZ1, B=0, Fmt=1})
             end
-            if EgtIf( BD.RIGHT_LOAD, ( -dXPos > -DeltaTabY), ( -dXPos < -DeltaTabY)) then
+            if EgtIf( BD.RIGHT_LOAD, ( EMT.L2 > -DeltaTabY), ( EMT.L2 < -DeltaTabY)) then
                EmitMoveDataHead( 1, { X=-DeltaTabY, Fmt=1})
             end
             EmitMoveDataHead( 1, { C=dHomeC1, Fmt=1})
@@ -2442,8 +2426,8 @@ function EmitZmax( bReset, bEnd, PrevR1, PrevR2, bSplitCut, bTopGoHome, bUsePrev
       else
          EmitMoveDataHead( 2, { X=dHomeX2, Fmt=1})
       end
-      -- solo se è macchina a 3 teste con gruppo truciolatore 4 assi, devo stare più alto
-      if EgtGetHeadId( 'H39') then
+      -- solo se è macchina a 3 teste, devo stare più alto
+      if EgtGetHeadId( 'H31') then
          EmitMoveDataHead( 2, { Z=-ParkInLavZ2, Fmt=1})
       end
       EmitMoveStartHead( 2)

Common_PF1250.mlpe

@@ -106,7 +106,7 @@ function OnSimulStart()
    AddToCollisionCheck( 'X2', 'COLLISION', EMT.COLLOBJ)
    AddToCollisionCheck( 'C2', 'COLLISION', EMT.COLLOBJ)
    AddToCollisionCheck( 'B2', 'COLLISION', EMT.COLLOBJ)
-   if IsHeadExisting( 3) then
+   if EgtGetHeadId('H31') then
       AddToCollisionCheck( 'Z3', 'COLLISION', EMT.COLLOBJ)
       AddToCollisionCheck( 'C3', 'COLLISION', EMT.COLLOBJ)
       AddToCollisionCheck( 'B3', 'COLLISION', EMT.COLLOBJ)
@@ -129,7 +129,7 @@ function OnSimulStart()
                      { Grp = 'Z2', Sub = 'COLLISION', Name = 'COL2'},
                      { Grp = 'X1', Sub = 'COLLISION', Name = 'STM'}}
    
-   if IsHeadExisting( 3) then
+   if EgtGetHeadId('H31') then
       table.insert( McdData, { Grp = 'X3', Sub = 'COLLISION', Name = 'STM'})
    end
 
@@ -456,7 +456,7 @@ function OnSimulToolSelect( dPosA)
    -- se fresa o lama su testa 1, reset assi rotanti
    if nSetHead == 1 then
       -- se ho la testa 3, la mando a parcheggio
-      if IsHeadExisting( 3) then
+      if EgtGetHeadId( 'H31') then
          EgtSetAxisPos( 'X3', ParkX3)
       end
       if EMT.HEAD == 'H12' or EMT.HEAD == 'H16' then
@@ -562,12 +562,12 @@ function OnSimulToolDeselect( dPrevA)
          local nPrevTc = GetTcForTopHeadTool( EMT.PREVTCPOS_H1)
          if EMT.PREVTTOTLEN_H1 < LongTool then
             SimulMoveAxes( 'B1', ParkB1, MCH_SIM_STEP.RAPROT, 'C1', ParkC1, MCH_SIM_STEP.RAPROT)
-            local dPosX = EgtIf( nPrevTc ~= 2, ParkTc1X1, ParkTc2X1)
+            local dPosX = EgtIf( nPrevTc ~= 2, ParkX1, ParkTc2X1)
             SimulMoveAxis( 'X1', dPosX, MCH_SIM_STEP.RAPID)
          else
             if nPrevTc ~= 2 then
                SimulMoveAxes( 'B1', ParkLongB1, MCH_SIM_STEP.RAPROT, 'C1', ParkLongTc1C1, MCH_SIM_STEP.RAPROT)
-               local dPosX = ParkTc1X1
+               local dPosX = ParkX1
                SimulMoveAxis( 'X1', dPosX, MCH_SIM_STEP.RAPID)
             else
                SimulMoveAxes( 'B1', ParkLongB1, MCH_SIM_STEP.RAPROT, 'C1', ParkLongTc2C1, MCH_SIM_STEP.RAPROT)
@@ -579,7 +579,7 @@ function OnSimulToolDeselect( dPrevA)
       elseif EMT.PREVHEAD_H1 == 'H12' then
          -- simulo movimento
          SimulMoveAxes( 'B1', ParkB1, MCH_SIM_STEP.RAPROT, 'C1', ParkC1, MCH_SIM_STEP.RAPROT)
-         SimulMoveAxis( 'X1', ParkTc1X1, MCH_SIM_STEP.RAPID)
+         SimulMoveAxis( 'X1', ParkX1, MCH_SIM_STEP.RAPID)
       -- deposito utensile sega a catena
       elseif EMT.PREVHEAD_H1 == 'H13' then
          -- simulo movimento
@@ -618,14 +618,14 @@ function OnSimulToolDeselect( dPrevA)
    if EMT.NEXTHEAD == 'H11' then
       -- simulo movimento
       SimulMoveAxes( 'B1', ParkB1, MCH_SIM_STEP.RAPROT, 'C1', ParkC1, MCH_SIM_STEP.RAPROT)
-      local dPosX = EgtIf( GetTcForTopHeadTool( EMT.NEXTTCPOS) ~= 2, ParkTc1X1, ParkTc2X1)
+      local dPosX = EgtIf( GetTcForTopHeadTool( EMT.NEXTTCPOS) ~= 2, ParkX1, ParkTc2X1)
       SimulMoveAxis( 'X1', dPosX, MCH_SIM_STEP.RAPID)
       SimulMoveAxis( 'Z1', MaxZ1, MCH_SIM_STEP.RAPID)
    -- prendo utensile lama
    elseif EMT.NEXTHEAD == 'H12' then
       -- simulo movimento
       SimulMoveAxes( 'B1', ParkB1, MCH_SIM_STEP.RAPROT, 'C1', ParkC1, MCH_SIM_STEP.RAPROT)
-      SimulMoveAxis( 'X1', ParkTc1X1, MCH_SIM_STEP.RAPID)
+      SimulMoveAxis( 'X1', ParkX1, MCH_SIM_STEP.RAPID)
    -- prendo utensile sega a catena
    elseif EMT.NEXTHEAD == 'H13' then
       -- simulo movimento
@@ -744,19 +744,11 @@ function OnSimulMachiningStart()
          AddToolToCollisionObj( EMT.PREVTOOL_H2, EMT.PREVHEAD_H2, nPrevExit_H2, nInd_H2, true)
          AddToolHolderToCollisionObj( EMT.PREVTOOL_H2, EMT.PREVHEAD_H2, nPrevExit_H2, nInd_H2 + 1)
       end
-      if nSetHead ~= 3 and IsHeadExisting( 3) then
+      if nSetHead ~= 3 and EgtGetHeadId( 'H31') then
          local nPrevExit_H3 = 1
          local nInd_H3 = 1001
-         local sHeadName
-         if EgtGetHeadId( 'H39') then
-            sHeadName = 'H39'
-         elseif EgtGetHeadId( 'H38') then
-            sHeadName = 'H38'
-         else
-            sHeadName = 'H31'
-         end
-         AddToolToCollisionObj( nil, sHeadName, nPrevExit_H3, 1001)
-         AddToolHolderToCollisionObj( nil, sHeadName, nPrevExit_H3, 1002)
+         AddToolToCollisionObj( nil, 'H31', nPrevExit_H3, 1001)
+         AddToolHolderToCollisionObj( nil, 'H31', nPrevExit_H3, 1002)
       end
    end
    -- se precedente in doppio ma ora solo testa 1 e non in sicurezza
@@ -808,12 +800,12 @@ function OnSimulMachiningEnd()
       EMT.PREVTCPOS_H2 = EMT.TCPOS
       EMT.PREVTTOTLEN_H2 = EMT.TTOTLEN
       EMT.PREVTCPOSREAL_H2 = EMT.TCPOSREAL
-   -- per gruppo testa 3 
+   -- per gruppo testa 3 (resetto dati testa 1)
    else
-      EMT.PREVTOOL_H3 = EMT.TOOL
-      EMT.PREVHEAD_H3 = EMT.HEAD
-      EMT.PREVTCPOS_H3 = EMT.TCPOS
-      EMT.PREVTTOTLEN_H3 = EMT.TTOTLEN
+      EMT.PREVTOOL_H3 = nil
+      EMT.PREVHEAD_H3 = nil
+      EMT.PREVTCPOS_H3 = nil
+      EMT.PREVTTOTLEN_H3 = nil
    end
 
 end
@@ -969,21 +961,10 @@ function OnSimulMoveStart()
                   if WriteAllCoordsOnFirstM101 then
                      SimulMoveAxis( 'X1', EgtIf( bXSpec, DeltaTabY, EMT.L2), MCH_SIM_STEP.RAPID)
                   end
-                  -- se ero in posizione speciale, prima ruoto poi scendo
-                  if bXSpec then
-                     local dZPos = max( Z1Home, EMT.L3)
-                     SimulMoveAxis( 'Z1', dZPos, MCH_SIM_STEP.RAPID)
-                     SimulMoveAxes( 'B1', EMT.R2, MCH_SIM_STEP.COLLROT, 'C1', EMT.R1, MCH_SIM_STEP.COLLROT)
-                     SimulMoveAxis( 'X1', EMT.L2, MCH_SIM_STEP.RAPID)
-                     if abs( dZPos - EMT.L3) > 1 then
-                        SimulMoveAxis( 'Z1', EMT.L3, MCH_SIM_STEP.RAPID)
-                     end
-                  else
-                     SimulMoveAxis( 'Z1', EMT.L3, MCH_SIM_STEP.RAPID)
-                     SimulMoveAxes( 'B1', EMT.R2, MCH_SIM_STEP.COLLROT)
-                     SimulMoveAxis( 'C1', EMT.R1, MCH_SIM_STEP.COLLROT)
-                     SimulMoveAxis( 'X1', EMT.L2, MCH_SIM_STEP.RAPID)
-                  end
+                  SimulMoveAxis( 'Z1', EMT.L3, MCH_SIM_STEP.RAPID)
+                  SimulMoveAxis( 'B1', EMT.R2, MCH_SIM_STEP.COLLROT)
+                  SimulMoveAxis( 'C1', EMT.R1, MCH_SIM_STEP.COLLROT)
+                  SimulMoveAxis( 'X1', EMT.L2, MCH_SIM_STEP.RAPID)
                end
             end
          -- altrimenti sega a catena
@@ -1041,10 +1022,6 @@ function OnSimulMoveStart()
                end
             end
          else
-            -- solo se è macchina a 3 teste con gruppo truciolatore 4 assi, devo andare prima in Z0
-            if EgtGetHeadId( 'H39') then
-               SimulMoveAxis( 'Z2', Z2Home, MCH_SIM_STEP.RAPID)
-            end
             -- Porto la X alla giusta quota
             if EMT.ZMAX and X2Pos > ParkMchY2 and ( B2Pos ~= EMT.R2  or  C2Pos ~= EMT.R1) then
                SimulMoveAxis( 'X2', ParkMchY2, MCH_SIM_STEP.RAPID)
@@ -1398,15 +1375,13 @@ end
 function ExecMoveHome( bNearV, bMchSplit)
    -- risalita a Zmax
    ExecMoveZmax( bMchSplit)
-   -- se testa sotto e macchian a 3 teste e gruppo truciolatore a 4 assi
-   if GetHeadSet( EMT.HEAD) == 2 and IsHeadExisting( 3) then
+   -- se testa sotto e macchian a 3 teste
+   if GetHeadSet( EMT.HEAD) == 2 and EgtGetHeadId( 'H31') then
       if not SimulMoveAxis( 'X2', ParkX2, MCH_SIM_STEP.RAPID) then
          EgtOutLog( 'Error on MoveHome : X2')
       end
-      if EgtGetHeadId( 'H39') then
-         if not SimulMoveAxis( 'Z2', ParkInLavZ2, MCH_SIM_STEP.RAPID) then
-           EgtOutLog( 'Error on MoveHome : Z2')
-         end
+      if not SimulMoveAxis( 'Z2', ParkInLavZ2, MCH_SIM_STEP.RAPID) then
+         EgtOutLog( 'Error on MoveHome : X2')
       end
    end
    EMT.TO_ZMAX = nil
@@ -1491,8 +1466,8 @@ function ExecMoveZmax( bMchSplit)
       else
          SimulMoveAxis( 'X2', ParkX2, MCH_SIM_STEP.RAPID)
       end
-      -- solo se è macchina a 3 teste con gruppo truciolatore 4 assi, devo stare più alto
-      if EgtGetHeadId( 'H39') then
+      -- solo se è macchina a 3 teste, devo stare più alto
+      if EgtGetHeadId( 'H31') then
          SimulMoveAxis( 'Z2', ParkInLavZ2, MCH_SIM_STEP.RAPID)
       end
    -- altrimenti testa 3

Common_PF1250.mlse

@@ -895,7 +895,7 @@ function SpecialCalcMachiningEncumbrance( nMchId, bPreCut)
          EgtSetAxisPos( 'A2', vAxMid[6])
       end
       b3Enc = EgtGetBBoxGlob( EgtGetAxisId( 'C2'), GDB_BB.ONLY_VISIBLE)
-   else         -- testa 3
+   else         -- 'H31'
       EgtSetAxisPos( 'C3', vAxMid[4])
       EgtSetAxisPos( 'B3', vAxMid[5])
       b3Enc = EgtGetBBoxGlob( EgtGetAxisId( 'C3'), GDB_BB.ONLY_VISIBLE)

Essetre-PF1250MAX.mlde

@@ -1,15 +1,77 @@
 -- Descrizione macchina Essetre-PF1250MAX by EgalWare s.r.l.   2024/03/28
 -- 2023/12/07 ver 2.5l1 Prima versione. Derivata da PF1250 ver 2.5l4
--------------------------------------
--- NOTE VERSIONI SUCCESSIVE IN GIT --
--------------------------------------
+-- 2023/12/15 ver 2.5l2 Corretti vari offset in simulazione
+-- 2023/12/18 ver 2.5l3 Ultimata gestione aggregato lama da sotto
+--                      Spostato alcune funzioni proprie del C.U. nel MLDE (per post-proc common)
+--                      Spostato magazzini sotto traversa ( di 200mm) come da modifica meccanica
+-- 2023/12/20 ver 2.6a1 Prima versione con post Common-PF1250
+--                      Invertiti magazzini mortasatrice-truciolatore e adeguati solidi di collisione
+--                      Abbassata testa 2 di 300mm
+--                      Parcheggio motosega portato a -1700mm
+--                      In BeamData aggiunta GetSawBlockedAxis per fissare asse bloccato per aggregato lama sotto.
+--                      Costanti MinForzaPinze e MaxForzaPinze portati in mlde/Ts3data (erano hardcoded - Common)
+--                      Aggiunto variabile 'WriteAllCoordsOnFirstM101' e allineamento con 2.6a1 common
+-- 2023/12/20 ver 2.6a2 Allineamento con Common-PF1250 v.2.6a2
+-- 2024/01/22 ver 2.6a3 Migliorata preselezione utensile
+--                      Rimosse funzioni ribaltamento pezzo
+--                      Allineamento con Common-PF1250 v.2.6a3
+--                      In BeamData aggiunta la funzione GetBlockedAxis che sostituisce le altre (GetChainSawBlockedAxis e GetSawBlockedAxis)
+-- 2024/01/25 ver 2.6a4 Allineamento con Common 2.6a4
+-- 2024/02/09 ver 2.6b1 Corretto errore in definizione testa H22
+--                      In BeamData migliorata funzione GetBlockedAxis
+-- 2024/02/12 ver 2.6b2 Allineamento con common 2.6b2
+-- 2024/02/20 ver 2.6b3 Allineamento con common 2.6b3
+-- 2024/02/26 ver 2.6b4 Allineamento con common ver. 2.6b4; in mlde aggiunte chiamate EgtAddToPackagePath
+-- 2024/02/29 ver 2.6c1 Allineamento con common ver. 2.6c1
+-- 2024/03/04 ver 2.6c2 Modificato log con nome macchina
+--                      Allineamento con common ver. 2.6c2
+-- 2024/03/05 ver 2.6c3 Corretto portautensile Standard_LC_108.
+-- 2024/03/12 ver 2.6c4 Allineamento con common ver. 2.6c3
+-- 2024/03/14 ver 2.6c5 Allineamento con common ver. 2.6c4
+--                      Aggiunto nuovo tipo di lavorazione: Predrill
+-- 2024/03/14 ver 2.6c6 Predrill: aggiunta lavorazione tipo 'Predrill_H2' per testa sotto
+-- 2024/03/26 ver 2.6c7 Aggiunto variabile 'ParkLongB1' posizione parcheggio per punte lunghe
+--                      Modificate collisioni traversa. Ora non comprende carro X1 che ha il proprio
+--                      Allineamento con common ver. 2.6c5
+-- 2024/03/26 ver 2.6c8 Aggiunta lettura nuovi parametri offset per lama su aggregato testa sotto
+-- 2024/03/28 ver 2.6c9 Correzioni per pezzi lunghi fino a 30 metri.
+-- 2024/04/12 ver 2.6d1 Allineamento con common ver. 2.6d1
+--                      Aggiunto parametro ForceToCloseRollersGate
+-- 2024/04/23 ver 2.6d2 Allineamento con common ver. 2.6d2
+--                      Aggiunta variabile MaxZ1Blade e relativa gestione
+--                      Aggiunto solido collisione in NGE
+-- 2024/04/24 ver 2.6d3 Aggiunta simulazione macchina tipo "corsa corta" e "corsa lunga"
+-- 2024/04/24 ver 2.6d4 In simulazione aggiunti solidi griglie vicino TC margherita con relativo controllo collisione
+-- 2024/04/30 ver 2.6e1 Allineamento con common ver. 2.6e1
+--                      Aggiunta variabile WoodDensity per gestione WOOD_DENSITY
+-- 2024/05/06 ver 2.6e2 Allineamento con common ver. 2.6e2
+-- 2024/05/15 ver 2.6e4 Allineamento con common ver. 2.6e4
+--                      Corretta posizione griglia sotto CU margherita nel modello 3D
+-- 2024/05/23 ver 2.6e5 Allineamento con common ver. 2.6e5
+-- 2024/05/28 ver 2.6e6 Allineamento con common ver. 2.6e6
+-- 2024/06/03 ver 2.6f1 Aggiunta funzione GetSetupInfo a BeamData per nuovo automatismo
+--                      Allineamento con common ver. 2.6f1
+-- 2024/06/06 ver 2.6f2 Allineamento con common ver. 2.6f2
+-- 2024/07/08 ver 2.6g1 Allineamento con common ver. 2.6g1
+-- 2024/07/12 ver 2.6g2 Allineamento con common ver. 2.6g2
+-- 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
+-- 2024/08/07 ver 2.6h1 Allineamento con common ver. 2.6h1
+-- 2024/08/28 ver 2.6h2 Allineamento con common ver. 2.6h2
+-- 2024/09/06 ver 2.6i1 In BeamData aggiunte costanti MIN_HEIGHT_ADDED_CUTS, PRECUT_HEAD, PRECUT_TAIL, configurabili da offsets Ts3v7
+-- 2024/09/10 ver 2.6i2 Allineamento con common ver. 2.6i1
+-- 2024/09/18 ver 2.6i3 Modificato YAML per comunicazione versioni a LiMan. Aggiunta PP_NVER, versione in formato numerico. 
+-- 2024/09/10 ver 2.6j1 Allineamento con common ver. 2.6j1
 
 -- Intestazioni
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '2.6j3'
-PP_NVER = '2.6.10.3'
+PP_VER = '2.6j1'
+PP_NVER = '2.6.10.1'
 MIN_MACH_VER = '2.5k1'
 MACH_NAME = 'Essetre-PF1250MAX'
 
@@ -88,7 +150,6 @@ MaxB1 = 127
 MinB1b = -119
 MaxB1b = 119
 ParkX1 = 250
-ParkTc1X1 = 250
 ParkTc2X1 = 3100
 ParkZ1 = -525
 ParkC1 = -90
@@ -155,6 +216,7 @@ TcAggreBladeUnder = true                         -- lama su aggregato per testa
 EmitAccClamps = true
 WriteAllCoordsOnFirstM101 = true
 ForceToCloseRollersGate = false
+Motors23KW = true
 
 -- Aggiornamento con dati da TechnoEssetre7
 local sTs3Data = EgtGetStringFromIni( 'Beam', 'DATA_DIR', "C:\\TechnoEssetre7\\EgtData", EgtGetIniFile()).."\\Essetre-PF1250MAX.data"
@@ -238,6 +300,7 @@ if EgtExistsFile( sDataBeam) then
          if Machine.Offsets.MAXPRESS then MaxForzaPinze = Machine.Offsets.MAXPRESS end
          if Machine.Offsets.CHIUDI_PINZE_2_3_SCAMBIO then ForceToCloseRollersGate = Machine.Offsets.CHIUDI_PINZE_2_3_SCAMBIO == 1 end
          if Machine.Offsets.WOOD_DENSITY then WoodDensity = Machine.Offsets.WOOD_DENSITY end
+         if Machine.Offsets.MOTORS23KW then Motors23KW = Machine.Offsets.MOTORS23KW end
 
          -- aggiustamenti
          MinY1 = MinV1 + MinDeltaYV
@@ -257,6 +320,7 @@ if EgtExistsFile( sDataBeam) then
    end
 end
 SecondSaw = ( SecondSaw and Tc2Active)
+local vtOffset23KW = Vector3d( 0, 0, EgtIf( Motors23KW, 37, 0))
 
 EmtGeneral {
       File='Essetre-PF1250.nge',
@@ -292,7 +356,7 @@ local X1Id = EmtAxis {
       Geo = 'X1_AXIS/GEO',
       Aux = {'X1_AXIS/SOLID', 'X1_AXIS/COLLISION'}}
 --  *** Testa 1 ***
-EmtAxis {
+local Z1Id = EmtAxis {
       Name = 'Z1',
       Parent = 'X1',
       Token = 'Z',
@@ -312,8 +376,8 @@ EmtAxis {
       Pos = Point3d(0.0,0.0,503.0),
       Stroke = {MinC1, MaxC1},
       Home = ParkC1,
-      Geo = 'C1_AXIS/GEO',
-      Aux = {'C1_AXIS/SOLID', 'C1_AXIS/COLLISION'}}
+      Geo = EgtIf( Motors23KW, 'C1_AXIS_23KW/GEO', 'C1_AXIS/GEO'),
+      Aux = {EgtIf( Motors23KW, 'C1_AXIS_23KW/SOLID', 'C1_AXIS/SOLID'), EgtIf( Motors23KW, 'C1_AXIS_23KW/COLLISION', 'C1_AXIS/COLLISION')}}
 EmtAxis {
       Name = 'B1',
       Parent = 'C1',
@@ -323,8 +387,8 @@ EmtAxis {
       Pos = Point3d(-108.4,0.0,MillOffs),
       Stroke = {MinB1, MaxB1},
       Home = ParkB1,
-      Geo = 'B1_AXIS/GEO',
-      Aux = {'B1_AXIS/SOLID', 'B1_AXIS/COLLISION'}}
+      Geo = EgtIf( Motors23KW, 'B1_AXIS_23KW/GEO', 'B1_AXIS/GEO'),
+      Aux = {EgtIf( Motors23KW, 'B1_AXIS_23KW/SOLID', 'B1_AXIS/SOLID'), EgtIf( Motors23KW, 'B1_AXIS_23KW/COLLISION', 'B1_AXIS/COLLISION')}}
 -- Frese
 local H11Id = EmtHead {
       Name = 'H11',
@@ -431,8 +495,8 @@ local C2Id = EmtAxis {
       Pos = Point3d( Head2X, Head2Y, Head2Z-485),
       Stroke = {MinC2, MaxC2},
       Home = ParkC2,
-      Geo = 'C2_AXIS/GEO',
-      Aux = {'C2_AXIS/SOLID', 'C2_AXIS/COLLISION'}}
+      Geo = EgtIf( Motors23KW, 'C2_AXIS_23KW/GEO', 'C2_AXIS/GEO'),
+      Aux = {EgtIf( Motors23KW, 'C2_AXIS_23KW/SOLID', 'C2_AXIS/SOLID'), EgtIf( Motors23KW, 'C2_AXIS_23KW/COLLISION', 'C2_AXIS/COLLISION')}}
 local B2Id = EmtAxis {
       Name = 'B2',
       Parent = 'C2',
@@ -442,8 +506,8 @@ local B2Id = EmtAxis {
       Pos = Point3d( Head2X, Head2Y, Head2Z-Mill2Offs),
       Stroke = {MinB2, MaxB2},
       Home = ParkB2,
-      Geo = 'B2_AXIS/GEO',
-      Aux = {'B2_AXIS/SOLID', 'B2_AXIS/COLLISION'}}
+      Geo = EgtIf( Motors23KW, 'B2_AXIS_23KW/GEO', 'B2_AXIS/GEO'),
+      Aux = {EgtIf( Motors23KW, 'B2_AXIS_23KW/SOLID', 'B2_AXIS/SOLID'), EgtIf( Motors23KW, 'B2_AXIS_23KW/COLLISION', 'B2_AXIS/COLLISION')}}
 EmtAxis {
       Name = 'A2',
       Parent = 'B2',
@@ -456,11 +520,11 @@ EmtAxis {
       Geo = 'A2_AXIS/GEO'}
       
 local vtMoveZ2 = Vector3d( 0, 0, Head2Z + 1781.0)
-EgtMove( EgtGetFirstNameInGroup( Z2Id, 'SOLID'), vtMoveZ2, GDB_RT.GLOB)
-EgtMove( EgtGetFirstNameInGroup( Z2Id, 'COLLISION'), vtMoveZ2, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( Z2Id, 'SOLID'), vtMoveZ2 - vtOffset23KW, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( Z2Id, 'COLLISION'), vtMoveZ2 - vtOffset23KW, GDB_RT.GLOB)
 local vtMoveX2 = Vector3d( 0, Head2Y - 3735.9, Head2Z + 1781.0)
-EgtMove( EgtGetFirstNameInGroup( X2Id, 'SOLID'), vtMoveX2, GDB_RT.GLOB)
-EgtMove( EgtGetFirstNameInGroup( X2Id, 'COLLISION'), vtMoveX2, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( X2Id, 'SOLID'), vtMoveX2 - vtOffset23KW, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( X2Id, 'COLLISION'), vtMoveX2 - vtOffset23KW, GDB_RT.GLOB)
 EgtMove( EgtGetFirstNameInGroup( C2Id, 'SOLID'), vtMoveX2, GDB_RT.GLOB)
 EgtMove( EgtGetFirstNameInGroup( C2Id, 'COLLISION'), vtMoveX2, GDB_RT.GLOB)
 EgtMove( EgtGetFirstNameInGroup( B2Id, 'SOLID'), vtMoveX2, GDB_RT.GLOB)
@@ -618,7 +682,7 @@ EmtTable {
       Geo = 'TABLE/GEO',
       Aux = 'TABLE/SOLID'}
 -- *** ToolChanger ***
-local ptTc1 = Point3d( 150, -151, -221 + ( DeltaTabZ - DeltaRulliTraveZ + 55))
+local ptTc1 = Point3d( 150, -151, -221 + ( DeltaTabZ - DeltaRulliTraveZ + 55)) + vtOffset23KW
 local vtDt1 = Vector3d( 0, 0, - 102.5)
 EmtTcPos {
       Name = 'T1',
@@ -713,7 +777,7 @@ EmtTcPos {
       Geo = 'BASE/T13'}
                   
 if Tc2Active then
-   local ptTc2 = Point3d( 150, 3917, -221 + ( DeltaTabZ - DeltaRulliTraveZ + 55))
+   local ptTc2 = Point3d( 150, 3917, -221 + ( DeltaTabZ - DeltaRulliTraveZ + 55)) + vtOffset23KW
    local vtDt2 = Vector3d( 0, 0, - 102.5)
    EmtTcPos {
          Name = 'T21',
@@ -786,7 +850,7 @@ if Tc2Active then
          ADir = X_AX(),
          Geo = 'BASE/T30'}
 end
-local ptTc3 = Point3d( 600, 529, -200.8 + ( DeltaTabZ - DeltaRulliTraveZ + 55))
+local ptTc3 = Point3d( 600, 529, -200.8 + ( DeltaTabZ - DeltaRulliTraveZ + 55)) + vtOffset23KW
 EmtTcPos {
       Name = 'T101',
       Parent = 'Base',
@@ -794,7 +858,7 @@ EmtTcPos {
       TDir = -X_AX(),
       ADir = Z_AX(),
       Geo = 'BASE/T101'}
-local ptTc4 = Point3d( 750, 909, -200.8 + ( DeltaTabZ - DeltaRulliTraveZ + 55))
+local ptTc4 = Point3d( 750, 909, -200.8 + ( DeltaTabZ - DeltaRulliTraveZ + 55)) + vtOffset23KW
 EmtTcPos {
       Name = 'T111',
       Parent = 'Base',
@@ -802,7 +866,7 @@ EmtTcPos {
       TDir = -X_AX(),
       ADir = Z_AX(),
       Geo = 'BASE/T111'}
-local ptTc5 = Point3d( 750, 1309, -115 + ( DeltaTabZ - DeltaRulliTraveZ + 55))
+local ptTc5 = Point3d( 750, 1309, -115 + ( DeltaTabZ - DeltaRulliTraveZ + 55)) + vtOffset23KW
 EmtTcPos {
       Name = 'T121',
       Parent = 'Base',
@@ -810,7 +874,7 @@ EmtTcPos {
       TDir = Z_AX(),
       ADir = X_AX(),
       Geo = 'BASE/T121'}
-local ptTcS = Point3d( -1, -22.3, -1723 + ( DeltaTabZ - DeltaRulliTraveZ + 55))
+local ptTcS = Point3d( -1, -22.3, -1723 + ( DeltaTabZ - DeltaRulliTraveZ + 55)) + vtOffset23KW
 EmtTcPos {
    Name = 'T201',
    Parent = 'Base',
@@ -818,7 +882,7 @@ EmtTcPos {
    TDir = -Z_AX(),
    ADir = Y_AX(),
    Geo = 'BASE/T201'}
-local ptTcR = Point3d( -0.5, 4115, -1871.15 + ( DeltaTabZ - DeltaRulliTraveZ + 55))
+local ptTcR = Point3d( -0.5, 4115, -1871.15 + ( DeltaTabZ - DeltaRulliTraveZ + 55)) + vtOffset23KW
 EmtTcPos {
       Name = 'T220',
       Parent = 'Base',
@@ -899,18 +963,20 @@ EmtTcPos {
 
 -- Aggiusto posizioni geometriche
 local vtMovB = Vector3d( 0, 0, ( DeltaTabZ - DeltaRulliTraveZ + 55))
-EgtMove( EgtGetFirstNameInGroup( BaseId, 'SOLID'), vtMovB, GDB_RT.GLOB)
-EgtMove( EgtGetFirstNameInGroup( BaseId, 'COLLISION'), vtMovB, GDB_RT.GLOB)
-EgtMove( EgtGetFirstNameInGroup( BaseId, 'SIGN') or GDB_ID.NULL, vtMovB, GDB_RT.GLOB)
-EgtMove( EgtGetFirstNameInGroup( BaseId, 'TC1') or GDB_ID.NULL, vtMovB, GDB_RT.GLOB)
-EgtMove( EgtGetFirstNameInGroup( BaseId, 'TC2') or GDB_ID.NULL, vtMovB, GDB_RT.GLOB)
-EgtMove( EgtGetFirstNameInGroup( BaseId, 'TC3') or GDB_ID.NULL, vtMovB, GDB_RT.GLOB)
-if TcSpecialTools then EgtMove( EgtGetFirstNameInGroup( BaseId, 'TC4') or GDB_ID.NULL, vtMovB, GDB_RT.GLOB) end
-if SecondChain then EgtMove( EgtGetFirstNameInGroup( BaseId, 'TC5') or GDB_ID.NULL, vtMovB, GDB_RT.GLOB) end
-EgtMove( EgtGetFirstNameInGroup( BaseId, 'TCR') or GDB_ID.NULL, vtMovB, GDB_RT.GLOB)
-if TcSpecialTools then EgtMove( EgtGetFirstNameInGroup( BaseId, 'TCS') or GDB_ID.NULL, vtMovB, GDB_RT.GLOB) end
-EgtMove( EgtGetFirstNameInGroup( X1Id, 'SOLID'), vtMovB, GDB_RT.GLOB)
-EgtMove( EgtGetFirstNameInGroup( X1Id, 'COLLISION'), vtMovB, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( BaseId, 'SOLID'), vtMovB + vtOffset23KW, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( BaseId, 'COLLISION'), vtMovB + vtOffset23KW, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( BaseId, 'SIGN') or GDB_ID.NULL, vtMovB + vtOffset23KW, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( BaseId, 'TC1') or GDB_ID.NULL, vtMovB + vtOffset23KW, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( BaseId, 'TC2') or GDB_ID.NULL, vtMovB + vtOffset23KW, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( BaseId, 'TC3') or GDB_ID.NULL, vtMovB + vtOffset23KW, GDB_RT.GLOB)
+if TcSpecialTools then EgtMove( EgtGetFirstNameInGroup( BaseId, 'TC4') or GDB_ID.NULL, vtMovB + vtOffset23KW, GDB_RT.GLOB) end
+if SecondChain then EgtMove( EgtGetFirstNameInGroup( BaseId, 'TC5') or GDB_ID.NULL, vtMovB + vtOffset23KW, GDB_RT.GLOB) end
+EgtMove( EgtGetFirstNameInGroup( BaseId, 'TCR') or GDB_ID.NULL, vtMovB + vtOffset23KW, GDB_RT.GLOB)
+if TcSpecialTools then EgtMove( EgtGetFirstNameInGroup( BaseId, 'TCS') or GDB_ID.NULL, vtMovB + vtOffset23KW, GDB_RT.GLOB) end
+EgtMove( EgtGetFirstNameInGroup( X1Id, 'SOLID'), vtMovB + vtOffset23KW, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( X1Id, 'COLLISION'), vtMovB + vtOffset23KW, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( Z1Id, 'SOLID'), vtOffset23KW, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( Z1Id, 'COLLISION'), vtOffset23KW, GDB_RT.GLOB)
 local vtMove = Vector3d( 0, ( DeltaTabY - 2550.0), ( DeltaTabZ + 1258.0))
 EgtMove( EgtGetFirstNameInGroup( BaseId, 'CONVOYER'..sGeomConvoyer), vtMove, GDB_RT.GLOB)
 EgtMove( EgtGetFirstNameInGroup( Y1Id, 'SOLID'), vtMove, GDB_RT.GLOB)
@@ -1068,20 +1134,6 @@ function GetHeadSetFromTcPos( sTcPos)
    return 0, 0
 end
    
----------------------------------------------------------------------
--- Funzione che ritorna bool per dire se esiste o meno al testa richiesta
-function IsHeadExisting( nHeadSet)
-   if nHeadSet == 1 then
-      return H11Id ~= nil
-   elseif nHeadSet == 2 then
-      return H21Id ~= nil
-   elseif nHeadSet == 3 then
-      return H31Id ~= nil
-   else
-      return ''
-   end
-end
-
 ---------------------------------------------------------------------
 -- Funzione che ritorna il nome della testa in base alla posizione utensile (ATT: deve rispecchiare il setup)
 function GetAdjHeadFromTcPos( nHeadSet, sTcPos)

UpdateLog.txt

@@ -1,14 +1,5 @@
            ==== Common_PF1250 Update Log ====
 
-Versione 2.6j3 (25/10/2024)
-- (GEN) Piccola correzione per capire se testa 3 presente
-- (SIM-GEN) In caso di lavorazione successiva alla prima, rivisto primo posizionamento alla quota Z di lavoro se precedentemente spostati a quota rotazione assi rotanti.
-
-Versione 2.6j2 (23/10/2024)
-- (MLDE-SIM) Aggiunto parametro ParkTc1X1 in MLDE per simulazione quota parcheggio Testa 1 su TC1.
-- (SIM-GEN) Per movimento a ZMAX si considera utensile attuale o precedente
-- (SIM-GEN) Prima versione con gestione testa 3 dedicata lama
-
 Versione 2.6j1 (01/10/2024)
 - (GEN) Migliorato calcolo chiusura paratia rulli con aggiornamento lunghezza della barra in caso di ultimo taglio e grezzo residuo in coda. Ticket#2017
 - (NGE-SIM) Aggiunta gestione solidi collisione per TC verticali e TC rotante sotto

Version.lua

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