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

3dPrinting :

Browse Source 
- corretto errore ingressi e uscite setti.
This commit is contained in:
SaraP
2023-10-02 14:20:42 +02:00
parent b610f1f5e1
commit d343e36e77
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
LuaLibs/CalcToolPath.lua
+5 -4
View File
@@ -1397,12 +1397,11 @@ local function VerifyRibsLead( nId, nRibId, bInVsOut, nGrpTmp)
local nRibLoc = EgtCopyGlob( nRibId, nGrpTmp)
local vtDir = EgtMV( nRibLoc)
local dParCrv = 1
local dTol = 10 * GEO.EPS_SMALL
for dParCrv = 1, dParE do
local vtS = EgtUV( nLeadLoc, dParCrv - 1, 1)
local vtE = EgtUV( nLeadLoc, dParCrv, -1)
local dTol = 10 * GEO.EPS_SMALL
if AreSameVectorApprox( vtS, vtE) and vtS * vtDir < - 1 + GEO.EPS_SMALL then
local dLenCrv = EgtCurveCompoLength( nLeadLoc, dParCrv - 1)
if AreSameVectorApprox( vtS, vtE) and vtS * vtDir < - 1 + GEO.EPS_SMALL and dLenCrv > dStrand + GEO.EPS_SMALL then
local dDist = EgtPointCurveDist( EgtUP( nLeadLoc, dParCrv - 0.5), nRibLoc)
EgtCopyGlob( nLeadLoc, nGrpTmp)
if dDist < dStrand + GEO.EPS_SMALL then
@@ -1484,7 +1483,9 @@ local function FindCorrectRibLead( dPar, nRib, nCrvOffs, bLeadInvert, dLeadLen,
nOtherRib = EgtIf( bInVsOut, EgtGetNext( nLinkId), EgtGetPrev( nLinkId))
local nOrigRib1 = EgtGetInfo( nRib, KEY_ORIGINAL_RIB, 'i')
local nOrigRib2 = EgtGetInfo( nOtherRib, KEY_ORIGINAL_RIB, 'i')
if nOrigRib1 ~= nOrigRib2 then
local nSplitId1 = EgtGetInfo( nRib, KEY_SPLIT_ID, 'i') or 0
local nSplitId2 = EgtGetInfo( nOtherRib, KEY_SPLIT_ID, 'i') or 0
if nOrigRib1 ~= nOrigRib2 or ( nOrigRib1 == nOrigRib2 and nSplitId1 ~= nSplitId2) then
nOtherRib = nil
end
end