EgtExecutor 1.6i5 :

- estensione nesting di rettangoli con anche funzioni Lua.
2015-09-10 21:44:50 +00:00
parent a185d5488a
commit cb081bbcf6
7 changed files with 519 additions and 21 deletions
@@ -0,0 +1,84 @@
+//----------------------------------------------------------------------------
+//  EgalTech 2015-2015
+//----------------------------------------------------------------------------
+// File : LUA_Nesting.cpp       Data : 08.09.15        Versione : 1.6i5
+// Contenuto : Funzioni Nesting per LUA.
+//
+//
+//
+// Modifiche : 08.09.15 DS Creazione modulo.
+//
+//
+//----------------------------------------------------------------------------
+
+//--------------------------- Include ----------------------------------------
+#include "stdafx.h"
+#include "LUA.h"
+#include "/EgtDev/Include/EXeExecutor.h"
+
+using namespace std ;
+
+//-------------------------------------------------------------------------------
+static int
+LuaPackPart( lua_State* L)
+{
+  // 7 parametri : Id, dXmin, dYmin, dXmax, dYmax, dOffs, bBottomUp
+   int nId ;
+   LuaCheckParam( L, 1, nId)
+   double dXmin ;
+   LuaCheckParam( L, 2, dXmin)
+   double dYmin ;
+   LuaCheckParam( L, 3, dYmin)
+   double dXmax ;
+   LuaCheckParam( L, 4, dXmax)
+   double dYmax ;
+   LuaCheckParam( L, 5, dYmax)
+   double dOffs ;
+   LuaCheckParam( L, 6, dOffs)
+   bool bBottomUp ;
+   LuaCheckParam( L, 7, bBottomUp)
+   LuaClearStack( L) ;
+  // recupero il numero di macchinate
+   int nTot = ExePackPart( nId, dXmin, dYmin, dXmax, dYmax, dOffs, bBottomUp) ; 
+  // restituisco il risultato
+   LuaSetParam( L, nTot) ;
+   return 1 ;
+}
+
+//-------------------------------------------------------------------------------
+static int
+LuaPackCluster( lua_State* L)
+{
+  // 7 parametri : Id/s, dXmin, dYmin, dXmax, dYmax, dOffs, bBottomUp
+   INTVECTOR vIds ;
+   LuaCheckParam( L, 1, vIds)
+   double dXmin ;
+   LuaCheckParam( L, 2, dXmin)
+   double dYmin ;
+   LuaCheckParam( L, 3, dYmin)
+   double dXmax ;
+   LuaCheckParam( L, 4, dXmax)
+   double dYmax ;
+   LuaCheckParam( L, 5, dYmax)
+   double dOffs ;
+   LuaCheckParam( L, 6, dOffs)
+   bool bBottomUp ;
+   LuaCheckParam( L, 7, bBottomUp)
+   LuaClearStack( L) ;
+  // recupero il numero di macchinate
+   int nTot = ExePackCluster( vIds, dXmin, dYmin, dXmax, dYmax, dOffs, bBottomUp) ; 
+  // restituisco il risultato
+   LuaSetParam( L, nTot) ;
+   return 1 ;
+}
+
+//-------------------------------------------------------------------------------
+bool
+LuaInstallNesting( LuaMgr& luaMgr)
+{
+   bool bOk = ( &luaMgr != nullptr) ;
+   bOk = bOk && luaMgr.RegisterFunction( "EgtPackPart", LuaPackPart) ;
+   bOk = bOk && luaMgr.RegisterFunction( "EgtPackCluster", LuaPackCluster) ;
+   
+   return bOk ;
+}