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,...).

Form1.vb

@@ -543,6 +543,7 @@ Public Class Form1
       btnChangeLayer.Enabled = bSelOk
       btnChangeColor.Enabled = bSelOk
       btnInvertCurve.Enabled = bSelOk
+      btnChangeStartCurve.Enabled = bSelOk
       btnExtendCurve.Enabled = bSelOk
       btnBreakCurve.Enabled = bSelOk
       btnJoinCurve.Enabled = bLayerOk And bSelOk
@@ -635,6 +636,7 @@ Public Class Form1
       SetTextAndToolTip(btnBreakCurve, 513, 514)            ' Break Curve<br/>Split Curve in Pieces (Shift)
       SetTextAndToolTip(btnJoinCurve, 515, 516)             ' Join Curves
       SetTextAndToolTip(btnExplodeCurve, 517, 518)          ' Explode Text or Curve in Components
+      SetTextAndToolTip(btnChangeStartCurve, 521, 522)      ' Start  / Change Closed Curve Start Point
       SetTextAndToolTip(btnSetCurveTh, 519, 520)            ' Set Curve Thickness and Extrusion
       ' Transform
       TabTransform.Text = EgtMsg(601)                       ' Transform
@@ -994,6 +996,10 @@ Public Class Form1
       m_Controller.ExecuteCommand(CMD.INVERTCURVE)
    End Sub
 
+   Private Sub btnChangeStart_Click(sender As System.Object, e As System.EventArgs) Handles btnChangeStartCurve.Click
+      m_Controller.ExecuteCommand(CMD.CHANGESTARTCURVE)
+   End Sub
+
    Private Sub btnExtendCurve_Click(sender As System.Object, e As System.EventArgs) Handles btnExtendCurve.Click
       m_Controller.ExecuteCommand(CMD.TRIMEXTENDCURVE)
    End Sub
@@ -1063,12 +1069,21 @@ Public Class Form1
          ' pulisco output
          tsStatusOutput.Text = ""
          ResetInputBox()
-      ' Con 'A' forzo il passaggio ad arco se in modalità continua
-      ElseIf e.KeyData = Keys.A Then
-         m_Controller.ContinueArcPDP()
-      ' Con 'L' forzo il passaggio a retta se in modalità continua
-      ElseIf e.KeyData = Keys.L Then
-         m_Controller.ContinueLine2P()
+      ' con SPAZIO ripeto l'ultimo comando
+      ElseIf e.KeyData = Keys.Space Then
+         m_Controller.RepeatLastCommand()
+      ' Se in modalità continuazione
+      ElseIf m_Controller.GetContinue() Then
+         ' Con 'A' forzo il passaggio ad arco
+         If e.KeyData = Keys.A Then
+            m_Controller.ContinueArcPDP()
+         ' Con 'L' forzo il passaggio a retta
+         ElseIf e.KeyData = Keys.L Then
+            m_Controller.ContinueLine2P()
+         End If
+      ' Se in acquisizione punto
+      Else
+
       End If
    End Sub
 
@@ -1077,9 +1092,6 @@ Public Class Form1
       If e.KeyData = Keys.Delete Then
          m_Controller.SetLastInteger(GDB_ID.SEL)
          m_Controller.ExecuteCommand(CMD.DELETE)
-      ' con SPAZIO ripeto l'ultimo comando
-      ElseIf e.KeyData = Keys.Space Then
-         m_Controller.RepeatLastCommand()
       End If
    End Sub