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

Scene.vb

@@ -860,6 +860,64 @@ Public Class Scene
       End If
    End Sub
 
+   '-------------------------------- KeyDown --------------------------------------------------------
+   Private Sub Scene_KeyDown(ByVal sender As System.Object, ByVal e As KeyEventArgs) Handles MyBase.KeyDown
+      ' Con selezione punti e drag abilitato
+      If (m_nStatus = ST.GETDIST Or m_nStatus = ST.GETDIST2 Or m_nStatus = ST.SELPOINT) And m_bDragOn Then
+         ' Con 'S' imposto Punto Sketch
+         If e.KeyData = Keys.S Then
+            m_nSnapType = SP.PT_SKETCH
+            RaiseEvent OnChangedSnapPointType(Me, m_nSnapType)
+         ' Con 'G' imposto Punto Griglia
+         ElseIf e.KeyData = Keys.G Then
+            m_nSnapType = SP.PT_GRID
+            RaiseEvent OnChangedSnapPointType(Me, m_nSnapType)
+         ' Con 'E' imposto Punto Finale
+         ElseIf e.KeyData = Keys.E Then
+            m_nSnapType = SP.PT_END
+            RaiseEvent OnChangedSnapPointType(Me, m_nSnapType)
+         ' Con 'M' imposto Punto Medio
+         ElseIf e.KeyData = Keys.M Then
+            m_nSnapType = SP.PT_MID
+            RaiseEvent OnChangedSnapPointType(Me, m_nSnapType)
+         ' Con 'C' imposto Centro
+         ElseIf e.KeyData = Keys.C Then
+            m_nSnapType = SP.CENTER
+            RaiseEvent OnChangedSnapPointType(Me, m_nSnapType)
+         ' Con 'B' imposto Baricentro
+         ElseIf e.KeyData = Keys.B Then
+            m_nSnapType = SP.CENTROID
+            RaiseEvent OnChangedSnapPointType(Me, m_nSnapType)
+         ' Con 'N' imposto Punto Vicino
+         ElseIf e.KeyData = Keys.N Then
+            m_nSnapType = SP.PT_NEAR
+            RaiseEvent OnChangedSnapPointType(Me, m_nSnapType)
+         ' Con 'I' imposto Punto Intersezione
+         ElseIf e.KeyData = Keys.I Then
+            m_nSnapType = SP.PT_INTERS
+            RaiseEvent OnChangedSnapPointType(Me, m_nSnapType)
+         ' Con 'T' imposto Punto Tangente
+         ElseIf e.KeyData = Keys.T Then
+            If m_bTangentPointOn Then
+               m_nSnapType = SP.PT_TANGENT
+               RaiseEvent OnChangedSnapPointType(Me, m_nSnapType)
+            End If
+         ' Con 'P' imposto Punto Perpendicolare
+         ElseIf e.KeyData = Keys.P Then
+            If m_bPerpendicularPointOn Then
+               m_nSnapType = SP.PT_PERPENDICULAR
+               RaiseEvent OnChangedSnapPointType(Me, m_nSnapType)
+            End If
+         ' Con 'D' imposto Punto Minima Distanza
+         ElseIf e.KeyData = Keys.D Then
+            If m_bMinDistPointOn Then
+               m_nSnapType = SP.PT_MINDIST
+               RaiseEvent OnChangedSnapPointType(Me, m_nSnapType)
+            End If
+         End If
+      End If
+   End Sub
+
    '---- Status management -------------
    Private Function IsRestorableCurrStatus() As Boolean
       Select Case m_nStatus