DataWall :

- aggiunta possibilità di posizionare i pezzi nei quattro angoli della tavola (da WD.ORIG_CORNER con valori BL,TL,BR,TR)
- corretta classificazione Tagli con Lama.
This commit is contained in:
Dario Sassi
2020-11-14 08:26:05 +00:00
parent ffe641a705
commit cd0d0fe1c9
3 changed files with 27 additions and 13 deletions
+18 -4
View File
@@ -1,4 +1,4 @@
-- WallExec.lua by Egaltech s.r.l. 2020/07/15
-- WallExec.lua by Egaltech s.r.l. 2020/11/12
-- Libreria esecuzione lavorazioni per Pareti
-- Tabella per definizione modulo
@@ -41,13 +41,27 @@ function WallExec.ProcessWalls( dRawL, dRawW, dRawH, vWall)
EgtSetTable( 'Tab')
-- Area tavola
local b3Tab = EgtGetTableArea()
-- Calcolo posizione estremo BR della tavola rispetto a sua origine in BL
WD.OriBR = Point3d( b3Tab:getDimX(), 0, 0)
-- Calcolo posizione estremo di riferimento della tavola rispetto a sua origine in BL
local OrigOnTab
local nCorner
if WD.ORIG_CORNER == 'TL' then
nCorner = MCH_CR.TL
OrigOnTab = Point3d( 0, b3Tab:getDimY(), 0)
elseif WD.ORIG_CORNER == 'BL' then
nCorner = MCH_CR.BL
OrigOnTab = Point3d(0, 0, 0)
elseif WD.ORIG_CORNER == 'TR' then
nCorner = MCH_CR.TR
OrigOnTab = Point3d( b3Tab:getDimX(), b3Tab:getDimY(), 0)
else -- 'BR'
nCorner = MCH_CR.BR
OrigOnTab = Point3d( b3Tab:getDimX(), 0, 0)
end
-- Impostazione dell'attrezzaggio di default
EgtImportSetup()
-- Creazione del grezzo e suo posizionamento in macchina
local nRaw = EgtAddRawPart( Point3d(0,0,0), dRawL, dRawW, dRawH, WD.RAWCOL)
EgtMoveToCornerRawPart( nRaw, WD.OriBR, MCH_CR.BR)
EgtMoveToCornerRawPart( nRaw, OrigOnTab, nCorner)
-- Inserimento dei pezzi nel grezzo
for i = 1, #vWall do
-- assegno identificativo pezzo