Piccole modifiche macro chiodatura

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

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