DataBeam :

- aggiunta gestione fori aggiuntivi a feature con diametro definito da UserParam di TS3.

LuaLibs/ProcessDrill.lua

@@ -1,4 +1,4 @@
--- ProcessDrill.lua by Egaltech s.r.l. 2020/05/23
+-- ProcessDrill.lua by Egaltech s.r.l. 2020/06/02
 -- Gestione calcolo forature per Travi
 
 -- Tabella per definizione modulo
@@ -27,7 +27,7 @@ function ProcessDrill.IsHeadFeature( Proc, b3Raw, dCurrOvmH)
       return false
    end
    -- recupero e verifico l'entità foro
-   local AuxId = EgtGetInfo( Proc.Id, 'AUXID', 'i') or 0
+   local AuxId = EgtGetInfo( Proc.Id, 'AUXID', 'i')
    if AuxId then AuxId = AuxId + Proc.Id end
    if not AuxId  or  EgtGetType( AuxId) ~= GDB_TY.CRV_ARC then
       return false
@@ -53,7 +53,7 @@ function ProcessDrill.IsTailFeature( Proc, b3Raw)
       return false
    end
    -- recupero e verifico l'entità foro
-   local AuxId = EgtGetInfo( Proc.Id, 'AUXID', 'i') or 0
+   local AuxId = EgtGetInfo( Proc.Id, 'AUXID', 'i')
    if AuxId then AuxId = AuxId + Proc.Id end
    if not AuxId  or  EgtGetType( AuxId) ~= GDB_TY.CRV_ARC then
       return false
@@ -70,6 +70,25 @@ function ProcessDrill.IsTailFeature( Proc, b3Raw)
    end 
 end
 
+---------------------------------------------------------------------
+-- Recupero dati foro e adattamento se speciale
+function ProcessDrill.GetData( Proc, b3Raw)
+   -- verifico se foro da adattare
+   if EgtExistsInfo( Proc.Id, 'DiamUser') then
+      local AuxId = EgtGetInfo( Proc.Id, 'AUXID', 'i')
+      if AuxId then AuxId = AuxId + Proc.Id end
+      if AuxId and EgtGetType( AuxId) == GDB_TY.CRV_ARC and BD.USER_HOLE_DIAM and BD.USER_HOLE_DIAM > 1 then
+         EgtModifyArcRadius( AuxId, BD.USER_HOLE_DIAM / 2)
+      end
+   end
+   -- recupero diametro
+   local dDiam = EgtGetInfo( Proc.Id, 'P12', 'd') or 0
+   -- recupero faccia di entrata e uscita
+   local nFcs = EgtGetInfo( Proc.Id, 'FCS', 'i') or 0
+   local nFce = EgtGetInfo( Proc.Id, 'FCE', 'i') or 0
+   return dDiam, nFcs, nFce
+end
+
 ---------------------------------------------------------------------
 -- Verifica se da lavorare in due metà
 function ProcessDrill.Split( Proc, b3Raw)