DataWall :

- modifiche per nailing.
This commit is contained in:
Dario Sassi
2021-03-22 14:55:27 +00:00
parent 6a5662ae65
commit a8f3c1e0be
+5 -1
View File
@@ -1763,8 +1763,10 @@ local function MakeByNail( Proc, nRawId, b3Raw)
local vtExtr = EgtCurveExtrusion( AuxId, GDB_RT.GLOB)
local b3Aux = EgtGetBBoxGlob( AuxId, GDB_BB.STANDARD)
local bToolInv = ( vtExtr:getZ() < -0.1)
local nCntData = EgtGetInfo( Proc.Id, 'CNT_DATA', 'i') or 0
local dCntPar = EgtGetInfo( Proc.Id, 'CNT_PAR', 'd') or 100
-- recupero la lavorazione
local sNailing = WM.FindNailing( 11)
local sNailing = WM.FindNailing( nCntData)
if not sNailing then
local sErr = 'Error : nailing not found in library'
EgtOutLog( sErr)
@@ -1791,6 +1793,8 @@ local function MakeByNail( Proc, nRawId, b3Raw)
EgtSetMachiningParam( MCH_MP.DEPTH, 10)
-- assegno lato di lavoro
EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.CENTER)
-- assegno parametro a note utente
EgtSetMachiningParam( MCH_MP.USERNOTES, 'Par='..dCntPar..';')
-- eseguo
if not EgtApplyMachining( true, false) then
local _, sErr = EgtGetLastMachMgrError()