- 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,109 @@
+-- RunPartPositioning.lua by Egaltech s.r.l. 2022/04/11
+-- Gestione calcolo disposizione e lavorazioni per stampa 3d
+-- 2022/03/21 Creazione file
+
+-- Tabella per definizione modulo
+local RunPartPositioning = {}
+
+-- Intestazioni
+require( 'EgtBase')
+
+EgtOutLog( ' RunPartPositioning started', 1)
+
+-- Costanti generali
+local AMD = require( 'AddManData')
+
+function RunPartPositioning.Exec()
+   -- Recupero ultimo oggetto selezionato
+   local nPartId = EgtGetParent(EgtGetParent( EgtGetLastSelectedObj())) 
+   -- verifico sia un pezzo valido
+   if nPartId  then
+      local nParentId = EgtGetParent( nPartId)
+      while nParentId ~= GDB_ID.ROOT do
+         nPartId = nParentId
+         nParentId = EgtGetParent( nPartId)
+      end
+      if EgtIsPart( nPartId) then
+         local sName = EgtGetName( nPartId)
+         if sName == TABLE then 
+            EgtOutBox( 'No selected part. Please select a part before moving it on the table.', 'Warning', 'WARNING')
+            return
+         end
+      else
+         EgtOutBox( 'No selected part. Please select a part before moving it on the table.', 'Warning', 'WARNING')
+         return
+      end
+   else
+      EgtOutBox( 'No selected part. Please select a part before moving it on the table.', 'Warning', 'WARNING')
+      return
+   end
+
+   -- gli assegno nome pezzo e layer
+   if not EgtGetName( nPartId) then
+      local nPartIndex = 1
+      while EgtGetFirstNameInGroup( GDB_ID.ROOT, PART .. nPartIndex) do
+         nPartIndex = nPartIndex + 1
+      end
+      EgtSetName( nPartId, PART .. nPartIndex)
+      local nLayerId = EgtGetFirstInGroup( nPartId)
+      EgtSetName( nLayerId, ORIGINAL_SOLID)
+   end
+
+   -- Recupero dati tavola (creando gruppo di lavoro temporaneo)
+   local nQqqId = EgtAddMachGroup( 'qqq')
+   EgtSetTable( 'Tab')
+   local b3Tab = EgtGetTableArea()
+   dTabX = b3Tab:getDimX()
+   dTabY = b3Tab:getDimY()
+   EgtRemoveMachGroup( nQqqId or GDB_ID.NULL)
+
+   -- Richiedo coordinata posizionamento pezzo
+   local b3Part = EgtGetBBoxGlob( nPartId, GDB_BB.EXACT)
+   local dPosX = b3Tab:getDimX() / 2
+   local dPosY = b3Tab:getDimY() / 2
+   local Positions = EgtDialogBox( 'Part position on table:', { 'X', EgtNumToString( EgtToUiUnits(dPosX), 1)}, { 'Y', EgtNumToString( EgtToUiUnits(dPosY), 1)})
+   if not Positions then return end
+   dPosX = EgtFromUiUnits( tonumber( Positions[1])) - b3Part:getDimX() / 2
+   dPosY = EgtFromUiUnits( tonumber( Positions[2])) - b3Part:getDimY() / 2
+
+   -- Creo disegno tavola
+   local nTabPart = EgtGetFirstNameInGroup( GDB_ID.ROOT, TABLE)
+   if not nTabPart then
+      -- Disegno tavola
+      nTabPart = EgtGroup( GDB_ID.ROOT)
+      --EgtSetLevel( nTabPart, GDB_LV.SYSTEM)
+      EgtSetName( nTabPart, TABLE)
+      local nTabLayer = EgtGroup( nTabPart)
+      EgtSetName( nTabLayer, TABLE)
+      local nTabOutlineId = EgtRectangle2P( nTabLayer, Point3d( 0, 0, 0), Point3d( dTabX, dTabY, 0))
+      EgtSetName( nTabOutlineId, TABLE_OUTLINE)
+      local nTabSurfId = EgtSurfFlatRegion( nTabLayer, nTabOutlineId)
+      EgtSetName( nTabSurfId, TABLE_SURFACE)
+      EgtSetColor( nTabSurfId, 'ORANGE')
+      EgtSetAlpha( nTabSurfId, 70)
+   end
+
+   -- Posiziono il pezzo
+   EgtMove( nPartId, Point3d( dPosX, dPosY, 0) - b3Part:getMin())
+
+   local nMchGrpId = EgtGetMachGroupId( '3dPrint')
+   EgtRemoveMachGroup( nMchGrpId or GDB_ID.NULL)
+   EgtAddMachGroup( '3dPrint')
+   EgtSetTable( 'Tab')
+
+   local nRawId = EgtAddRawPartWithPart( nPartId, GDB_ID.NULL, 0,  Color3d( 128, 128, 128, 30)) 
+   EgtMoveToCornerRawPart( nRawId, Point3d( dPosX, dPosY, 0), MCH_CR.BL)
+
+   EgtResetCurrMachGroup()
+
+
+   EgtSetView( SCE_VD.ISO_SW, false)
+   EgtZoom( SCE_ZM.ALL)
+
+
+   EgtOutLog( ' +++ PlacePart completed')
+
+end
+
+---------------------------------------------------------------------
+return RunPartPositioning