- Introdotta ricerca layer di disegno

- Introdotta pagina di spostamento superfici tra i layer - Introdotto funzionamento HorizontalSlider
2022-09-30 14:54:31 +02:00
parent 8713b7efef
commit 682c3d7756
13 changed files with 203 additions and 27 deletions
@@ -695,7 +695,8 @@ Public Class ShellNumberPanelVM
   ''' </summary>
   Public Sub Line2P(ByVal param As Object)
      If Map.refSceneHostVM.MainController.GetStep <> 0 Then Return
-      Dim nNewShellNumberLayerId As Integer = EgtCreateGroup(m_nPartId)
+      Dim nNewShellNumberLayerId As Integer = EgtGetFirstNameInGroup(m_nPartId, LAY_NEWRIB)
+      If nNewShellNumberLayerId = GDB_ID.NULL Then nNewShellNumberLayerId = EgtCreateGroup(m_nPartId)
      EgtSetName(nNewShellNumberLayerId, LAY_NEWRIB)
      EgtSetCurrPartLayer(m_nPartId, nNewShellNumberLayerId)
      Map.refSceneHostVM.MainController.SetContinue()