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

- In LapJoint -> MakeStaircaseStep aggiunti tagli di lama per pedata e alzata. Da verificare gli step

Browse Source
This commit is contained in:
luca.mazzoleni
2023-10-27 09:56:09 +02:00
parent 4e4a1eca4d
commit fdb897ec68
1 changed files with 35 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
LuaLibs/ProcessLapJoint.lua
+35 -5
View File
@@ -5729,7 +5729,7 @@ local function MakeStaircaseStep( Proc, nRawId, b3Raw, b3Solid)
end
end
-- fresatura pedata per fare spazio alla lama
-- fresatura della pedata per fare spazio alla lama
local dMillingDepth = dVTread - dSawMaxDepth + 10
-- divido in passate orizzontali
local nMillHorizontalSteps = ceil( ( dMillingDepth - 100 * GEO.EPS_SMALL) / ( dMillDiam * 0.6))
@@ -5779,11 +5779,11 @@ local function MakeStaircaseStep( Proc, nRawId, b3Raw, b3Solid)
-- imposto eventuale offset
EgtSetMachiningParam( MCH_MP.OFFSR, dVTread - dMillingDepth + ( i - 1) * dMillHorizontalStep)
-- se step verticale non presente, lo setto
local dVerticalStepMilling = EgtGetMachiningParam( MCH_MP.STEP, 'd')
if not dVerticalStepMilling or dVerticalStepMilling <= 10 * GEO.EPS_SMALL then
dVerticalStepMilling = 0.25 * dMillDiam
local dMillVerticalStep = EgtGetMachiningParam( MCH_MP.STEP, 'd')
if not dMillVerticalStep or dMillVerticalStep <= 10 * GEO.EPS_SMALL then
dMillVerticalStep = 0.25 * dMillDiam
end
EgtSetMachiningParam( MCH_MP.STEP, dVerticalStepMilling)
EgtSetMachiningParam( MCH_MP.STEP, dMillVerticalStep)
-- dichiaro non si generano sfridi per VMill
EgtSetMachiningParam( MCH_MP.USERNOTES, 'VMRS=0;')
-- eseguo
@@ -5795,6 +5795,36 @@ local function MakeStaircaseStep( Proc, nRawId, b3Raw, b3Solid)
-- eventuale segnalazione ingombro di testa o coda
UpdateEncumbrance( Proc, nRawId, b3Raw, b3Solid)
end
-- taglio di lama dell'alzata
-- calcolo direzione lavorazione per faceuse
local vtOrthoRiser = EgtIf( vtNRiser * Z_AX() > -GEO.EPS_SMALL, Z_AX(), -Z_AX())
-- divido in passate orizzontali
local nSawStepsRiser = ceil( ( dVRiser - 100 * GEO.EPS_SMALL) / ( dSawMaxDepth * 0.6)) --VEDERE SE GLI STEP DI TAGLIO SONO CORRETTI!!!
local dSawStepRiser = 0
if nSawStepsRiser > 1 then
dSawStepRiser = ( dVRiser - ( dSawMaxDepth * 0.6)) / ( nSawStepsRiser - 1)
end
for i = nSawStepsRiser, 1, -1 do
-- inserisco la lavorazione della faccia
local dCutRadialOffsetRiser = ( i - 1) * dSawStepRiser
local bOkSawRiser, sErr = Fbs.MakeOne( Proc.Id, nFacetRiser, sCutting, dSawDiam, vtOrthoRiser, nil, -dCutRadialOffsetRiser, 0, 0, 0, 0, nil, b3Raw)
end
-- taglio di lama della pedata
-- calcolo direzione lavorazione per faceuse
local vtOrtho = EgtIf( vtNRiser * Z_AX() > -GEO.EPS_SMALL, Z_AX(), -Z_AX())
-- divido in passate orizzontali
local nSawStepsTread = ceil( ( dVTread - 100 * GEO.EPS_SMALL) / ( dSawMaxDepth * 0.6))
local dSawStepTread = 0
if nSawStepsTread > 1 then
dSawStepTread = ( dVTread - ( dSawMaxDepth * 0.6)) / ( nSawStepsTread - 1)
end
for i = nSawStepsTread, 1, -1 do
-- inserisco la lavorazione della faccia
local dCutRadialOffsetTread = ( i - 1) * dSawStepTread
local bOkSawTread, sErr = Fbs.MakeOne( Proc.Id, nFacetTread, sCutting, dSawDiam, vtOrtho, nil, -dCutRadialOffsetTread, 0, 0, 0, 0, nil, b3Raw)
end
end
---------------------------------------------------------------------