Corretta simulazione scarico motosega

sistemato errore in MLDE

Common_ONE-PF.NUM.mlpe

@@ -2101,11 +2101,11 @@ function MyAdjustLinearAxes()
          local Len = EMT.TLEN + dAddLen + Mill2Offs
          local LenRef = Mill2Offs
          vtE = Vector3d( EMT.TDIR) * Len - Z_AX() * LenRef
-      elseif EMT.HEAD == 'H13' then
+      elseif EMT.HEAD == 'H13' or EMT.HEAD == 'H15' then
          local Len = ( EMT.TDIST or ChSawLen) + MillOffs
          local LenRef = MillOffs
          vtE = Vector3d( EMT.ADIR) * Len - Z_AX() * LenRef
-      elseif EMT.HEAD == 'H15' or EMT.HEAD == 'H23' then
+      elseif EMT.HEAD == 'H23' then
          local Len = ( EMT.TDIST or ChSawLen) + Mill2Offs
          local LenRef = Mill2Offs
          vtE = Vector3d( EMT.ADIR) * Len - Z_AX() * LenRef

Common_ONE-PF.mlpe

@@ -537,14 +537,6 @@ function OnSimulToolSelect( dPosA)
       end
    end
 
-   -- se ho due teste, verifico che l'altra sia dalla parte opposta
-   --if EgtGetHeadId( 'H21') then
-   --   if nSetHead == 1 then
-   --      EgtSetAxisPos( 'X2', MinX2)
-   --   else
-   --      EgtSetAxisPos( 'X1', MaxX1)
-   --   end
-   --end
    -- se sega a catena, imposto subito angolo scelto per asse virtuale A
    if HeadIsChainSaw( EMT.HEAD) then
       -- apro le paratie
@@ -624,8 +616,8 @@ function OnSimulToolDeselect( dPrevA)
       -- nascondo l'utensile sulla testa
       EgtSetMode( EgtGetHeadId( EMT.PREVHEAD_H1 or '') or GDB_ID.NULL, GDB_MD.HIDDEN)
       -- se non è chiamata per cambio angolo di presa della sega a catena
-      if not dPrevA then
-         local sTool, sHead, sTcPos = FindNextToolOnHeadSet( 1, false)
+      local sTool, sHead, sTcPos = FindNextToolOnHeadSet( 1, false)
+      if not dPrevA or not sTool then
          -- imposto correttamente i dati di testa
          local OrigEMC = EMC
          EMC = { HEAD = sHead, TOOL = sTool, TCPOS = sTcPos, TOTDIAM = 0}
@@ -651,13 +643,13 @@ function OnSimulToolDeselect( dPrevA)
       -- nascondo l'utensile sulla testa
       EgtSetMode( EgtGetHeadId( EMT.PREVHEAD_H2 or '') or GDB_ID.NULL, GDB_MD.HIDDEN)
       -- se non è chiamata per cambio angolo di presa della sega a catena
-      if not dPrevA then
+      local sTool, sHead, sTcPos = FindNextToolOnHeadSet( 2, false)
+      if not dPrevA or not sTool then
          -- cambio utensile
          EgtSetAxisPos( 'C2', ParkC2)
          EgtSetAxisPos( 'B2', ParkB2)
          EgtSetAxisPos( 'Z2', MaxZ2)
          SimulMoveAxis( 'X2', ParkX2, MCH_SIM_STEP.RAPID)
-         local sTool, sHead, sTcPos = FindNextToolOnHeadSet( 2, false)
          local OrigEMC = EMC
          EMC = { HEAD = sHead or 'H21', TOOL = sTool, TCPOS = sTcPos, TOTDIAM = 0}
          OnSetHead()

Common_ONE-PF.mlse

@@ -477,7 +477,7 @@ function OnSpecialLink()
          EmtAddClimb( EMC.NEXTMCHID, EMC.NEXTMAIN, { EMC.L1, EMC.L2p, EMC.L3p, EMC.R1p, EMC.R2p, EMC.R3}, 30, 2, 2, 'FirstClimb=1;')
          EmtAddClimb( EMC.NEXTMCHID, EMC.NEXTMAIN, { EMC.L1, EMC.L2, EMC.L3p, EMC.R1, EMC.R2p, EMC.R3}, 30, 2, 2)
          if abs( EMC.R3) < 0.1 then
