Gestione motosega lunga in MLDE e nuova funzione calcolo asse A per nuovi script

Beam/BeamData.lua

@@ -177,6 +177,28 @@ local function GetMinUnloadableRaw( dW, dH)
 end
 BeamData.GetMinUnloadableRaw = GetMinUnloadableRaw
 
-
 ---------------------------------------------------------------------
+local function GetBlockedAxis( sHead, nToolType, sBlockedAxis)
+   -- lama
+   if nToolType == MCH_TY.SAW_STD or nToolType == MCH_TY.SAW_FLAT then
+      return ''
+   -- sega a catena
+   elseif nToolType == MCH_TY.MORTISE_STD then
+      if sHead == 'H13' then
+         if sBlockedAxis == 'parallel' then
+            return 'A1=0'
+         elseif sBlockedAxis == 'perpendicular' then
+            return 'A1=90'
+         end
+      else
+         return ''
+      end
+   -- fresa
+   elseif nToolType == MCH_TY.MILL_STD or nToolType == MCH_TY.MILL_NOTIP or nToolType == MCH_TY.MILL_POLISHING then
+      return ''
+   end
+end
+BeamData.GetBlockedAxis = GetBlockedAxis
+---------------------------------------------------------------------
+
 return BeamData

Essetre-PF1250.mlde

@@ -42,13 +42,14 @@
 --                      Allineamento con common ver. 2.6a3
 -- 2024/01/25 ver 2.6a3 Allineamento con common ver. 2.6a4
 -- 2024/02/07 ver 2.6b1 Allineamento con common ver. 2.6b1
+-- 2024/02/07 ver 2.6b2 Gestione motosega lunga in MLDE e nuova funzione calcolo asse A per nuovi script
 
 
 -- Intestazioni
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '2.6b1'
+PP_VER = '2.6b2'
 MIN_MACH_VER = '2.5k1'
 
 local sBaseDir = EgtGetSourceDir()
@@ -854,6 +855,7 @@ function OnSetHead()
    elseif EMC.HEAD == 'H13' then
       -- aggiustamenti per distanza
       local dDist = EgtIf( EMC.DIST and abs( EMC.DIST) > 1, EMC.DIST, ChSawLen)
+      EMC.EXIT = EMC.EXIT or 1
       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))
@@ -861,10 +863,10 @@ function OnSetHead()
       -- recupero il valore dell'asse virtuale bloccato A
       local CSawPosA = GetCurrChainSawingVirtualAxis()
       EmtModifyAxisHome( 'X1', ParkCSawX1)
-      EmtModifyAxisHome( 'Z1', GetChainSawZHomeFromVirtualAxis( CSawPosA))
+      EmtModifyAxisHome( 'Z1', GetChainSawZHomeFromVirtualAxis( CSawPosA, EMC.TOTLEN))
       EmtModifyAxisStroke( 'C1', {MinC1, MaxC1})
-      EmtModifyAxisHome( 'C1', GetChainSawCHomeFromVirtualAxis( CSawPosA))
-      EmtModifyAxisHome( 'B1', ParkCSawB1)
+      EmtModifyAxisHome( 'C1', GetChainSawCHomeFromVirtualAxis( CSawPosA, EMC.TOTLEN))
+      EmtModifyAxisHome( 'B1', EgtIf( EMC.TOTLEN < MinLengthLongCSaw, ParkCSawB1, ParkLongCSawB1))
       EmtModifyAxisDirection( 'B1', X_AX())
    -- se testa H16 ( seconda lama)
    elseif EMC.HEAD == 'H16' then