From 7e8bc31bc09fcf326dc9cb39b95fdba0560b9768 Mon Sep 17 00:00:00 2001 From: "andrea.villa" Date: Tue, 7 Apr 2026 17:52:27 +0200 Subject: [PATCH] Piccole modifiche macro chiodatura --- Essetre-90480023_XS-MW.mlde | 4 ++-- Essetre-WALL.NUM.mlpe | 11 ++++++++--- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/Essetre-90480023_XS-MW.mlde b/Essetre-90480023_XS-MW.mlde index 5d650a1..ef3c062 100644 --- a/Essetre-90480023_XS-MW.mlde +++ b/Essetre-90480023_XS-MW.mlde @@ -5,10 +5,10 @@ -- Aggiunta controllo collisione con nuovi oggetti require( 'EmtGenerator') -EgtEnableDebug( true) +EgtEnableDebug( false) if not EmtModifyHeadAuxDirection then error( 'A newer version of the program is required (minimum 2.3j5)') end -PP_VER = '3.1d1_DEV9' +PP_VER = '3.1d1_DEV10' PP_NVER = '2.7.4.1' -- Parametri macchina diff --git a/Essetre-WALL.NUM.mlpe b/Essetre-WALL.NUM.mlpe index 027f527..ac25c62 100644 --- a/Essetre-WALL.NUM.mlpe +++ b/Essetre-WALL.NUM.mlpe @@ -257,7 +257,7 @@ function OnPathEnd() if EMT.HEAD == 'H21' or EMT.HEAD == 'H22' or EMT.HEAD == 'H23' then EmtOutput( 'G124 X'..EmtLenToString( EMT.NAIL_START_L1, 3)..' Y'..EmtLenToString( EMT.NAIL_START_L2, 3)..' Z'..EmtLenToString( EMT.NAIL_START_L3, 3).. ' B'..EmtLenToString( EMT.NAIL_END_L1, 3)..' C'..EmtLenToString( EMT.NAIL_END_L2, 3)..' EA'..EmtLenToString( dStep, 3)..' EB1'.. - ' W'..EmtLenToString( dSafeZ, 3)) + ' W'..EmtLenToString( dSafeZ, 3)..EMT.NAIL_END) else local sExtra = '' local bInvert = false @@ -709,8 +709,13 @@ function CalcInterpPlane() xOut = - ( yS - DeltaTabY - DimTabY) yOut = xS - DeltaTabX end - EMT.IPLGLSTR = ' EX'..EmtLenToString( xOut)..' EY'..EmtLenToString( yOut)..' EZ'..EmtLenToString( zOut).. - ' EA0'..' EB'..EgtNumToString( dAngV)..' EC'..EgtNumToString( dAngO)..' ED'..EgtNumToString( dAngO2) + + if IsNailingHead( EMT.HEAD) then + EMT.IPLGLSTR = ' EX'..EmtLenToString( xOut)..' EY'..EmtLenToString( yOut)..' EZ'..EmtLenToString( zOut) + else + EMT.IPLGLSTR = ' EX'..EmtLenToString( xOut)..' EY'..EmtLenToString( yOut)..' EZ'..EmtLenToString( zOut).. + ' EA0'..' EB'..EgtNumToString( dAngV)..' EC'..EgtNumToString( dAngO)..' ED'..EgtNumToString( dAngO2) + end EMT.IPLGL = true end