TestEIn 1.6c3 :

- gestione selezione per percorso.

Controller.vb

@@ -518,6 +518,19 @@ Public Class Controller
       EgtDraw()
    End Sub
 
+   Public Sub MouseSelectedPath(ByVal nId As Integer, ByVal bHaltOnFork As Boolean)
+      ' verifico sia parte di un layer
+      Dim nLayerId = EgtGetParent(nId)
+      If EgtGetParent(EgtGetParent(nLayerId)) <> GDB_ID.ROOT Then
+         Return
+      End If
+      ' eseguo la selezione ed aggiorno
+      EnableCommandLog()
+      EgtSelectPathObjs(nId, bHaltOnFork)
+      DisableCommandLog()
+      EgtDraw()
+   End Sub
+
    Public Sub MouseSelectedPoint(ByVal PtP As Point3d, ByVal nSep As SEP, ByVal nId As Integer, ByVal bDone As Boolean)
       SetDataFromSelPoint(PtP, nSep, nId)
       ' avanzo di un passo
@@ -2520,7 +2533,6 @@ Public Class Controller
       End If
    End Sub
 
-
    Public Sub ContinueArcPDP()
       ' verifico di essere in modalità continua
       If Not m_bContinue Then
@@ -3647,21 +3659,11 @@ Public Class Controller
       If GetCurrLayer() = GDB_ID.NULL Then
          Return False
       End If
-      ' creo vettore di curve selezionate
-      Dim nCrvNum As Integer = 0
-      Dim nCrvIds(EgtGetSelectedObjNbr() - 1) As Integer
-      Dim nId As Integer = EgtGetFirstSelectedObj()
-      While nId <> GDB_ID.NULL
-         Select Case EgtGetType(nId)
-         Case GDB_TY.CRV_LINE, GDB_TY.CRV_ARC, GDB_TY.CRV_BEZ, GDB_TY.CRV_COMPO
-            nCrvIds(nCrvNum) = nId
-            nCrvNum = nCrvNum + 1
-         End Select
-         nId = EgtGetNextSelectedObj()
-      End While
       ' creo la curva composita (concatenando le curve selezionate)
       EnableCommandLog()
-      EgtCreateCurveCompoByChain(GetCurrLayer(), nCrvNum, nCrvIds, New Point3d, True, REF_TY.GRID)
+      Dim nCrvIds(0) As Integer
+      nCrvIds(0) = GDB_ID.SEL
+      EgtCreateCurveCompoByChain(GetCurrLayer(), 1, nCrvIds, New Point3d, True, REF_TY.GRID)
       DisableCommandLog()
       ' reset stato scena
       m_Scene.ResetStatus()