Egalware/DataWall
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DataWall :

Browse Source 
- se non si elaborano feature non si setta più ok in log
- in LapJoint correzioni per SideMill su ribassi di fianco in basso
- in FindMilling si può richiedere anche minimo affondamento di fianco (8° parametro).
This commit is contained in:
DarioS
2022-01-17 20:51:18 +01:00
parent b2fe79490e
commit 74dc0a85fc
4 changed files with 68 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files
BatchProcessNew.lua
+34 -33
View File
@@ -1,8 +1,9 @@
-- BatchProcess.lua by Egaltech s.r.l. 2022/01/06
-- BatchProcess.lua by Egaltech s.r.l. 2022/01/17
-- Gestione calcolo batch disposizione e lavorazioni per Pareti
-- 2021/01/15 Per nuova interfaccia Egt.
-- 2021/11/10 Aggiunta modifica per gestione modifiche manuali come in Beam.
-- 2022/01/06 Per CUTID/TASKID senza ToProcess si verificano anche eventuali Duplo.
-- 2022/01/17 Eliminata assegnazione Feature ok se non calcolata.
-- Intestazioni
@@ -466,38 +467,38 @@ else
-- Carico il progetto già fatto
EgtOpenFile( sNgeFile)
-- Dichiaro nessun errore
local nPartId = EgtGetFirstPart()
while nPartId do
local vDup = EgtDuploList( nPartId)
if not vDup or #vDup == 0 then
vDup = { nPartId}
end
for i = 1, #vDup do
local nCutId = EgtGetInfo( vDup[i], 'CUTID', 'i')
if nCutId then
local LayerId = {}
LayerId[1] = EgtGetFirstNameInGroup( vDup[i], 'Outline')
LayerId[2] = EgtGetFirstNameInGroup( vDup[i], 'Processings')
for nInd = 1, #LayerId do
local nProcId = EgtGetFirstInGroup( LayerId[nInd] or GDB_ID.NULL)
while nProcId do
local bIsFea = EgtExistsInfo( nProcId, 'GRP') and EgtExistsInfo( nProcId, 'PRC')
local nTaskId = EgtGetInfo( nProcId, 'TASKID', 'i')
if bIsFea and nTaskId then
WALL.ERR = 0
WALL.MSG = '---'
WALL.ROT = 0
WALL.CUTID = nCutId
WALL.TASKID = nTaskId
WriteErrToLogFile( WALL.ERR, WALL.MSG, WALL.ROT, WALL.CUTID, WALL.TASKID)
end
nProcId = EgtGetNext( nProcId)
end
end
end
end
nPartId = EgtGetNextPart( nPartId)
end
--local nPartId = EgtGetFirstPart()
--while nPartId do
-- local vDup = EgtDuploList( nPartId)
-- if not vDup or #vDup == 0 then
-- vDup = { nPartId}
-- end
-- for i = 1, #vDup do
-- local nCutId = EgtGetInfo( vDup[i], 'CUTID', 'i')
-- if nCutId then
-- local LayerId = {}
-- LayerId[1] = EgtGetFirstNameInGroup( vDup[i], 'Outline')
-- LayerId[2] = EgtGetFirstNameInGroup( vDup[i], 'Processings')
-- for nInd = 1, #LayerId do
-- local nProcId = EgtGetFirstInGroup( LayerId[nInd] or GDB_ID.NULL)
-- while nProcId do
-- local bIsFea = EgtExistsInfo( nProcId, 'GRP') and EgtExistsInfo( nProcId, 'PRC')
-- local nTaskId = EgtGetInfo( nProcId, 'TASKID', 'i')
-- if bIsFea and nTaskId then
-- WALL.ERR = 0
-- WALL.MSG = '---'
-- WALL.ROT = 0
-- WALL.CUTID = nCutId
-- WALL.TASKID = nTaskId
-- WriteErrToLogFile( WALL.ERR, WALL.MSG, WALL.ROT, WALL.CUTID, WALL.TASKID)
-- end
-- nProcId = EgtGetNext( nProcId)
-- end
-- end
-- end
-- end
-- nPartId = EgtGetNextPart( nPartId)
--end
-- Aggiorno eventuali dati ausiliari
--UpdateAuxData( sBtmFile)
-- Passo in modalità lavora