Aggiunta macro <131 per fori da sotto. ( Non funzonante perchè la CalcInterpPlane blocca la generazione)

Masterwood-TF600KST.mlde

@@ -4,7 +4,7 @@
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '2.7d1'
+PP_VER = '2.7d2'
 MIN_MACH_VER = '2.7a1'
 
 -- DATI MACCHINA --

Masterwood-woodWOP.mlpe

@@ -182,6 +182,7 @@ function OnMachiningEnd()
             ptCen:toLoc( refPart)
             local dDiam = 2 * EgtArcRadius( nEntId)
             local dDepth = abs( EgtCurveThickness( nEntId))
+            -- fori da sopra
             if vtE:isSmall() or AreSameVectorApprox( vtE, Z_AX()) then
                PostOutput( '')
                PostOutput( '<102 \\BohrVert\\')
@@ -191,6 +192,17 @@ function OnMachiningEnd()
                PostOutput( 'TI="' .. EmtLenToString( dDepth, EMT.DECNUM) .. '"')
                PostOutput( 'DU="' .. EmtLenToString( dDiam, EMT.DECNUM) .. '"')
                PostOutput( 'MNM="' .. EMT.MCHNAME .. '"')
+            -- fori da sotto
+            elseif AreSameVectorApprox( vtE, -Z_AX()) then
+               PostOutput( '')
+               PostOutput( '<131 \\UfluBohr\\')
+               PostOutput( 'XA="' .. EmtLenToString( ptCen:getX(), EMT.DECNUM) .. '"')
+               PostOutput( 'YA="' .. EmtLenToString( ptCen:getY(), EMT.DECNUM) .. '"')
+               PostOutput( 'DU="' .. EmtLenToString( dDiam, EMT.DECNUM) .. '"')
+               PostOutput( 'TI="' .. EmtLenToString( dDepth, EMT.DECNUM) .. '"')
+               PostOutput( 'BM="SS"')
+               PostOutput( 'MNM="' .. EMT.MCHNAME .. '"')
+            -- fori orizzontali
             else
                PostOutput( '')
                PostOutput( '<103 \\BohrHoriz\\')