EgtMachKernel :

- aggiunte funzioni lua EmtAddClimb, EmtRemoveClimb, EmtAddRise, EmtRemoveRise, EmtGetInitialAxesPos e EmtGetFinalAxesPos
- prime modifiche per gestione custom dei link tra lavorazioni in OnPostApplyMachining.

MachineLuaCL.cpp

@@ -16,6 +16,7 @@
 #include "MachMgr.h"
 #include "DllMain.h"
 #include "CamData.h"
+#include "Operation.h"
 #include "/EgtDev/Include/EXeExecutor.h"
 #include "/EgtDev/Include/EGkGeoPoint3d.h"
 #include "/EgtDev/Include/EGkCurveLine.h"
@@ -276,6 +277,164 @@ Machine::LuaEmtAddArcMove( lua_State* L)
    return 1 ;
 }
 
+//----------------------------------------------------------------------------
+int
+Machine::LuaEmtAddClimb( lua_State* L)
+{
+  // 5 o 6 parametri : nMachId, vAxVal, nMask, nFlag, nFlag2 [, sInfo]
+   int nMachId ;
+   LuaCheckParam( L, 1, nMachId)
+   DBLVECTOR vAxVal ;
+   LuaCheckParam( L, 2, vAxVal)
+   int nMask ;
+   LuaCheckParam( L, 3, nMask)
+   int nFlag ;
+   LuaCheckParam( L, 4, nFlag)
+   int nFlag2 ;
+   LuaCheckParam( L, 5, nFlag2)
+   string sInfo = "" ;
+   LuaGetParam( L, 6, sInfo) ;
+   LuaClearStack( L) ;
+  // verifico ci sia una macchina attiva valida
+   if ( m_pMchLua == nullptr  ||
+        m_pMchLua->m_pMchMgr == nullptr  ||  m_pMchLua->m_pGeomDB == nullptr)
+      return luaL_error( L, " Unknown Machine") ;
+  // recupero l'operazione
+   Operation* pOper = GetOperation( m_pMchLua->m_pGeomDB->GetUserObj( nMachId)) ;
+  // imposto la discesa (primo movimento del primo percorso della lavorazione)
+   bool bOk = ( pOper != nullptr && pOper->AddSpecialClimb( vAxVal, ( nMask >= 0), GDB_ID_NULL, nFlag, nFlag2, nMask, sInfo)) ;
+   LuaSetParam( L, bOk) ;
+
+   return 1 ;
+}
+
+//----------------------------------------------------------------------------
+int
+Machine::LuaEmtRemoveClimb( lua_State* L)
+{
+  // 1 parametro : nMachId
+   int nMachId ;
+   LuaCheckParam( L, 1, nMachId)
+   LuaClearStack( L) ;
+  // verifico ci sia una macchina attiva valida
+   if ( m_pMchLua == nullptr  ||
+        m_pMchLua->m_pMchMgr == nullptr  ||  m_pMchLua->m_pGeomDB == nullptr)
+      return luaL_error( L, " Unknown Machine") ;
+  // recupero l'operazione
+   Operation* pOper = GetOperation( m_pMchLua->m_pGeomDB->GetUserObj( nMachId)) ;
+  // elimino le discese (primi movimenti "CLIMB" del primo percorso della lavorazione)
+   bool bOk = ( pOper != nullptr && pOper->RemoveClimb()) ;
+   LuaSetParam( L, bOk) ;
+
+   return 1 ;
+}
+
+//----------------------------------------------------------------------------
+int
+Machine::LuaEmtAddRise( lua_State* L)
+{
+  // 5 o 6 parametri : nMachId, vAxVal, nMask, nFlag, nFlag2 [, sInfo]
+   int nMachId ;
+   LuaCheckParam( L, 1, nMachId)
+   DBLVECTOR vAxVal ;
+   LuaCheckParam( L, 2, vAxVal)
+   int nMask ;
+   LuaCheckParam( L, 3, nMask)
+   int nFlag ;
+   LuaCheckParam( L, 4, nFlag)
+   int nFlag2 ;
+   LuaCheckParam( L, 5, nFlag2)
+   string sInfo = "" ;
+   LuaGetParam( L, 6, sInfo) ;
+   LuaClearStack( L) ;
+  // verifico ci sia una macchina attiva valida
+   if ( m_pMchLua == nullptr  ||
+        m_pMchLua->m_pMchMgr == nullptr  ||  m_pMchLua->m_pGeomDB == nullptr)
+      return luaL_error( L, " Unknown Machine") ;
+  // recupero l'operazione
+   Operation* pOper = GetOperation( m_pMchLua->m_pGeomDB->GetUserObj( nMachId)) ;
+  // aggiungo la risalita (ultimo movimento dell'ultimo percorso della lavorazione)
+   bool bOk = ( pOper != nullptr && pOper->AddSpecialRise( vAxVal, ( nMask >= 0), GDB_ID_NULL, nFlag, nFlag2, nMask, sInfo)) ;
+   LuaSetParam( L, bOk) ;
+
+   return 1 ;
+}
+
+//----------------------------------------------------------------------------
+int
+Machine::LuaEmtRemoveRise( lua_State* L)
+{
+  // 1 parametro : nMachId
+   int nMachId ;
+   LuaCheckParam( L, 1, nMachId)
+   LuaClearStack( L) ;
+  // verifico ci sia una macchina attiva valida
+   if ( m_pMchLua == nullptr  ||
+        m_pMchLua->m_pMchMgr == nullptr  ||  m_pMchLua->m_pGeomDB == nullptr)
+      return luaL_error( L, " Unknown Machine") ;
+  // recupero l'operazione
+   Operation* pOper = GetOperation( m_pMchLua->m_pGeomDB->GetUserObj( nMachId)) ;
+  // elimino le risalite (ultimi movimenti "RISE" dell'ultimo percorso della lavorazione)
+   bool bOk = ( pOper != nullptr && pOper->RemoveRise()) ;
+   LuaSetParam( L, bOk) ;
+
+   return 1 ;
+}
+
+//----------------------------------------------------------------------------
+int
+Machine::LuaEmtGetInitialAxesPos( lua_State* L)
+{
+  // 1 o 2 parametri : nMachId [, bSkipClimb]
+   int nMachId ;
+   LuaCheckParam( L, 1, nMachId)
+   bool bSkipClimb = true ;
+   LuaGetParam( L, 2, bSkipClimb) ;
+   LuaClearStack( L) ;
+  // verifico ci sia una macchina attiva valida
+   if ( m_pMchLua == nullptr  ||
+        m_pMchLua->m_pMchMgr == nullptr  ||  m_pMchLua->m_pGeomDB == nullptr)
+      return luaL_error( L, " Unknown Machine") ;
+  // recupero l'operazione
+   Operation* pOper = GetOperation( m_pMchLua->m_pGeomDB->GetUserObj( nMachId)) ;
+  // acquisico il valore iniziale degli assi macchina
+   DBLVECTOR vAxesVal ;
+   bool bOk = ( pOper != nullptr  &&  pOper->GetInitialAxesValues( bSkipClimb, vAxesVal)) ;
+   if ( bOk)
+      LuaSetParam( L, vAxesVal) ;
+   else
+      LuaSetParam( L) ;
+
+   return 1 ;
+}
+
+//----------------------------------------------------------------------------
+int
+Machine::LuaEmtGetFinalAxesPos( lua_State* L)
+{
+  // 1 o 2 parametri : nMachId [, bSkipRise]
+   int nMachId ;
+   LuaCheckParam( L, 1, nMachId)
+   bool bSkipRise = true ;
+   LuaGetParam( L, 2, bSkipRise) ;
+   LuaClearStack( L) ;
+  // verifico ci sia una macchina attiva valida
+   if ( m_pMchLua == nullptr  ||
+        m_pMchLua->m_pMchMgr == nullptr  ||  m_pMchLua->m_pGeomDB == nullptr)
+      return luaL_error( L, " Unknown Machine") ;
+  // recupero l'operazione
+   Operation* pOper = GetOperation( m_pMchLua->m_pGeomDB->GetUserObj( nMachId)) ;
+  // acquisico il valore finale degli assi macchina
+   DBLVECTOR vAxesVal ;
+   bool bOk = ( pOper != nullptr  &&  pOper->GetFinalAxesValues( bSkipRise, vAxesVal)) ;
+   if ( bOk)
+      LuaSetParam( L, vAxesVal) ;
+   else
+      LuaSetParam( L) ;
+
+   return 1 ;
+}
+
 //----------------------------------------------------------------------------
 int
 Machine::LuaEmtGetMoveType( lua_State* L)