OmagCUT 1.8d5 :

- corretta gestione Next in SplitPageUC
- aggiunta possibilità di impostare ritardo tra reset e invio programma a controllo NUM Flexium
- migliorata gestione gocciolatoio
- selezione pezzo in nesting produce selezione dello stesso in VeinMatching.
This commit is contained in:
Dario Sassi
2017-05-01 09:52:50 +00:00
parent 31ea2e63eb
commit e88ec45974
15 changed files with 206 additions and 87 deletions
+14 -3
View File
@@ -21,6 +21,9 @@ Public Class CurrentMachine
' Incremento da dare all'asse C per far coincidere la linea della lama con l'asse X
Private m_dDeltaC As Double = 0
' Ritardo tra reset e invio programma per NUM
Private m_nResetSendDelay As Integer = 1000
' Dati su linea di produzione
Private m_bProdLine As Boolean = False
Private m_sVarProg1 As String = "E80021"
@@ -92,7 +95,7 @@ Public Class CurrentMachine
Private m_ManualToolChanger As New List(Of ToolChangerPos)
' Lista dei materiali
Private m_Materials As New observablecollection(Of Material)
Private m_Materials As New ObservableCollection(Of Material)
' Massimo id della lista materiali nel file ini
Private m_MaxIdMat As Integer = 0
@@ -150,6 +153,12 @@ Public Class CurrentMachine
End Get
End Property
Friend ReadOnly Property nResetSendDelay As Integer
Get
Return m_nResetSendDelay
End Get
End Property
Friend ReadOnly Property bProdLine As Boolean
Get
Return m_bProdLine
@@ -603,11 +612,13 @@ Public Class CurrentMachine
m_sMachDir = m_MainWindow.GetMachinesRootDir & "\" & sMachineName
' Impostazione path MachIni file
m_sMachIniFile = m_MainWindow.GetMachinesRootDir & "\" & sMachineName & "\" & sMachineName & ".ini"
' Leggo flag incremento asse C
m_dDeltaC = GetPrivateProfileDouble(S_AXES, K_DELTA_C, 0.0, sMachIniFile)
' Leggo estensione del file programma pezzo
GetPrivateProfileString(S_PARTPROGRAM, K_EXTENSION, "xpi", m_sIsoFileExt, sMachIniFile)
If m_sIsoFileExt(0) <> "." Then m_sIsoFileExt = "." & m_sIsoFileExt
' Leggo flag incremento asse C
m_dDeltaC = GetPrivateProfileDouble(S_AXES, K_DELTA_C, 0.0, sMachIniFile)
' Leggo ritardo tra reset e send per NUM
m_nResetSendDelay = GetPrivateProfileInt(S_NCNUM, K_RESETSENDDELAY, 1000, sMachIniFile)
' Leggo se linea di produzione e parametri relativi
m_bProdLine = (GetPrivateProfileInt(S_PRODUCTIONLINE, K_ACTIVE, 0, sMachIniFile) <> 0)
If m_bProdLine And Not m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.PROCUCTION_LINE) Then