EgtExecutor :

- aggiunte funzioni Exe e Lua GetSurfTmPlaneInters.

EXE_GdbCreateCurve.cpp

@@ -1717,12 +1717,15 @@ MyCreateCurveCompoByChain( int nParentId, const INTVECTOR& vIds,
      // se non sono state inserite curve, vado oltre
       if ( pCrvCompo->GetCurveCount() == 0)
          continue ;
-     // se curva chiusa entro la tolleranza effettiva di concatenamento ma considerata aperta, la chiudo bene
-      double dRealToler = chainC.GetTolerance() ;
+     // se curva di lunghezza inferiore a 2 volte la tolleranza, vado oltre
+      double dCrvLen ;
+      if ( ! pCrvCompo->GetLength( dCrvLen)  ||  dCrvLen < 2. * dToler)
+         continue ;
+     // se curva chiusa entro 2 volte la tolleranza di concatenamento ma considerata aperta, la chiudo bene
       Point3d ptStart, ptEnd ;
       if ( pCrvCompo->GetStartPoint( ptStart)  &&
            pCrvCompo->GetEndPoint( ptEnd)  &&
-           AreSamePointEpsilon( ptStart, ptEnd, dRealToler)  &&
+           AreSamePointEpsilon( ptStart, ptEnd, 2. * dToler)  &&
            ! AreSamePointApprox( ptStart, ptEnd)) {
         // porto il punto finale a coincidere esattamente con l'inizio
          pCrvCompo->ModifyEnd( ptStart) ;
@@ -1756,9 +1759,10 @@ MyCreateCurveCompoByChain( int nParentId, const INTVECTOR& vIds,
          }
       }
    }
-  // restituisco l'identificativo della prima nuova entità
+  // aggiorno contatore
    if ( pnCount != nullptr)
       *pnCount = nCount ;
+  // restituisco l'identificativo della prima nuova entità
    return nFirstId ;
 }