EgtrExecutor :

- aggiunta a Exe e Lua VolZmapSetAdvTool.

LUA_GdbModifyVol.cpp

@@ -1,7 +1,7 @@
 //----------------------------------------------------------------------------
-//  EgalTech 2016-2016
+//  EgalTech 2016-2017
 //----------------------------------------------------------------------------
-// File : LUA_GdbModifyVol.cpp        Data : 27.10.16        Versione : 1.6v7
+// File : LUA_GdbModifyVol.cpp        Data : 09.03.17        Versione : 1.8c4
 // Contenuto : Funzioni di modifica dei solidi per LUA.
 //
 //
@@ -43,6 +43,33 @@ LuaVolZmapSetStdTool( lua_State* L)
    return 1 ;
 }
 
+//----------------------------------------------------------------------------
+static int
+LuaVolZmapSetAdvTool( lua_State* L)
+{
+  // 7 parametri : Id, sToolName, dLen, dDiam, dTipLen, dTipDiam, dCornR
+   int nId ;
+   LuaCheckParam( L, 1, nId)
+   string sToolName ;
+   LuaCheckParam( L, 2, sToolName)
+   double dLen ;
+   LuaCheckParam( L, 3, dLen)
+   double dDiam ;
+   LuaCheckParam( L, 4, dDiam)
+   double dTipLen ;
+   LuaCheckParam( L, 5, dTipLen)
+   double dTipDiam ;
+   LuaCheckParam( L, 6, dTipDiam)
+   double dCornR ;
+   LuaCheckParam( L, 7, dCornR)
+   LuaClearStack( L) ;
+  // imposto utensile standard a Zmap indicato
+   bool bOk = ExeVolZmapSetAdvTool( nId, sToolName, dLen, dDiam, dTipLen, dTipDiam, dCornR) ;
+  // restituisco il risultato
+   LuaSetParam( L, bOk) ;
+   return 1 ;
+}
+
 //----------------------------------------------------------------------------
 static int
 LuaVolZmapMillingStep( lua_State* L)
@@ -124,6 +151,7 @@ LuaInstallGdbModifyVol( LuaMgr& luaMgr)
 {
    bool bOk = ( &luaMgr != nullptr) ;
    bOk = bOk && luaMgr.RegisterFunction( "EgtVolZmapSetStdTool", LuaVolZmapSetStdTool) ;
+   bOk = bOk && luaMgr.RegisterFunction( "EgtVolZmapSetAdvTool", LuaVolZmapSetAdvTool) ;
    bOk = bOk && luaMgr.RegisterFunction( "EgtVolZmapMillingStep", LuaVolZmapMillingStep) ;
    bOk = bOk && luaMgr.RegisterFunction( "EgtVolZmapGetDepth", LuaVolZmapGetDepth) ;
    bOk = bOk && luaMgr.RegisterFunction( "EgtVolZmapAvoidBox", LuaVolZmapAvoidBox) ;