Primo commit

2021-09-16 16:24:59 +02:00
parent b6d933da9c
commit 04c7b07d0e
9 changed files with 4661 additions and 0 deletions
@@ -0,0 +1,73 @@
+-- necessary to find socket.core and mime.core
+package.cpath = package.cpath .. ";/EgtProg/LuaLibs/?.dll"
+
+require( 'EgtBase')
+_ENV = EgtProtectGlobal()
+EgtEnableDebug( true)
+
+local AREA = "Area"
+
+local BasePath = "c:/Users/Dell/Dropbox/SVG"
+local BatchDateId = "/2021/6/629"
+
+local MaxMatId = 25
+for MatId = 1, MaxMatId do
+   -- apro file
+   if EgtOpenFile(BasePath .. "/Nesting" .. BatchDateId .. "/" .. MatId .. ".nge") then
+      -- vado su gruppi di lavorazione
+      local nSheetGroupId = EgtGetFirstMachGroup()
+      while nSheetGroupId do
+         local sGroupName = EgtGetMachGroupName(nSheetGroupId)
+         local bOk = EgtSetCurrMachGroup(nSheetGroupId)
+         local nOp = EgtGetFirstOperation()
+--         while nOp and false do
+--            if EgtGetOperationType(nOp) == MCH_OY.MILLING then
+--               local bOk = EgtSetCurrMachining(nOp)
+--               local nOut = EgtGetMachiningGeometry()
+--               local nPart = EgtGetParent(EgtGetParent(nOut[1][1]))
+--               local dArea = EgtGetInfo(nPart, AREA, 'd')
+--               
+--               --local b3Part = EgtGetBBox(nPart, 13)
+--               
+--               if EgtGetMachiningParam(MCH_MP.USERNOTES) == 'Outline = 1' then -- and (b3Part:getX() < 18 * GEO.ONE_INCH or b3Part:getY() < 18 * GEO.ONE_INCH) then
+--                  EgtSetMachiningParam(MCH_MP.INVERT, true)
+--                  if dArea and dArea < 11652 then
+--                     EgtSetMachiningParam(MCH_MP.LEAVETAB, true)
+--                     EgtSetMachiningParam(MCH_MP.TABMIN, 2)
+--                     EgtSetMachiningParam(MCH_MP.TABMAX, 4)
+--                     EgtSetMachiningParam(MCH_MP.TABDIST, 60) 
+--                  elseif dArea and dArea < 36500 then
+--                     EgtSetMachiningParam(MCH_MP.LEAVETAB, true)
+--                     EgtSetMachiningParam(MCH_MP.TABMIN, 4)
+--                     EgtSetMachiningParam(MCH_MP.TABMAX, 6)
+--                     EgtSetMachiningParam(MCH_MP.TABDIST, 200)
+--                  else
+--                     EgtSetMachiningParam(MCH_MP.TABDIST, 50000)
+--                  end
+----               else
+----                  EgtSetMachiningParam(MCH_MP.DEPTH_STR, "TH+0.1")
+--               end
+--            end
+--            nOp = EgtGetNextOperation(nOp)
+--         end
+--         local nRawPart = EgtGetFirstRawPart()
+--         local nPart = EgtGetFirstPartInRawPart(nRawPart)
+--         while nPart do
+--            
+--            nPart = EgtGetNextPartInRawPart(nPart)
+--         end
+         EgtApplyAllMachinings()
+         EgtApplyAllMachinings()
+         -- genero
+         local sCncPath = BasePath ..  "/CNC" .. BatchDateId .. "/" .. MatId .."/" .. EgtGetMachGroupName(nSheetGroupId) .. ".cnc"
+         local sPrintPath = BasePath .. "/CNC" .. BatchDateId .. "/" .. MatId .."/" .. EgtGetMachGroupName(nSheetGroupId) .. "_2.cnc"
+         local sNewPrintPath = BasePath .. "/CNC_PRINT" .. BatchDateId .. "/" .. MatId .."/" .. EgtGetMachGroupName(nSheetGroupId) .. ".cnc"
+         bOk = EgtGenerate(sCncPath)
+         -- sposto file di stampa
+         bOk = EgtCopyFile(sPrintPath, sNewPrintPath)
+         bOk = EgtEraseFile(sPrintPath)
+         nSheetGroupId = EgtGetNextMachGroup(nSheetGroupId)
+      end
+      EgtSaveFile()
+   end
+end