diff --git a/LuaLibs/BeamExec.lua b/LuaLibs/BeamExec.lua
index 60afcc9..8efc44b 100644
--- a/LuaLibs/BeamExec.lua
+++ b/LuaLibs/BeamExec.lua
@@ -108,6 +108,7 @@ _G.package.loaded.ProcessScarfJoint = nil
 _G.package.loaded.ProcessSimpleScarf = nil
 _G.package.loaded.ProcessStepJoint = nil
 _G.package.loaded.ProcessStepJointNotch = nil
+_G.package.loaded.ProcessProbing = nil
 _G.package.loaded.ProcessProfFront = nil
 _G.package.loaded.ProcessProfConcave = nil
 _G.package.loaded.ProcessProfConvex = nil
diff --git a/LuaLibs/ProcessDtMortise.lua b/LuaLibs/ProcessDtMortise.lua
index ad4e66a..8954ac9 100644
--- a/LuaLibs/ProcessDtMortise.lua
+++ b/LuaLibs/ProcessDtMortise.lua
@@ -20,6 +20,7 @@ local ProcessDtMortise = {}
 require( 'EgtBase')
 local BL = require( 'BeamLib')
 local Cut = require( 'ProcessCut')
+local Probe = require( 'ProcessProbing')
 
 EgtOutLog( ' ProcessDtMortise started', 1)
 
@@ -292,6 +293,11 @@ function ProcessDtMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
       EgtOutLog( sErr)
       return false, sErr
    end
+
+   -- tastatura se richiesta
+   local Info = { vtProbe = vtExtr, ptProbe = ptBC,  sType = 'DTMortise', sHead = sMchExt}
+   local bProbeExecuted, sErr = Probe.Make( Proc, nPartId, Info)
+
    -- se con tasca, la lavoro (mai in doppio)
    if bPocket then
       -- recupero il contorno della tasca (seconda curva ausiliaria)
diff --git a/LuaLibs/ProcessProbing.lua b/LuaLibs/ProcessProbing.lua
index f294383..8506203 100644
--- a/LuaLibs/ProcessProbing.lua
+++ b/LuaLibs/ProcessProbing.lua
@@ -9,39 +9,78 @@ require( 'EgtBase')
 local BL = require( 'BeamLib')
 
 -- Dati
-local BD = require( 'BeamData')
+local ML = require( 'MachiningLib')
 
 ---------------------------------------------------------------------
-local function GetProbingMachining( Machinings, nHead)
+local function GetProbingMachining( Machinings, sHead)
    local sProbeMachining
 
    for i = 1, #Machinings do
-      if EgtEndsWith( Machinings[i], '_H2') then
+      if EgtEndsWith( Machinings[i], sHead) then
          sProbeMachining = Machinings[i]
-         break
+         return sProbeMachining
       end
    end
-
+   sProbeMachining = Machinings[1]
    return sProbeMachining
 end
 
+---------------------------------------------------------------------
+local function MoveProbePointToRawFaces( ptProbe, vtProbe, nPartId)
+   local b3Solid = EgtGetBBoxGlob( EgtGetFirstNameInGroup( nPartId, 'Box') or GDB_ID.NULL, GDB_BB.STANDARD)
+   -- si porta linea di tastatura su grezzo
+   if AreSameVectorApprox( vtProbe, Z_AX()) then
+      ptProbe[3] = b3Solid:getMax():getZ()
+   elseif AreSameVectorApprox( vtProbe, -Z_AX()) then
+      ptProbe[3] = b3Solid:getMin():getZ()
+   elseif AreSameVectorApprox( vtProbe, Y_AX()) then
+      ptProbe[2] = b3Solid:getMax():getY()
+   elseif AreSameVectorApprox( vtProbe, -Y_AX()) then
+      ptProbe[2] = b3Solid:getMin():getY()
+   end
+   return ptProbe
+end
+
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione
-function ProcessProbing.Make( Proc, nRawId, nPartId, Info)
+function ProcessProbing.Make( Proc, nPartId, Info)
    local bOk, sErr
 
    -- per eseguire tastatura servono tutti i dati, altriemnti impossibile
    if Info.vtProbe and Info.ptProbe and Info.sType then
+      Info.ptProbe = MoveProbePointToRawFaces( Info.ptProbe, Info.vtProbe, nPartId)
       -- recupero gruppo per geometria addizionale
       local nAddGrpId = BL.GetAddGroup( nPartId)
-      local nIdLine = EgtLinePVL( nAddGrpId, Info.ptProbe, Info.vtProbe, 10) -- TODO lunghezza da portare fuori come parametro
+      local nIdLine = EgtLinePVL( nAddGrpId, Info.ptProbe, Info.vtProbe, 10, GDB_RT.GLOB) -- TODO lunghezza da portare fuori come parametro
       local Machinings = GetMachinings( MCH_MY.PROBING, Info.sType)
-      local Probing = GetProbingMachining( Machinings, Info.nHead)
-      -- se c'è la linea e la lavorazione, applico
-      if Probing and nIdLine then
+      -- se c'è almeno una lavorazione, allora devo fare tastatura
+      if Machinings and #Machinings > 0 then
+         local sProbing = GetProbingMachining( Machinings, Info.sHead)
+         -- se c'è la linea e la lavorazione, applico
+         if sProbing and nIdLine then
+            local sName = 'DtMtProbe_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
+            local nMchFId = EgtAddMachining( sName, sProbing.Name)
+            -- si inverte la direzione della linea, deve essere entrante, oppostaa vettore estrusione
+            EgtInvertCurve( nIdLine)
+            -- aggiungo geometria
+            EgtSetMachiningGeometry( {{ nIdLine, -1}})
+
+            -- eseguo
+            if not ML.ApplyMachining( true, false) then
+               local _, sErr = EgtGetLastMachMgrError()
+               EgtSetOperationMode( nMchFId, false)
+               return false, sErr
+            end
+         else
+            bOk = false
+            sErr = 'Error on probing'
+         end
+      -- altrimenti tastatura non richiesta, esco
+      else
+         return true
       end
    else
-      bOk = true
+      bOk = false
       sErr = 'Error on probing'
    end