In BeamData aggiunta funzione GetBlockedAxis che sostituisce la GetChainSawBlockedAxis.

Beam/BeamData.lua

@@ -54,7 +54,7 @@ local BeamData = {
    DIM_STRIP_SMALL = 2.5,                     -- dimensione codolo piccolo (quando le parti sostenute sono sicuramente sulla parte sopra del pezzo)
    RAWCOL = { 255, 160, 32, 30},              -- colore del grezzo
    RAW_OFFSET = 2000,                         -- spostamento grezzo rimanente dopo split
-   VICE_MINH = 110,                           -- altezza minima della morsa
+   VICE_MINH = 1000,                          -- altezza minima della morsa
    OFFSET_DRILL_TENON = 0,                    -- offset fori su tenoni verso base degli stessi (0=non fare)
    USER_HOLE_DIAM = 0,                        -- diametro foro per L20
    MAX_TOOL_LEN_FOR_HOR_MACH = 500,           -- massima lunghezza ingombro per poter fare forature (fresature) oltre i 10 gradi dalla verticale
@@ -169,14 +169,32 @@ end
 BeamData.GetMinUnloadableRaw = GetMinUnloadableRaw
 
 ---------------------------------------------------------------------
-local function GetChainSawBlockedAxis( nInd)
-   if nInd == 1 then
-      return 'A=-90'
+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 'A=0'
+         elseif sBlockedAxis == 'perpendicular' then
+            return 'A=-90'
+         end
+      else
+         return ''
+      end
+   -- fresa
+   elseif nToolType == MCH_TY.MILL_STD or nToolType == MCH_TY.MILL_NOTIP then
+      return ''
+   -- punta
+   elseif nToolType == MCH_TY.DRILL_STD or nToolType == MCH_TY.DRILL_LONG then
+      return ''
    else
-      return 'A=0'
+      return ''
    end
 end
-BeamData.GetChainSawBlockedAxis = GetChainSawBlockedAxis
+BeamData.GetBlockedAxis = GetBlockedAxis
 
 ---------------------------------------------------------------------
 local function GetChainSawInitAngs( vtN, vtO, nInd)

Essetre-PFrl.mlde

@@ -50,12 +50,14 @@
 -- 2023/12/05 ver 2.6a1 Prima versione con utilizzo post-processore standard per macchine ONE e PF
 -- 2024/01/22 ver 2.6a2 Allineamento con common ver 2.6a2
 -- 2024/01/23 ver 2.6a3 Allineamento con common ver 2.6a3
+--                      In BeamData, parametro VICE_MINH portato a 1000
+-- 2024/02/19 ver 2.6b1 In BeamData aggiunta funzione GetBlockedAxis che sostituisce la GetChainSawBlockedAxis.
 
 -- Intestazioni
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '2.6a3'
+PP_VER = '2.6b1'
 MIN_MACH_VER = '2.5k1'
 
 local sBaseDir = EgtGetSourceDir()
@@ -176,7 +178,6 @@ Head2Z = DeltaTabZ - Delta2TabZ
 DefTcPos1 = 'T3'
 DefTcPos2 = 'T13'
 SecondSaw = false
-Mortiser = false
 AutomaticRotation = true
 AutoRotMinLen = 0
 CoeffVM = 0.5