- piccole correzioni a WallExec

- in LapJoint -> MakeByPocketing aggiunta forzatura tasche chiuse se la lavorazione potrebbe danneggiare  i pezzi limitrofi
This commit is contained in:
luca.mazzoleni
2023-08-23 12:24:45 +02:00
parent 4a5c213de6
commit 756d58b3e4
3 changed files with 96 additions and 7 deletions
+5 -6
View File
@@ -672,7 +672,7 @@ local function SetMirroredFeatures( vProc, b3Raw)
-- raccolgo le tasche compatibili
if WD.DOUBLE_HEAD_POCKET and
(
( Proc.TopologyLongName == 'Rabbet-Through-RightAngles-Parallel-2' and ( Proc.AffectedFaces.Front or Proc.AffectedFaces.Back)) or
( Proc.TopologyLongName == 'Rabbet-Through-RightAngles-Parallel-2' and Proc.AffectedFaces.Left and Proc.AffectedFaces.Right) or
( Proc.TopologyLongName == 'Groove-Through-RightAngles-Parallel-3' and ( not Proc.AffectedFaces.Bottom and Proc.AffectedFaces.Left and Proc.AffectedFaces.Right)) or
( Proc.TopologyLongName == 'Groove-Blind-RightAngles-Parallel-3') or
( Proc.TopologyLongName == 'Groove-Blind-RightAngles-Parallel-4') or
@@ -699,7 +699,7 @@ local function SetMirroredFeatures( vProc, b3Raw)
table.sort( vPockets, SortFeaturesForMirror)
table.sort( vDrillings, SortFeaturesForMirror)
-- accoppio le groove passanti rivolte verso Z+
-- accoppio le tasche
local nCurrentPocket = 1
while nCurrentPocket <= #vPockets do
local Proc = vPockets[nCurrentPocket]
@@ -808,7 +808,7 @@ local function SetMirroredFeatures( vProc, b3Raw)
-- scrivo i parametri nella lavorazione
-- 2: specchiatura in Y
Proc.Double = 2
Proc.MirrorId = ProcMirror.Id
Proc.Mirror = ProcMirror
-- posizione Y dell'asse di specchiatura
Proc.MirrorAx = dYMirrorAx
-- Offset Z tra le feature
@@ -861,7 +861,7 @@ local function SetMirroredFeatures( vProc, b3Raw)
-- scrivo i parametri nella lavorazione
-- 2: specchiatura in Y
Proc.Double = 2
Proc.MirrorId = ProcMirror.Id
Proc.Mirror = ProcMirror
-- posizione Y dell'asse di specchiatura
Proc.MirrorAx = dYMirrorAx
-- rimuovo dalla lista le groove già assegnate
@@ -944,7 +944,6 @@ function WallExec.ProcessFeatures()
-------
-- LAVORAZIONI IN DOPPIO - QUI INSERIRE:
-- ELIMINAZIONE LAVORAZIONI MIRROR IN BASE A SETTAGGIO MACHININGTODELETE IN PROC
-- VERIFICA E UPDATE NOTE PER LAVORAZIONI IN CUI SI CONTROLLA SE I PERCORSI SONO SPECCHIATI
-------
-- setto quali sono le lavorazioni da disattivare perchè specchiate di lavorazioni in doppio
@@ -954,7 +953,7 @@ function WallExec.ProcessFeatures()
if Proc.Double and Proc.Double > 0 then
for j = 1, #vProc do
local ProcMirror = vProc[j]
if Proc.MirrorId == ProcMirror.Id then
if Proc.Mirror.Id == ProcMirror.Id then
-- per i fori l'operazione si basa sulla geometria ausiliaria
if Proc.TopologyLongName == 'DRILLING' then
local AuxId = EgtGetInfo( ProcMirror.Id, 'AUXID', 'i') or 0