Definizione Parametro Q04=1 per esecuzione del solo contorno di un foro NON passante

LuaLibs/BeamExec.lua

@@ -164,6 +164,9 @@ EgtOutLog( ' BeamExec started', 1)
 EgtMdbSetGeneralParam( MCH_GP.MAXDEPTHSAFE, BD.COLL_SIC)
 EgtMdbSave()
 
+-- variabili assegnazione parametri Q
+local Q_ONLY_CONTOUR = 'Q04' -- i
+
 -------------------------------------------------------------------------------------------------------------
 local function IsHeadFeature( Proc, b3Raw, dCurrOvmH)
    -- feature sempre di testa o coda per il gruppo
@@ -1507,8 +1510,13 @@ local function AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, bN
       bOk, sErr = Chamfer.Make( Proc, nPhase, nRawId, nPartId)
    -- se foratura ( 3/4-040-X)
    elseif Drill.Identify( Proc) then
-      -- esecuzione foratura
-      bOk, sErr = Drill.Make( Proc, nPhase, nRawId, nPartId)
+      -- Se impostata Q04 = 1 forza la contornatura
+      if ( EgtGetInfo( Proc.Id, Q_ONLY_CONTOUR, 'i') == 1) then
+         bOk, sErr = FreeContour.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
+      else
+         -- esecuzione foratura
+         bOk, sErr = Drill.Make( Proc, nPhase, nRawId, nPartId)
+      end
    -- se giunzione francese ( 1/2-035-X)
    elseif FrenchRidgeLap.Identify( Proc) then
       -- esecuzione giunzione francese