Aggiornamento Digitale5HsmSV

Omag-Digitale5HsmSV/Omag-Digitale5HsmSV.ini

@@ -65,7 +65,7 @@ VacuumOff=PLC,Application.GVL_HMI_OMAG.HMI_samr_vacuum_off
 BypassState=PLC,Application.GVL_HMI_OMAG.HMI_samr_By_pass
 
 [Table]
-AdditionalTable=0
+AdditionalTable=10
 
 [Tools]
 Drillbit=1
@@ -238,6 +238,7 @@ CurrSawSideFinishing=Finish_Saw600_Side
 CurrSawSingle=
 CurrWaterJet=
 CurrWaterJetting=
+CurrPocketing=
 
 [Materials]
 CurrMaterial=3

Omag-Digitale5HsmSV/Omag-Digitale5HsmSV.mlde

@@ -272,7 +272,7 @@ end
 
 ---------------------------------------------------------------------
 -- Funzione per resettare tutte le attivazioni della macchina
-function OnResetMachine()
+function OnResetMachine( bLeaveVMill)
    EmtUnlinkAllRawPartsFromGroups()
    ResetVacuum()
    -- se esiste, disattivo la testa HSM
@@ -281,6 +281,7 @@ function OnResetMachine()
       EgtSetAxisPos( 'B', 90)
    end
    -- nascondo Vmill
+   if not bLeaveVMill then
    local nRawId = EgtGetFirstRawPart()
    while nRawId do
       local nVmId = EgtGetFirstNameInGroup( nRawId, 'VMill')
@@ -292,6 +293,7 @@ function OnResetMachine()
       nRawId = EgtGetNextRawPart( nRawId)
    end
 end
+end
 -- Funzioni per attivare/disattivare le ventose
 function ParseVacuumCmd(sVac)
    -- recupero stato richiesto

Omag-Digitale5HsmSV/Omag-Digitale5HsmSV.mlpe

@@ -17,6 +17,8 @@
 -- 2020/07/28 Ver 2.2g1 Corretta soffiatura ventose di lato (M224 e non M115).
 -- 2021/07/07 Ver 2.3g1 Modifiche per gestione pausa.
 -- 2021/07/07 Ver 2.3i2 Modifiche per gestione pausa.
+-- 2021/10/14 Ver 2.3j1 Modifiche parametri M131 (assorbimento mandrino).
+-- 2021/10/18 Ver 2.3j2 Migliorata simulazione per estensione corse dipendente da C.
 
 -- Intestazioni
 require( 'EmtGenerator')
@@ -29,6 +31,7 @@ local VacuumExtraZ = -10
 local VacuumExtraY = -1
 local SideAngAlongXOffs = 0.0
 local EnableM227 = false
+local NewM131 = true
 local ProbeBaseInd = 120
 local RedAcc = 5
 
@@ -65,8 +68,9 @@ function OnProgramStart()
    EMT.VACTYPE = EgtGetInfo( EgtGetHeadId( 'H4') or GDB_ID.NULL, 'VacType', 'i') or 0
    EmitVacuumType()
    EmitMeasUnit()
-   -- Recupero se attiva gestione velocità ridotta a inizio/fine taglio
+-- Path file Ini di macchina
    local sMachIni = EgtGetCurrMachineDir() .. '\\' .. EMT.MACHNAME .. '.ini'
+-- Recupero se attiva gestione velocità ridotta a inizio/fine taglio
    EMT.CUTFSEV = ( tonumber( EgtGetStringFromIni( 'Nest', 'CutFsevLen', '0', sMachIni)) > 0.1)
    -- Recupero se richiesta pausa dopo sgrossatura cornici
    EMT.FRAME_PAUSE = ( tonumber( EgtGetStringFromIni( 'Frame', 'Pause', '1', sMachIni)) ~= 0)
@@ -429,7 +433,7 @@ function OnRapid()
          end
       end
       -- se rapido sopra inizio e lavorazione oppure lavaggio, accensione acqua
-      if EMT.FLAG == 1 and ( not EMT.OPEISDISP or EMT.PATHISWASH) then
+      if ( EMT.FLAG == 1 or EMT.FLAG == 0) and ( not EMT.OPEISDISP or EMT.PATHISWASH) then
          EmitCoolant()
       end
    -- se altrimenti risalita a Z max a fine lavorazione
@@ -660,8 +664,13 @@ function EmitSpeed()
    -- avvio rotazione
    EmtOutput( 'M153 S='..EgtNumToString(EMT.S,0))
    -- assorbimento massimo e minima feed
-   EmtOutput( 'E30011='..EgtNumToString(EMT.MAXABSORPTION*100,0))
-   EmtOutput( 'E30014='..EgtNumToString(EMT.MINFEED,0))
+   if NewM131 then
+      EmtOutput( 'E30011='..EgtNumToString( EMT.MAXABSORPTION, 1))
+      EmtOutput( 'E30014='..EmtLenToString( EMT.MINFEED, 1))
+   else
+      EmtOutput( 'E30011='..EgtNumToString( EMT.MAXABSORPTION * 100, 0))
+      EmtOutput( 'E30014='..EgtNumToString( EMT.MINFEED, 0))
+   end
    EmtOutput( 'M131')
    -- dichiaro rotazione attiva
    EMT.SPEEDON = 1
@@ -992,7 +1001,7 @@ end
 
 ---------------------------------------------------------------------
 function OnSimulEnd()
-   OnResetMachine()
+   OnResetMachine( true)
 end
 
 ---------------------------------------------------------------------