OmagCUT 2.2g3 :

- nel posizionamento per tagli da sotto ora cerco primo taglio da sotto attivo
- in simulazione all'avvio del movimento ora si assegna flag relativo a EgtSimStart.
This commit is contained in:
Dario Sassi
2020-07-27 09:18:23 +00:00
parent dd9b3769e9
commit 61ca767797
3 changed files with 10 additions and 4 deletions
+7 -1
View File
@@ -188,9 +188,15 @@ Module VacuumCups
ResetVacuumCups()
' Verifico sia veramente un pezzo
If EgtGetRawPartFromPart(nPartId) = GDB_ID.NULL Then Return False
' Cerco la direzione dei tagli da sotto
' Cerco la direzione del primo taglio attivo da sotto
Dim nDripLayId As Integer = EgtGetFirstNameInGroup( nPartId, NAME_DRIPCUT)
Dim nDripLineId As Integer = EgtGetFirstInGroup( nDripLayId)
While nDripLayId <> GDB_ID.NULL
Dim nMchId As Integer = EgtGetOperationId( "DripSaw" & nDripLineId.ToString())
Dim nMode As Integer
If EgtGetMode( nMchId, nMode) AndAlso nMode = GDB_MD.STD Then Exit While
nDripLineId = EgtGetNext( nDripLineId)
End While
Dim vtDir As New Vector3d
if EgtStartVector( nDripLineId, GDB_ID.ROOT, vtDir) Then
Dim dLen, dAngV, dAngH As Double
+2 -2
View File
@@ -62,5 +62,5 @@ Imports System.Windows
' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.2.7.2")>
<Assembly: AssemblyFileVersion("2.2.7.2")>
<Assembly: AssemblyVersion("2.2.7.3")>
<Assembly: AssemblyFileVersion("2.2.7.3")>
+1 -1
View File
@@ -322,7 +322,7 @@ Public Class SimulationPageUC
Private Sub ExecSim()
m_bSimExecuting = True
EgtSimStart()
EgtSimStart( False)
LoadCurrTools()
SkipForRestart()
EgtSimSetStep(SpeedSlider.Value * m_SliderX)