diff --git a/EXE_GdbCreateVol.cpp b/EXE_GdbCreateVol.cpp
index fdebb51..8c81f32 100644
--- a/EXE_GdbCreateVol.cpp
+++ b/EXE_GdbCreateVol.cpp
@@ -225,7 +225,7 @@ bool
 ExeUniformVolZmap( int nVolZmapId, double dToler, bool bExtensionFirst, int nToolNum)
 {
    IGeomDB* pGeomDB = GetCurrGeomDB() ;
-   VERIFY_GEOMDB( pGeomDB, GDB_ID_NULL)
+   VERIFY_GEOMDB( pGeomDB, false)
   // recupero lo Zmap
    IVolZmap* pVZM = GetVolZmap( pGeomDB->GetGeoObj( nVolZmapId)) ;
    bool bOk = ( pVZM != nullptr) ;
@@ -244,3 +244,25 @@ ExeUniformVolZmap( int nVolZmapId, double dToler, bool bExtensionFirst, int nToo
    }
    return bOk ;
 }
+
+//--------------------------------------------------------------------------------
+bool
+ExeVolZMapEraseFins( int nVolZMapId, const Vector3d& vtDir, double dThick)
+{
+   IGeomDB* pGeomDB = GetCurrGeomDB() ;
+   VERIFY_GEOMDB( pGeomDB, false) ;
+  // Recupero lo ZMap
+   IVolZmap* pVZM = GetVolZmap( pGeomDB->GetGeoObj( nVolZMapId)) ;
+   bool bOk = ( pVZM != nullptr) ;
+  // Aggiorno lo ZMap mediante rimozione delle alette
+   bOk = bOk && pVZM->EraseFins( vtDir, dThick) ;
+  // Se richiesto salvo il comando Lua equivalente
+   if ( IsCmdLog()) {
+      string sLua = "EgtVolZMapEraseFins(" + ToString( nVolZMapId) + "," +
+                                             ToString( vtDir) + "," +
+                                             ToString( dThick) + ")"
+                    " -- bOk =" + ToString( bOk) ;
+      LOG_INFO( GetCmdLogger(), sLua.c_str()) ;
+   }
+   return bOk ;
+}
diff --git a/LUA_GdbModifyVol.cpp b/LUA_GdbModifyVol.cpp
index f12d443..98eb838 100644
--- a/LUA_GdbModifyVol.cpp
+++ b/LUA_GdbModifyVol.cpp
@@ -437,6 +437,24 @@ LuaVolZmapOffset( lua_State* L)
    return 1 ;
 }
 
+//-------------------------------------------------------------------------------
+static int
+LuaVolZmapEraseFins( lua_State* L)
+{
+  // 3 parametri : Id, vtDir, dThick
+   int nId ;
+   LuaCheckParam( L, 1, nId) ;
+   Vector3d vtDir ;
+   LuaCheckParam( L, 2, vtDir) ;
+   double dThick ;
+   LuaCheckParam( L, 3, dThick) ;
+   LuaClearStack( L) ;
+  // Eseguo la rimozione delle alette
+   bool bOk = ExeVolZMapEraseFins( nId, vtDir, dThick) ;
+   LuaSetParam( L, bOk) ;
+   return 1 ;
+}
+
 //-------------------------------------------------------------------------------
 bool
 LuaInstallGdbModifyVol( LuaMgr& luaMgr)
@@ -460,5 +478,6 @@ LuaInstallGdbModifyVol( LuaMgr& luaMgr)
    bOk = bOk && luaMgr.RegisterFunction( "EgtUpdateVolZmapByAddingSurfTm", LuaUpdateVolZmapByAddingSurfTm ) ;
    bOk = bOk && luaMgr.RegisterFunction( "EgtUniformVolZmap", LuaUniformVolZmap) ;
    bOk = bOk && luaMgr.RegisterFunction( "EgtVolZmapOffset", LuaVolZmapOffset) ;
+   bOk = bOk && luaMgr.RegisterFunction( "EgtVolZmapEraseFins", LuaVolZmapEraseFins) ;
    return bOk ;
 }
\ No newline at end of file