diff --git a/BatchProcessNew.lua b/BatchProcessNew.lua index 108f903..d86658b 100644 --- a/BatchProcessNew.lua +++ b/BatchProcessNew.lua @@ -1,4 +1,4 @@ --- BatchProcess.lua by Egaltech s.r.l. 2021/02/30 +-- BatchProcess.lua by Egaltech s.r.l. 2021/06/02 -- Gestione calcolo batch disposizione e lavorazioni per Travi -- 2021/01/07 Per nuova interfaccia Egt. -- 2021/01/15 CREATE_BAR ora FLAG = 6 (prima 5). @@ -209,7 +209,7 @@ if bToProcess then local nRawId = EgtGetFirstRawPart() if not nRawId then BEAM.ERR = 14 - BEAM.MSG = 'Error no Raw Oarts in the file : ' .. BEAM.FILE + BEAM.MSG = 'Error no Raw Parts in the file : ' .. BEAM.FILE WriteErrToLogFile( BEAM.ERR, BEAM.MSG) PostErrView( BEAM.ERR, BEAM.MSG) return @@ -409,6 +409,27 @@ if bToProcess then EgtSetInfo(nMGrpId, 'BARHEIGHT', dRawH) EgtSetInfo(nMGrpId, 'BARWIDTH', dRawW) end + -- sistemazioni per pezzi nella barra + else + -- ciclo sui grezzi + local nRawId = EgtGetFirstRawPart() + while nRawId do + -- massimo un pezzo per grezzo + local nPartId = EgtGetFirstPartInRawPart( nRawId) + -- box del pezzo + local Ls = EgtGetFirstNameInGroup( nPartId, 'Box') + local b3Solid = EgtGetBBoxGlob( Ls or GDB_ID.NULL, GDB_BB.STANDARD) + -- creo o pulisco gruppo geometrie aggiuntive + if nPartId then + BL.CreateOrEmptyAddGroup( nPartId) + end + -- aggiungo faccia per taglio iniziale al pezzo + BL.AddPartStartFace( nPartId, b3Solid) + -- aggiungo faccia per taglio finale al pezzo + BL.AddPartEndFace( nPartId, b3Solid) + -- passo al successivo grezzo + nRawId = EgtGetNextRawPart( nRawId) + end end -- Se richiesta solo barra, esco