3dPrinting :

- messa tolleranza di interpolazione dopo slicing a 0.02 (si dovrà mettere 0.02 dopo rilascio nuovo EgtCAM5)
- nella CalcRibsLink impostato vettore estrusione sul collegamento aggiunto (fondamentale per non cambiare inclinazione dell'estrusore).
This commit is contained in:
DarioS
2022-09-21 12:54:51 +02:00
parent f1490bfaf0
commit 11457644aa
2 changed files with 8 additions and 7 deletions
+7 -6
View File
@@ -1,4 +1,4 @@
-- CalcToolPath.lua by Egaltech s.r.l. 2022/08/29
-- CalcToolPath.lua by Egaltech s.r.l. 2022/09/21
-- Calcolo percorsi di lavoro per Stampa 3d
-- Tabella per definizione modulo
@@ -313,7 +313,7 @@ local function VerifyRibsLink( nLinkId, nCurr, nNext, dStrand)
end
--------------------------------------------------------------------
local function CalcRibsLink( nCurr, nNext, nLoopGrp, dStrand, bForceLink)
local function CalcRibsLink( nCurr, nNext, nLoopGrp, dStrand, bForceLink, vtSlicing)
local ptS = EgtEP( nCurr)
local ptE = EgtSP( nNext)
@@ -383,6 +383,7 @@ local function CalcRibsLink( nCurr, nNext, nLoopGrp, dStrand, bForceLink)
local bValid = VerifyRibsLink( nLinkId, nCurr, nNext, dStrand)
if bValid then
EgtSetInfo( nLinkId, KEY_TYPE, TYPE.RIB)
EgtModifyCurveExtrusion( nLinkId, vtSlicing, GDB_RT.GLOB)
EgtRelocateGlob( nLinkId, nCurr, GDB_IN.AFTER)
else
EgtErase( nLinkId)
@@ -763,15 +764,15 @@ local function CalcRibsToolPath( nCrvGrp, nTpathGrpId, LayerParams, dCorrZ)
-- collego le passate di una stessa costolatura
for i = 1, #tabRibs do
for j = 1, #tabRibs[i] - 1 do
CalcRibsLink( tabRibs[i][j], tabRibs[i][j + 1], nLoopGrp, LayerParams.dStrand, true)
CalcRibsLink( tabRibs[i][j], tabRibs[i][j + 1], nLoopGrp, LayerParams.dStrand, true, LayerParams.vtSlicing)
if not bSpecialCase then
-- creo link fittizio per eliminare tratto corrispondente sulla curva di offset
local nFakeLink = CalcRibsLink( tabRibs[i][j + 1], tabRibs[i][j], nLoopGrp, LayerParams.dStrand, false)
local nFakeLink = CalcRibsLink( tabRibs[i][j + 1], tabRibs[i][j], nLoopGrp, LayerParams.dStrand, false, LayerParams.vtSlicing)
EgtErase( nFakeLink)
end
end
if bSpecialCase then
local nFakeLink = CalcRibsLink( tabRibs[i][#tabRibs[i]], tabRibs[i][1], nLoopGrp, LayerParams.dStrand, false)
local nFakeLink = CalcRibsLink( tabRibs[i][#tabRibs[i]], tabRibs[i][1], nLoopGrp, LayerParams.dStrand, false, LayerParams.vtSlicing)
EgtErase( nFakeLink)
end
end
@@ -779,7 +780,7 @@ local function CalcRibsToolPath( nCrvGrp, nTpathGrpId, LayerParams, dCorrZ)
if LayerParams.bRibsLink then
for i = 1, #tabRibs - 1 do
local nCnt = #tabRibs[i]
CalcRibsLink( tabRibs[i][nCnt], tabRibs[i + 1][1], nLoopGrp, LayerParams.dStrand, false)
CalcRibsLink( tabRibs[i][nCnt], tabRibs[i + 1][1], nLoopGrp, LayerParams.dStrand, false, LayerParams.vtSlicing)
end
end