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

3dPrinting 2.7d1 :

Browse Source 
- modifiche per nuova modalità di stampa dei primi layers nel caso a spirale.
This commit is contained in:
SaraP
2025-04-22 15:10:18 +02:00
parent 000bd0091f
commit bcaf1c56a4
6 changed files with 138 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files
LuaLibs/RunCalcSolids.lua
+47 -13
View File
@@ -38,6 +38,14 @@ local function CalcSectionParams( dStrand, dH)
return dBevelX, dBevelY
end
----------------------------------------------------------------------
local function CreateStandardSolid( nCrvId, nSolidGrp, LayerParams, dStrand)
local dBevelX, dBevelY = CalcSectionParams( dStrand, LayerParams.dLayHeight)
local nSrfId = EgtSurfTmRectSwept( nSolidGrp, dStrand, LayerParams.dLayHeight, dBevelX, dBevelY, nCrvId, GDB_RSCT.BEVEL, s_dTol)
return nSrfId
end
---------------------------------------------------------------------
local function CreateSection( ptS, vtDir, dStrand, dH, vtSlicing, nSolidGrp)
@@ -121,6 +129,11 @@ local function CreateSpiralVaseSolid( nCrvId, nSolidGrp, LayerParams, dStrand)
local ptE = EgtEP( nCrvId, GDB_ID.ROOT)
local vtE = EgtEV( nCrvId, GDB_ID.ROOT)
local dDelta = ( ptE - ptS) * LayerParams.vtSlicing
-- se non è vero spiral vase, chiamo funzione standard
if dDelta < GEO.EPS_SMALL then
return CreateStandardSolid( nCrvId, nSolidGrp, LayerParams, dStrand)
end
-- appiattisco la curva
local nCrvCopy = EgtCopyGlob( nCrvId, nGrpTmp)
EgtModifyCurveExtrusion( nCrvCopy, LayerParams.vtSlicing, GDB_RT.GLOB)
@@ -187,14 +200,6 @@ local function CreateSpiralVaseSolid( nCrvId, nSolidGrp, LayerParams, dStrand)
return EgtSurfTmByTriangles( nSolidGrp, { nSrfId, nCap1, nCap2})
end
----------------------------------------------------------------------
local function CreateStandardSolid( nCrvId, nSolidGrp, LayerParams, dStrand)
local dBevelX, dBevelY = CalcSectionParams( dStrand, LayerParams.dLayHeight)
local nSrfId = EgtSurfTmRectSwept( nSolidGrp, dStrand, LayerParams.dLayHeight, dBevelX, dBevelY, nCrvId, GDB_RSCT.BEVEL, s_dTol)
return nSrfId
end
--------------------------------------------------------------------------------------
local function CreateSolid( nCrvId, nSolidGrp, LayerParams, dStrand)
if LayerParams.bSpiralVase then
@@ -430,12 +435,41 @@ function RunCalcSolids.Exec()
nSolidGrpId = EgtGroup( nCrvGrpId)
EgtSetName( nSolidGrpId, SOLID_GRP)
EgtSetLevel( nSolidGrpId, GDB_LV.TEMP)
-- scorro le curve del percorso utensile
local nId = EgtGetFirstInGroup( nTPathGrpId)
while nId do
local bOk = CreateSolidFromCurve( nId, nSolidGrpId, LayerParams, nLayer)
nId = EgtGetNext( nId)
-- scorro le curve del percorso utensile per creare i solidi
local vIds = EgtGetAllInGroup( nTPathGrpId)
if LayerParams.bSpiralVase and #vIds > 2 then
-- nel caso a spirale gestione speciale per unire i tratti dei primi layers che sono stati spezzati per feed variabile
local bHasDelta = EgtExistsInfo( vIds[#vIds], KEY_FEED_COEFF)
if bHasDelta then
-- prima curva è a quota costante
CreateSolidFromCurve( vIds[1], nSolidGrpId, LayerParams, nLayer)
-- le rimanenti curve possono essere unite
local vNewIds = EgtTableFill( vIds[2], #vIds-1)
local nNewCrv = EgtCurveCompo( nSolidGrpId, vNewIds, false)
local dStrand = EgtGetInfo( vIds[2], KEY_CRV_STRAND, 'd') or LayerParams.dStrand
EgtSetInfo( nNewCrv, KEY_CRV_STRAND, dStrand)
EgtSetInfo( nNewCrv, KEY_TYPE, TYPE.OUTER_SHELL)
CreateSolidFromCurve( nNewCrv, nSolidGrpId, LayerParams, nLayer)
EgtErase( nNewCrv)
else
local vNewIds = EgtTableFill( vIds[1], #vIds-1)
local nNewCrv = EgtCurveCompo( nSolidGrpId, vNewIds, false)
local dStrand = EgtGetInfo( vIds[2], KEY_CRV_STRAND, 'd') or LayerParams.dStrand
EgtSetInfo( nNewCrv, KEY_CRV_STRAND, dStrand)
EgtSetInfo( nNewCrv, KEY_TYPE, TYPE.OUTER_SHELL)
CreateSolidFromCurve( nNewCrv, nSolidGrpId, LayerParams, nLayer)
EgtErase( nNewCrv)
CreateSolidFromCurve( vIds[#vIds], nSolidGrpId, LayerParams, nLayer)
end
else
-- caso standard
for i = 1, #vIds do
CreateSolidFromCurve( vIds[i], nSolidGrpId, LayerParams, nLayer)
end
end
else
bSolidsOk = true
break