diff --git a/Icarus/SceneHost/MySceneHostVM.vb b/Icarus/SceneHost/MySceneHostVM.vb
index f7e558e..81cf408 100644
--- a/Icarus/SceneHost/MySceneHostVM.vb
+++ b/Icarus/SceneHost/MySceneHostVM.vb
@@ -209,7 +209,7 @@ Public Class MySceneHostVM
EgtSetGridGeo(dSnapStepInch, nMinLineSStep, nMajLineSStep, nExtSStep)
End If
EgtSetGridColor(MinLnColor, MajLnColor)
- EgtSetGridShow(True, False)
+ EgtSetGridShow(True, True)
' imposto tipo coordinate
MainScene.SetGridCursorPos(True)
' modo di visualizzazione
@@ -1329,6 +1329,7 @@ Public Class MySceneHostVM
#Region "ShellNumber"
Friend Sub ShellNumber_OnMouseDownScene(sender As Object, e As Forms.MouseEventArgs)
+ m_nIdToSel = GDB_ID.NULL
' Verifico se selezionato indicativo di pezzo
EgtSetObjFilterForSelWin(True, True, True, True, True)
Dim nSel As Integer
@@ -1348,6 +1349,17 @@ Public Class MySceneHostVM
Exit While
nId = EgtGetNextObjInSelWin()
End While
+ If m_nIdToSel <> GDB_ID.NULL Then
+ ' recupero dati punto di selezione
+ Dim PtTemp As Point3d
+ Dim nAux As Integer
+ If EgtGetPointFromSelect(m_nIdToSel, e.Location, PtTemp, nAux) Then
+ ' eseguo la selezione
+ EgtSelectObj(m_nIdToSel)
+ ' dati ausiliari
+ EgtSetSelInfo(m_nIdToSel, nAux, PtTemp)
+ End If
+ End If
' Dati per drag
m_bDragToStart = True
End Sub
@@ -1371,8 +1383,6 @@ Public Class MySceneHostVM
' Se selezione da eseguire
ElseIf m_nIdToSel <> GDB_ID.NULL Then
If Map.refShellNumberPanelVM.bCPlaneObj_IsActive Then
- ' eseguo la selezione
- EgtSelectObj(m_nIdToSel)
' eseguo comando
Map.refSceneHostVM.MainController.ExecuteCommand(Controller.CMD.GRID_OBJ)
Map.refShellNumberPanelVM.ResetCPlaneObjIsActive()
diff --git a/Icarus/ShellNumberPanel/ShellNumberPanelV.xaml b/Icarus/ShellNumberPanel/ShellNumberPanelV.xaml
index 906e4dc..0f27c76 100644
--- a/Icarus/ShellNumberPanel/ShellNumberPanelV.xaml
+++ b/Icarus/ShellNumberPanel/ShellNumberPanelV.xaml
@@ -269,30 +269,18 @@
Style="{StaticResource ToolBar_Button}">
-
-
-
+