DataWall :

- aggiunta gestione Tool_ID anche su contorni liberi di tipo pocket.
This commit is contained in:
DarioS
2021-09-17 12:29:37 +02:00
parent 9fa6691c4f
commit be08ec92e1
2 changed files with 11 additions and 7 deletions
+5 -3
View File
@@ -1,4 +1,4 @@
-- ProcessFreeContour.lua by Egaltech s.r.l. 2021/08/06
-- ProcessFreeContour.lua by Egaltech s.r.l. 2021/09/17
-- Gestione calcolo profilo libero per Pareti
-- Tabella per definizione modulo
@@ -1766,6 +1766,7 @@ local function MakeByMill( Proc, nRawId, b3Raw)
local sMilling = WM.FindMilling( 'FreeContour', nil, nil, nTool_ID)
if not sMilling then
local sErr = 'Error : milling not found in library'
if nTool_ID then sErr = sErr .. ' (Tool_ID=' .. tostring( nTool_ID) .. ')' end
EgtOutLog( sErr)
return false, sErr
end
@@ -1961,11 +1962,12 @@ local function MakeByPocket( Proc, nRawId, b3Raw)
end
end
if Proc.Fct < 5 and (( bIsL and not bIsU) or ( bIsU and dMiddleFacetLength > dDiam * 2)) then dDiam = dDiam * 2 end
--local bToolInv = ( vtExtr:getZ() < -0.1)
local nTool_ID = EgtGetInfo( Proc.Id, 'CNT_DATA', 'i')
-- recupero la lavorazione
local sPocketing = WM.FindPocketing( 'Pocket', dDiam, dDepth)
local sPocketing = WM.FindPocketing( 'Pocket', dDiam, dDepth, nTool_ID)
if not sPocketing then
local sErr = 'Error : pocketing not found in library'
if nTool_ID then sErr = sErr .. ' (Tool_ID=' .. tostring( nTool_ID) .. ')' end
EgtOutLog( sErr)
return false, sErr
end