Emmanuele Sassi
73 lines
3.2 KiB
Lua
73 lines
3.2 KiB
Lua
-- 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 |