OmagOFFICE 2.2h1 :

- richiesta licenza livello 22
- aggiunta gestione opzionale Ordine, Distinta e Nome in import CSV
- aggiunta gestione opzionale Ordine, Distinta e Nome in import DXF
- aggiunta gestione opzionale Ordine, Distinta e Nome in disegno parametrico pezzi
- aggiunta gestione opzionale Blocco e Numero Lastra in definizione grezzo.

SideEntityControl/SideEntityControlVM.vb

@@ -832,7 +832,8 @@ Public Class SideEntityControlVM
       if EgtCurveIsClosed( CurrLine) Then Return bOutLoop
 
       ' Delta angolare limite per tangenza
-      Const DELTA_ANG_TG As Double = 5.0
+      Const DELTA_ANG_TG_DEF As Double = 5.0 
+      Dim dDeltaAngTg As Double = GetMainPrivateProfileDouble(S_SIDES, K_DELTA_ANG_TG, DELTA_ANG_TG_DEF)
       ' Verifico se curva precedente mi permette di inclinare
       Dim bLastOk As Boolean = False
       Select EgtGetType(LastLine)
@@ -846,7 +847,7 @@ Public Class SideEntityControlVM
             ' Confronto direzioni per vedere se sono tangenti
             Dim dAngDeg As Double = GetAngle( vtLastEnd, vtCurrStart)
             ' verifico se l'angolo è significativo
-            bLastOk = ( dAngDeg > DELTA_ANG_TG)
+            bLastOk = ( dDeltaAngTg < EPS_ANG_SMALL Or dAngDeg > dDeltaAngTg)
          Case Else
             EgtOutLog("Error in Compo Outloop: found an entity that is not a line or a arc")
       End Select
@@ -864,7 +865,7 @@ Public Class SideEntityControlVM
             ' Confronto direzioni per vedere se sono tangenti
             Dim dAngDeg As Double = GetAngle( vtCurrEnd, vtNextStart)
             ' verifico se l'angolo è significativo
-            bNextOk = ( dAngDeg > DELTA_ANG_TG)
+            bNextOk = ( dDeltaAngTg < EPS_ANG_SMALL Or dAngDeg > dDeltaAngTg)
          Case Else
             EgtOutLog("Error in Compo Outloop: found an entity that is not a line or a arc")
       End Select