TestEIn 1.6c3 :

- aggiunta gestione cambio inizio di curva chiusa
- sistemato aggiornamento interfacccia dopo Break e Split Curve
- aggiunto cambio punto notevole da tastiera (S->sketch,G->Grid,...).

Controller.vb

@@ -97,6 +97,7 @@ Public Class Controller
       RESETCOLOR
       CHANGEALPHA
       INVERTCURVE
+      CHANGESTARTCURVE
       TRIMEXTENDCURVE
       BREAKCURVE
       SPLITCURVE
@@ -952,6 +953,9 @@ Public Class Controller
       ' Separate Curve
       Case CMD.EXPLODECURVE
          Return ProcessExplodeCurve()
+      ' Change Start Closed Curve
+      Case CMD.CHANGESTARTCURVE
+         Return ProcessChangeStartCurve()
       ' Set Curve Thickness
       Case CMD.SETCURVETHICKNESS
          Return ProcessSetCurveThickness()
@@ -3597,7 +3601,7 @@ Public Class Controller
          m_Scene.ResetStatus()
          ' aggiorno stato
          m_nStep = 0
-         RaiseEvent UpdateUI(Me, False)
+         RaiseEvent UpdateUI(Me, True)
       Case Else
          m_nStep = 0
          Return False
@@ -3627,7 +3631,7 @@ Public Class Controller
          m_Scene.ResetStatus()
          ' aggiorno stato
          m_nStep = 0
-         RaiseEvent UpdateUI(Me, False)
+         RaiseEvent UpdateUI(Me, True)
       Case Else
          m_nStep = 0
          Return False
@@ -3701,6 +3705,34 @@ Public Class Controller
       Return True
    End Function
 
+   Private Function ProcessChangeStartCurve() As Boolean
+      Select Case m_nStep
+      Case 0
+         m_Scene.SetStatusSelPoint()
+         ' imposto stato a punto per Change Start Curve
+         m_nStep = 1
+         ' abilito dialogo
+         RaiseEvent PrepareInputBox("CHANGE START", "Insert Point on Curve", "", False, False)
+         m_nInpType = IBT.TY_POINT3D
+      Case 1
+         ' eseguo cambio inizio
+         Dim nId As Integer = EgtGetLastSelectedObj()
+         EnableCommandLog()
+         EgtChangeClosedCurveStartPoint(nId, m_ptLast.Loc(GDB_ID.GRID), REF_TY.GRID)
+         DisableCommandLog()
+         ' reset stato scena
+         EgtDeselectObj(nId)
+         m_Scene.ResetStatus()
+         ' aggiorno stato
+         m_nStep = 0
+         RaiseEvent UpdateUI(Me, False)
+      Case Else
+         m_nStep = 0
+         Return False
+      End Select
+      Return True
+   End Function
+
    Private Function ProcessSetCurveThickness() As Boolean
       Select Case m_nStep
       Case 0