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

- in Squaring implementata modalità ShrinkToParts; manca la rimozione delle lavorazioni fuori dall'area squadrata

Browse Source
This commit is contained in:
luca.mazzoleni
2024-10-29 17:38:31 +01:00
parent b325ebcd32
commit b1dd887899
2 changed files with 33 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files
LuaLibs/WallExec.lua
+10 -10
View File
@@ -1079,7 +1079,7 @@ local function SetMirroredOperations()
end
-------------------------------------------------------------------------------------------------------------
local function AddSquaring( sSquaringTool, RawPart)
local function AddSquaring( sSquaringTool, RawPart, vPart)
local nFirstOperationId = EgtGetNextOperation( EgtGetPhaseDisposition( 1))
local dMachiningDepth = RawPart.b3:getDimZ()
local bOk
@@ -1095,9 +1095,9 @@ local function AddSquaring( sSquaringTool, RawPart)
return false, sMsg
end
SquaringGeometries = Squaring.CreateGeometry( sSquaringTool, SquaringTools, RawPart)
local SquaringGeometries, b3Squaring = Squaring.CreateGeometry( sSquaringTool, SquaringTools, RawPart, vPart)
bOk, sMsg, OperationsId = Squaring.AddMachinings( SquaringGeometries, RawPart, nFirstOperationId)
bOk, sMsg, OperationsId = Squaring.AddMachinings( SquaringGeometries, b3Squaring, nFirstOperationId)
if not bOk then
for i = 1, #OperationsId do
EgtRemoveOperation( i)
@@ -1268,12 +1268,12 @@ function WallExec.ProcessFeatures()
if WD.SQUARING_TYPE and WD.SQUARING_TYPE > 0 then
local RawPart = { nId = nRawId, b3 = b3Raw}
local bOk, sMsg
if type( WD.SQUARING_TOOL ~= "number") then
if type( WD.SQUARING_TOOL) ~= "number" then
WD.SQUARING_TOOL = 0
end
if WD.SQUARING_TOOL == 0 or WD.SQUARING_TOOL == 1 then
bOk, sMsg = AddSquaring( 'DoubleDiskmill', RawPart)
bOk, sMsg = AddSquaring( 'DoubleDiskmill', RawPart, vPart)
end
if not bOk and ( WD.SQUARING_TOOL == 0 or WD.SQUARING_TOOL == 2) then
-- attualmente non gestito, va modificata la configurazione macchina e non si sa se sia gestito in macchina (PLC)
@@ -1282,19 +1282,19 @@ function WallExec.ProcessFeatures()
--bOk, sMsg = AddSquaring( 'DoubleDiskmillAndBlade', RawPart)
end
if not bOk and ( WD.SQUARING_TOOL == 0 or WD.SQUARING_TOOL == 3) then
bOk, sMsg = AddSquaring( 'DoubleBlade', RawPart)
bOk, sMsg = AddSquaring( 'DoubleBlade', RawPart, vPart)
end
if not bOk and ( WD.SQUARING_TOOL == 0 or WD.SQUARING_TOOL == 4) then
bOk, sMsg = AddSquaring( 'Diskmill', RawPart)
bOk, sMsg = AddSquaring( 'Diskmill', RawPart, vPart)
end
if not bOk and ( WD.SQUARING_TOOL == 0 or WD.SQUARING_TOOL == 5) then
bOk, sMsg = AddSquaring( 'Blade', RawPart)
bOk, sMsg = AddSquaring( 'Blade', RawPart, vPart)
end
if not bOk and ( WD.SQUARING_TOOL == 0 or WD.SQUARING_TOOL == 6) then
bOk, sMsg = AddSquaring( 'DoubleMill', RawPart)
bOk, sMsg = AddSquaring( 'DoubleMill', RawPart, vPart)
end
if not bOk and ( WD.SQUARING_TOOL == 0 or WD.SQUARING_TOOL == 7) then
bOk, sMsg = AddSquaring( 'Mill', RawPart)
bOk, sMsg = AddSquaring( 'Mill', RawPart, vPart)
end
if not bOk then