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

OmagOFFICE :

Browse Source 
- gestione grezzo per punti
- primo import immagini.
This commit is contained in:
Dario Sassi
2017-04-13 07:52:38 +00:00
parent 6b9ea51d2a
commit e97bdfef91
8 changed files with 1030 additions and 196 deletions
Download Patch File Download Diff File Expand all files Collapse all files
OptionPanel/NestingTab/NestingTabVM.vb
+9 -9
View File
@@ -141,7 +141,7 @@ Public Class NestingTabVM
Friend Function InitNesting() As Boolean
' aggiorno dati del grezzo
GenCalc.UpdateRawPart()
EstCalc.UpdateRawPart()
' calcolo valore di minima distanza (da spessore lama corrente)
Dim dSawThick As Double = 0
If EgtTdbSetCurrTool(CurrentMachine.sCurrSaw) AndAlso
@@ -243,7 +243,7 @@ Public Class NestingTabVM
EgtMovePartToSnapPointOnCollision(GDB_ID.SEL, m_bReducedCut, m_dSnapDist, bSnapMoved)
End If
End If
GenCalc.ResetOrderMachiningFlag()
EstCalc.ResetOrderMachiningFlag()
EgtDraw()
' Eventuale notifica al VeinMatching
Dim nId As Integer = EgtGetFirstSelectedObj()
@@ -285,7 +285,7 @@ Public Class NestingTabVM
EgtMovePartToSnapPointOnCollision(GDB_ID.SEL, m_bReducedCut, m_dSnapDist, bSnapMoved)
End If
End If
GenCalc.ResetOrderMachiningFlag()
EstCalc.ResetOrderMachiningFlag()
EgtDraw()
' Eventuale notifica al VeinMatching
Dim nId As Integer = EgtGetFirstSelectedObj()
@@ -327,7 +327,7 @@ Public Class NestingTabVM
EgtMovePartToSnapPointOnCollision(GDB_ID.SEL, m_bReducedCut, m_dSnapDist, bSnapMoved)
End If
End If
GenCalc.ResetOrderMachiningFlag()
EstCalc.ResetOrderMachiningFlag()
EgtDraw()
' Eventuale notifica al VeinMatching
Dim nId As Integer = EgtGetFirstSelectedObj()
@@ -369,7 +369,7 @@ Public Class NestingTabVM
EgtMovePartToSnapPointOnCollision(GDB_ID.SEL, m_bReducedCut, m_dSnapDist, bSnapMoved)
End If
End If
GenCalc.ResetOrderMachiningFlag()
EstCalc.ResetOrderMachiningFlag()
EgtDraw()
' Eventuale notifica al VeinMatching
Dim nId As Integer = EgtGetFirstSelectedObj()
@@ -395,7 +395,7 @@ Public Class NestingTabVM
Public Sub CClockwiseRot(ByVal param As Object)
EgtSetCurrentContext(OmagOFFICEMap.refSceneHostV.OmagOFFICEScene.GetCtx())
RotateCluster(m_dRotationAngle)
GenCalc.ResetOrderMachiningFlag()
EstCalc.ResetOrderMachiningFlag()
EgtDraw()
' Eventuale notifica al VeinMatching
Dim nId As Integer = EgtGetFirstSelectedObj()
@@ -421,7 +421,7 @@ Public Class NestingTabVM
Public Sub ClockwiseRot(ByVal param As Object)
EgtSetCurrentContext(OmagOFFICEMap.refSceneHostV.OmagOFFICEScene.GetCtx())
RotateCluster(-m_dRotationAngle)
GenCalc.ResetOrderMachiningFlag()
EstCalc.ResetOrderMachiningFlag()
EgtDraw()
' Eventuale notifica al VeinMatching
Dim nId As Integer = EgtGetFirstSelectedObj()
@@ -733,7 +733,7 @@ Public Class NestingTabVM
EgtMovePartToSnapPointOnCollision(nMoveId, m_bReducedCut, m_dSnapDist, bSnapMoved)
End If
End If
GenCalc.ResetOrderMachiningFlag()
EstCalc.ResetOrderMachiningFlag()
End If
EgtDraw()
' Eventuale notifica al VeinMatching
@@ -766,7 +766,7 @@ Public Class NestingTabVM
EnableReferenceRegion(False)
' Eseguo verifica
If EgtVerifyPart(nMoveId, m_bReducedCut) Then
GenCalc.ResetOrderMachiningFlag()
EstCalc.ResetOrderMachiningFlag()
' Non superata riporto alla posizione iniziale
Else
EgtMove(nMoveId, -m_vtTotMove)