- Modificate tutti i lua dei bottoni per portarli in libreria

2022-04-12 13:10:05 +02:00
parent 39db4c9e37
commit a066ea8f9a
18 changed files with 871 additions and 697 deletions
@@ -0,0 +1,117 @@
+-- RunViewManager.lua by Egaltech s.r.l. 2022/04/05
+-- Gestione visualizzazione per Stampa 3d
+
+-- Tabella per definizione modulo
+local RunViewManager = {}
+
+-- Intestazioni
+require( 'EgtBase')
+
+EgtOutLog( ' RunViewManager started', 1)
+
+-- Costanti generali
+local AMD = require( 'AddManData')
+
+function RunViewManager.Exec()
+   ViewValues = EgtDialogBox( 'Slicing visibility manager', { 'Visibility Mode', 'CB:*All,Till Selected,Only Selected'},
+                                                            { 'Shell type', 'CB:*All,Outer,Inner,Infill'},
+                                                            { 'Inner Number', '1'})
+   if not ViewValues or #ViewValues < 2 then return end
+
+
+   local nVisibilityMode = 1     -- 1 = All, 2 = Till Selected, 3 = Only Selected
+   if ViewValues[1] == 'All' then
+      nVisibilityMode = 1
+   elseif ViewValues[1] == 'Till Selected' then
+      nVisibilityMode = 2
+   elseif ViewValues[1] == 'Only Selected' then
+      nVisibilityMode = 3
+   end
+   local nShellType = 0       -- 1 = All, 2 = Outer, 3 = Inner, 4 = infill
+   if ViewValues[2] == 'All' then
+      nShellType = 1
+   elseif ViewValues[2] == 'Outer' then
+      nShellType = 2
+   elseif ViewValues[2] == 'Inner' then
+      nShellType = 3
+   elseif ViewValues[2] == 'Infill' then
+      nShellType = 4
+   end
+   local nInnerNumber = tonumber(ViewValues[3])
+
+   -- Recupero ultimo layer selezionato
+   -- verifico sia un pezzo valido
+   local sSelLayerName = ''
+   local bFound = false
+   local nSelLayerId = EgtGetLastSelectedObj() 
+   while nSelLayerId do
+      local sSelLayerName = EgtGetName( nSelLayerId)
+      if sSelLayerName and sSelLayerName:sub(1, 5) == SLICE_LAYER then
+         bFound = true
+         break
+      end
+      nSelLayerId = EgtGetParent( nSelLayerId)
+   end
+   if not bFound then
+      if nVisibilityMode ~= 1 then
+         EgtOutBox( 'No selected element!', 'Warning', 'WARNING')
+         return
+      else
+         nSelLayerId = GDB_ID.NULL
+         sSelLayerName = ''
+      end
+   end
+
+   -- ciclo sui pezzi
+   local nPartIndex = 1
+   local nPartId = EgtGetFirstNameInGroup( GDB_ID.ROOT, PART .. nPartIndex)
+   while nPartId do
+      -- ciclo sui layer per dis/attivare il resto
+      local nLayerIndex = 1
+      local nLayerId = EgtGetFirstNameInGroup( nPartId, SLICE_LAYER .. nLayerIndex)
+      while nLayerId do
+         if nVisibilityMode == 1 then     -- All
+            EgtSetStatus( nLayerId, GDB_ST.ON)
+         elseif nVisibilityMode == 2 then     -- Till Selected
+            EgtSetStatus( nLayerId, EgtIf( nLayerId <= nSelLayerId, GDB_ST.ON, GDB_ST.OFF))
+         elseif nVisibilityMode == 3 then     -- Only Selected
+            EgtSetStatus( nLayerId, EgtIf( nLayerId == nSelLayerId, GDB_ST.ON, GDB_ST.OFF))
+         end
+         local nCrvId = EgtGetFirstGroupInGroup( nLayerId)
+         while nCrvId do
+            local nPathId = EgtGetFirstNameInGroup( nCrvId, PATH_GRP)
+            local nShellId = EgtGetFirstInGroup( nPathId)
+            while nShellId do
+               local nType = EgtGetInfo( nShellId, KEY_TYPE, 'i')
+               EgtSetStatus( nShellId, EgtIf( nShellType == 1 or ( nShellType == 2 and nType == 0) or (nShellType == 3 and nType == nInnerNumber), GDB_ST.ON, GDB_ST.OFF))
+               nShellId = EgtGetNext( nShellId)
+            end
+            local nSolidId = EgtGetFirstNameInGroup( nCrvId, SOLID_GRP)
+            local nSurfId = EgtGetFirstInGroup( nSolidId)
+            while nSurfId do
+               local nType = EgtGetInfo( nSurfId, KEY_TYPE, 'i')
+               EgtSetStatus( nSurfId, EgtIf( nShellType == 1 or ( nShellType == 2 and nType == 0) or (nShellType == 3 and nType == nInnerNumber), GDB_ST.ON, GDB_ST.OFF))
+               nSurfId = EgtGetNext( nSurfId)
+            end
+            local nToolPathId = EgtGetFirstNameInGroup( nCrvId, TOOLPATH_GRP)
+            nShellId = EgtGetFirstInGroup( nToolPathId)
+            while nShellId do
+               local nType = EgtGetInfo( nShellId, KEY_TYPE, 'i')
+               EgtSetStatus( nShellId, EgtIf( nType and ( nShellType == 1 or ( nShellType == 2 and nType == 0) or (nShellType == 3 and nType == nInnerNumber)), GDB_ST.ON, GDB_ST.OFF))
+               nShellId = EgtGetNext( nShellId)
+            end
+            nCrvId = EgtGetNext( nCrvId)
+         end
+         nLayerIndex = nLayerIndex + 1
+         nLayerId = EgtGetFirstNameInGroup( nPartId, SLICE_LAYER .. nLayerIndex)
+      end
+      nPartIndex = nPartIndex + 1
+      nPartId = EgtGetFirstNameInGroup( GDB_ID.ROOT, PART .. nPartIndex)
+   end
+
+   EgtDraw()
+
+end
+
+---------------------------------------------------------------------
+return RunViewManager