DataDoors 2.7c1 :

- primo commit con versione corrente.

LuaLibs/Main_Assemb_I.lua

@@ -0,0 +1,55 @@
+--
+-- EEEEEEEEEE      GGGGGG      wwww                  wwww
+-- EEEEEEEEEE    GGGGGGGGGG    wwww                  wwww
+-- EEEE         GGGG    GGGG    wwww      wwww      wwww 
+-- EEEE        GGGG             wwww      wwww      wwww 
+-- EEEEEEE     GGGG   GGGGGGG    wwww    wwwwww    wwww  
+-- EEEEEEE     GGGG   GGGGGGG    wwww    wwwwww    wwww  
+-- EEEE        GGGG      GGGG     wwww  wwwwwwww  wwww   
+-- EEEE         GGGG    GGGG      wwww wwww  wwww wwww   
+-- EEEEEEEEEE    GGGGGGGGGG        wwwwwwww  wwwwwwww    
+-- EEEEEEEEEE      GGGGGG          wwwwwww    wwwwwww    
+--
+-- Main_Assemb_l.lua by EgalWare s.r.l.          2016.05.28
+-- Main disposizione assemblato a raggruppamento
+
+-- Intestazioni
+EgtEnableDebug( false)
+
+-----------------------------------------------------------------
+local function InteractiveChoice()
+
+   -- chiedo dato all'iutente
+   local tsDisp = EgtDialogBox( ' 0 = dispose, 1 = assembled, 2 = explode', {'disp mode:', '0'})
+   local sDisp = '0'
+   local nDisposeMain = 0
+
+   if tsDisp then
+      sDisp = tsDisp[1]
+   end
+
+   if sDisp ~= nil then
+      if sDisp == '0' then nDisposeMain = 0
+      elseif sDisp == '1' then nDisposeMain = 1
+      elseif sDisp == '2' then nDisposeMain = 2
+      else nDisposeMain = 0 end
+   end
+
+   local sRequireCompoName = '_AssemblyDisp'
+   -- lancio il componente base
+   local MHgen = require( sRequireCompoName)
+   local bOkD = MHgen.AssemblyDispose( nDisposeMain)
+
+   return bOkD
+end
+
+-----------------------------------------------------------------
+-- *** Main function ***
+-----------------------------------------------------------------
+local sNgeFile = EgtGetCurrFilePath()
+
+InteractiveChoice()
+EgtDraw()
+EgtSaveFile( sNgeFile)
+
+return true