DataWall :

- modifiche per nailing.
This commit is contained in:
Dario Sassi
2021-03-14 15:15:42 +00:00
parent 5f5d24c731
commit 6a5662ae65
3 changed files with 37 additions and 12 deletions
+4 -2
View File
@@ -28,14 +28,16 @@ local function SetCurrMachiningAndTool( sMachName)
end
---------------------------------------------------------------------
function WMachiningLib.FindCutting( sType)
function WMachiningLib.FindCutting( sType, dDepth)
for i = 1, #Cuttings do
local Cutting = Cuttings[i]
if Cutting.On and Cutting.Type == sType and SetCurrMachiningAndTool( Cutting.Name) then
local dSawDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or 0
local dSawThick = EgtTdbGetCurrToolParam( MCH_TP.THICK) or 0
local dSawMaxDepth = EgtTdbGetCurrToolMaxDepth() or 0
return Cutting.Name, dSawDiam, dSawThick, dSawMaxDepth
if not dDepth or dSawMaxDepth > dDepth - 10 * GEO.EPS_SMALL then
return Cutting.Name, dSawDiam, dSawThick, dSawMaxDepth
end
end
end
end