From b579342ff2d294b4731054ae4bc53ad197fd1452 Mon Sep 17 00:00:00 2001
From: Dario Sassi <dario.s@egaltech.com>
Date: Mon, 12 Oct 2020 09:54:51 +0000
Subject: [PATCH] EgtCAM5 : - aggiunta gestione Flag per ExportDxf (da Ini
 [Export] DxfFlag=..).

---
 Constants/ConstIni.vb         | 1 +
 OptionsWindow/OptionModule.vb | 2 ++
 Project/ProjectVM.vb          | 1 +
 3 files changed, 4 insertions(+)

diff --git a/Constants/ConstIni.vb b/Constants/ConstIni.vb
index b5c703a..a9e91d6 100644
--- a/Constants/ConstIni.vb
+++ b/Constants/ConstIni.vb
@@ -105,6 +105,7 @@ Module ConstIni
    Public Const K_BTLFLAG As String = "BtlFlag"
 
    Public Const S_EXPORT As String = "Export"
+   Public Const K_DXFFLAG As String = "DxfFlag"
    Public Const K_IMGWIDTH As String = "ImgWidth"
    Public Const K_IMGHEIGHT As String = "ImgHeight"
 
diff --git a/OptionsWindow/OptionModule.vb b/OptionsWindow/OptionModule.vb
index 45cc21c..961b811 100644
--- a/OptionsWindow/OptionModule.vb
+++ b/OptionsWindow/OptionModule.vb
@@ -26,6 +26,7 @@ Friend Module OptionModule
    Friend m_dImgScaleFactor As Double
 
    ' Parametri per export
+   Friend m_nExportDxfFlag As Integer
    Friend m_nImgWidth As Integer
    Friend m_nImgHeight As Integer
 
@@ -108,6 +109,7 @@ Friend Module OptionModule
       m_dStlScaleFactor = GetPrivateProfileDouble(S_IMPORT, K_STLSCALE, 1)
       m_dImgScaleFactor = GetPrivateProfileDouble(S_IMPORT, K_IMGSCALE, 1)
       ' Inizializzo variabili per export
+      m_nExportDxfFlag = GetPrivateProfileInt(S_EXPORT, K_DXFFLAG, EEX_FL.COMP_LAYER)
       m_nImgWidth = GetPrivateProfileInt(S_EXPORT, K_IMGWIDTH, 400)
       m_nImgHeight = GetPrivateProfileInt(S_EXPORT, K_IMGHEIGHT, 300)
       ' Inizializzo variabili che indicano per ogni tipo di lavorazione quale geometria è selezionabile
diff --git a/Project/ProjectVM.vb b/Project/ProjectVM.vb
index 6a0d94a..5d6a7a0 100644
--- a/Project/ProjectVM.vb
+++ b/Project/ProjectVM.vb
@@ -327,6 +327,7 @@ Public Class ProjectVM
       m_Controller.SetScaleForStlImport(OptionModule.m_dStlScaleFactor)
       m_Controller.SetScaleForImageImport(OptionModule.m_dImgScaleFactor)
       ' Imposto default per export
+      m_Controller.SetDefaultForDxfExport( OptionModule.m_nExportDxfFlag)
       m_Controller.SetDefaultForImageExport(OptionModule.m_nImgWidth, OptionModule.m_nImgHeight)
    End Sub