TestEIn 1.6i8 :

- aggiunta EgtOffsetCurveAdv in interfaccia
- controller ora fa offset avanzato.

Controller.vb

@@ -4129,9 +4129,9 @@ Public Class Controller
          Dim nId As Integer = EgtGetLastSelectedObj()
          EnableCommandLog()
          EgtSplitCurveAtPoint(nId, m_ptLast.Loc(GDB_ID.GRID), GDB_RT.GRID)
+         EgtDeselectObj(nId)
          DisableCommandLog()
          ' reset stato scena
-         EgtDeselectObj(nId)
          m_Scene.ResetStatus()
          ' aggiorno stato
          m_nStep = 0
@@ -4159,9 +4159,9 @@ Public Class Controller
          Dim nId As Integer = EgtGetLastSelectedObj()
          EnableCommandLog()
          EgtSplitCurve(nId, m_nLast)
+         EgtDeselectObj(nId)
          DisableCommandLog()
          ' reset stato scena
-         EgtDeselectObj(nId)
          m_Scene.ResetStatus()
          ' aggiorno stato
          m_nStep = 0
@@ -4245,9 +4245,9 @@ Public Class Controller
          Dim nId As Integer = EgtGetLastSelectedObj()
          EnableCommandLog()
          EgtChangeClosedCurveStartPoint(nId, m_ptLast.Loc(GDB_ID.GRID), GDB_RT.GRID)
+         EgtDeselectObj(nId)
          DisableCommandLog()
          ' reset stato scena
-         EgtDeselectObj(nId)
          m_Scene.ResetStatus()
          ' aggiorno stato
          m_nStep = 0
@@ -4977,16 +4977,17 @@ Public Class Controller
          ' reset stato scena
          m_Scene.ResetStatus(False)
          EnableCommandLog()
-         ' eseguo copia e offset
+         ' eseguo offset con copia
+         Dim nCount As Integer
          If m_bLast Then
-            Dim nId As Integer = EgtCopyGlob(EgtGetLastSelectedObj(), GetCurrLayer())
-            If Not EgtOffsetCurve(nId, m_dLast, m_nLast) Then
-               EgtErase(nId)
-            End If
+            EgtOffsetCurveAdv(EgtGetLastSelectedObj(), m_dLast, m_nLast, nCount)
          ' altrimenti solo offset
          Else
             Dim nId As Integer = EgtGetLastSelectedObj()
-            Dim bOk = EgtOffsetCurve(nId, m_dLast, m_nLast)
+            Dim bOk = EgtOffsetCurveAdv(nId, m_dLast, m_nLast, nCount)
+            If nCount > 0 Then
+               EgtErase(nId)
+            End If
          End If
          DisableCommandLog()
          EgtDraw()
@@ -5009,10 +5010,12 @@ Public Class Controller
          PrepareTransform(False)
          ' eseguo offset
          Dim nId As Integer = EgtGetFirstInGroup(m_Scene.GetDragGroup())
-         Dim bOk = EgtOffsetCurve(nId, m_dLast, m_nLast)
-         If Not bOk Then
+         Dim nCount As Integer
+         EgtOffsetCurveAdv(nId, m_dLast, m_nLast, nCount)
+         If nCount <= 0 Then
             RaiseEvent OutputInfo(Me, EgtMsg(2056))        ' Distance too big
          Else
+            EgtErase(nId)
             RaiseEvent OutputInfo(Me, "")
          End If
          EgtDraw()