EgtCAM5 3.1h1 :

- per utenti interni aggiunta possibilità di configurare da Options il formato di salvataggio del DB geometrico.
2026-08-11 20:12:50 +02:00
parent 90c550fdc4
commit d19bd0b842
7 changed files with 81 additions and 15 deletions
@@ -535,8 +535,7 @@ Public Class ManageLayerExpanderVM
   Public Sub Save(ByVal param As Object)
      Dim sDir As String = String.Empty
      GetPrivateProfileString(S_GENERAL, K_LASTNGEOBJDIR, "", sDir)
-      Dim nType As NGE = DirectCast(GetPrivateProfileInt(S_GEOMDB, K_SAVETYPE, NGE.CMPTEXT), NGE)
-      Map.refProjectVM.SaveObject(New SaveObjectParam(m_RightClickedTreeItemId, sDir, nType))
+      Map.refProjectVM.SaveObject(New SaveObjectParam(m_RightClickedTreeItemId, sDir, OptionModule.m_nGeomDBSaveType))
   End Sub

 #End Region ' SaveCommand