OmagOFFICE :

- Aggiunta importazione Csv.

OptionPanel/NestingTab/NestingTabVM.vb

@@ -31,6 +31,26 @@ Public Class NestingTabVM
    Private m_vtTotMove As Vector3d
    Private m_dSnapDist As Double = 0
 
+   Private m_CsvImport_IsChecked As Boolean
+   Private m_CsvImportWindow As CsvWindowV
+   Public Property CsvImport_IsChecked As Boolean
+      Get
+         Return m_CsvImport_IsChecked
+      End Get
+      Set(value As Boolean)
+         If value <> m_CsvImport_IsChecked Then
+            m_CsvImport_IsChecked = value
+            If m_CsvImport_IsChecked Then
+               m_CsvImportWindow = New CsvWindowV(Application.Current.MainWindow, New CsvWindowVM)
+               m_CsvImportWindow.Show()
+            Else
+               m_CsvImportWindow.Close()
+            End If
+            NotifyPropertyChanged("CsvImport_IsChecked")
+         End If
+      End Set
+   End Property
+
    Private m_MaxMoveIsChecked As Boolean
    Public Property MaxMoveIsChecked As Boolean
       Get
@@ -120,7 +140,6 @@ Public Class NestingTabVM
    ' Definizione comandi
    Private m_cmdDraw As ICommand
    Private m_cmdImportDxf As ICommand
-   Private m_cmdImportCsv As ICommand
    Private m_cmdUp As ICommand
    Private m_cmdLeft As ICommand
    Private m_cmdRight As ICommand
@@ -256,29 +275,11 @@ Public Class NestingTabVM
    Public Sub ImportDxf(ByVal param As Object)
       Dim DxfImportWindow As New DxfImportWindowV(Application.Current.MainWindow, New DxfImportWindowVM)
       DxfImportWindow.ShowDialog()
-
       EgtSetCurrentContext(OmagOFFICEMap.refSceneHostV.OmagOFFICEScene.GetCtx())
    End Sub
 
 #End Region ' ImportDxfCommand
 
-#Region "ImportCsvCommand"
-
-   Public ReadOnly Property ImportCsvCommand As ICommand
-      Get
-         If m_cmdImportCsv Is Nothing Then
-            m_cmdImportCsv = New Command(AddressOf ImportCsv)
-         End If
-         Return m_cmdImportCsv
-      End Get
-   End Property
-
-   Public Sub ImportCsv(ByVal param As Object)
-
-   End Sub
-
-#End Region ' ImportCsvCommand
-
 #Region "UpCommand"
 
    Public ReadOnly Property UpCommand As ICommand