EgtInterface 1.5l2 :

- migliorie e modifiche in generale, specie su Lua.
2014-12-30 17:36:43 +00:00
parent 517a36a009
commit bebcf1ecfe
23 changed files with 1528 additions and 402 deletions
@@ -0,0 +1,258 @@
+//----------------------------------------------------------------------------
+//  EgalTech 2014-2014
+//----------------------------------------------------------------------------
+// File : LUA_GdbModifyCurve.cpp       Data : 28.12.14        Versione : 1.5l2
+// Contenuto : Funzioni di modifica delle curve per LUA.
+//
+//
+//
+// Modifiche : 03.10.14 DS Creazione modulo.
+//
+//
+//----------------------------------------------------------------------------
+
+//--------------------------- Include ----------------------------------------
+#include "stdafx.h"
+#include "LUA.h"
+#include "API.h"
+#include "/EgtDev/Include/EInAPI.h"
+#include "/EgtDev/Include/EGkCurve.h"
+#include "/EgtDev/Extern/Lua/Include/lua.hpp"
+
+using namespace std ;
+
+
+//----------------------------------------------------------------------------
+static int
+LuaInvertCurve( lua_State* L)
+{
+  // 1 parametro : Id
+   int nId ;
+   LuaCheckParam( L, 1, nId)
+   LuaClearStack( L) ;
+  // inverto la curva
+   bool bOk = ( EgtInvertCurve( nId) ? true : false) ;
+   LuaSetReturn( L, bOk) ;
+   return 1 ;
+}
+
+//-------------------------------------------------------------------------------
+static int
+LuaOffsetCurve( lua_State* L)
+{
+  // 3 parametri : Id, dDist, nType
+   int nId ;
+   LuaCheckParam( L, 1, nId)
+   double dDist ;
+   LuaCheckParam( L, 2, dDist)
+   int nType = ICurve::OFF_FILLET ;
+   if ( lua_gettop( L) >= 3) {
+      string sType ;
+      LuaCheckParam( L, 3, sType)
+      if ( sType == "CHAMFER")
+         nType = ICurve::OFF_CHAMFER ;
+      else if ( sType == "EXTEND")
+         nType = ICurve::OFF_EXTEND ;
+   }
+   LuaClearStack( L) ;
+  // offset della curva
+   bool bOk = ( EgtOffsetCurve( nId, dDist, nType) != FALSE) ;
+   LuaSetReturn( L, bOk) ;
+   return 1 ;
+}
+
+//----------------------------------------------------------------------------
+static int
+LuaModifyCurveStartPoint( lua_State* L)
+{
+  // 2 parametri : Id, NewStart
+   int nId ;
+   LuaCheckParam( L, 1, nId)
+   Point3d ptStart ;
+   LuaCheckParam( L, 2, ptStart)
+   LuaClearStack( L) ;
+  // modifico il punto iniziale
+   bool bOk = ( EgtModifyCurveStartPoint( nId, ptStart.v) ? true : false) ;
+   LuaSetReturn( L, bOk) ;
+   return 1 ;
+}
+
+//----------------------------------------------------------------------------
+static int
+LuaModifyCurveEndPoint( lua_State* L)
+{
+  // 2 parametri : Id, NewEnd
+   int nId ;
+   LuaCheckParam( L, 1, nId)
+   Point3d ptEnd ;
+   LuaCheckParam( L, 2, ptEnd)
+   LuaClearStack( L) ;
+  // modifico il punto finale
+   bool bOk = ( EgtModifyCurveEndPoint( nId, ptEnd.v) ? true : false) ;
+   LuaSetReturn( L, bOk) ;
+   return 1 ;
+}
+
+//----------------------------------------------------------------------------
+static int
+LuaModifyCurveExtrusion( lua_State* L)
+{
+  // 2 parametri : Id/s, vtExtr
+   INTVECTOR vId ;
+   LuaCheckParam( L, 1, vId)
+   Vector3d vtExtr ;
+   LuaCheckParam( L, 2, vtExtr)
+   LuaClearStack( L) ;
+  // modifico il vettore estrusione
+   bool bOk = true ;
+   for ( size_t i = 0 ; i < vId.size() && bOk ; ++ i) {
+      if ( EgtModifyCurveExtrusion( vId[i], vtExtr.v) == FALSE)
+         bOk = false ;
+   }
+  // restituisco il risultato
+   LuaSetReturn( L, bOk) ;
+   return 1 ;
+}
+
+//----------------------------------------------------------------------------
+static int
+LuaModifyCurveThickness( lua_State* L)
+{
+  // 2 parametri : Id/s, Thick
+   INTVECTOR vId ;
+   LuaCheckParam( L, 1, vId)
+   double dThick ;
+   LuaCheckParam( L, 2, dThick)
+   LuaClearStack( L) ;
+  // modifico il vettore estrusione
+   bool bOk = true ;
+   for ( size_t i = 0 ; i < vId.size() && bOk ; ++ i) {
+      if ( EgtModifyCurveThickness( vId[i], dThick) == 0)
+         bOk = false ;
+   }
+  // restituisco il risultato
+   LuaSetReturn( L, bOk) ;
+   return 1 ;
+}
+
+//----------------------------------------------------------------------------
+static int
+LuaTrimCurveStartAtLen( lua_State* L)
+{
+  // 2 parametri : Id, dLen
+   int nId ;
+   LuaCheckParam( L, 1, nId)
+   double dLen ;
+   LuaCheckParam( L, 2, dLen)
+   LuaClearStack( L) ;
+  // taglio la curva all'inizio
+   bool bOk = ( EgtTrimCurveStartAtLen( nId, dLen) ? true : false) ;
+   LuaSetReturn( L, bOk) ;
+   return 1 ;
+}
+
+//----------------------------------------------------------------------------
+static int
+LuaTrimCurveEndAtLen( lua_State* L)
+{
+  // 2 parametri : Id, dLen
+   int nId ;
+   LuaCheckParam( L, 1, nId)
+   double dLen ;
+   LuaCheckParam( L, 2, dLen)
+   LuaClearStack( L) ;
+  // taglio la curva alla fine
+   bool bOk = ( EgtTrimCurveEndAtLen( nId, dLen) ? true : false) ;
+   LuaSetReturn( L, bOk) ;
+   return 1 ;
+}
+
+//----------------------------------------------------------------------------
+static int
+LuaTrimCurveStartAtParam( lua_State* L)
+{
+  // 2 parametri : Id, dPar
+   int nId ;
+   LuaCheckParam( L, 1, nId)
+   double dPar ;
+   LuaCheckParam( L, 2, dPar)
+   LuaClearStack( L) ;
+  // taglio la curva all' inizio
+   bool bOk = ( EgtTrimCurveStartAtParam( nId, dPar) ? true : false) ;
+   LuaSetReturn( L, bOk) ;
+   return 1 ;
+}
+
+//----------------------------------------------------------------------------
+static int
+LuaTrimCurveEndAtParam( lua_State* L)
+{
+  // 2 parametri : Id, dPar
+   int nId ;
+   LuaCheckParam( L, 1, nId)
+   double dPar ;
+   LuaCheckParam( L, 2, dPar)
+   LuaClearStack( L) ;
+  // taglio la curva alla fine
+   bool bOk = ( EgtTrimCurveEndAtParam( nId, dPar) ? true : false) ;
+   LuaSetReturn( L, bOk) ;
+   return 1 ;
+}
+
+//----------------------------------------------------------------------------
+static int
+LuaTrimCurveStartEndAtParam( lua_State* L)
+{
+  // 3 parametri : Id, dParS, dParE
+   int nId ;
+   LuaCheckParam( L, 1, nId)
+   double dParS ;
+   LuaCheckParam( L, 2, dParS)
+   double dParE ;
+   LuaCheckParam( L, 3, dParE)
+   LuaClearStack( L) ;
+  // taglio la curva alla fine
+   bool bOk = ( EgtTrimCurveStartEndAtParam( nId, dParS, dParE) ? true : false) ;
+   LuaSetReturn( L, bOk) ;
+   return 1 ;
+}
+
+//-------------------------------------------------------------------------------
+static int
+LuaModifyCurveArcRadius( lua_State* L)
+{
+  // 2 parametri : Id, dNewRad
+   int nId ;
+   LuaCheckParam( L, 1, nId)
+   double dNewRad ;
+   LuaCheckParam( L, 2, dNewRad)
+   LuaClearStack( L) ;
+  // modifica del raggio
+   bool bOk = ( EgtModifyCurveArcRadius( nId, dNewRad) != FALSE) ;
+   LuaSetReturn( L, bOk) ;
+   return 1 ;
+}
+
+//-------------------------------------------------------------------------------
+bool
+LuaInstallGdbModifyCurve( lua_State* L)
+{
+   try {
+      lua_register( L, "EgtInvertCurve", LuaInvertCurve) ;
+      lua_register( L, "EgtOffsetCurve", LuaOffsetCurve) ;
+      lua_register( L, "EgtModifyCurveStartPoint", LuaModifyCurveStartPoint) ;
+      lua_register( L, "EgtModifyCurveEndPoint", LuaModifyCurveEndPoint) ;
+      lua_register( L, "EgtModifyCurveExtrusion", LuaModifyCurveExtrusion) ;
+      lua_register( L, "EgtModifyCurveThickness", LuaModifyCurveThickness) ;
+      lua_register( L, "EgtTrimCurveStartAtLen", LuaTrimCurveStartAtLen) ;
+      lua_register( L, "EgtTrimCurveEndAtLen", LuaTrimCurveEndAtLen) ;
+      lua_register( L, "EgtTrimCurveStartAtParam", LuaTrimCurveStartAtParam) ;
+      lua_register( L, "EgtTrimCurveEndAtParam", LuaTrimCurveEndAtParam) ;
+      lua_register( L, "EgtTrimCurveStartEndAtParam", LuaTrimCurveStartEndAtParam) ;
+      lua_register( L, "EgtModifyCurveArcRadius", LuaModifyCurveArcRadius) ;
+   }
+   catch ( ...) {
+      return false ;
+   }
+   return true ;
+}