DataBeam :

- modifiche a lavorazione FreeContour per gestire caso con fresa inclinata rispetto all'avanzamento.
This commit is contained in:
DarioS
2021-10-07 09:41:12 +02:00
parent 79585d689a
commit 08a8b3f829
+17 -15
View File
@@ -1,4 +1,4 @@
-- ProcessFreeContour.lua by Egaltech s.r.l. 2021/01/29
-- ProcessFreeContour.lua by Egaltech s.r.l. 2021/10/07
-- Gestione calcolo profilo libero per Travi
-- Tabella per definizione modulo
@@ -255,25 +255,27 @@ local function MakeByMill( Proc, nPhase, nRawId, nPartId, dOvmHead)
local nSide = 0
-- verifiche per affondamento ( possibili lavorazioni in doppio)
local bCross = false
if abs( vtExtr:getY()) > 0.707 then
if b3Aux:getDimY() > b3Raw:getDimY() - 1.0 then
bCross = true
dDepth = min( dDepth, b3Raw:getDimY())
end
if bDown then
nSide = -1
if abs( vtExtr:getX()) < 0.707 then
if abs( vtExtr:getY()) > abs( vtExtr:getZ()) then
if b3Aux:getDimY() > b3Raw:getDimY() - 1.0 then
bCross = true
dDepth = min( dDepth, b3Raw:getDimY() / abs( vtExtr:getY()))
end
if bDown then
nSide = -1
else
nSide = 1
end
else
nSide = 1
end
elseif abs( vtExtr:getZ()) > 0.707 then
if b3Aux:getDimZ() > b3Raw:getDimZ() - 1.0 then
bCross = true
dDepth = min( dDepth, b3Raw:getDimZ())
if b3Aux:getDimZ() > b3Raw:getDimZ() - 1.0 then
bCross = true
dDepth = min( dDepth, b3Raw:getDimZ() / abs( vtExtr:getZ()))
end
end
end
local dOriDepth = dDepth
local nDouble = 1
local bCanDouble = ( abs( vtExtr:getY()) > 0.707 and bCross)
local bCanDouble = ( abs( vtExtr:getY()) > abs( vtExtr:getZ()) and bCross)
local dDimStrip = BD.DIM_STRIP
if dDimStrip < 0 then
dDimStrip = EgtGetInfo( Proc.Id, Q_DIM_STRIP, 'd') or 0