EgtExecutor 1.6g3 :

- correzione controlli in ExeCreateGeoFrame
- ExeInitGeomDB rinominata ExeInitContext
- aggiunta ExeDeleteContext
- migliorato log di ExeExit
- aggiunta possibilità di leggere e scrivere variabili LUA_Base.cpp
- aggiunta possibilità di chiamare funzioni Lua.

LUA_GdbCreateSurf.cpp

@@ -41,9 +41,9 @@ LuaCreateSurfTmBBox( lua_State* L)
    int nId = ExeCreateSurfTmBBox( nParentId, b3Box, nRefType) ;
   // restituisco il risultato
    if ( nId != GDB_ID_NULL)
-      LuaSetReturn( L, nId) ;
+      LuaSetParam( L, nId) ;
    else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
    return 1 ;
 }
 
@@ -69,9 +69,9 @@ LuaCreateSurfTmBox( lua_State* L)
    int nId = ExeCreateSurfTmBox( nParentId, ptIni, ptCross, ptDir, dHeight, nRefType) ;
   // restituisco il risultato
    if ( nId != GDB_ID_NULL)
-      LuaSetReturn( L, nId) ;
+      LuaSetParam( L, nId) ;
    else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
    return 1 ;
 }
 
@@ -97,9 +97,9 @@ LuaCreateSurfTmPyramid( lua_State* L)
    int nId = ExeCreateSurfTmPyramid( nParentId, ptIni, ptCross, ptDir, dHeight, nRefType) ;
   // restituisco il risultato
    if ( nId != GDB_ID_NULL)
-      LuaSetReturn( L, nId) ;
+      LuaSetParam( L, nId) ;
    else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
    return 1 ;
 }
 
@@ -129,9 +129,9 @@ LuaCreateSurfTmCylinder( lua_State* L)
    int nId = ExeCreateSurfTmCylinder( nParentId, ptOrig, vtN, dRad, dHeight, dLinTol, nRefType) ;
   // restituisco il risultato
    if ( nId != GDB_ID_NULL)
-      LuaSetReturn( L, nId) ;
+      LuaSetParam( L, nId) ;
    else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
    return 1 ;
 }
 
@@ -161,9 +161,9 @@ LuaCreateSurfTmCone( lua_State* L)
    int nId = ExeCreateSurfTmCone( nParentId, ptOrig, vtN, dRad, dHeight, dLinTol, nRefType) ;
   // restituisco il risultato
    if ( nId != GDB_ID_NULL)
-      LuaSetReturn( L, nId) ;
+      LuaSetParam( L, nId) ;
    else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
    return 1 ;
 }
 
@@ -189,9 +189,9 @@ LuaCreateSurfTmSphere( lua_State* L)
    int nId = ExeCreateSurfTmSphere( nParentId, ptOrig, dRad, dLinTol, nRefType) ;
   // restituisco il risultato
    if ( nId != GDB_ID_NULL)
-      LuaSetReturn( L, nId) ;
+      LuaSetParam( L, nId) ;
    else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
    return 1 ;
 }
 
@@ -212,9 +212,9 @@ LuaCreateSurfTmByFlatContour( lua_State* L)
    int nId = ExeCreateSurfTmByFlatContour( nParentId, nCrvId, dLinTol) ;
   // restituisco il risultato
    if ( nId != GDB_ID_NULL)
-      LuaSetReturn( L, nId) ;
+      LuaSetParam( L, nId) ;
    else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
    return 1 ;
 }
 
@@ -235,9 +235,9 @@ LuaCreateSurfTmByRegion( lua_State* L)
    int nId = ExeCreateSurfTmByRegion( nParentId, vCrvIds, dLinTol) ;
   // restituisco il risultato
    if ( nId != GDB_ID_NULL)
-      LuaSetReturn( L, nId) ;
+      LuaSetParam( L, nId) ;
    else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
    return 1 ;
 }
 
@@ -264,9 +264,9 @@ LuaCreateSurfTmByExtrusion( lua_State* L)
                                          dLinTol, nRefType) ;
   // restituisco il risultato
    if ( nId != GDB_ID_NULL)
-      LuaSetReturn( L, nId) ;
+      LuaSetParam( L, nId) ;
    else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
    return 1 ;
 }
 
@@ -292,9 +292,9 @@ LuaCreateSurfTmByRegionExtrusion( lua_State* L)
    int nId = ExeCreateSurfTmByRegionExtrusion( nParentId, vCrvIds, vtExtr, dLinTol, nRefType) ;
   // restituisco il risultato
    if ( nId != GDB_ID_NULL)
-      LuaSetReturn( L, nId) ;
+      LuaSetParam( L, nId) ;
    else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
    return 1 ;
 }
 
@@ -324,9 +324,9 @@ LuaCreateSurfTmByRevolve( lua_State* L)
    int nId = ExeCreateSurfTmByRevolve( nParentId, nCrvId, ptAx, vtAx, bCapEnds, dLinTol, nRefType) ;
   // restituisco il risultato
    if ( nId != GDB_ID_NULL)
-      LuaSetReturn( L, nId) ;
+      LuaSetParam( L, nId) ;
    else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
    return 1 ;
 }
 
@@ -358,9 +358,9 @@ LuaCreateSurfTmByScrewing( lua_State* L)
    int nId = ExeCreateSurfTmByScrewing( nParentId, nCrvId, ptAx, vtAx, dAngRotDeg, dMove, dLinTol, nRefType) ;
   // restituisco il risultato
    if ( nId != GDB_ID_NULL)
-      LuaSetReturn( L, nId) ;
+      LuaSetParam( L, nId) ;
    else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
    return 1 ;
 }
 
@@ -383,9 +383,9 @@ LuaCreateSurfTmRuled( lua_State* L)
    int nId = ExeCreateSurfTmRuled( nParentId, nPtOrCrvId1, nPtOrCrvId2, dLinTol) ;
   // restituisco il risultato
    if ( nId != GDB_ID_NULL)
-      LuaSetReturn( L, nId) ;
+      LuaSetParam( L, nId) ;
    else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
    return 1 ;
 }
 
@@ -406,9 +406,9 @@ LuaCreateSurfTmByTriangles( lua_State* L)
    int nId = ExeCreateSurfTmByTriangles( nParentId, vId, bErase) ;
   // restituisco il risultato
    if ( nId != GDB_ID_NULL)
-      LuaSetReturn( L, nId) ;
+      LuaSetParam( L, nId) ;
    else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
    return 1 ;
 }
 
@@ -429,9 +429,9 @@ LuaCreateSurfTmBySewing( lua_State* L)
    int nId = ExeCreateSurfTmBySewing( nParentId, vId, bErase) ;
   // restituisco il risultato
    if ( nId != GDB_ID_NULL)
-      LuaSetReturn( L, nId) ;
+      LuaSetParam( L, nId) ;
    else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
    return 1 ;
 }