Ripristinato vecchio metodo riposizionamento morse

Prima versione funzionante con tutti i test 101 e altri test ulteriori
Piccole correzioni a calcoli e gestione offset iniziale
2024-09-23 11:28:35 +02:00 · 2024-09-23 09:51:06 +02:00 · 2024-09-20 17:05:55 +02:00 · 2024-09-20 16:00:24 +02:00 · 2024-09-20 12:13:25 +02:00 · 2024-09-20 10:01:56 +02:00
7 changed files with 869 additions and 220 deletions
@@ -627,7 +627,7 @@ function OnRapid()
      local MyZHome = EgtGetAxisHomePos( 'Z')
      local bZmax = ( #EMT.AUXSTR > 0  or  EMT.TOOL ~= EMT.PREVTOOL  or  EMT.L3 > -1)
      -- se avevo motosega, torno in zona sicura senza ruotare assi rotanti
-      if EMT.PREVHEAD == 'H3' and EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
+      if ( EMT.PREVHEAD == 'H3' or EMT.TTOTLEN > 200) and EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
         local sOutPreMove = 'G101' .. ' X' .. EmtLenToString( -SafeXRotAxes, 3) .. ' Z' .. EmtLenToString( MyZHome, 3) ..
                                       ' B' .. EmtLenToString( EMT.R2pp, 3) .. ' C' .. EmtLenToString( EMT.R1pp, 3) .. 
                                       ' EE' .. EgtIf( bZmax, '3', '4') .. EMT.PREVsEL .. EMT.PREVsER .. EMT.PREVsET .. EMT.PREVsES
@@ -649,7 +649,7 @@ function OnRapid()
      local sES = ' ES'..EgtNumToString( EMT.S, 0)

      -- se carico motosega, ruoto in zona sicura prima di approcciare la lavorazione
-      if EMT.HEAD == 'H3' and EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
+      if ( EMT.HEAD == 'H3' or EMT.TTOTLEN > 200) and EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
         local sEEPreMove = ' EE' .. EgtIf( bZmax, '3', '4')
         local sOutPreMove = 'G101' .. ' X' .. EmtLenToString( -SafeXRotAxes, 3) .. ' Z' .. EmtLenToString( MyZHome, 3) ..
                                       EmtGetAxis( 'R2') .. EmtGetAxis( 'R1') .. sEE .. sEL .. sER .. sET .. sES
@@ -930,8 +930,12 @@ function OnArc()
   local sFeed = EmtGetFeed()
   -- tipo arco
   local sArc = 'G' .. EgtNumToString(EMT.MOVE,0)
-   -- emetto arco
-   EmtOutput( sArc..sAxes..sRad..sFeed)
+   -- se arco molto grande, approssimo con una retta
+   if EMT.RR > 99999 then
+      EmtOutput( "G1"..sAxes..sFeed)
+   else
+      EmtOutput( sArc..sAxes..sRad..sFeed)
+   end

   -- aggiorno valori come precedenti
   EmtUpdatePrev()
@@ -668,7 +668,7 @@ function OnRapid()
      local MyZHome = EgtGetAxisHomePos( 'Z')
      local bZmax = ( #EMT.AUXSTR > 0  or  EMT.TOOL ~= EMT.PREVTOOL  or  EMT.L3 > -1)
      -- se avevo motosega, torno in zona sicura senza ruotare assi rotanti
-      if EMT.PREVHEAD == 'H3' and EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
+      if ( EMT.PREVHEAD == 'H3' or EMT.TTOTLEN > 200) and EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
         local sOutPreMove = 'G101' .. ' X' .. EmtLenToString( -SafeXRotAxes, 3) .. ' Z' .. EmtLenToString( MyZHome, 3) ..
                                       ' B' .. EmtLenToString( EMT.R2pp, 3) .. ' C' .. EmtLenToString( EMT.R1pp, 3) .. 
                                       ' EE' .. EgtIf( bZmax, '3', '4') .. EMT.PREVsEL .. EMT.PREVsER .. EMT.PREVsET .. EMT.PREVsES
@@ -713,7 +713,7 @@ function OnRapid()
      local sES = ' ES'..EgtNumToString( EMT.S, 0)

      -- se carico motosega, ruoto in zona sicura prima di approcciare la lavorazione
-      if EMT.HEAD == 'H3' and EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
+      if ( EMT.HEAD == 'H3' or EMT.TTOTLEN > 200) and EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
         local sEEPreMove = ' EE' .. EgtIf( bZmax, '3', '4')
         local sOutPreMove = 'G101' .. ' X' .. EmtLenToString( -SafeXRotAxes, 3) .. ' Z' .. EmtLenToString( MyZHome, 3) ..
                                       EmtGetAxis( 'R2') .. EmtGetAxis( 'R1') .. sEE .. sEL .. sER .. sET .. sES
@@ -843,7 +843,7 @@ function OnRapid()
         sOut = 'G112 EA'..sA..' EB'..sB..EmtGetAxis('L1')..' EY'..sY..' EV'..sV..' EF'..GetFmaxClamp()
         EmtOutput( sOut)
         -- se taglio di coda senza residuo da scaricare, emetto M175 per accelerare il carico della barra successiva
-         if EMT.MCHUSERNOTES and EMT.MCHUSERNOTES:find( 'Cut') then
+         if EMT.MCHUSERNOTES and EMT.MCHUSERNOTES:find( 'Cut') and ( IsEndPhase( EMT.PHASE+1) or IsEnd2Phase( EMT.PHASE+1)) then
            EmtOutput( '(M175)')
         end
         if not bHeadFirst then
@@ -1009,8 +1009,12 @@ function OnArc()
   local sFeed = EmtGetFeed()
   -- tipo arco
   local sArc = 'G' .. EgtNumToString(EMT.MOVE,0)
-   -- emetto arco
-   EmtOutput( sArc..sAxes..sRad..sFeed)
+   -- se arco molto grande, approssimo con una retta
+   if EMT.RR > 99999 then
+      EmtOutput( "G1"..sAxes..sFeed)
+   else
+      EmtOutput( sArc..sAxes..sRad..sFeed)
+   end

   -- aggiorno valori come precedenti
   EmtUpdatePrev()
@@ -647,7 +647,7 @@ function OnRapid()
      local MyZHome = EgtGetAxisHomePos( 'Z')
      local bZmax = ( #EMT.AUXSTR > 0  or  EMT.TOOL ~= EMT.PREVTOOL  or EMT.L3 > -1)
      -- se avevo motosega, torno in zona sicura senza ruotare assi rotanti
-      if EMT.PREVHEAD == 'H3' and EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
+      if ( EMT.PREVHEAD == 'H3' or EMT.TTOTLEN > 200) and EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
         local sOutPreMove = 'M101 P1=1' .. ' P2=' .. EmtLenToString( -SafeXRotAxes, 3) .. ' P3=' .. EmtLenToString( MyZHome, 3) ..
                                 ' P4=' .. EgtNumToString( EMT.R2pp, 3) .. ' P5=' .. EgtNumToString( EMT.R1pp, 3) .. 
                                 ' P6=' .. EgtNumToString( EMT.PREVTCPOS, 3) .. ' P7=' .. EgtNumToString( EMT.PREVS, 0) ..
@@ -663,7 +663,7 @@ function OnRapid()
      end

      -- se carico motosega, ruoto in zona sicura prima di approcciare la lavorazione
-      if EMT.HEAD == 'H3' and EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
+      if ( EMT.HEAD == 'H3' or EMT.TTOTLEN > 200) and EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
         local sOutPreMove = 'M101 P1=1' .. ' P2=' .. EmtLenToString( -SafeXRotAxes, 3) .. ' P3=' .. EmtLenToString( MyZHome, 3) ..
                                 ' P4=' .. EgtNumToString( EMT.R2, 3) .. ' P5=' .. EgtNumToString( EMT.R1, 3) .. 
                                 ' P6=' .. AdjustTcPos( false) .. ' P7=' .. EgtNumToString( EMT.S, 0) ..
@@ -774,7 +774,7 @@ function OnRapid()
            sB = '2'
         end
         -- se taglio di coda senza residuo da scaricare, emetto M175 per accelerare il carico della barra successiva
-         if EMT.MCHUSERNOTES and EMT.MCHUSERNOTES:find( 'Cut') then
+         if EMT.MCHUSERNOTES and EMT.MCHUSERNOTES:find( 'Cut') and ( IsEndPhase( EMT.PHASE+1) or IsEnd2Phase( EMT.PHASE+1)) then
            EmtOutput( 'M175')
         end
         if bHeadFirst then
@@ -15,11 +15,11 @@ BIG_TOOL_DIAM = 300
 ---------------------------------------------------------------------
 local sBaseDir = EgtGetCurrMachineDir()
 if NumericalControl == 'NUM' then
-   dofile( sBaseDir .. '\\Common-FAST.NUM.mlpe')
+   dofile( sBaseDir .. '\\Common_FAST.NUM.mlpe')
 elseif NumericalControl == 'TPA' then
-   dofile( sBaseDir .. '\\Common-FAST.TPA.mlpe')
+   dofile( sBaseDir .. '\\Common_FAST.TPA.mlpe')
 elseif NumericalControl == 'NUM_PLUS' then
-   dofile( sBaseDir .. '\\Common-FAST.NUM_PLUS.mlpe')
+   dofile( sBaseDir .. '\\Common_FAST.NUM_PLUS.mlpe')
 else
   EmtSetLastError( 1201, 'Numerical Control error : unkwnown type')
 end
@@ -752,7 +752,7 @@ function OnSimulMoveStart()
      -- con pezzi alti aggiorno gli assi rotanti prima di muovermi sopra il pezzo
      if not EMT.LOAD and EMT.MOVE == 0 and EMT.HB > BeamHeightForFixRot and EMT.FLAG2 == 1 then
         -- se motosega mi muovo a X di sicurezza per ruotare
-         if EMT.HEAD == 'H3'then
+         if EMT.HEAD == 'H3' or EMT.TOTLEN > 200 then
            SimulMoveAxes( 'X', SafeXRotAxes, MCH_SIM_STEP.RAPID, 'C', EMT.R1, MCH_SIM_STEP.COLLROT, 'B', EMT.R2, MCH_SIM_STEP.COLLROT)
         end
      end
@@ -1524,6 +1524,12 @@ function IsStartOrRestPhase( nPhase)
   return ( sVal == 'START' or sVal == 'REST')
 end

+---------------------------------------------------------------------
+function IsEndPhase( nPhase)
+   local sVal = GetPhaseType( nPhase)
+   return ( sVal == 'END')
+end
+
 ---------------------------------------------------------------------
 function IsMidPhase( nPhase)
   local sVal = GetPhaseType( nPhase)
@@ -1,5 +1,19 @@
           ==== Common_FAST Update Log ====

+Versione 2.6i2 (16/09/2024)
+- (SIM-GEN) Se utensili più lunghi di 200mm, si ruota in home e poi si approccia il pezzo.  Ticket#2038
+- (SIM-GEN) Aumentata distanza ingombro da 650mm a 660mm. In casi di utensile abbastanza lungo poteva andare in colisione. Ticket#2041
+
+Versione 2.6i1 (02/09/2024)
+- (MLDE-SIM-GEN) Rinominato file da "Common-" a "Common_" per uniformità con i file common delle altre macchine. Serve modifica a MLDE macchina.
+
+Versione 2.6g1 (03/07/2024)
+- (GEN) Corretto chiamata macro precarico in caso di taglio finale, ma con ribaltamento successivo. Ora si chiama solo se la fase successiva è una "END". Ticket#1881
+- (GEN) Per controllo NUM, se arco maggiore di 99999mm, si approssima con una retta. Ticket#1888
+
+Versione 2.6e3 (06/05/2024)
+- (MLDE-SIM-GEN) Gestione facoltativa parametri MIN_JOIN_xx settabili in Ts3. Ticket#1794
+
 Versione 2.6e2 (06/05/2024)
 - (SIM-GEN) Modificata tolleranza calcolo ingombri lavorazioni per posizionamento pinze. Ticket#1790

@@ -2,8 +2,8 @@
 -- Gestione della versione dei file comuni post-processori macchine FAST e FASTrl di Essetre

 local InfoCommon_STD_PP = {
-   NAME = 'Common-FAST',            -- nome script PP standard
-   VERSION = '2.6e2',                 -- versione script
+   NAME = 'Common_FAST',            -- nome script PP standard
+   VERSION = '2.6i2',                 -- versione script
   MIN_MACH_VER_PP_COMMON = '2.5k1'   -- versione minima kernel
 }
Author	SHA1	Message	Date
andrea.villa	8fdda065d4	Ripristinato vecchio metodo riposizionamento morse	2024-09-23 11:28:35 +02:00
andrea.villa	5ae185cd0e	Prima versione funzionante con tutti i test 101 e altri test ulteriori	2024-09-23 09:51:06 +02:00
andrea.villa	446b56d975	Piccole correzioni a calcoli e gestione offset iniziale	2024-09-20 17:05:55 +02:00
andrea.villa	48626b7f90	- Compensazione errore laser al carico per primo riposizionamento - Rimosse variabili non più utilizzate	2024-09-20 16:00:24 +02:00
andrea.villa	21104984ad	Aggiunto controllo tolleranza su posizione pinze per evitare riposizionamenti	2024-09-20 12:13:25 +02:00
andrea.villa	c33c3196f2	Rimosse variabili non più utilizzate	2024-09-20 10:01:56 +02:00
andrea.villa	9b6c24017d	Piccole correzioni ai calcoli del posizionamento	2024-09-20 08:19:22 +02:00
andrea.villa	5b7bab2873	Rivisitazione condizioni per scambio diretto	2024-09-19 12:07:30 +02:00
andrea.villa	1886d6620e	Se posso fare scambio diretto non suddivido il movimento	2024-09-18 10:29:42 +02:00
andrea.villa	235a8dacb7	Offset minimo impostato prima del controllo se spostare morse	2024-09-18 08:28:26 +02:00
andrea.villa	aad2a95dff	- Risalita a ZMAX - Migliorie se scambio diretto	2024-09-17 15:56:47 +02:00
andrea.villa	26126ac892	Aggiunto gestione riposizionamento per trave che si muove dallo scarico al carico	2024-09-17 12:52:32 +02:00
andrea.villa	5491e5cd81	Cancellate vecchie funzioni	2024-09-17 12:32:25 +02:00
andrea.villa	16e04c8502	Prima bozza nuova gestione riposizionamento carrelli	2024-09-17 12:24:29 +02:00
andrea.villa	3b1133f88c	Merge branch 'main' into develop	2024-09-16 10:29:16 +02:00
andrea.villa	5d72e04f7e	Merge remote-tracking branch 'origin/develop'	2024-09-16 10:28:55 +02:00
andrea.villa	72d61b4561	- Se utensili più lunghi di 200mm, si ruota in home e poi si approccia il pezzo. - Aumentata distanza ingombro da 650mm a 660mm.	2024-09-16 10:28:41 +02:00
andrea.villa	7a16f26a63	Merge remote-tracking branch 'origin/main' into develop	2024-09-02 08:56:48 +02:00
andrea.villa	c425cf1be3	Merge branch 'develop'	2024-09-02 08:56:27 +02:00
andrea.villa	79ecca7e02	Commit per versione	2024-09-02 08:56:17 +02:00
andrea.villa	b9cc8a3aa9	Rinominato file da "Common-" a "Common_"	2024-08-02 09:32:17 +02:00
andrea.villa	0c8769dd81	Merge branch 'main' into develop	2024-07-03 10:07:33 +02:00
andrea.villa	7c9ec51f55	corretto nome versione in Version.lua	2024-07-03 10:07:09 +02:00
andrea.villa	d0817659e5	Merge branch 'main' into develop	2024-07-03 10:05:57 +02:00
andrea.villa	f283fe8fa9	Merge branch 'develop'	2024-07-03 10:05:36 +02:00
andrea.villa	87a7a89dbd	commit per versione	2024-07-03 10:05:26 +02:00
andrea.villa	1a1f775c88	Per controllo NUM, se arco maggiore di 99999mm, si approssima con una retta	2024-06-26 16:32:03 +02:00
andrea.villa	fd7cc25a4f	Corretto chiamata macro precarico in caso di taglio finale, ma con ribaltaemnto successivo.	2024-06-26 15:20:15 +02:00
andrea.villa	bdbec7cf37	Merge branch 'main' into develop	2024-05-06 16:37:51 +02:00
andrea.villa	6f115a81a0	Gestione facoltativa parametri MIN_JOIN_xx settabili in Ts3	2024-05-06 16:37:35 +02:00
andrea.villa	8e6daeeac7	Merge branch 'main' into develop	2024-05-06 14:52:48 +02:00
andrea.villa	01e5018c3d	Merge branch 'main' into develop	2024-04-30 16:53:49 +02:00