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

- In LapJoint -> MakeStaircaseStep correzioni al calcolo step orizzontali fresa

Browse Source
This commit is contained in:
luca.mazzoleni
2023-10-26 15:07:17 +02:00
parent d39148a9e8
commit 4e4a1eca4d
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
LuaLibs/ProcessLapJoint.lua
+7 -7
View File
@@ -5730,14 +5730,14 @@ local function MakeStaircaseStep( Proc, nRawId, b3Raw, b3Solid)
end
-- fresatura pedata per fare spazio alla lama
local dMillingDepth = dVTread - dSawMaxDepth + dMillDiam/2 - 10
local dMillingDepth = dVTread - dSawMaxDepth + 10
-- divido in passate orizzontali
local nHorizontalStepMilling = ceil( ( dMillingDepth - 100 * GEO.EPS_SMALL) / ( dMillDiam * 0.6))
local dHorizontalStepMilling = 0
if nHorizontalStepMilling > 1 then
dHorizontalStepMilling = ( dMillingDepth - dMillDiam * 0.6) / ( nHorizontalStepMilling - 1)
local nMillHorizontalSteps = ceil( ( dMillingDepth - 100 * GEO.EPS_SMALL) / ( dMillDiam * 0.6))
local dMillHorizontalStep = 0
if nMillHorizontalSteps > 1 then
dMillHorizontalStep = ( dMillingDepth - dMillDiam * 0.6) / ( nMillHorizontalSteps - 1)
end
for i = nHorizontalStepMilling, 1, -1 do
for i = nMillHorizontalSteps, 1, -1 do
-- inserisco la lavorazione
local sName = 'Mill_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
local nMchFId = EgtAddMachining( sName, sMilling)
@@ -5777,7 +5777,7 @@ local function MakeStaircaseStep( Proc, nRawId, b3Raw, b3Solid)
EgtSetMachiningParam( MCH_MP.LOPERP, 0)
end
-- imposto eventuale offset
EgtSetMachiningParam( MCH_MP.OFFSR, dVTread - dMillingDepth + i * dHorizontalStepMilling)
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