Corretta scrittura GEOAX

Beam/BeamDataNew.lua

@@ -286,6 +286,11 @@ local function GetSetupInfo( sHead)
    elseif sHead == 'H3' then
       SetupInfo.HeadType = { bTop = true, bBottom = false}
       SetupInfo.PreferredSide = {}
+   -- sega a catena
+   elseif sHead == 'H4' then
+      SetupInfo.HeadType = { bTop = true, bBottom = false}
+      SetupInfo.PreferredSide = {}
+      SetupInfo.nBlockedSCC = 11  -- MCH_SCC.ADIR_XP
    -- rinvio angolare 90° (considerato come fosse una testa da sotto)
    elseif sHead == 'H5' then
       SetupInfo.bToolOnAggregate = true

Saomad-KAIROS-MK2.SIEMENS.mlpe

@@ -658,7 +658,7 @@ function OnRapid()
          EMT.PRELOADCMD = nil
       end
 
-      sOut = 'G1 Y=' .. EgtNumToString( EMT.L2, 3)..' A1='..EgtNumToString( EMT.R2, 3)..' C1='..EgtNumToString( EMT.R1, 3) .. ' F' .. EgtNumToString( FmaxY, 3)
+      local sOut = 'G1 Y=' .. EgtNumToString( EMT.L2, 3)..' A1='..EgtNumToString( EMT.R2, 3)..' C1='..EgtNumToString( EMT.R1, 3) .. ' F' .. EgtNumToString( FmaxY, 3)
       MyEmtOutput( sOut)
 
       if EMT.LOAD then
@@ -730,11 +730,9 @@ function OnRapid()
             -- se stato pinza attiva non coerente con master, si riscrivono gli assi
             if EMT.X1DELTA or EMT.X2DELTA then
                if EMT.X1DELTA and not EMT.X1MASTER then
-                  EMT.X1MASTER = true
                   MyEmtOutput( 'GEOAX(1,X1,2,Y1,3,Z1)')
                   MyEmtOutput( 'G90 G17')
                elseif EMT.X2DELTA and ( EMT.X1MASTER and not EMT.X1DELTA) then
-                  EMT.X1MASTER = false
                   MyEmtOutput( 'GEOAX(1,X2,2,Y1,3,Z1)')
                   MyEmtOutput( 'G90 G17')
                end
@@ -777,6 +775,12 @@ function OnRapid()
          MyEmtOutput( '_N'..sStep2..':STOPRE')
       end
 
+      -- si salva qual è la morsa che comanda
+      if EMT.X1DELTA then
+         EMT.X1MASTER = true
+      elseif EMT.X2DELTA then
+         EMT.X1MASTER = false
+      end
 
       -- primo posizionamento testa rispetto a 0M
       EmtResetPrev()

Saomad-KAIROS-MK2.mlde

@@ -9,7 +9,7 @@
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '3.1e1_DEV5'
+PP_VER = '3.1e1_DEV6'
 MIN_MACH_VER = '3.1c1'
 
 EgtOutLog ( '** Saomad-KAIROS '..PP_VER..' (MinMach '.. MIN_MACH_VER ..') **', 1)