DataWall :

- aggiunto script per gestione nuova interfaccia.
This commit is contained in:
Dario Sassi
2021-01-15 22:49:09 +00:00
parent a85a302c54
commit 1dbd10d41a
3 changed files with 663 additions and 9 deletions
+11 -7
View File
@@ -1,4 +1,4 @@
-- WallExec.lua by Egaltech s.r.l. 2020/12/23
-- WallExec.lua by Egaltech s.r.l. 2021/01/15
-- Libreria esecuzione lavorazioni per Pareti
-- Tabella per definizione modulo
@@ -28,17 +28,21 @@ local FreeContour = require( 'WProcessFreeContour')
-------------------------------------------------------------------------------------------------------------
-- *** Inserimento delle pareti nel pannello ***
-------------------------------------------------------------------------------------------------------------
function WallExec.ProcessWalls( dRawL, dRawW, dRawH, vWall)
function WallExec.ProcessWalls( dRawL, dRawW, dRawH, vWall, bMachGroupOk)
-- Creazione nuovo gruppo di lavoro
local sMgName = EgtGetMachGroupNewName( 'Mach')
local NewMgId = EgtAddMachGroup( sMgName)
if not NewMgId then
local sOut = 'Errore nella creazione del gruppo di lavoro ' .. sMgName
return false, sOut
if not bMachGroupOk then
local sMgName = EgtGetMachGroupNewName( 'Mach')
local NewMgId = EgtAddMachGroup( sMgName)
if not NewMgId then
local sOut = 'Errore nella creazione del gruppo di lavoro ' .. sMgName
return false, sOut
end
end
-- Impostazione della tavola
EgtSetTable( 'Tab')
-- Area tavola
local b3Tab = EgtGetTableArea()
-- Calcolo posizione estremo di riferimento della tavola rispetto a sua origine in BL