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}"> - - - +