Fresature a salire estese a groove cieche

This commit is contained in:
luca.mazzoleni
2023-11-16 09:39:33 +01:00
parent 760563e0f8
commit c04e97a01d
+12 -3
View File
@@ -32,6 +32,7 @@
-- 2023/10/02 Aggiunta segnalazione lavorazione tipo Side non trovata.
-- 2023/11/14 Aggiunta tasche in doppio.
-- Miglioramenti sostanziali nella gestione delle tasche.
-- 2023/11/16 Fresature a salire estese a groove cieche.
-- Tabella per definizione modulo
local WPL = {}
@@ -1439,7 +1440,15 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, nFacet, GDB_ID.ROOT)
local dElev = WL.GetFaceElevation( Proc.Id, nFacet, nRawId)
-- dati della faccia più orizzontale
local nOtherFacet = abs( nFacet - 1)
local nOtherFacet
local dMinZ = 1
for i = 1, Proc.Fct do
local dCurrentZ = Proc.Face[i].VtN:getZ()
if dCurrentZ < dMinZ then
nOtherFacet = Proc.Face[i].Id
dMinZ = dCurrentZ
end
end
local vtN2 = EgtSurfTmFacetNormVersor( Proc.Id, nOtherFacet, GDB_ID.ROOT)
local dElevOtherFacet = WL.GetFaceElevation( Proc.Id, nOtherFacet, nRawId)
-- se lap joint 2 facce dal basso e angolo negativo
@@ -1892,12 +1901,12 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
-- se la groove è rivolta verso il basso (-85°) lavoro a salire con step negativo
local bUpwardMilling = false
if Proc.Fct == 2 and vtN2:getZ() < -0.996 then
if vtN2:getZ() < -0.996 then
bUpwardMilling = true
end
-- step extra in caso di doppio con mix rabbet dal basso e dall'alto, per eliminare la lamina che potrebbe rimanere
if Proc.Double and Proc.Double == 2 and Proc.Topology == 'Rabbet' and
if Proc.Double and Proc.Double == 2 and ( Proc.Topology == 'Rabbet' or Proc.Topology == 'Groove') and
not ( Proc.AffectedFaces.Bottom and Proc.Mirror.AffectedFaces.Bottom) and not ( Proc.AffectedFaces.Top and Proc.AffectedFaces.Bottom) then
-- determino a quale delle due feature applicare la lavorazione
local bProcVsMirrorToCopy = true