DataBeam :

- correzione a gestione verifica barre con pezzi modificati per nuova interfaccia.
This commit is contained in:
DarioS
2021-06-02 23:19:55 +02:00
parent f16eb90d2f
commit 6bfc2d7188
+23 -2
View File
@@ -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