TestEIN 1.6f1 :

- modificata gestione trim/extend di curva
- aggiornata interfaccia verso dll native.

Controller.vb

@@ -3954,20 +3954,17 @@ Public Class Controller
          m_Scene.SetStatusSelPoint(False)
          Dim nId As Integer = EgtGetLastSelectedObj()
          EgtCurveLength(nId, m_dPrev)
-         Dim ptStart As Point3d
-         EgtStartPoint(nId, ptStart)
-         ptStart = ptStart.Glob(nId)
-         Dim ptEnd As Point3d
-         EgtEndPoint(nId, ptEnd)
-         ptEnd = ptEnd.Glob(nId)
-         If ((ptStart - m_ptLastSel).SqLen() <= (ptEnd - m_ptLastSel).SqLen()) Then
+         Dim bStart As Boolean = True
+         EgtCurveNearestExtremityToPoint(nId, m_ptLastSel.Loc(nId), bStart)
+         If bStart Then
             m_bLast = True
-            m_ptP1 = ptStart
+            m_ptP1 = m_ptLastSel
             EgtStartVector(nId, m_vtCont)
             m_vtCont = -m_vtCont.Glob(nId)
          Else
             m_bLast = False
-            m_ptP1 = ptEnd
+            EgtEndPoint(nId, m_ptP1)
+            m_ptP1 = m_ptLastSel
             EgtEndVector(nId, m_vtCont)
             m_vtCont = m_vtCont.Glob(nId)
          End If