DataWall :

- correzioni per togliere tabs con pulitura spigoli che richiedono la rimozione degli sfridi.
This commit is contained in:
DarioS
2021-04-20 09:31:35 +02:00
parent a627203479
commit 8d865b4deb
2 changed files with 11 additions and 5 deletions
+10 -4
View File
@@ -1,4 +1,4 @@
-- ProcessFreeContour.lua by Egaltech s.r.l. 2021/03/24
-- ProcessFreeContour.lua by Egaltech s.r.l. 2021/04/13
-- Gestione calcolo profilo libero per Pareti
-- Tabella per definizione modulo
@@ -441,6 +441,7 @@ local function GetTunnelDimension( nId, nPartId, nAddGrpId)
EgtMove( nSurfInt, Point3d(0,0,-2*GEO.EPS_SMALL) - ORIG(), GDB_RT.GLOB)
-- mi faccio dare il contorno della superfice e la ricreo in modo più corretto
local nIdCont, nIdNum = EgtExtractSurfTmLoops( nSurfInt, nAddGrpId)
if not nIdCont then return end
-- elimino le entità allineate dello stesso tipo
EgtMergeCurvesInCurveCompo( nIdCont, 2*GEO.EPS_SMALL)
EgtErase(nSurfInt)
@@ -981,9 +982,10 @@ local function AddMillCorner( nTypeConeCut, vFace, Proc, nRawId, b3Raw,
nFacCnt = EgtSurfTmFacetCount( nNewProc)
nFacInd = nFacCnt - 1
else
local sErr = 'Error : cannot create base surface'
EgtOutLog( sErr)
return false, sErr
return true
--local sErr = 'Error : cannot create base surface'
--EgtOutLog( sErr)
--return false, sErr
end
else
bMakeLocSurf = true
@@ -1133,6 +1135,8 @@ local function AddMillings( sMilling, vFace, Proc, nRawId, b3Raw, nConeCut, nAdd
EgtSetMachiningParam( MCH_MP.LEAVETAB, false)
bNotThrou = true
end
-- tolgo i Tabs se devo rimuovere lo sfrido
if nConeCut == 1 then EgtSetMachiningParam( MCH_MP.LEAVETAB, false) end
-- aggiungo geometria
EgtSetMachiningGeometry( {{ Proc.Id, vFace[i].Fac}})
local dSal = 0
@@ -1186,6 +1190,8 @@ local function AddMillings( sMilling, vFace, Proc, nRawId, b3Raw, nConeCut, nAdd
EgtSetMachiningParam( MCH_MP.LEAVETAB, false)
bNotThrou = true
end
-- tolgo i Tabs se devo rimuovere lo sfrido
if nConeCut == 1 then EgtSetMachiningParam( MCH_MP.LEAVETAB, false) end
-- aggiungo geometria
local vGeom = {{ Proc.Id, vFace[i].Fac}}
local dSal = EgtIf( ( vFace[i].Type & 2) ~= 0, vFace[i].Whisk - vFace[i].Len, 0)