DataWall :

- aggiunta gestione speciale forature orizzonatli per sort ad hoc
- in foratura aggiunta gestione flag Q01 per forzare solo contornatura.

LuaLibs/WProcessDrill.lua

@@ -1,8 +1,10 @@
--- WProcessDrill.lua by Egaltech s.r.l. 2022/01/12
+-- WProcessDrill.lua by Egaltech s.r.l. 2022/01/20
 -- Gestione calcolo forature per Pareti
 -- 2021/08/29 DS Se foratura di fianco setto flag per farla dopo i tagli.
 -- 2021/12/04 DS Modifiche per forature speciali lungo Y.
 -- 2022/01/12 DS Se con fresatura richiedo che l'utensile possa lavorare di testa.
+-- 2022/01/19 DS Forature orizzontali lunghe con nome LhDrill_.
+-- 2022/01/20 DS Aggiunta gestione Q01 (flag forzatura solo contornatura).
 
 -- Tabella per definizione modulo
 local WPD = {}
@@ -16,6 +18,10 @@ EgtOutLog( ' WProcessDrill started', 1)
 local WD = require( 'WallData')
 local WM = require( 'WMachiningLib')
 
+-- Parametri Q
+local sContourOnly = 'Q01'       -- 0=no, 1=si
+
+
 ---------------------------------------------------------------------
 -- Riconoscimento della feature
 function WPD.Identify( Proc)
@@ -252,10 +258,12 @@ function WPD.Make( Proc, nRawId, b3Raw)
    if Proc.Fcs == 0 then bToInvert = true end
    -- se richiesta inversione, inverto versore di riferimento
    if bToInvert then vtExtr = - vtExtr end
-   -- recupero la lavorazione
+   -- recupero eventuale flag per fare sola contornatura
+   local nContourOnly = ( EgtGetInfo( Proc.Id, sContourOnly, 'i') or 0)
+   -- recupero la lavorazione (foratura/svuotatura oppure contornatura)
    local sDrilling, nType
    local sHead
-   if dDiam < 200 then
+   if nContourOnly ~= 1 then
       if WD.HOR_DRILL_Y_SPLIT and AreSameOrOppositeVectorApprox( vtExtr, Y_AX()) then
          local dExtrY = vtExtr:getY()
          if not bOpen or abs( Proc.Flg) == 2 then
@@ -338,7 +346,7 @@ function WPD.Make( Proc, nRawId, b3Raw)
       end
    end
    -- inserisco la lavorazione
-   local sName = 'Drill_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
+   local sName = EgtIf( sHead == 'H5' or sHead == 'H6', 'LhDrill_', 'Drill_') .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
    local nMchId = EgtAddMachining( sName, sDrilling)
    if not nMchId then
       local sErr = 'Error adding machining ' .. sName .. '-' .. sDrilling