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

EgtCAM5 :

Browse Source 
- sistemazione parametri avanzati lavorazioni in DB lavorazioni
- sistemazioni uscite tagli di lama in DB lavorazioni.
This commit is contained in:
Dario Sassi
2017-07-12 06:55:04 +00:00
parent c3699fcac5
commit 91c0914a11
5 changed files with 232 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ProjectPage/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderViewModel.vb
+3 -4
View File
@@ -13,7 +13,7 @@ Namespace EgtCAM5
Private Sub StartNewMachining()
m_NewMachining = True
' Smarco la geometria eventualmente marcata
If Not IsNothing(m_LastMarkedOperationId) Then EgtResetMark(m_LastMarkedOperationId)
If Not IsNothing(m_LastMarkedOperationId) Then EgtResetMark(EgtGetFirstNameInGroup(m_LastMarkedOperationId, "CL"))
' Deseleziono eventuali geometrie selezionate
EgtDeselectAll()
EgtDraw()
@@ -235,7 +235,6 @@ Namespace EgtCAM5
' Verifico se c'è l'operazione precedente
If m_LastMarkedOperationId <> GDB_ID.NULL Then
' La de-evidenzio
'EgtResetMark(m_LastMarkedOperationId)
Dim bEnabModif As Boolean = EgtGetEnableModified()
EgtDisableModified()
EgtResetMark(EgtGetFirstNameInGroup(m_LastMarkedOperationId, "CL"))
@@ -387,7 +386,7 @@ Namespace EgtCAM5
ListIsExpanded = True
End Sub)
Application.Msn.Register(Application.REMOVEMARKFROMLASTOPERATION, Sub()
EgtResetMark(m_LastMarkedOperationId)
EgtResetMark(EgtGetFirstNameInGroup(m_LastMarkedOperationId, "CL"))
End Sub)
Application.Msn.Register(Application.NEWMACHININGMODEISACTIVE, Sub(Params As NewMachOpParam)
If Params.bActive Then
@@ -542,7 +541,7 @@ Namespace EgtCAM5
End If
Else
' Smarco e deseleziono la geometria selezionata
EgtResetMark(m_LastMarkedOperationId)
EgtResetMark(EgtGetFirstNameInGroup(m_LastMarkedOperationId, "CL"))
EgtDeselectAll()
EgtDraw()
' Rimuovo l'operazione selezionata