EgtMachKernel :

- aggiunta funzione lua EmtGetCurrAxesHomePos.

MachineLuaCL.cpp

@@ -435,6 +435,27 @@ Machine::LuaEmtGetFinalAxesPos( lua_State* L)
    return 1 ;
 }
 
+//----------------------------------------------------------------------------
+int
+Machine::LuaEmtGetCurrAxesHomePos( lua_State* L)
+{
+  // nessun parametro
+   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") ;
+  // acquisisco la posizione di home degli assi della catena cinematica corrente
+   DBLVECTOR vAxHomeVal ;
+   bool bOk = m_pMchLua->GetAllCurrAxesHomePos( vAxHomeVal) ;
+   if ( bOk)
+      LuaSetParam( L, vAxHomeVal) ;
+   else
+      LuaSetParam( L) ;
+
+   return 1 ;
+}
+
 //----------------------------------------------------------------------------
 int
 Machine::LuaEmtGetMoveType( lua_State* L)