EgtCAM5 :

- prima versione attrezzaggio.
- aggiunto flag di utilizzo script di disposizione.
- inizio gestione passaggio pezzi da disegno e lavorazione.

OptionsWindow/OptionModule.vb

@@ -1,6 +1,6 @@
 Imports System.Collections.ObjectModel
 
-Public Module OptionModule
+Friend Module OptionModule
 
    ' Parametri che contengono lista delle lingue disponibili e lingua selezionata
    Friend m_LanguageList As New ObservableCollection(Of Language)
@@ -18,6 +18,8 @@ Public Module OptionModule
    ' Variabile che indica se quando viene creata una nuova operazione di lavorazione deve essere aggiunta in fondo
    ' alla fase o subito dopo la lavorazione selezionata
    Friend m_bNewMachiningIsLastOne As Boolean
+   ' Variabile che indica se usare lo script per calcolare automaticamente la disposizione quando si passa in lavorazione
+   Friend m_bUseDispositionScript As Boolean
 
    ' inizializzazione lettura variabili ad inizio programma
    Friend Sub InitOptionModule()
@@ -39,37 +41,39 @@ Public Module OptionModule
       m_SelGeomSawFinishing = If(Temp < 0 Or Temp > 3, SceneSelModeOpt.PARTCURVESANDSURFACES, DirectCast(Temp, SceneSelModeOpt))
       ' Inizializzo variabile che indica posizione nuova operazione di lavorazione
       m_bNewMachiningIsLastOne = If(GetPrivateProfileInt(S_OPTIONS, K_NEWMACHININGISLASTONE, 0) <> 0, True, False)
+      ' Inizializzo variabile che indica se usare script di disposizione
+      m_bUseDispositionScript = If(GetPrivateProfileInt(S_OPTIONS, K_USEDISPOSITIONSCRIPT, 0) <> 0, True, False)
    End Sub
 
-   ' Classe che identifica una lingua del programma con nome e path del file dei messaggi
-   Public Class Language
-
-      Private m_sName As String
-      Private m_sFilePath As String
-
-      Public Property Name As String
-         Get
-            Return m_sName
-         End Get
-         Set(value As String)
-            m_sName = value
-         End Set
-      End Property
-
-      Public Property FilePath As String
-         Get
-            Return m_sFilePath
-         End Get
-         Set(value As String)
-            m_sFilePath = value
-         End Set
-      End Property
-
-      Sub New(sName As String, sFilePath As String)
-         Me.Name = sName
-         Me.FilePath = sFilePath
-      End Sub
-
-   End Class
-
 End Module
+
+' Classe che identifica una lingua del programma con nome e path del file dei messaggi
+Public Class Language
+
+   Private m_sName As String
+   Private m_sFilePath As String
+
+   Public Property Name As String
+      Get
+         Return m_sName
+      End Get
+      Set(value As String)
+         m_sName = value
+      End Set
+   End Property
+
+   Public Property FilePath As String
+      Get
+         Return m_sFilePath
+      End Get
+      Set(value As String)
+         m_sFilePath = value
+      End Set
+   End Property
+
+   Sub New(sName As String, sFilePath As String)
+      Me.Name = sName
+      Me.FilePath = sFilePath
+   End Sub
+
+End Class