diff --git a/EXE_MachMgr.cpp b/EXE_MachMgr.cpp
index cb80578..02c16f9 100644
--- a/EXE_MachMgr.cpp
+++ b/EXE_MachMgr.cpp
@@ -1408,6 +1408,16 @@ ExeTdbGetCurrToolThDiam( double& dThDiam)
    return pMachMgr->TdbGetCurrToolThDiam( dThDiam) ;
 }
 
+//-----------------------------------------------------------------------------
+bool
+ExeTdbGetCurrToolThLength( double& dThLen)
+{
+   IMachMgr* pMachMgr = GetCurrMachMgr() ;
+   VERIFY_MACHMGR( pMachMgr, false)
+  // recupero la lunghezza del portautensili
+   return pMachMgr->TdbGetCurrToolThLength( dThLen) ;
+}
+
 //-----------------------------------------------------------------------------
 int
 ExeTdbCurrToolDraw( int nGenCtx, int nToolCtx)
diff --git a/EgtExecutor.rc b/EgtExecutor.rc
index b52f0a0..449e116 100644
Binary files a/EgtExecutor.rc and b/EgtExecutor.rc differ
diff --git a/LUA_MachMgr.cpp b/LUA_MachMgr.cpp
index 9d296e4..19741c0 100644
--- a/LUA_MachMgr.cpp
+++ b/LUA_MachMgr.cpp
@@ -1558,6 +1558,22 @@ LuaTdbGetCurrToolThDiam( lua_State* L)
    return 1 ;
 }
 
+//-------------------------------------------------------------------------------
+static int
+LuaTdbGetCurrToolThLength( lua_State* L)
+{
+  // nessun parametro
+   LuaClearStack( L) ;
+  // recupero la lunghezza del portautensili
+   double dVal ;
+   bool bOk = ExeTdbGetCurrToolThLength( dVal) ;
+   if ( bOk)
+      LuaSetParam( L, dVal) ;
+   else
+      LuaSetParam( L) ;
+   return 1 ;
+}
+
 //-------------------------------------------------------------------------------
 static int
 LuaTdbGetCurrToolDraw( lua_State* L)
@@ -3977,6 +3993,7 @@ LuaInstallMachMgr( LuaMgr& luaMgr)
    bOk = bOk && luaMgr.RegisterFunction( "EgtTdbGetCurrToolValInNotes", LuaTdbGetCurrToolValInNotes) ;
    bOk = bOk && luaMgr.RegisterFunction( "EgtTdbGetCurrToolMaxDepth", LuaTdbGetCurrToolMaxDepth) ;
    bOk = bOk && luaMgr.RegisterFunction( "EgtTdbGetCurrToolThDiam", LuaTdbGetCurrToolThDiam) ;
+   bOk = bOk && luaMgr.RegisterFunction( "EgtTdbGetCurrToolThLength", LuaTdbGetCurrToolThLength) ;
    bOk = bOk && luaMgr.RegisterFunction( "EgtTdbGetCurrToolDraw", LuaTdbGetCurrToolDraw) ;
    bOk = bOk && luaMgr.RegisterFunction( "EgtTdbReload", LuaTdbReload) ;
    bOk = bOk && luaMgr.RegisterFunction( "EgtTdbSave", LuaTdbSave) ;