DataBeam :

- aggiunta a ProcessLapJoint la gestione delle feature BlockHausHalfLap a 2 e 4 scassi
- in ProcessMark aggiunta la gestione dei testi.

LuaLibs/ProcessMark.lua

@@ -1,4 +1,4 @@
--- ProcessMark.lua by Egaltech s.r.l. 2019/11/04
+-- ProcessMark.lua by Egaltech s.r.l. 2020/01/11
 -- Gestione calcolo marcatura per Travi
 
 -- Tabella per definizione modulo
@@ -22,9 +22,14 @@ end
 ---------------------------------------------------------------------
 -- Classificazione della feature
 function ProcessMark.Classify( Proc)
-   -- recupero il versore estrusione
-   local vtN = EgtCurveExtrusion( Proc.Id, GDB_ID.ROOT)
-   -- verifico sia una curva
+   -- recupero il versore estrusione o normale se testo
+   local vtN
+   if EgtGetType( Proc.Id) ~= GDB_TY.EXT_TEXT then
+      vtN = EgtCurveExtrusion( Proc.Id, GDB_ID.ROOT)
+   else
+      vtN = EgtTextNormVersor( Proc.Id, GDB_ID.ROOT)
+   end
+   -- verifico sia una curva/testo
    if not vtN then
       return false
    end
@@ -40,8 +45,13 @@ function ProcessMark.Make( Proc, nPhase, nRawId, nPartId)
    local AuxId = EgtGetInfo( Proc.Id, 'AUXID', 'i')
    if AuxId then AuxId = AuxId + Proc.Id end
    -- recupero i dati della marcatura
-   local vtExtr = EgtCurveExtrusion( Proc.Id, GDB_RT.GLOB)
-   -- verifico sia una curva
+   local vtExtr
+   if EgtGetType( Proc.Id) ~= GDB_TY.EXT_TEXT then
+      vtExtr = EgtCurveExtrusion( Proc.Id, GDB_RT.GLOB)
+   else
+      vtExtr = EgtTextNormVersor( Proc.Id, GDB_ID.ROOT)
+   end
+   -- verifico sia una curva/testo
    if not vtExtr then
       local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' Mark with geometry type not accepted'
       EgtOutLog( sErr)