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

Feature/Ticket#890: -manca AuxId della RidgeLap

Browse Source
This commit is contained in:
luca.mazzoleni
2022-11-15 10:36:42 +01:00
parent 6e0d6c7ea7
commit 24faf57e49
2 changed files with 71 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files
LuaLibs/ProcessFreeContour.lua
+7 -4
View File
@@ -309,8 +309,8 @@ local function MakeByMill( Proc, nPhase, nRawId, nPartId, dOvmHead)
end
local bStripOnSide = false
if bCross then
-- se chiamata da SimpleScarf il codolo è sempre attivo
if dDimStrip > 10 * GEO.EPS_SMALL and ( nStep > 1 or ( bDown and b3Aux:getDimX() > 0.5 * b3Raw:getDimX()) or Proc.Prc == 70) then
-- se chiamata da SimpleScarf o RidgeLap il codolo è sempre attivo
if dDimStrip > 10 * GEO.EPS_SMALL and ( nStep > 1 or ( bDown and b3Aux:getDimX() > 0.5 * b3Raw:getDimX()) or Proc.Prc == 70 or Proc.Prc == 30) then
-- devo lasciare un codolo
local dExtraCham = EgtIf( nChamfer > 0, 2, 0)
dDepth = EgtIf( Proc.Prc == 70, dDepth - dDimStrip - dDepthCham - dExtraCham, dDepth - dDimStrip)
@@ -322,8 +322,8 @@ local function MakeByMill( Proc, nPhase, nRawId, nPartId, dOvmHead)
end
local bIsDepthReduced = false
-- se parametro beamdata forza codolo in centro e lavorazione orizzontale e se larghezza trave è sufficientemente larga
-- se chiamata da SimpleScarf il codolo è sempre attivo
if BD.DIM_TO_CENTER_STRIP and BD.DIM_TO_CENTER_STRIP > 10 * GEO.EPS_SMALL and ( nStep > 1 or Proc.Prc == 70) and
-- se chiamata da SimpleScarf o RidgeLap il codolo è sempre attivo
if BD.DIM_TO_CENTER_STRIP and BD.DIM_TO_CENTER_STRIP > 10 * GEO.EPS_SMALL and ( nStep > 1 or Proc.Prc == 70 or Proc.Prc == 30) and
bCanDouble and b3Raw:getDimY() > BD.DIM_TO_CENTER_STRIP - 0.1 then
nDouble = 2
dDepth = min( ( b3Raw:getDimY() - dDimStrip) * 0.5, dMaxDepth)
@@ -787,6 +787,9 @@ function ProcessFreeContour.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
if Proc.Prc == 70 then
Q_DEPTH_CHAMFER = 'Q01'
Q_DIM_STRIP = 'Q02'
elseif Proc.Prc == 30 then
Q_DEPTH_CHAMFER = 'Q01'
Q_DIM_STRIP = 'Q02'
end
-- recupero la tipologia
local bPocket = ( EgtGetInfo( Proc.Id, 'PCKT', 'i') == 1)