EgtExecutor 2.2j2 :

- aggiunta funzione Exe/Lua TdbGetCurrToolThLength.

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)

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) ;