3dPrinting 2.7d1 :
- modifiche per nuova modalità di stampa dei primi layers nel caso a spirale.
This commit is contained in:
SaraP
+68
-15
@@ -19,6 +19,7 @@ local s_dApproxTol = 0.1
|
||||
local s_dHSafeWipe = 2
|
||||
local s_nCurrIdx
|
||||
local s_dSpiralVaseTanTol = 0.001
|
||||
local s_dSpralVaseFirstDelta = 30 -- lunghezza del tratto sul primo layer che va alzato
|
||||
|
||||
---------------------------------------------------------------------
|
||||
local function GetLayerParamsForToolPathCalc()
|
||||
@@ -2004,6 +2005,7 @@ local function SpiralVase( vLayIds, LayerParams)
|
||||
|
||||
local nOldId, nOldPathId
|
||||
local bFirst = true
|
||||
local nRealLayer = 1
|
||||
local nSlicingType = EgtGetInfo( s_nPartId, KEY_SLICING_TYPE, 'i')
|
||||
|
||||
-- copio ultimo layer
|
||||
@@ -2080,15 +2082,19 @@ local function SpiralVase( vLayIds, LayerParams)
|
||||
EgtSetColor( nNewEntId, EgtStdColor('GRAY'))
|
||||
|
||||
-- se primo layer
|
||||
if bFirst then
|
||||
if nRealLayer == 1 then
|
||||
-- mi sposto dell'altezza layer
|
||||
EgtMove( nNewEntId, LayerParams.dLayHeight * LayerParams.vtSlicing, GDB_RT.GLOB)
|
||||
-- modifico altezza ultimo tratto
|
||||
local dTrimPar = EgtCurveParamAtLength( nNewEntId, EgtCurveLength( nNewEntId) - s_dSpralVaseFirstDelta)
|
||||
local nNewPart = EgtSplitCurveAtParam( nNewEntId, dTrimPar)
|
||||
EgtSpiralizeCurveAlongExtrusion( nNewPart, 0.5 * LayerParams.dLayHeight)
|
||||
|
||||
-- eventuale lead in
|
||||
if LayerParams.nLeadInType ~= LEAD_TYPE.NONE then
|
||||
EgtTrimCurveStartAtLen( nNewEntId, LayerParams.dOffsetLP)
|
||||
AddLeadIn( nNewEntId, LayerParams, nTpathGrpId)
|
||||
end
|
||||
bFirst = false
|
||||
else
|
||||
local ptOld = EgtEP( nOldId, GDB_ID.ROOT)
|
||||
local ptNew = EgtSP( nNewEntId, GDB_ID.ROOT)
|
||||
@@ -2112,26 +2118,73 @@ local function SpiralVase( vLayIds, LayerParams)
|
||||
EgtSpiralizeCurveAlongGuide( nNewEntId, nGuideId)
|
||||
EgtErase( nGuideId)
|
||||
end
|
||||
EgtSpiralizeCurveAlongExtrusion( nNewEntId, LayerParams.dLayHeight)
|
||||
|
||||
-- modifica graduale del'altezza
|
||||
if nRealLayer == 2 then
|
||||
-- se seconda passata la prima metà deve essere a quota costante 0.5 * dLayHeight, la seconda metà deve salire gradualmente di 0.5 * dLayHeight
|
||||
EgtMove( nNewEntId, 0.5 * LayerParams.dLayHeight * LayerParams.vtSlicing, GDB_RT.GLOB)
|
||||
local nNewId = EgtSplitCurve( nNewEntId, 2)
|
||||
EgtSpiralizeCurveAlongExtrusion( nNewId + 1, 0.5 * LayerParams.dLayHeight)
|
||||
else
|
||||
EgtSpiralizeCurveAlongExtrusion( nNewEntId, LayerParams.dLayHeight)
|
||||
end
|
||||
end
|
||||
|
||||
-- approssimo la curva
|
||||
if nNewEntId then
|
||||
local ptS = EgtSP( nNewEntId, GDB_ID.ROOT)
|
||||
EgtApproxCurve( nNewEntId, GDB_CA.ARCS, s_dApproxTol)
|
||||
if EgtCurveIsClosed( nNewEntId) then
|
||||
EgtChangeClosedCurveStartPoint( nNewEntId, ptS, GDB_RT.GLOB)
|
||||
-- approssimo
|
||||
local vTPathsCrvs = EgtGetAllInGroup( nTpathGrpId)
|
||||
for i = 1, #vTPathsCrvs do
|
||||
local ptS = EgtSP( vTPathsCrvs[i], GDB_ID.ROOT)
|
||||
EgtApproxCurve( vTPathsCrvs[i], GDB_CA.ARCS, s_dApproxTol)
|
||||
if EgtCurveIsClosed( vTPathsCrvs[i]) then
|
||||
EgtChangeClosedCurveStartPoint( vTPathsCrvs[i], ptS, GDB_RT.GLOB)
|
||||
end
|
||||
end
|
||||
|
||||
nOldPathId = vEntIds[1]
|
||||
nOldId = nNewEntId
|
||||
nOldId = vTPathsCrvs[#vTPathsCrvs]
|
||||
|
||||
-- moltiplicatore per feed
|
||||
if nRealLayer == 2 then
|
||||
-- il primo tratto si trova a metà altezza rispetto allo strato precedente, quindi il coefficiente moltiplicativo è due
|
||||
EgtSetInfo( vTPathsCrvs[1], KEY_FEED_COEFF, 2)
|
||||
-- nel secondo tratto l'altezza è variabile quindi devo calcolare il coefficiente per ogni sottotratto
|
||||
local ptRef = EgtEP( vEntIds[1], GDB_ID.ROOT)
|
||||
local nFirst, nCnt = EgtExplodeCurveCompo( vTPathsCrvs[2])
|
||||
for nId = nFirst, nFirst + nCnt - 1 do
|
||||
local dZLoc
|
||||
if nSlicingType == SLICING_TYPE.VERTICAL then
|
||||
dZLoc = ( ( EgtEP( nId, GDB_ID.ROOT) - ptRef)) * LayerParams.vtSlicing
|
||||
else
|
||||
dZLoc = ( ( EgtEP( nId, GDB_ID.ROOT) - ptRef)) * LayerParams.vtSlicing - LayerParams.dLayHeight
|
||||
end
|
||||
local dFeedCoeff = LayerParams.dLayHeight / dZLoc
|
||||
EgtSetInfo( nId, KEY_FEED_COEFF, dFeedCoeff)
|
||||
end
|
||||
nOldId = nFirst + nCnt - 1
|
||||
elseif nRealLayer == 3 then
|
||||
-- solo la prima metà si trova ad un'altezza variabile rispetto allo strato precedente
|
||||
local nNewId = EgtSplitCurve( vTPathsCrvs[1], 2)
|
||||
local ptRef = EgtEP( vEntIds[1], GDB_ID.ROOT)
|
||||
local nFirst, nCnt = EgtExplodeCurveCompo( nNewId)
|
||||
for nId = nFirst, nFirst + nCnt - 1 do
|
||||
local dZLoc
|
||||
if nSlicingType == SLICING_TYPE.VERTICAL then
|
||||
dZLoc = ( EgtEP( nId, GDB_ID.ROOT) - ptRef) * LayerParams.vtSlicing + 0.5 * LayerParams.dLayHeight
|
||||
else
|
||||
dZLoc = ( EgtEP( nId, GDB_ID.ROOT) - ptRef) * LayerParams.vtSlicing - 0.5 * LayerParams.dLayHeight
|
||||
end
|
||||
|
||||
local dFeedCoeff = LayerParams.dLayHeight / dZLoc
|
||||
EgtSetInfo( nId, KEY_FEED_COEFF, dFeedCoeff)
|
||||
end
|
||||
nOldId = nNewId + 1
|
||||
end
|
||||
|
||||
nRealLayer = nRealLayer + 1
|
||||
-- aggiorno il box dei toolpath
|
||||
local b3Box = ComputeToolPathBox( nTpathGrpId)
|
||||
b3Tot:Add( b3Box)
|
||||
end
|
||||
|
||||
-- aggiorno il box dei toolpath
|
||||
local b3Box = ComputeToolPathBox( nTpathGrpId)
|
||||
b3Tot:Add( b3Box)
|
||||
|
||||
end
|
||||
|
||||
if EgtProcessEvents( EgtIf( PRINT, 300, 0) + nIdx / #vLayIds * 100, 0) == 1 then
|
||||
|
||||
Reference in New Issue
Block a user