Egalware/EgtCAM5
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

EgtCAM5 1.8b7 :

Browse Source 
- aggiunta gestione export immagini con dimensioni da INI.
This commit is contained in:
Dario Sassi
2017-02-13 10:45:53 +00:00
parent 7a46589ce7
commit 03bef81707
4 changed files with 17 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Constants/ConstIni.vb
+4
View File
@@ -84,6 +84,10 @@ Module ConstIni
Public Const S_IMPORT As String = "Import"
Public Const K_CNCFLAG As String = "CncFlag"
Public Const S_EXPORT As String = "Export"
Public Const K_IMGWIDTH As String = "ImgWidth"
Public Const K_IMGHEIGHT As String = "ImgHeight"
Public Const S_DOORS As String = "Doors"
Public Const K_DDFENABLE As String = "DdfEnable"
Public Const K_DDFEXEC As String = "DdfExec"
My Project/AssemblyInfo.vb
+2 -2
View File
@@ -70,5 +70,5 @@ Imports System.Windows
' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.8.2.6")>
<Assembly: AssemblyFileVersion("1.8.2.6")>
<Assembly: AssemblyVersion("1.8.2.7")>
<Assembly: AssemblyFileVersion("1.8.2.7")>
OptionsWindow/OptionModule.vb
+9
View File
@@ -6,6 +6,12 @@ Friend Module OptionModule
Friend m_LanguageList As New ObservableCollection(Of Language)
Friend m_SelectedLanguage As Language
' Parametri per import
' Parametri per export
Friend m_nImgWidth As Integer
Friend m_nImgHeight As Integer
' Variabili che indicano per ogni tipo di lavorazione quale geometria è selezionabile
Friend m_SelGeomSawing As SceneSelModeOpt
Friend m_SelGeomDrilling As SceneSelModeOpt
@@ -25,6 +31,9 @@ Friend Module OptionModule
' inizializzazione lettura variabili ad inizio programma
Friend Sub InitOptionModule()
' Inizializzo variabili per export
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
Dim Temp As Integer = 0
Temp = GetPrivateProfileInt(S_MACH, K_SELGEOMSAWING, -1)
ProjectPage/ProjectViewModel.vb
+2
View File
@@ -257,6 +257,8 @@ Namespace EgtCAM5
' Imposto stato filtro selezione
m_ProjectScene.GetObjFilterForSel(m_bSelZeroDim, m_bSelCurve, m_bSelSurf, m_bSelVolume, m_bSelExtra)
m_Controller.MouseSetObjFilterForSelect(m_bSelZeroDim, m_bSelCurve, m_bSelSurf, m_bSelVolume, m_bSelExtra)
' Imposto default per export
m_Controller.SetDefaultForImageExport(OptionModule.m_nImgWidth, OptionModule.m_nImgHeight)
End Sub
Private Sub ProcessCommandLine()