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.
This commit is contained in:
Dario Sassi
+55
-55
@@ -39,9 +39,9 @@ LuaCreateCurveLine( lua_State* L)
|
||||
int nId = ExeCreateCurveLine( nParentId, ptIni, ptFin, nRefType) ;
|
||||
// restituisco il risultato
|
||||
if ( nId != GDB_ID_NULL)
|
||||
LuaSetReturn( L, nId) ;
|
||||
LuaSetParam( L, nId) ;
|
||||
else
|
||||
LuaSetReturn( L) ;
|
||||
LuaSetParam( L) ;
|
||||
return 1 ;
|
||||
}
|
||||
|
||||
@@ -73,9 +73,9 @@ LuaCreateCurveLineEx( lua_State* L)
|
||||
ptFin, nSepF, nIdF, nRefType) ;
|
||||
// restituisco il risultato
|
||||
if ( nId != GDB_ID_NULL)
|
||||
LuaSetReturn( L, nId) ;
|
||||
LuaSetParam( L, nId) ;
|
||||
else
|
||||
LuaSetReturn( L) ;
|
||||
LuaSetParam( L) ;
|
||||
return 1 ;
|
||||
}
|
||||
|
||||
@@ -99,9 +99,9 @@ LuaCreateCurveLinePVL( lua_State* L)
|
||||
int nId = ExeCreateCurveLinePVL( nParentId, ptIni, vtDir, dLen, nRefType) ;
|
||||
// restituisco il risultato
|
||||
if ( nId != GDB_ID_NULL)
|
||||
LuaSetReturn( L, nId) ;
|
||||
LuaSetParam( L, nId) ;
|
||||
else
|
||||
LuaSetReturn( L) ;
|
||||
LuaSetParam( L) ;
|
||||
return 1 ;
|
||||
}
|
||||
|
||||
@@ -127,9 +127,9 @@ LuaCreateCurveLineMinPointCurve( lua_State* L)
|
||||
int nId = ExeCreateCurveLineMinPointCurve( nParentId, ptIni, nCrvId, dNearPar, nRefType) ;
|
||||
// restituisco il risultato
|
||||
if ( nId != GDB_ID_NULL)
|
||||
LuaSetReturn( L, nId) ;
|
||||
LuaSetParam( L, nId) ;
|
||||
else
|
||||
LuaSetReturn( L) ;
|
||||
LuaSetParam( L) ;
|
||||
return 1 ;
|
||||
}
|
||||
|
||||
@@ -153,9 +153,9 @@ LuaCreateCurveCircle( lua_State* L)
|
||||
int nId = ExeCreateCurveCircle( nParentId, ptCen, vtN, dRad, nRefType) ;
|
||||
// restituisco il risultato
|
||||
if ( nId != GDB_ID_NULL)
|
||||
LuaSetReturn( L, nId) ;
|
||||
LuaSetParam( L, nId) ;
|
||||
else
|
||||
LuaSetReturn( L) ;
|
||||
LuaSetParam( L) ;
|
||||
return 1 ;
|
||||
}
|
||||
|
||||
@@ -179,9 +179,9 @@ LuaCreateCurveCircleCPN( lua_State* L)
|
||||
int nId = ExeCreateCurveCircleCPN( nParentId, ptCen, ptOn, vtN, nRefType) ;
|
||||
// restituisco il risultato
|
||||
if ( nId != GDB_ID_NULL)
|
||||
LuaSetReturn( L, nId) ;
|
||||
LuaSetParam( L, nId) ;
|
||||
else
|
||||
LuaSetReturn( L) ;
|
||||
LuaSetParam( L) ;
|
||||
return 1 ;
|
||||
}
|
||||
|
||||
@@ -209,9 +209,9 @@ LuaCreateCurveCircleCPNEx( lua_State* L)
|
||||
int nId = ExeCreateCurveCircleCPNEx( nParentId, ptCen, ptOn, nSepO, nIdO, vtN, nRefType) ;
|
||||
// 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 @@ LuaCreateCurveCircle3P( lua_State* L)
|
||||
int nId = ExeCreateCurveCircle3P( nParentId, ptP1, ptP2, ptP3, nRefType) ;
|
||||
// restituisco il risultato
|
||||
if ( nId != GDB_ID_NULL)
|
||||
LuaSetReturn( L, nId) ;
|
||||
LuaSetParam( L, nId) ;
|
||||
else
|
||||
LuaSetReturn( L) ;
|
||||
LuaSetParam( L) ;
|
||||
return 1 ;
|
||||
}
|
||||
|
||||
@@ -267,9 +267,9 @@ LuaCreateCurveArc( lua_State* L)
|
||||
int nId = ExeCreateCurveArc( nParentId, ptCen, vtN, dRad, vtS, dAngCenDeg, dDeltaN, nRefType) ;
|
||||
// restituisco il risultato
|
||||
if ( nId != GDB_ID_NULL)
|
||||
LuaSetReturn( L, nId) ;
|
||||
LuaSetParam( L, nId) ;
|
||||
else
|
||||
LuaSetReturn( L) ;
|
||||
LuaSetParam( L) ;
|
||||
return 1 ;
|
||||
}
|
||||
|
||||
@@ -295,9 +295,9 @@ LuaCreateCurveArcC2PN( lua_State* L)
|
||||
int nId = ExeCreateCurveArcC2PN( nParentId, ptCen, ptStart, ptNearEnd, vtNorm, nRefType) ;
|
||||
// restituisco il risultato
|
||||
if ( nId != GDB_ID_NULL)
|
||||
LuaSetReturn( L, nId) ;
|
||||
LuaSetParam( L, nId) ;
|
||||
else
|
||||
LuaSetReturn( L) ;
|
||||
LuaSetParam( L) ;
|
||||
return 1 ;
|
||||
}
|
||||
|
||||
@@ -327,9 +327,9 @@ LuaCreateCurveArcC2PNEx( lua_State* L)
|
||||
int nId = ExeCreateCurveArcC2PNEx( nParentId, ptCen, ptStart, nSepS, nIdS, ptNearEnd, vtNorm, nRefType) ;
|
||||
// restituisco il risultato
|
||||
if ( nId != GDB_ID_NULL)
|
||||
LuaSetReturn( L, nId) ;
|
||||
LuaSetParam( L, nId) ;
|
||||
else
|
||||
LuaSetReturn( L) ;
|
||||
LuaSetParam( L) ;
|
||||
return 1 ;
|
||||
}
|
||||
|
||||
@@ -353,9 +353,9 @@ LuaCreateCurveArc3P( lua_State* L)
|
||||
int nId = ExeCreateCurveArc3P( nParentId, ptP1, ptP2, ptP3, nRefType) ;
|
||||
// restituisco il risultato
|
||||
if ( nId != GDB_ID_NULL)
|
||||
LuaSetReturn( L, nId) ;
|
||||
LuaSetParam( L, nId) ;
|
||||
else
|
||||
LuaSetReturn( L) ;
|
||||
LuaSetParam( L) ;
|
||||
return 1 ;
|
||||
}
|
||||
|
||||
@@ -381,9 +381,9 @@ LuaCreateCurveArc2PVN( lua_State* L)
|
||||
int nId = ExeCreateCurveArc2PVN( nParentId, ptStart, ptEnd, vtDirS, vtNorm, nRefType) ;
|
||||
// restituisco il risultato
|
||||
if ( nId != GDB_ID_NULL)
|
||||
LuaSetReturn( L, nId) ;
|
||||
LuaSetParam( L, nId) ;
|
||||
else
|
||||
LuaSetReturn( L) ;
|
||||
LuaSetParam( L) ;
|
||||
return 1 ;
|
||||
}
|
||||
|
||||
@@ -414,9 +414,9 @@ LuaCreateCurveArc2PVNEx( lua_State* L)
|
||||
vtDirS, vtNorm, nRefType) ;
|
||||
// restituisco il risultato
|
||||
if ( nId != GDB_ID_NULL)
|
||||
LuaSetReturn( L, nId) ;
|
||||
LuaSetParam( L, nId) ;
|
||||
else
|
||||
LuaSetReturn( L) ;
|
||||
LuaSetParam( L) ;
|
||||
return 1 ;
|
||||
}
|
||||
|
||||
@@ -449,9 +449,9 @@ LuaCreateCurveFillet( lua_State* L)
|
||||
vtNorm, dRad, bTrim, nRefType) ;
|
||||
// restituisco il risultato
|
||||
if ( nId != GDB_ID_NULL)
|
||||
LuaSetReturn( L, nId) ;
|
||||
LuaSetParam( L, nId) ;
|
||||
else
|
||||
LuaSetReturn( L) ;
|
||||
LuaSetParam( L) ;
|
||||
return 1 ;
|
||||
}
|
||||
|
||||
@@ -484,9 +484,9 @@ LuaCreateCurveChamfer( lua_State* L)
|
||||
vtNorm, dDist, bTrim, nRefType) ;
|
||||
// restituisco il risultato
|
||||
if ( nId != GDB_ID_NULL)
|
||||
LuaSetReturn( L, nId) ;
|
||||
LuaSetParam( L, nId) ;
|
||||
else
|
||||
LuaSetReturn( L) ;
|
||||
LuaSetParam( L) ;
|
||||
return 1 ;
|
||||
}
|
||||
|
||||
@@ -508,9 +508,9 @@ LuaCreateCurveBezier( lua_State* L)
|
||||
int nId = ExeCreateCurveBezier( nParentId, nDegree, vPnt, nRefType) ;
|
||||
// restituisco il risultato
|
||||
if ( nId != GDB_ID_NULL)
|
||||
LuaSetReturn( L, nId) ;
|
||||
LuaSetParam( L, nId) ;
|
||||
else
|
||||
LuaSetReturn( L) ;
|
||||
LuaSetParam( L) ;
|
||||
return 1 ;
|
||||
}
|
||||
|
||||
@@ -532,9 +532,9 @@ LuaCreateCurveBezierRational( lua_State* L)
|
||||
int nId = ExeCreateCurveBezierRational( nParentId, nDegree, vPntW, nRefType) ;
|
||||
// restituisco il risultato
|
||||
if ( nId != GDB_ID_NULL)
|
||||
LuaSetReturn( L, nId) ;
|
||||
LuaSetParam( L, nId) ;
|
||||
else
|
||||
LuaSetReturn( L) ;
|
||||
LuaSetParam( L) ;
|
||||
return 1 ;
|
||||
}
|
||||
|
||||
@@ -554,9 +554,9 @@ LuaCreateCurveBezierFromArc( lua_State* L)
|
||||
int nId = ExeCreateCurveBezierFromArc( nParentId, nArcId, bErase) ;
|
||||
// restituisco il risultato
|
||||
if ( nId != GDB_ID_NULL)
|
||||
LuaSetReturn( L, nId) ;
|
||||
LuaSetParam( L, nId) ;
|
||||
else
|
||||
LuaSetReturn( L) ;
|
||||
LuaSetParam( L) ;
|
||||
return 1 ;
|
||||
}
|
||||
|
||||
@@ -576,9 +576,9 @@ LuaCreateCurveCompo( lua_State* L)
|
||||
int nId = ExeCreateCurveCompo( nParentId, vIds, bErase) ;
|
||||
// restituisco il risultato
|
||||
if ( nId != GDB_ID_NULL)
|
||||
LuaSetReturn( L, nId) ;
|
||||
LuaSetParam( L, nId) ;
|
||||
else
|
||||
LuaSetReturn( L) ;
|
||||
LuaSetParam( L) ;
|
||||
return 1 ;
|
||||
}
|
||||
|
||||
@@ -605,10 +605,10 @@ LuaCreateCurveCompoByChain( lua_State* L)
|
||||
int nId = ExeCreateCurveCompoByChain( nParentId, vIds, ptNear, bErase, nRefType, &nCount) ;
|
||||
// restituisco il risultato
|
||||
if ( nId != GDB_ID_NULL)
|
||||
LuaSetReturn( L, nId) ;
|
||||
LuaSetParam( L, nId) ;
|
||||
else
|
||||
LuaSetReturn( L) ;
|
||||
LuaSetReturn( L, nCount) ;
|
||||
LuaSetParam( L) ;
|
||||
LuaSetParam( L, nCount) ;
|
||||
return 2 ;
|
||||
}
|
||||
|
||||
@@ -632,9 +632,9 @@ LuaCreateCurveCompoFromPoints( lua_State* L)
|
||||
int nId = ExeCreateCurveCompoFromPoints( nParentId, PL, nRefType) ;
|
||||
// restituisco il risultato
|
||||
if ( nId != GDB_ID_NULL)
|
||||
LuaSetReturn( L, nId) ;
|
||||
LuaSetParam( L, nId) ;
|
||||
else
|
||||
LuaSetReturn( L) ;
|
||||
LuaSetParam( L) ;
|
||||
return 1 ;
|
||||
}
|
||||
|
||||
@@ -658,9 +658,9 @@ LuaCreateCurveCompoFromPointBulges( lua_State* L)
|
||||
int nId = ExeCreateCurveCompoFromPointBulges( nParentId, PA, nRefType) ;
|
||||
// restituisco il risultato
|
||||
if ( nId != GDB_ID_NULL)
|
||||
LuaSetReturn( L, nId) ;
|
||||
LuaSetParam( L, nId) ;
|
||||
else
|
||||
LuaSetReturn( L) ;
|
||||
LuaSetParam( L) ;
|
||||
return 1 ;
|
||||
}
|
||||
|
||||
@@ -684,9 +684,9 @@ LuaCreateRectangle3P( lua_State* L)
|
||||
int nId = ExeCreateRectangle3P( nParentId, ptIni, ptCross, ptDir, nRefType) ;
|
||||
// restituisco il risultato
|
||||
if ( nId != GDB_ID_NULL)
|
||||
LuaSetReturn( L, nId) ;
|
||||
LuaSetParam( L, nId) ;
|
||||
else
|
||||
LuaSetReturn( L) ;
|
||||
LuaSetParam( L) ;
|
||||
return 1 ;
|
||||
}
|
||||
|
||||
@@ -712,9 +712,9 @@ LuaCreatePolygonFromRadius( lua_State* L)
|
||||
int nId = ExeCreatePolygonFromRadius( nParentId, nNumSides, PtCen, PtCorn, vtN, nRefType) ;
|
||||
// restituisco il risultato
|
||||
if ( nId != GDB_ID_NULL)
|
||||
LuaSetReturn( L, nId) ;
|
||||
LuaSetParam( L, nId) ;
|
||||
else
|
||||
LuaSetReturn( L) ;
|
||||
LuaSetParam( L) ;
|
||||
return 1 ;
|
||||
}
|
||||
|
||||
@@ -740,9 +740,9 @@ LuaCreatePolygonFromApothem( lua_State* L)
|
||||
int nId = ExeCreatePolygonFromApothem( nParentId, nNumSides, PtCen, PtMid, vtN, nRefType) ;
|
||||
// restituisco il risultato
|
||||
if ( nId != GDB_ID_NULL)
|
||||
LuaSetReturn( L, nId) ;
|
||||
LuaSetParam( L, nId) ;
|
||||
else
|
||||
LuaSetReturn( L) ;
|
||||
LuaSetParam( L) ;
|
||||
return 1 ;
|
||||
}
|
||||
|
||||
@@ -768,9 +768,9 @@ LuaCreatePolygonFromSide( lua_State* L)
|
||||
int nId = ExeCreatePolygonFromSide( nParentId, nNumSides, ptIni, ptFin, vtN, nRefType) ;
|
||||
// restituisco il risultato
|
||||
if ( nId != GDB_ID_NULL)
|
||||
LuaSetReturn( L, nId) ;
|
||||
LuaSetParam( L, nId) ;
|
||||
else
|
||||
LuaSetReturn( L) ;
|
||||
LuaSetParam( L) ;
|
||||
return 1 ;
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user