OmagCUT :

- possibilità di avere valori assi sulla punta dell'utensile
- corretta creazione liste per combo in pagina Macchina
- spessore tavola addizionale ora gestito in CurrentMachine
- sistemazioni varie.
This commit is contained in:
Dario Sassi
2016-03-16 11:16:25 +00:00
parent ef24ce55ef
commit cbfe64775d
26 changed files with 366 additions and 229 deletions
+5 -2
View File
@@ -224,8 +224,8 @@ Public Class CurrentMachine
Return m_dAdditionalTable
End Get
Set(value As Double)
If WritePrivateProfileString(S_TABLE, K_ADDITIONALTABLE, value, sMachIniFile) Then
m_sCurrMilling = value
If WritePrivateProfileString(S_TABLE, K_ADDITIONALTABLE, DoubleToString(value, 3), sMachIniFile) Then
m_dAdditionalTable = value
End If
End Set
End Property
@@ -449,6 +449,9 @@ Public Class CurrentMachine
m_ManualToolChanger.Add(New ToolChangerPos(Index, sName, sTool))
Next
' Leggo altezza sopratavola
m_dAdditionalTable = GetPrivateProfileDouble(S_TABLE, K_ADDITIONALTABLE, 0, sMachIniFile)
'Creo materiale di default e lo aggiungo alla lista
'm_Materials.Add(New Material(0, "Generico"))
' Leggo la lista dei materiali