-            EmtAddClimb( EMC.NEXTMCHID, EMC.NEXTMAIN, { EMC.L1, EMC.L2, ParkCSaw0Z1, EMC.R1, EMC.R2, EMC.R3}, 30, 2, 2)
+            EmtAddClimb( EMC.NEXTMCHID, EMC.NEXTMAIN, { EMC.L1, EMC.L2, ParkCSaw0Z2, EMC.R1, EMC.R2, EMC.R3}, 30, 2, 2)
          else
             EmtAddClimb( EMC.NEXTMCHID, EMC.NEXTMAIN, { EMC.L1, EMC.L2, EMC.L3p, EMC.R1, EMC.R2, EMC.R3}, 30, 2, 2)
          end

Essetre-ONE.mlde

@@ -32,7 +32,7 @@
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '3.1f1_RC7'
+PP_VER = '3.1f1_RC9'
 PP_NVER = '3.1.6.1'
 MIN_MACH_VER = '2.5k1'
 MACH_NAME = EgtGetCurrMachineName()
@@ -836,13 +836,10 @@ function OnSetHead()
          EmtModifyAxisHome( 'B1', MyHomeB1)
       end
    -- se testa H13 (sega a catena)
-   elseif EMC.HEAD == 'H13' then
+   elseif EMC.HEAD == 'H13' or EMC.HEAD == 'H15' then
       -- aggiustamenti per distanza
       local dDist = EgtIf( EMC.DIST and abs( EMC.DIST) > 1, EMC.DIST, ChSawLen)
       EmtModifyExitPosition( EMC.HEAD, EMC.EXIT, Point3d( 0, 0, -dDist))
-      local vtMove = Point3d( 0, 0, -dDist) - Point3d( EMC.EXITPOS)
-      local ExitId = EgtGetFirstNameInGroup( EgtGetHeadId( EMC.HEAD), 'T'..tostring( EMC.EXIT))
-      EgtMove( ExitId, vtMove)
       -- recupero valore asse A bloccato
       local sVal = EgtGetMachiningParam( MCH_MP.BLOCKEDAXIS)
       local CSawPosA = tonumber( sVal:sub( 3) or '')
@@ -851,19 +848,20 @@ function OnSetHead()
       EmtModifyAxisHome( 'C1', GetChainSawCHomeFromVirtualAxis( CSawPosA))
       EmtModifyAxisHome( 'B1', ParkCSawB1)
       EmtModifyAxisDirection( 'B1', X_AX())
-   -- se testa H15 (mortasatrice di One) 
-   elseif EMC.HEAD == 'H15' then
-      error( 'Error : Mortiser not yet managed')
    end
 end
 
 ---------------------------------------------------------------------
 -------------------------- Testa utilizzata -------------------------
 function GetHeadSet( sHead)
-   if sHead == 'H11' or sHead == 'H12' or sHead == 'H13' or sHead == 'H15' then
+   if sHead == 'H11' or sHead == 'H12' or sHead == 'H13' or sHead == 'H15' or sHead == 'H17' then
       return 1
+   elseif sHead == 'H19' then
+      return 11
    elseif sHead == 'H21' or sHead == 'H22' or sHead == 'H23' then
       return 2
+   elseif sHead == 'H29' then
+      return 21
    else
       return 0
    end
@@ -911,6 +909,12 @@ function HeadIsChainSaw( sHead)
    return ( sHead == 'H13' or sHead == 'H15')
 end
 
+---------------------------------------------------------------------
+-- Funzione che riconosce testa per tastatore
+function HeadIsProbe( sHead)
+   return ( sHead == 'H19' or sHead == 'H29')
+end
+
 ---------------------------------------------------------------------
 -- Funzione che calcola la posizione Home di Z per la sega a catena dal valore dell'asse virtuale
 function GetChainSawZHomeFromVirtualAxis( dPosA)