DataWall :

- In FreeContour a taglio di lama aggiunta gestione SCC per testa Gearbox.
This commit is contained in:
DarioS
2021-12-21 05:29:10 +01:00
parent 0f25503bde
commit 4d096c88ba
+8 -2
View File
@@ -1,6 +1,7 @@
-- ProcessFreeContour.lua by Egaltech s.r.l. 2021/11/15
-- ProcessFreeContour.lua by Egaltech s.r.l. 2021/12/10
-- Gestione calcolo profilo libero per Pareti
-- 2021/11/15 Penna e chiodature sono sempre riportate sulla faccia sopra anche se nel progetto sono sotto.
-- 2021/12/10 In taglio con lama aggiunta gestione SCC per testa Gearbox.
-- Tabella per definizione modulo
local WPF = {}
@@ -1612,6 +1613,7 @@ local function AddCuts( sCutting, vFace, Proc, nRawId, b3Raw, dSawThick)
EgtSetInfo( nMchId, 'Part', Proc.PartId)
local dSpeed = EgtGetMachiningParam( MCH_MP.SPEED)
local sHead = EgtTdbGetCurrToolParam( MCH_TP.HEAD)
local bGearbox = EgtGetInfo( EgtGetHeadId( sHead) or GDB_ID.NULL, 'Gearbox', 'b')
-- aggiungo geometria
EgtSetMachiningGeometry( { { Proc.Id, vFace[i].Fac}})
-- assegno affondamento
@@ -1654,7 +1656,11 @@ local function AddCuts( sCutting, vFace, Proc, nRawId, b3Raw, dSawThick)
end
EgtSetMachiningParam( MCH_MP.ENDADDLEN, dEal)
-- posizione braccio porta testa
EgtSetMachiningParam( MCH_MP.SCC, MCH_SCC.NONE)
if not bGearbox then
EgtSetMachiningParam( MCH_MP.SCC, MCH_SCC.NONE)
else
EgtSetMachiningParam( MCH_MP.SCC, MCH_SCC.ADIR_NEAR)
end
-- eseguo
if not EgtApplyMachining( true, false) then
-- provo a invertire direzione, lato di lavoro e attacco/uscita