Demetrio Cassarino
3801 lines
150 KiB
VB.net
3801 lines
150 KiB
VB.net
Imports System.Collections.ObjectModel
|
|
Imports System.Drawing
|
|
Imports System.Reflection
|
|
Imports System.Security.Cryptography
|
|
Imports EgtUILib
|
|
Imports EgtWPFLib5
|
|
Imports EgtWPFLib5.EgtCustomWindow
|
|
|
|
Public Class SplitModeVM
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
' Stato
|
|
Private m_nCurrPhase As Integer = 0
|
|
Private m_MachiningList As New List(Of SplitMach)
|
|
Private m_bModified As Boolean = False
|
|
Private m_nNbrGrpId As Integer = GDB_ID.NULL
|
|
Private m_CurrFirstInd As Integer = -1
|
|
Private m_CurrLastInd As Integer = -1
|
|
Private m_SelectedItemsList As New ObservableCollection(Of NameIdLsBxItem)
|
|
|
|
' numero di lavorazioni di tipo lama
|
|
Private m_nCountSawing As Integer = 0
|
|
' numero di lavprazioni di tipo waterjet
|
|
Private m_nCountWaterjetting As Integer = 0
|
|
' altri tipi di lavorazioni (Foro/Fresa)
|
|
Private m_nCountOtherMachining As Integer = 0
|
|
' verifico che le lavorazioni selezionate siano omogenee (con lo stesso utensile)
|
|
Private m_bAreHomogeneous As Boolean = False
|
|
|
|
' Id tagli WJ per generazione ponticelli tra due percorsi
|
|
Private m_nIdSelectedPartWJ_Srt As Integer = GDB_ID.NULL
|
|
Private m_nIdSelectedSideWJ_Srt As Integer = GDB_ID.NULL
|
|
Private m_nIdSelectedWaterJet_Srt As Integer = GDB_ID.NULL
|
|
Private m_nIdSelectedPartWJ_End As Integer = GDB_ID.NULL
|
|
Private m_nIdSelectedSideWJ_End As Integer = GDB_ID.NULL
|
|
Private m_nIdSelectedWaterJet_End As Integer = GDB_ID.NULL
|
|
' Id gruppo Bridges (Nuovo da versione 30/08/2022)
|
|
Private m_nIdBridgesGroup As Integer = GDB_ID.NULL
|
|
'Private m_nIdBridgeLineGroup As Integer = GDB_ID.NULL
|
|
Private m_nIdBridge As Integer = GDB_ID.NULL
|
|
Private m_ptSrtBridge As New Point3d
|
|
Private m_ptEndBridge As New Point3d
|
|
|
|
' Punti per creazione tagli odi separazione
|
|
Private m_ptStartPoint As Point3d
|
|
Private m_bGetStartPoint As Boolean = False
|
|
Private m_ptEndPoint As Point3d
|
|
Private m_bGetEndPoint As Boolean = False
|
|
Private m_IdSplitLine As Integer = GDB_ID.NULL
|
|
Private m_IdSplitGroup As Integer = GDB_ID.NULL
|
|
Private m_IdSplitGroupLayer As Integer = GDB_ID.NULL
|
|
Private m_IdCurrRawSolid As Integer = GDB_ID.NULL
|
|
Private m_IdSplitLineRemove As Integer = GDB_ID.NULL
|
|
|
|
' Flag di pagina attiva
|
|
Private m_bActive As Boolean = False
|
|
' Drag
|
|
Private m_nDragInd As Integer = -1
|
|
Private m_nDragType As Integer = 0 '0=niente, 1=attacco, 2=uscita
|
|
Private m_ptDragPrev As Point3d
|
|
Private m_bDragging As Boolean = False
|
|
' Selected cut
|
|
Private m_nSelected As Integer = GDB_ID.NULL
|
|
' Abilita la mofica Inizio fine per i tagli interni sugli angoli
|
|
Private m_StartEndModifyOnIntCorner As Boolean = False
|
|
|
|
Private m_ItemList As New ObservableCollection(Of NameIdLsBxItem)
|
|
Public ReadOnly Property ItemList As ObservableCollection(Of NameIdLsBxItem)
|
|
Get
|
|
Return m_ItemList
|
|
End Get
|
|
End Property
|
|
|
|
Private m_bEnabledCommandMove As Boolean = False
|
|
Public Property bEnabledCommandMove As Boolean
|
|
Get
|
|
Return m_bEnabledCommandMove
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_bEnabledCommandMove = value
|
|
NotifyPropertyChanged("bEnabledCommandMove")
|
|
End Set
|
|
End Property
|
|
|
|
Private m_SplitModeIsEnabled As Boolean
|
|
Public Property SplitModeIsEnabled As Boolean
|
|
Get
|
|
Return m_SplitModeIsEnabled
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_SplitModeIsEnabled = value
|
|
NotifyPropertyChanged("SplitModeIsEnabled")
|
|
End Set
|
|
End Property
|
|
|
|
Private m_AllExtRedVisibility As Visibility
|
|
Public Property AllExtRedVisibility As Visibility
|
|
Get
|
|
Return m_AllExtRedVisibility
|
|
End Get
|
|
Set(value As Visibility)
|
|
m_AllExtRedVisibility = value
|
|
NotifyPropertyChanged("AllExtRedVisibility")
|
|
End Set
|
|
End Property
|
|
|
|
Private m_CutBtnVisibility As Visibility
|
|
Public Property CutBtnVisibility As Visibility
|
|
Get
|
|
Return m_CutBtnVisibility
|
|
End Get
|
|
Set(value As Visibility)
|
|
m_CutBtnVisibility = value
|
|
NotifyPropertyChanged(NameOf(CutBtnVisibility))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_CutStartBtnVisibility As Visibility
|
|
Public Property CutStartBtnVisibility As Visibility
|
|
Get
|
|
Return m_CutStartBtnVisibility
|
|
End Get
|
|
Set(value As Visibility)
|
|
m_CutStartBtnVisibility = value
|
|
NotifyPropertyChanged(NameOf(CutStartBtnVisibility))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_CutEndBtnVisibility As Visibility
|
|
Public Property CutEndBtnVisibility As Visibility
|
|
Get
|
|
Return m_CutEndBtnVisibility
|
|
End Get
|
|
Set(value As Visibility)
|
|
m_CutEndBtnVisibility = value
|
|
NotifyPropertyChanged(NameOf(CutEndBtnVisibility))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_OutCenStartBtnVisibility As Visibility
|
|
Public Property OutCenStartBtnVisibility As Visibility
|
|
Get
|
|
Return m_OutCenStartBtnVisibility
|
|
End Get
|
|
Set(value As Visibility)
|
|
m_OutCenStartBtnVisibility = value
|
|
NotifyPropertyChanged(NameOf(OutCenStartBtnVisibility))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_OutCenEndBtnVisibility As Visibility
|
|
Public Property OutCenEndBtnVisibility As Visibility
|
|
Get
|
|
Return m_OutCenEndBtnVisibility
|
|
End Get
|
|
Set(value As Visibility)
|
|
m_OutCenEndBtnVisibility = value
|
|
NotifyPropertyChanged(NameOf(OutCenEndBtnVisibility))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_InvertBtnVisibility As Visibility
|
|
Public Property InvertBtnVisibility As Visibility
|
|
Get
|
|
Return m_InvertBtnVisibility
|
|
End Get
|
|
Set(value As Visibility)
|
|
m_InvertBtnVisibility = value
|
|
NotifyPropertyChanged(NameOf(InvertBtnVisibility))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_PauseBtnVisibility As Visibility
|
|
Public Property PauseBtnVisibility As Visibility
|
|
Get
|
|
Return m_PauseBtnVisibility
|
|
End Get
|
|
Set(value As Visibility)
|
|
m_PauseBtnVisibility = value
|
|
NotifyPropertyChanged(NameOf(PauseBtnVisibility))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_AllOutStartBtnVisibility As Visibility
|
|
Public Property AllOutStartBtnVisibility As Visibility
|
|
Get
|
|
Return m_AllOutStartBtnVisibility
|
|
End Get
|
|
Set(value As Visibility)
|
|
m_AllOutStartBtnVisibility = value
|
|
NotifyPropertyChanged(NameOf(AllOutStartBtnVisibility))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_AllCenStartBtnVisibility As Visibility
|
|
Public Property AllCenStartBtnVisibility As Visibility
|
|
Get
|
|
Return m_AllCenStartBtnVisibility
|
|
End Get
|
|
Set(value As Visibility)
|
|
m_AllCenStartBtnVisibility = value
|
|
NotifyPropertyChanged(NameOf(AllCenStartBtnVisibility))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_AllOutEndBtnVisibility As Visibility
|
|
Public Property AllOutEndBtnVisibility As Visibility
|
|
Get
|
|
Return m_AllOutEndBtnVisibility
|
|
End Get
|
|
Set(value As Visibility)
|
|
m_AllOutEndBtnVisibility = value
|
|
NotifyPropertyChanged(NameOf(AllOutEndBtnVisibility))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_AllCenEndBtnVisibility As Visibility
|
|
Public Property AllCenEndBtnVisibility As Visibility
|
|
Get
|
|
Return m_AllCenEndBtnVisibility
|
|
End Get
|
|
Set(value As Visibility)
|
|
m_AllCenEndBtnVisibility = value
|
|
NotifyPropertyChanged(NameOf(AllCenEndBtnVisibility))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_AllExtendBtnVisibility As Visibility
|
|
Public Property AllExtendBtnVisibility As Visibility
|
|
Get
|
|
Return m_AllExtendBtnVisibility
|
|
End Get
|
|
Set(value As Visibility)
|
|
m_AllExtendBtnVisibility = value
|
|
NotifyPropertyChanged(NameOf(AllExtendBtnVisibility))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_AllReduceBtnVisibility As Visibility
|
|
Public Property AllReduceBtnVisibility As Visibility
|
|
Get
|
|
Return m_AllReduceBtnVisibility
|
|
End Get
|
|
Set(value As Visibility)
|
|
m_AllReduceBtnVisibility = value
|
|
NotifyPropertyChanged(NameOf(AllReduceBtnVisibility))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_BridgeBtnVisibility As Visibility = Visibility.Hidden
|
|
Public Property BridgeBtnVisibility As Visibility
|
|
Get
|
|
Return m_BridgeBtnVisibility
|
|
End Get
|
|
Set(value As Visibility)
|
|
m_BridgeBtnVisibility = value
|
|
NotifyPropertyChanged(NameOf(BridgeBtnVisibility))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_BridgeDeleteBtnVisibility As Visibility = Visibility.Hidden
|
|
Public Property BridgeDeleteBtnVisibility As Visibility
|
|
Get
|
|
Return m_BridgeDeleteBtnVisibility
|
|
End Get
|
|
Set(value As Visibility)
|
|
m_BridgeDeleteBtnVisibility = value
|
|
NotifyPropertyChanged(NameOf(BridgeDeleteBtnVisibility))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_QualityBtnVisibility As Visibility = Visibility.Hidden
|
|
|
|
Public Property QualityBtnVisibility As Visibility
|
|
Get
|
|
Return m_QualityBtnVisibility
|
|
End Get
|
|
Set(value As Visibility)
|
|
m_QualityBtnVisibility = value
|
|
NotifyPropertyChanged(NameOf(QualityBtnVisibility))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_bOnOffCut_IsExpanded As Boolean = True
|
|
Public Property bOnOffCut_IsExpanded As Boolean
|
|
Get
|
|
Return m_bOnOffCut_IsExpanded
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_bOnOffCut_IsExpanded = value
|
|
NotifyPropertyChanged(NameOf(bOnOffCut_IsExpanded))
|
|
WriteMainPrivateProfileString("Split", "OnOffCut", If(m_bOnOffCut_IsExpanded, "1", "0"))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_bSpLitCut_IsExpanded As Boolean = True
|
|
Public Property bSpLitCut_IsExpanded As Boolean
|
|
Get
|
|
Return m_bSpLitCut_IsExpanded
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_bSpLitCut_IsExpanded = value
|
|
NotifyPropertyChanged(NameOf(bSpLitCut_IsExpanded))
|
|
WriteMainPrivateProfileString("Split", "SplitCut", If(m_bSpLitCut_IsExpanded, "1", "0"))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_bDirectSpLitCut_IsExpanded As Boolean = True
|
|
Public Property bDirectSpLitCut_IsExpanded As Boolean
|
|
Get
|
|
Return m_bDirectSpLitCut_IsExpanded
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_bDirectSpLitCut_IsExpanded = value
|
|
NotifyPropertyChanged(NameOf(bDirectSpLitCut_IsExpanded))
|
|
WriteMainPrivateProfileString("Split", "DirectSplitCut", If(m_bDirectSpLitCut_IsExpanded, "1", "0"))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_bModifyCut_IsExpanded As Boolean = True
|
|
Public Property bModifyCut_IsExpanded As Boolean
|
|
Get
|
|
Return m_bModifyCut_IsExpanded
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_bModifyCut_IsExpanded = value
|
|
NotifyPropertyChanged(NameOf(bModifyCut_IsExpanded))
|
|
WriteMainPrivateProfileString("Split", "ModifyCut", If(m_bModifyCut_IsExpanded, "1", "0"))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_BridgeBtn_IsChecked As Boolean = False
|
|
Public Property BridgeBtn_IsChecked As Boolean
|
|
Get
|
|
Return m_BridgeBtn_IsChecked
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_BridgeBtn_IsChecked = value
|
|
BridgeIsChecked()
|
|
NotifyPropertyChanged(NameOf(BridgeBtn_IsChecked))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_BridgeDeleteBtn_IsChecked As Boolean = False
|
|
Public Property BridgeDeleteBtn_IsChecked As Boolean
|
|
Get
|
|
Return m_BridgeDeleteBtn_IsChecked
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_BridgeDeleteBtn_IsChecked = value
|
|
BridgeDeleteIsChecked()
|
|
NotifyPropertyChanged(NameOf(BridgeDeleteBtn_IsChecked))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_LayNbArrTgBtn_IsChecked As Boolean = False
|
|
Public Property LayNbArrTgBtn_IsChecked As Boolean
|
|
Get
|
|
Return m_LayNbArrTgBtn_IsChecked
|
|
End Get
|
|
Set(value As Boolean)
|
|
' imposto il valore della bottone, dell'icona e del messaggio
|
|
SetLayNbArrTgBtn_IsChecked(value)
|
|
WriteMainPrivateProfileString(S_GENERAL, K_SHOWNBARROW, If(m_LayNbArrTgBtn_IsChecked, "1", "0"))
|
|
End Set
|
|
End Property
|
|
|
|
Private Sub SetLayNbArrTgBtn_IsChecked(value As Boolean)
|
|
m_LayNbArrTgBtn_IsChecked = value
|
|
If value Then
|
|
StatusOffNumbArrow(GDB_ST.ON_)
|
|
m_LayNbArrTgBtnMsg = EgtMsg(91218) ' Hide
|
|
m_LayNbArrTgBtnImg = "/Resources/NewIcons/LightArrowOn.png"
|
|
Else
|
|
StatusOffNumbArrow(GDB_ST.OFF)
|
|
m_LayNbArrTgBtnMsg = EgtMsg(91219) ' Show
|
|
m_LayNbArrTgBtnImg = "/Resources/NewIcons/LightArrowOff.png"
|
|
End If
|
|
NotifyPropertyChanged(NameOf(LayNbArrTgBtnMsg))
|
|
NotifyPropertyChanged(NameOf(LayNbArrTgBtnImg))
|
|
End Sub
|
|
|
|
#Region "SPLIT CUT"
|
|
|
|
Private m_CreateCut_IsChecked As Boolean
|
|
Public Property CreateCut_IsChecked As Boolean
|
|
Get
|
|
Return m_CreateCut_IsChecked
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_CreateCut_IsChecked = value
|
|
m_RemoveCut_IsChecked = False
|
|
m_CreateParallelCut_IsChecked = False
|
|
m_ModifyCut_IsChecked = False
|
|
NotifyPropertyChanged(NameOf(RemoveCut_IsChecked))
|
|
NotifyPropertyChanged(NameOf(CreateParallelCut_IsChecked))
|
|
NotifyPropertyChanged(NameOf(ModifyCut_IsChecked))
|
|
CreateCutIsChecked()
|
|
NotifyPropertyChanged(NameOf(CreateCut_IsChecked))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_RemoveCut_IsChecked As Boolean
|
|
Public Property RemoveCut_IsChecked As Boolean
|
|
Get
|
|
Return m_RemoveCut_IsChecked
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_RemoveCut_IsChecked = value
|
|
m_CreateCut_IsChecked = False
|
|
m_CreateParallelCut_IsChecked = False
|
|
m_ModifyCut_IsChecked = False
|
|
NotifyPropertyChanged(NameOf(CreateCut_IsChecked))
|
|
NotifyPropertyChanged(NameOf(CreateParallelCut_IsChecked))
|
|
NotifyPropertyChanged(NameOf(ModifyCut_IsChecked))
|
|
RemoveCutIsChecked()
|
|
NotifyPropertyChanged(NameOf(RemoveCut_IsChecked))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_CreateParallelCut_IsChecked As Boolean
|
|
Public Property CreateParallelCut_IsChecked As Boolean
|
|
Get
|
|
Return m_CreateParallelCut_IsChecked
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_CreateParallelCut_IsChecked = value
|
|
m_CreateCut_IsChecked = False
|
|
m_RemoveCut_IsChecked = False
|
|
m_ModifyCut_IsChecked = False
|
|
NotifyPropertyChanged(NameOf(CreateCut_IsChecked))
|
|
NotifyPropertyChanged(NameOf(RemoveCut_IsChecked))
|
|
NotifyPropertyChanged(NameOf(ModifyCut_IsChecked))
|
|
CreateParellelCutIsChecked()
|
|
NotifyPropertyChanged(NameOf(CreateParallelCut_IsChecked))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_ModifyCut_IsChecked As Boolean
|
|
Public Property ModifyCut_IsChecked As Boolean
|
|
Get
|
|
Return m_ModifyCut_IsChecked
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_ModifyCut_IsChecked = value
|
|
m_CreateCut_IsChecked = False
|
|
m_RemoveCut_IsChecked = False
|
|
m_CreateParallelCut_IsChecked = False
|
|
NotifyPropertyChanged(NameOf(CreateCut_IsChecked))
|
|
NotifyPropertyChanged(NameOf(RemoveCut_IsChecked))
|
|
NotifyPropertyChanged(NameOf(CreateParallelCut_IsChecked))
|
|
ModifyCutIsChecked()
|
|
NotifyPropertyChanged(NameOf(ModifyCut_IsChecked))
|
|
End Set
|
|
End Property
|
|
|
|
#End Region ' Split Cut
|
|
|
|
#Region "Messages"
|
|
|
|
Public ReadOnly Property OnOffMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_SPLITPAGEUC + 1)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property AllOnMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_SPLITPAGEUC + 2)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property AllOffMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_SPLITPAGEUC + 3)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property CutMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_SPLITPAGEUC + 4)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property CutStartMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_SPLITPAGEUC + 5)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property CutEndMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_SPLITPAGEUC + 6)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property OutCenStartMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_SPLITPAGEUC + 7)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property AllOutStartMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_SPLITPAGEUC + 8)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property AllCenStartMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_SPLITPAGEUC + 9)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property OutCenEndMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_SPLITPAGEUC + 12)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property AllOutEndMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_SPLITPAGEUC + 13)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property AllCenEndMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_SPLITPAGEUC + 14)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property AllExtendMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_SPLITPAGEUC + 15)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property AllReduceMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_SPLITPAGEUC + 16)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property ModifStartMsg As String
|
|
Get
|
|
Return EgtMsg(90373) ' Inizio Modif.
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property ModifEndMsg As String
|
|
Get
|
|
Return EgtMsg(90374) ' Fine Modif.
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property PauseMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_SPLITPAGEUC + 31)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property InvertMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_SPLITPAGEUC + 36)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property BridgeMsg As String
|
|
Get
|
|
Return EgtMsg(91671)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property BridgeDeleteMsg As String
|
|
Get
|
|
Return EgtMsg(91672)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property QualityMsg As String
|
|
Get
|
|
Return EgtMsg(91673)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property EnableCutMsg As String
|
|
Get
|
|
Return EgtMsg(91663)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property SplitCutMsg As String
|
|
Get
|
|
Return EgtMsg(91664)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property DirectSplitCutMsg As String
|
|
Get
|
|
Return EgtMsg(91665)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property ManageStartEndCutMsg As String
|
|
Get
|
|
Return EgtMsg(91666)
|
|
End Get
|
|
End Property
|
|
|
|
Private Property m_LayNbArrTgBtnMsg As String = "Show"
|
|
Public ReadOnly Property LayNbArrTgBtnMsg As String
|
|
Get
|
|
Return m_LayNbArrTgBtnMsg
|
|
End Get
|
|
End Property
|
|
|
|
Private Property m_LayNbArrTgBtnImg As String = "/Resources/NewIcons/LightArrowOn.png"
|
|
Public ReadOnly Property LayNbArrTgBtnImg As String
|
|
Get
|
|
Return m_LayNbArrTgBtnImg
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' Messages
|
|
|
|
' Definizione comandi
|
|
Private m_cmdMoveUp As ICommand
|
|
Private m_cmdMoveDown As ICommand
|
|
Private m_cmdOnOff As ICommand
|
|
Private m_cmdAllOn As ICommand
|
|
Private m_cmdAllOff As ICommand
|
|
Private m_cmdCut As ICommand
|
|
Private m_cmdCutStart As ICommand
|
|
Private m_cmdCutEnd As ICommand
|
|
Private m_cmdOutCenStart As ICommand
|
|
Private m_cmdAllOutStart As ICommand
|
|
Private m_cmdAllCenStart As ICommand
|
|
Private m_cmdOutCenEnd As ICommand
|
|
Private m_cmdAllOutEnd As ICommand
|
|
Private m_cmdAllCenEnd As ICommand
|
|
Private m_cmdAllExtend As ICommand
|
|
Private m_cmdAllReduce As ICommand
|
|
Private m_cmdModifStart As ICommand
|
|
Private m_cmdModifEnd As ICommand
|
|
Private m_cmdPause As ICommand
|
|
Private m_cmdInvert As ICommand
|
|
Private m_cmdQuality As ICommand
|
|
|
|
#End Region ' FIELDS & PROPERTIES
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
' Creo riferimento a questa classe in OmagOFFICEMap
|
|
OmagOFFICEMap.SetRefSplitModeVM(Me)
|
|
' leggo la configurazione
|
|
SetLayNbArrTgBtn_IsChecked((GetMainPrivateProfileInt(S_GENERAL, K_SHOWNBARROW, 1) <> 0))
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
#Region "METHODS"
|
|
|
|
Friend Function InitSplitRaw() As Boolean
|
|
m_bActive = True
|
|
m_bOnOffCut_IsExpanded = GetMainPrivateProfileInt("Split", "OnOffCut", 0) <> 0
|
|
NotifyPropertyChanged(NameOf(bOnOffCut_IsExpanded))
|
|
m_bSpLitCut_IsExpanded = GetMainPrivateProfileInt("Split", "SplitCut", 0) <> 0
|
|
NotifyPropertyChanged(NameOf(bSpLitCut_IsExpanded))
|
|
m_bDirectSpLitCut_IsExpanded = GetMainPrivateProfileInt("Split", "DirectSplitCut", 0) <> 0
|
|
NotifyPropertyChanged(NameOf(bDirectSpLitCut_IsExpanded))
|
|
m_bModifyCut_IsExpanded = GetMainPrivateProfileInt("Split", "ModifyCut", 0) <> 0
|
|
NotifyPropertyChanged(NameOf(bModifyCut_IsExpanded))
|
|
' aggiorno la visualizzazione dei comandi per generare i bridge
|
|
m_BridgeBtn_IsChecked = False
|
|
NotifyPropertyChanged(NameOf(BridgeBtn_IsChecked))
|
|
m_BridgeDeleteBtn_IsChecked = False
|
|
NotifyPropertyChanged(NameOf(BridgeDeleteBtn_IsChecked))
|
|
'm_CurrProjPage = m_MainWindow.m_CurrentProjectPageUC
|
|
m_nDragInd = -1
|
|
m_nDragType = 0
|
|
' verifico se è abilitata la possibiltà di allungare i lati interni
|
|
m_StartEndModifyOnIntCorner = (GetPrivateProfileInt(S_NEST, K_STARTENDMODIFYONINTCORNER, 0, sMachIniFile) <> 0)
|
|
' Nascondo eventuali pezzi in parcheggio
|
|
EstCalc.HideParkedParts()
|
|
' Nascondo eventuale contorno da foto
|
|
EstPhoto.ShowContour(False)
|
|
' Deseleziono pezzi
|
|
EgtDeselectAll()
|
|
VeinMatching.OnDeselectAll()
|
|
EgtZoom(ZM.ALL)
|
|
' Elimino eventuali pretagli su uscite
|
|
CamAuto.RemoveAllExitPreCuts()
|
|
' Se non sono in sola visualizzazione, faccio ordine automatico delle lavorazioni
|
|
If Not OmagOFFICEMap.refMachiningTabVM.IsShow Then
|
|
If CurrentMachine.WaterJettingActive Then ResetAllMachinings()
|
|
If SortAllMachinings() Then EstCalc.SetOrderMachiningFlag()
|
|
If CurrentMachine.WaterJettingActive Then
|
|
Dim bModif As Boolean = TestAllMachiningsForStrict()
|
|
If bModif Then OmagOFFICEMap.refStatusBarVM.SetOutputMessage(EgtMsg(90321), 3, MSG_TYPE.WARNING) 'Ridotte alcune lavorazioni per evitare interferenze
|
|
End If
|
|
End If
|
|
' Disabilito impostazione modificato
|
|
EgtDisableModified()
|
|
' Creo gruppo per numeri identificativi di lavorazione (colore default grigio)
|
|
m_nNbrGrpId = EgtCreateGroup(GDB_ID.ROOT)
|
|
EgtSetColor(m_nNbrGrpId, COL_MCH_DIS_NUMBER)
|
|
EgtSetStatus(m_nNbrGrpId, GDB_ST.SEL)
|
|
EgtSetLevel(m_nNbrGrpId, GDB_LV.TEMP)
|
|
' Recupero l'indice della fase corrente
|
|
m_nCurrPhase = EgtGetCurrPhase()
|
|
' Visualizzo solo anteprime di lavorazioni della fase
|
|
ShowOnePhaseMachiningPreview(m_nCurrPhase)
|
|
' Preparo la lista delle lavorazioni
|
|
CalculateSplitMachList(m_nCurrPhase, m_MachiningList)
|
|
' azzero i contatori delle lavorazioni
|
|
m_nCountSawing = 0
|
|
m_nCountWaterjetting = 0
|
|
m_nCountOtherMachining = 0
|
|
' Aggiorno visualizzazione delle lavorazioni
|
|
For nI As Integer = 0 To m_MachiningList.Count() - 1
|
|
' sistemo colore
|
|
ColorMachining(m_MachiningList(nI))
|
|
' assegno numerazione
|
|
NumberDirectionMachining(nI)
|
|
' conto il numero di tipi di lavorazioni
|
|
CountMachiningType(m_MachiningList(nI), m_nCountSawing, m_nCountWaterjetting, m_nCountOtherMachining)
|
|
Next
|
|
' Preparo la lista degli Item
|
|
ShowMachiningList()
|
|
' Aggiorno visualizzazione
|
|
EgtDraw()
|
|
' Abilito impostazione modificato
|
|
EgtEnableModified()
|
|
' Nessun item corrente
|
|
m_CurrFirstInd = -1
|
|
m_CurrLastInd = -1
|
|
' Reset flag di modifica
|
|
m_bModified = False
|
|
' Abilitazione bottoni
|
|
EnableButtons()
|
|
Return True
|
|
End Function
|
|
|
|
Friend Function ExitSplitRaw(Optional bTrueExit As Boolean = True) As Boolean
|
|
m_bActive = False
|
|
' eventualmente interrompo la creazione dei ponticelli
|
|
DeselectWJBridgesPart()
|
|
|
|
' Interrompo la creazione di tagli di separazione
|
|
ResetSplitCut()
|
|
m_CreateCut_IsChecked = False
|
|
NotifyPropertyChanged(NameOf(CreateCut_IsChecked))
|
|
m_RemoveCut_IsChecked = False
|
|
NotifyPropertyChanged(NameOf(RemoveCut_IsChecked))
|
|
m_CreateParallelCut_IsChecked = False
|
|
NotifyPropertyChanged(NameOf(CreateParallelCut_IsChecked))
|
|
m_ModifyCut_IsChecked = False
|
|
NotifyPropertyChanged(NameOf(ModifyCut_IsChecked))
|
|
|
|
' Rimuovo evidenziazione e numeri
|
|
RemoveMarkAndNumbers()
|
|
' Ripristino colori lavorazioni
|
|
EgtDisableModified()
|
|
For i As Integer = 0 To m_MachiningList.Count() - 1
|
|
ColorMachining(m_MachiningList(i), True)
|
|
Next
|
|
EgtEnableModified()
|
|
' Pulisco la lista che tiene conto delle lavorazioni selezionate
|
|
m_SelectedItemsList.Clear()
|
|
' se modificato salvo ordine e stato delle lavorazioni
|
|
If m_bModified Then
|
|
' Al primo posto deve rimanere la disposizione della fase
|
|
Dim nFirstOperId As Integer = EgtGetPhaseDisposition(m_nCurrPhase)
|
|
For i = m_ItemList.Count() - 1 To 0 Step -1
|
|
Dim nI As Integer = m_ItemList(i).Ind
|
|
Dim nMchId As Integer = m_MachiningList(nI).m_nId
|
|
EgtRelocate(nMchId, nFirstOperId, GDB_POS.AFTER)
|
|
If m_MachiningList(nI).m_bEnabled Then
|
|
EgtSetOperationMode(m_MachiningList(nI).m_nId, True)
|
|
EgtRemoveInfo(m_MachiningList(nI).m_nId, INFO_MCH_USER_OFF)
|
|
Else
|
|
EgtSetOperationMode(m_MachiningList(nI).m_nId, False)
|
|
EgtSetInfo(m_MachiningList(nI).m_nId, INFO_MCH_USER_OFF, True)
|
|
End If
|
|
Next
|
|
' dichiaro ordine salvato
|
|
EstCalc.SetOrderMachiningFlag()
|
|
End If
|
|
' Affondamento ridotto
|
|
Dim dReducedDepth As Double = GetMainPrivateProfileDouble(S_MACH_NEST, K_MACH_REDUCEDDEPTH, 1)
|
|
' Restringo o rialzo lavorazioni abilitate ma con interferenza
|
|
Dim bModified As Boolean = False
|
|
For Each Mach As SplitMach In m_MachiningList
|
|
If Mach.m_bEnabled And Mach.m_nInterf <> FMI_TYPE.NONE Then
|
|
If AdjustMachining(Mach.m_nId, Mach.m_nInterf, dReducedDepth) Then
|
|
bModified = True
|
|
End If
|
|
End If
|
|
Next
|
|
If bTrueExit Then
|
|
' ritorno a fase 1
|
|
EgtSetCurrPhase(1)
|
|
' Ripristino visualizzazione preview lavorazioni
|
|
ShowAllPhasesMachiningPreview()
|
|
End If
|
|
If bModified Then
|
|
' Ridotte alcune lavorazioni per evitare interferenze
|
|
OmagOFFICEMap.refStatusBarVM.SetOutputMessage(EgtMsg(90321), 3, MSG_TYPE.WARNING)
|
|
End If
|
|
Return True
|
|
End Function
|
|
|
|
Private Sub AddPauseText(ByRef sName As String)
|
|
sName &= " " & EgtMsg(MSG_SPLITPAGEUC + 32) ' Pausa
|
|
End Sub
|
|
|
|
Private Sub AddTopText(ByRef sName As String)
|
|
sName &= EgtMsg(91217) ' Top
|
|
End Sub
|
|
|
|
Private Sub RemovePauseText(ByRef sName As String)
|
|
sName = sName.Replace(EgtMsg(MSG_SPLITPAGEUC + 32), "")
|
|
sName = sName.TrimEnd()
|
|
End Sub
|
|
|
|
Friend Function GetDisabledCutsCount() As Integer
|
|
' Determino il numero di tagli disabilitati
|
|
Dim nCount As Integer = 0
|
|
For nI As Integer = 0 To m_MachiningList.Count() - 1
|
|
If Not m_MachiningList(nI).m_bEnabled Then
|
|
nCount += 1
|
|
End If
|
|
Next
|
|
Return nCount
|
|
End Function
|
|
|
|
Friend Function GetSplitCutsCount() As Integer
|
|
' Determino il numero di tagli passanti almeno da un lato
|
|
Dim nCount As Integer = 0
|
|
For nI As Integer = 0 To m_MachiningList.Count() - 1
|
|
If m_MachiningList(nI).m_bEnabled And
|
|
(m_MachiningList(nI).m_bStartAll Or m_MachiningList(nI).m_bEndAll) Then
|
|
nCount += 1
|
|
End If
|
|
Next
|
|
Return nCount
|
|
End Function
|
|
|
|
Friend Sub GetSplitCuts(ByRef Cuts() As Integer)
|
|
' Determino l'elenco dei tagli passanti almeno da un lato
|
|
Dim MyCuts As New List(Of Integer)
|
|
For nI As Integer = 0 To m_MachiningList.Count() - 1
|
|
If m_MachiningList(nI).m_bEnabled And
|
|
(m_MachiningList(nI).m_bStartAll Or m_MachiningList(nI).m_bEndAll) Then
|
|
MyCuts.Add(m_MachiningList(nI).m_nId)
|
|
End If
|
|
Next
|
|
Cuts = MyCuts.ToArray()
|
|
End Sub
|
|
|
|
Friend Sub GetEnabledCuts(ByRef Cuts() As Integer)
|
|
' Determino l'elenco dei tagli abilitati
|
|
Dim MyCuts As New List(Of Integer)
|
|
For nI As Integer = 0 To m_MachiningList.Count() - 1
|
|
If m_MachiningList(nI).m_bEnabled Then
|
|
MyCuts.Add(m_MachiningList(nI).m_nId)
|
|
End If
|
|
Next
|
|
Cuts = MyCuts.ToArray()
|
|
End Sub
|
|
|
|
Friend Sub ExecAuto()
|
|
' Con movimento manuale, non disponibile movimento automatico
|
|
If OmagOFFICEMap.refMachiningTabVM.ByHand Then Return
|
|
' Elimino evidenziazione e numerazione
|
|
RemoveMarkAndNumbers()
|
|
' Calcolo automatico
|
|
Dim bFinished As Boolean = False
|
|
Dim bOk As Boolean = SplitAuto.CalculateOnePhaseSplitAuto(bFinished)
|
|
If Not bOk Then
|
|
' Calcolo automatico non riuscito
|
|
OmagOFFICEMap.refStatusBarVM.SetOutputMessage(EgtMsg(90350), 3, MSG_TYPE.WARNING)
|
|
End If
|
|
m_bModified = True
|
|
End Sub
|
|
|
|
Friend Sub ChangeToModify()
|
|
' Elimino le fasi successive alla corrente
|
|
While EgtGetPhaseCount() > m_nCurrPhase
|
|
RemoveLastPhase()
|
|
End While
|
|
' Aggiorno le lavorazioni (eliminato sort per lasciare ordine immutato)
|
|
If CurrentMachine.WaterJettingActive Then ResetAllMachinings()
|
|
EstCalc.SetOrderMachiningFlag()
|
|
If CurrentMachine.WaterJettingActive Then
|
|
Dim bModif As Boolean = TestAllMachiningsForStrict()
|
|
If bModif Then OmagOFFICEMap.refStatusBarVM.SetOutputMessage(EgtMsg(90321), 3, MSG_TYPE.WARNING) 'Ridotte alcune lavorazioni per evitare interferenze
|
|
End If
|
|
' Visualizzo solo anteprime di lavorazioni della fase
|
|
ShowOnePhaseMachiningPreview(m_nCurrPhase)
|
|
' Nascondo gli eventuali percorsi di lavorazione
|
|
HideAllMachinings()
|
|
' Preparo la lista delle lavorazioni e le disabilito
|
|
CalculateSplitMachList(m_nCurrPhase, m_MachiningList)
|
|
' azzero i contatori delle lavorazioni
|
|
m_nCountSawing = 0
|
|
m_nCountWaterjetting = 0
|
|
m_nCountOtherMachining = 0
|
|
For nI As Integer = 0 To m_MachiningList.Count() - 1
|
|
m_MachiningList(nI).m_bEnabled = False
|
|
' conto il numero di tipi di lavorazioni
|
|
CountMachiningType(m_MachiningList(nI), m_nCountSawing, m_nCountWaterjetting, m_nCountOtherMachining)
|
|
Next
|
|
' Aggiorno visualizzazione delle lavorazioni
|
|
EgtEmptyGroup(m_nNbrGrpId)
|
|
For nI As Integer = 0 To m_MachiningList.Count() - 1
|
|
' sistemo colore
|
|
ColorMachining(m_MachiningList(nI))
|
|
' assegno numerazione
|
|
NumberDirectionMachining(nI)
|
|
Next
|
|
' -------------------- Recupero le lavorazioni indicate come attive --------------------
|
|
Dim ActiveMachLst As New List(Of Integer)
|
|
For Each ItemSplitMach As NameIdLsBxItem In m_ItemList
|
|
ActiveMachLst.Add(ItemSplitMach.Ind)
|
|
Next
|
|
' -------------------- Recupero le lavorazioni indicate come attive --------------------
|
|
' Preparo la lista degli Item
|
|
ShowMachiningList()
|
|
' -------------------- Riattivo le lavorazioni precedenti --------------------
|
|
For Each Item As SplitMach In m_MachiningList
|
|
EgtSetInfo(Item.m_nId, INFO_MCH_USER_OFF, True)
|
|
Next
|
|
|
|
For nIndex As Integer = 0 To ActiveMachLst.Count - 1
|
|
For Each ItemSplitMach As NameIdLsBxItem In m_ItemList
|
|
If ItemSplitMach.Ind = ActiveMachLst(nIndex) Then
|
|
EgtRemoveInfo(m_MachiningList(ItemSplitMach.Ind).m_nId, INFO_MCH_USER_OFF)
|
|
m_MachiningList(ItemSplitMach.Ind).m_bEnabled = True
|
|
ItemSplitMach.bIsActive = True
|
|
' sistemo colore
|
|
ColorMachining(m_MachiningList(ItemSplitMach.Ind))
|
|
Exit For
|
|
End If
|
|
Next
|
|
Next
|
|
' -------------------- Riattivo le lavorazioni precedenti --------------------
|
|
' Aggiorno visualizzazione
|
|
EgtDraw()
|
|
' Aggiono abilitazione bottoni
|
|
EnableButtons()
|
|
End Sub
|
|
|
|
' Aggiorno le lavorazioni
|
|
Private Sub PreviewMachinigList()
|
|
' Visualizzo solo anteprime di lavorazioni della fase
|
|
ShowOnePhaseMachiningPreview(m_nCurrPhase)
|
|
' Preparo la lista delle lavorazioni
|
|
CalculateSplitMachList(m_nCurrPhase, m_MachiningList)
|
|
' azzero i contatori delle lavorazioni
|
|
m_nCountSawing = 0
|
|
m_nCountWaterjetting = 0
|
|
m_nCountOtherMachining = 0
|
|
' Aggiorno visualizzazione delle lavorazioni
|
|
EgtEmptyGroup(m_nNbrGrpId)
|
|
For nI As Integer = 0 To m_MachiningList.Count() - 1
|
|
' sistemo colore
|
|
ColorMachining(m_MachiningList(nI))
|
|
' assegno numerazione
|
|
NumberDirectionMachining(nI)
|
|
' conto il numero di tipi di lavorazioni
|
|
CountMachiningType(m_MachiningList(nI), m_nCountSawing, m_nCountWaterjetting, m_nCountOtherMachining)
|
|
Next
|
|
' Preparo la lista degli Item
|
|
ShowMachiningList()
|
|
End Sub
|
|
|
|
Private Sub ShowMachiningList()
|
|
m_ItemList.Clear()
|
|
For i As Integer = 1 To m_MachiningList.Count()
|
|
Dim Mach As SplitMach = m_MachiningList(i - 1)
|
|
If Mach.m_nType = MCH_OY.SAWING Then ' Taglio
|
|
Dim sText As String = String.Empty
|
|
If Math.Abs(Mach.m_dSideAng) < EPS_ANG_SMALL Then
|
|
sText = EgtMsg(90791) & " " & i.ToString()
|
|
If Mach.m_sLay = NAME_ONPATH Then AddTopText(sText)
|
|
Else
|
|
sText = EgtMsg(90791) & " " & i.ToString() & " " & DoubleToString(Mach.m_dSideAng, 2) & "°"
|
|
End If
|
|
If Mach.m_bPause Then AddPauseText(sText)
|
|
m_ItemList.Add(New NameIdLsBxItem(sText, i - 1, Mach.m_bEnabled, MCH_OY.SAWING, "/Resources/NewIcons/Movimento-manuale.png"))
|
|
ElseIf Mach.m_nType = MCH_OY.DRILLING Then ' Foratura
|
|
Dim sText As String = EgtMsg(90792) & " " & i.ToString()
|
|
If Mach.m_bPause Then AddPauseText(sText)
|
|
m_ItemList.Add(New NameIdLsBxItem(sText, i - 1, Mach.m_bEnabled, MCH_OY.DRILLING, "/Resources/NewIcons/Foro-singolo.png"))
|
|
ElseIf Mach.m_nType = MCH_OY.MILLING Then ' Fresatura
|
|
Dim sText As String = EgtMsg(90793) & " " & i.ToString()
|
|
If Mach.m_sLay = NAME_ONPATH Then AddTopText(sText)
|
|
m_ItemList.Add(New NameIdLsBxItem(sText, i - 1, Mach.m_bEnabled, MCH_OY.MILLING, "/Resources/NewIcons/Spianatura.png"))
|
|
ElseIf Mach.m_nType = MCH_OY.POCKETING Then ' Svuotatura
|
|
Dim sText As String = EgtMsg(90796) & " " & i.ToString()
|
|
If Mach.m_bPause Then AddPauseText(sText)
|
|
m_ItemList.Add(New NameIdLsBxItem(sText, i - 1, Mach.m_bEnabled, MCH_OY.POCKETING))
|
|
ElseIf Mach.m_nType = MCH_OY.WATERJETTING Then ' Waterjet
|
|
Dim sText As String = EgtMsg(90797) & " " & i.ToString()
|
|
If Mach.m_bPause Then AddPauseText(sText)
|
|
m_ItemList.Add(New NameIdLsBxItem(sText, i - 1, Mach.m_bEnabled, MCH_OY.WATERJETTING))
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
Private Sub EnableButtons()
|
|
' Per bottone PREV
|
|
OmagOFFICEMap.refMachiningTabVM.PrevIsEnabled = (m_nCurrPhase > 1)
|
|
' Per bottone NEXT
|
|
' Se abilitato manipolatore
|
|
If OmagOFFICEMap.refMainWindowVM.MainWindowM.GetKeyOption(KEY_OPT.MAN_MANIP) Or
|
|
OmagOFFICEMap.refMainWindowVM.MainWindowM.GetKeyOption(KEY_OPT.AUTO_MANIP) Then
|
|
' Se in modifica
|
|
If Not OmagOFFICEMap.refMachiningTabVM.IsShow Then
|
|
' Se allontanamento perpendicolare
|
|
If OmagOFFICEMap.refMachiningTabVM.ByHand Then
|
|
' Ci deve essere almeno 1 taglio disabilitato e 1 e 1 solo passante
|
|
OmagOFFICEMap.refMachiningTabVM.NextIsEnabled = (GetDisabledCutsCount() > 0 And GetSplitCutsCount() = 1)
|
|
' Altrimenti
|
|
Else
|
|
' Ci deve essere almeno 1 taglio disabilitato e almeno 1 passante oppure fase successiva alla prima
|
|
OmagOFFICEMap.refMachiningTabVM.NextIsEnabled = (GetDisabledCutsCount() > 0 And
|
|
(GetSplitCutsCount() > 0 Or m_nCurrPhase > 1)) Or
|
|
CurrentMachine.bRawFinalMove
|
|
End If
|
|
' altrimenti sto solo visualizzando
|
|
Else
|
|
OmagOFFICEMap.refMachiningTabVM.NextIsEnabled = (m_nCurrPhase < EgtGetPhaseCount())
|
|
End If
|
|
Else
|
|
OmagOFFICEMap.refMachiningTabVM.NextIsEnabled = False
|
|
End If
|
|
' Per bottone MODIFY
|
|
OmagOFFICEMap.refMachiningTabVM.ModifyIsEnabled = OmagOFFICEMap.refMachiningTabVM.IsShow
|
|
' Per bottone AUTO
|
|
OmagOFFICEMap.refMachiningTabVM.AutoIsEnabled = Not OmagOFFICEMap.refMachiningTabVM.IsShow And
|
|
((GetDisabledCutsCount() > 0 Or m_nCurrPhase = 1) And
|
|
Not OmagOFFICEMap.refMachiningTabVM.ByHand)
|
|
' Altri bottoni
|
|
SplitModeIsEnabled = Not OmagOFFICEMap.refMachiningTabVM.IsShow
|
|
|
|
' nascondo i comandi che non devono essere visualizzati in funzione delle lavorazioni attive
|
|
If m_nCountSawing = 0 And (m_nCountWaterjetting > 0 Or m_nCountOtherMachining > 0) Then
|
|
VisibilityButtonFromMachining(MCH_OY.WATERJETTING)
|
|
Else
|
|
VisibilityButtonFromMachining(MCH_OY.SAWING)
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub VerifyHomogenousMachining(ItemList As List(Of NameIdLsBxItem))
|
|
If IsNothing(ItemList) OrElse ItemList.Count = 0 Then
|
|
OmagOFFICEMap.refStatusBarVM.ClearOutputMessage()
|
|
Return
|
|
End If
|
|
Dim nSawing As Integer = 0
|
|
Dim nWaterjetting As Integer = 0
|
|
Dim nOtherMachining As Integer = 0
|
|
' conto il numero di tipi di lavprazioni
|
|
For Each Item As NameIdLsBxItem In ItemList
|
|
If Item.Type = MCH_OY.SAWING Then
|
|
nSawing += 1
|
|
ElseIf Item.Type = MCH_OY.WATERJETTING Then
|
|
nWaterjetting += 1
|
|
Else
|
|
nOtherMachining += 1
|
|
End If
|
|
Next
|
|
' verifico se le lavorazioni sono omeogenee
|
|
If nSawing > 0 And (nWaterjetting > 0 Or nOtherMachining > 0) Then
|
|
m_bAreHomogeneous = False
|
|
VisibilityButtonFromMachining(MCH_OY.SAWING)
|
|
ElseIf nSawing = 0 And nOtherMachining > 0 And nWaterjetting > 0 Then
|
|
m_bAreHomogeneous = False
|
|
VisibilityButtonFromMachining(MCH_OY.WATERJETTING)
|
|
Else
|
|
VisibilityButtonFromMachining(ItemList(0).Type)
|
|
m_bAreHomogeneous = True
|
|
End If
|
|
' eventualmente stampo messaggio
|
|
If Not m_bAreHomogeneous Then
|
|
OmagOFFICEMap.refStatusBarVM.ClearOutputMessage()
|
|
OmagOFFICEMap.refStatusBarVM.SetOutputMessage("Lavorazioni non omogenee", MSG_TYPE.WARNING)
|
|
Else
|
|
OmagOFFICEMap.refStatusBarVM.ClearOutputMessage()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub VisibilityButtonFromMachining(ByVal Type As Integer)
|
|
If Type <> MCH_OY.SAWING Then
|
|
CutBtnVisibility = Visibility.Hidden
|
|
CutStartBtnVisibility = Visibility.Hidden
|
|
CutEndBtnVisibility = Visibility.Hidden
|
|
|
|
OutCenStartBtnVisibility = Visibility.Hidden
|
|
OutCenEndBtnVisibility = Visibility.Hidden
|
|
InvertBtnVisibility = Visibility.Hidden
|
|
PauseBtnVisibility = Visibility.Hidden
|
|
AllOutStartBtnVisibility = Visibility.Hidden
|
|
AllCenStartBtnVisibility = Visibility.Hidden
|
|
AllOutEndBtnVisibility = Visibility.Hidden
|
|
AllCenEndBtnVisibility = Visibility.Hidden
|
|
AllExtendBtnVisibility = Visibility.Hidden
|
|
AllReduceBtnVisibility = Visibility.Hidden
|
|
Else
|
|
CutBtnVisibility = Visibility.Visible
|
|
CutStartBtnVisibility = Visibility.Visible
|
|
CutEndBtnVisibility = Visibility.Visible
|
|
|
|
OutCenStartBtnVisibility = Visibility.Visible
|
|
OutCenEndBtnVisibility = Visibility.Visible
|
|
InvertBtnVisibility = Visibility.Visible
|
|
PauseBtnVisibility = Visibility.Visible
|
|
AllOutStartBtnVisibility = Visibility.Visible
|
|
AllCenStartBtnVisibility = Visibility.Visible
|
|
AllOutEndBtnVisibility = Visibility.Visible
|
|
AllCenEndBtnVisibility = Visibility.Visible
|
|
AllExtendBtnVisibility = Visibility.Visible
|
|
AllReduceBtnVisibility = Visibility.Visible
|
|
End If
|
|
|
|
' gestione bottone per generazione ponticelli
|
|
If Type = MCH_OY.WATERJETTING Then
|
|
' siccome la stessa posizione è occupata da due comandi sovrapposti
|
|
If CutBtnVisibility = Visibility.Hidden Then
|
|
BridgeBtnVisibility = Visibility.Visible
|
|
BridgeDeleteBtnVisibility = Visibility.Visible
|
|
QualityBtnVisibility = Visibility.Visible
|
|
Else
|
|
BridgeBtnVisibility = Visibility.Hidden
|
|
BridgeDeleteBtnVisibility = Visibility.Hidden
|
|
QualityBtnVisibility = Visibility.Hidden
|
|
End If
|
|
Else
|
|
BridgeBtnVisibility = Visibility.Hidden
|
|
BridgeDeleteBtnVisibility = Visibility.Hidden
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Function ModifyOtherLeadIn(nI As Integer, nLiOthType As Integer) As Boolean
|
|
' Modifico l'attacco delle lavorazioni inglobate
|
|
For Each nMchId As Integer In m_MachiningList(nI).m_vOthId
|
|
EgtSetCurrMachining(nMchId)
|
|
EgtSetMachiningParam(MCH_MP.LEADINTYPE, nLiOthType)
|
|
Next
|
|
Return True
|
|
End Function
|
|
|
|
Private Function ModifyOtherLeadOut(nI As Integer, nLoOthType As Integer) As Boolean
|
|
' Modifico l'uscita delle lavorazioni inglobate
|
|
For Each nMchId As Integer In m_MachiningList(nI).m_vOthId
|
|
EgtSetCurrMachining(nMchId)
|
|
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, nLoOthType)
|
|
Next
|
|
Return True
|
|
End Function
|
|
|
|
Private Sub NumberDirectionMachining(nI As Integer, Optional bNumber As Boolean = True)
|
|
EgtDisableModified()
|
|
' Determino se seconda lavorazione
|
|
Dim sName As String = String.Empty
|
|
EgtGetName(m_MachiningList(nI).m_nId, sName)
|
|
Dim b2ndLav As Boolean = sName.Contains("_") Or sName.Contains("Drip")
|
|
' Ingombro complessivo della lavorazione
|
|
Dim ptMin, ptMax As Point3d
|
|
If Not BoxFromMachining(nI, ptMin, ptMax) Then Return
|
|
' Metto il numero nel centro
|
|
Dim dRadXY = Point3d.DistXY(ptMin, ptMax)
|
|
Dim dHtxt As Double = 50
|
|
Dim dRat As Double = 0.75
|
|
If dRadXY < 200 Then
|
|
dHtxt = 40
|
|
dRat = 0.6
|
|
ElseIf dRadXY < 25 Then
|
|
dHtxt = 25
|
|
dRat = 0.5
|
|
End If
|
|
Dim vtXY As Vector3d = ptMax - ptMin
|
|
vtXY.Normalize()
|
|
Dim ptCen As Point3d = Point3d.Media(ptMin, ptMax) + vtXY * If(Not b2ndLav, -0.8, 0.8) * dHtxt
|
|
ptCen.z = ptMax.z + 1
|
|
|
|
' ricavo la posizione del punto (se waterjet separata)
|
|
If m_MachiningList(nI).m_nType = MCH_OY.WATERJETTING Or m_MachiningList(nI).m_nType = MCH_OY.MILLING Then
|
|
Dim ptMid As Point3d
|
|
Dim vVers As Vector3d
|
|
MidPointOfCurve(m_MachiningList(nI).m_nId, ptMid, vVers)
|
|
ptCen = ptMid ' + vVers * If(Not b2ndLav, -0.8, 0.8) * dHtxt
|
|
End If
|
|
|
|
If bNumber Then
|
|
Dim nNbrId As Integer = EgtCreateTextAdv(m_nNbrGrpId, ptCen, 0, (nI + 1).ToString(), "",
|
|
300, False, dHtxt, dRat, 0, INS_POS.MC)
|
|
m_MachiningList(nI).m_nNbrId = nNbrId
|
|
' Aggiungo a numero info con identificativo della lavorazione e viceversa
|
|
EgtSetInfo(nNbrId, "MId", m_MachiningList(nI).m_nId)
|
|
EgtSetInfo(m_MachiningList(nI).m_nId, "NbrId", nNbrId)
|
|
If Not m_LayNbArrTgBtn_IsChecked Then
|
|
EgtSetStatus(nNbrId, GDB_ST.OFF)
|
|
Else
|
|
EgtSetStatus(nNbrId, GDB_ST.ON_)
|
|
End If
|
|
End If
|
|
' Se taglio con lama, metto la direzione accanto al numero
|
|
If m_MachiningList(nI).m_nType = MCH_OY.SAWING Then
|
|
Dim ptStart As New Point3d(ptCen + m_MachiningList(nI).m_vtDir * dHtxt)
|
|
Dim vtDir As New Vector3d(m_MachiningList(nI).m_vtDir)
|
|
Dim bTwin As Boolean = (Not m_MachiningList(nI).m_bEnableInvert OrElse Math.Abs(m_MachiningList(nI).m_dSideAng) > 0.1)
|
|
Dim nArrId As Integer = AddMachiningDirection(ptStart, vtDir, dHtxt, bTwin)
|
|
m_MachiningList(nI).m_nArrId = nArrId
|
|
' Aggiungo a freccia info con identificativo della lavorazione e viceversa
|
|
EgtSetInfo(nArrId, "MId", m_MachiningList(nI).m_nId)
|
|
EgtSetInfo(m_MachiningList(nI).m_nId, "ArrId", nArrId)
|
|
If Not m_LayNbArrTgBtn_IsChecked Then
|
|
EgtSetStatus(nArrId, GDB_ST.OFF)
|
|
Else
|
|
EgtSetStatus(nArrId, GDB_ST.ON_)
|
|
End If
|
|
Else
|
|
m_MachiningList(nI).m_nArrId = GDB_ID.NULL
|
|
End If
|
|
' Assegno colore a numero e freccia
|
|
ColorNumberArrow(nI)
|
|
EgtEnableModified()
|
|
End Sub
|
|
|
|
Private Function BoxFromMachining(nI As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d) As Boolean
|
|
If nI < 0 Then Return False
|
|
' Lavorazione principale
|
|
If Not BoxFromSingleMachining(m_MachiningList(nI).m_nId, ptMin, ptMax) Then
|
|
Return False
|
|
End If
|
|
' Eventuali lavorazioni inglobate
|
|
For Each nId As Integer In m_MachiningList(nI).m_vOthId
|
|
Dim ptMchMin, ptMchMax As Point3d
|
|
If BoxFromSingleMachining(nId, ptMchMin, ptMchMax) Then
|
|
ptMin.x = Math.Min(ptMin.x, ptMchMin.x)
|
|
ptMin.y = Math.Min(ptMin.y, ptMchMin.y)
|
|
ptMin.z = Math.Min(ptMin.z, ptMchMin.z)
|
|
ptMax.x = Math.Max(ptMax.x, ptMchMax.x)
|
|
ptMax.y = Math.Max(ptMax.y, ptMchMax.y)
|
|
ptMax.z = Math.Max(ptMax.z, ptMchMax.z)
|
|
End If
|
|
Next
|
|
Return True
|
|
End Function
|
|
|
|
Private Function BoxFromSingleMachining(nOperId As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d) As Boolean
|
|
' Recupero il preview della lavorazione
|
|
Dim nPvId As Integer = GDB_ID.NULL
|
|
EgtGetInfo(EgtGetFirstNameInGroup(nOperId, NAME_PREVIEW), INFO_PV_ONPART_ID, nPvId)
|
|
Return EgtGetBBoxGlob(nPvId, GDB_BB.STANDARD, ptMin, ptMax)
|
|
End Function
|
|
|
|
Private Function MidPointOfCurve(nOperId As Integer, ByRef ptMid As Point3d, ByRef vVers As Vector3d) As Boolean
|
|
Dim nPvId As Integer = GDB_ID.NULL
|
|
EgtGetInfo(EgtGetFirstNameInGroup(nOperId, NAME_PREVIEW), INFO_PV_ONPART_ID, nPvId)
|
|
' creo un layer ausiliario per creare la curva composita
|
|
Dim AuxLayer As Integer = EgtCreateGroup(nPvId)
|
|
' imposto la lavorazione corrente
|
|
EgtSetCurrMachining(nOperId)
|
|
' recupero tutte le entità della lavorazione corrente
|
|
Dim nInd As Integer = 0
|
|
Dim nIdCurr As Integer
|
|
Dim nSub As Integer
|
|
Dim CurveCompoList As New List(Of Integer)
|
|
While EgtGetMachiningGeometry(nInd, nIdCurr, nSub)
|
|
CurveCompoList.Add(nIdCurr)
|
|
nInd += 1
|
|
End While
|
|
Dim PtNearStart As Point3d
|
|
Dim nIdCutPath As Integer = EgtCreateCurveCompoByChain(AuxLayer, CurveCompoList.ToArray, PtNearStart, False)
|
|
Dim dLength As Double = 0
|
|
EgtCurveLength(nIdCutPath, dLength)
|
|
Dim dParam As Double = 0
|
|
EgtCurveParamAtLength(nIdCutPath, dLength / 2, dParam)
|
|
EgtAtParamPoint(nIdCutPath, dParam, GDB_RT.GLOB, ptMid)
|
|
EgtAtParamVector(nIdCutPath, dParam, -1, vVers)
|
|
vVers.Normalize()
|
|
vVers.Rotate(Vector3d.Z_AX, 90)
|
|
EgtErase(AuxLayer)
|
|
Return True
|
|
End Function
|
|
|
|
Private Function AddMachiningDirection(ptStart As Point3d, vtDir As Vector3d, dLen As Double, bTwin As Boolean) As Integer
|
|
Dim dArrX As Double = dLen * Math.Cos(30 * Math.PI / 180)
|
|
Dim dArrY As Double = dLen * Math.Sin(30 * Math.PI / 180)
|
|
Dim nTmpId As Integer = EgtCreateLine(m_nNbrGrpId, Point3d.ORIG() + dArrY * Vector3d.Y_AX(), Point3d.ORIG() + dArrX * Vector3d.X_AX())
|
|
Dim nCrvId As Integer = EgtCreateCurveCompo(m_nNbrGrpId, nTmpId, True)
|
|
EgtAddCurveCompoLine(nCrvId, Point3d.ORIG() - dArrY * Vector3d.Y_AX())
|
|
If bTwin Then
|
|
EgtAddCurveCompoLine(nCrvId, Point3d.ORIG() + 2 * dArrX * Vector3d.X_AX())
|
|
EgtCloseCurveCompo(nCrvId)
|
|
End If
|
|
Dim frLoc As New Frame3d(ptStart, vtDir, Vector3d.Z_AX() ^ vtDir, Vector3d.Z_AX())
|
|
EgtTransform(nCrvId, frLoc)
|
|
Return nCrvId
|
|
End Function
|
|
|
|
Private Sub MarkMachining(nI As Integer, bMark As Boolean)
|
|
If nI < 0 Then Return
|
|
Dim nOperId As Integer = m_MachiningList(nI).m_nId
|
|
' Evidenzio la lavorazione principale
|
|
MarkSingleMachining(nOperId, bMark)
|
|
' Evidenzio l'eventuale numero della lavorazione
|
|
MarkNumberArrow(nI, bMark)
|
|
' Marco anche le lavorazioni inglobate
|
|
For Each nId As Integer In m_MachiningList(nI).m_vOthId
|
|
MarkSingleMachining(nId, bMark)
|
|
Next
|
|
End Sub
|
|
|
|
Private Sub MarkSingleMachining(nOperId As Integer, bMark As Boolean)
|
|
Dim nPvId As Integer = GDB_ID.NULL
|
|
If EgtGetInfo(EgtGetFirstNameInGroup(nOperId, NAME_PREVIEW), INFO_PV_ONPART_ID, nPvId) Then
|
|
If bMark Then
|
|
EgtSetMark(nPvId)
|
|
Else
|
|
EgtResetMark(nPvId)
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MarkNumberArrow(nI As Integer, bMark As Boolean)
|
|
If nI < 0 Then Return
|
|
Dim nNbrId As Integer = m_MachiningList(nI).m_nNbrId
|
|
Dim nArrId As Integer = m_MachiningList(nI).m_nArrId
|
|
If bMark Then
|
|
EgtSetMark(nNbrId)
|
|
EgtSetMark(nArrId)
|
|
Else
|
|
EgtResetMark(nNbrId)
|
|
EgtResetMark(nArrId)
|
|
End If
|
|
If Not m_LayNbArrTgBtn_IsChecked And Not bMark Then
|
|
EgtSetStatus(nNbrId, GDB_ST.OFF)
|
|
EgtSetStatus(nArrId, GDB_ST.OFF)
|
|
Else
|
|
EgtSetStatus(nNbrId, GDB_ST.ON_)
|
|
EgtSetStatus(nArrId, GDB_ST.ON_)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ColorNumberArrow(nI As Integer)
|
|
If nI < 0 Then Return
|
|
Dim nNbrId As Integer = m_MachiningList(nI).m_nNbrId
|
|
Dim nArrId As Integer = m_MachiningList(nI).m_nArrId
|
|
If m_MachiningList(nI).m_bEnabled Then
|
|
If m_MachiningList(nI).m_nInterf = FMI_TYPE.NONE Then
|
|
EgtSetColor(nNbrId, COL_MCH_FREE)
|
|
EgtSetColor(nArrId, COL_MCH_FREE)
|
|
Else
|
|
EgtSetColor(nNbrId, COL_MCH_INTERF)
|
|
EgtSetColor(nArrId, COL_MCH_INTERF)
|
|
End If
|
|
Else
|
|
If m_MachiningList(nI).m_nInterf = FMI_TYPE.NONE Then
|
|
EgtResetColor(nNbrId)
|
|
EgtResetColor(nArrId)
|
|
ElseIf Not m_MachiningList(nI).m_bEnabled Then
|
|
EgtSetColor(nNbrId, COL_MCH_DIS_INTERF)
|
|
EgtSetColor(nArrId, COL_MCH_DIS_INTERF)
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub RemoveMarkAndNumbers()
|
|
EgtDisableModified()
|
|
' cancello evidenziazione
|
|
If m_CurrFirstInd >= 0 Then
|
|
For Index = m_CurrFirstInd To m_CurrLastInd
|
|
MarkMachining(m_ItemList(Index).Ind, False)
|
|
Next
|
|
m_CurrFirstInd = -1
|
|
m_CurrLastInd = -1
|
|
End If
|
|
' cancello gruppo di numerazione e ripristino colori lavorazioni
|
|
EgtErase(m_nNbrGrpId)
|
|
For i As Integer = 0 To m_MachiningList.Count() - 1
|
|
ColorMachining(m_MachiningList(i), True)
|
|
Next
|
|
EgtEnableModified()
|
|
End Sub
|
|
|
|
Private Sub SwapStartEndData(nI As Integer)
|
|
' Swap angoli precedente e successivo
|
|
Dim dAng As Double = m_MachiningList(nI).m_dPrevAng
|
|
m_MachiningList(nI).m_dPrevAng = m_MachiningList(nI).m_dNextAng
|
|
m_MachiningList(nI).m_dNextAng = dAng
|
|
' Swap lunghezze libere
|
|
Dim dFreeLen As Double = m_MachiningList(nI).m_dStartFreeLen
|
|
m_MachiningList(nI).m_dStartFreeLen = m_MachiningList(nI).m_dEndFreeLen
|
|
m_MachiningList(nI).m_dEndFreeLen = dFreeLen
|
|
' Swap stato di allungamento
|
|
Dim bAll As Boolean = m_MachiningList(nI).m_bStartAll
|
|
m_MachiningList(nI).m_bStartAll = m_MachiningList(nI).m_bEndAll
|
|
m_MachiningList(nI).m_bEndAll = bAll
|
|
' Swap possibilità di allungamento
|
|
Dim bCanAll As Boolean = m_MachiningList(nI).m_bCanStartAll
|
|
m_MachiningList(nI).m_bCanStartAll = m_MachiningList(nI).m_bCanEndAll
|
|
m_MachiningList(nI).m_bCanEndAll = bCanAll
|
|
' Swap stato interferenza
|
|
If (m_MachiningList(nI).m_nInterf And FMI_TYPE.LI) <> 0 And (m_MachiningList(nI).m_nInterf And FMI_TYPE.LO) = 0 Then
|
|
m_MachiningList(nI).m_nInterf -= FMI_TYPE.LI
|
|
m_MachiningList(nI).m_nInterf += FMI_TYPE.LO
|
|
ElseIf (m_MachiningList(nI).m_nInterf And FMI_TYPE.LI) = 0 And (m_MachiningList(nI).m_nInterf And FMI_TYPE.LO) <> 0 Then
|
|
m_MachiningList(nI).m_nInterf += FMI_TYPE.LI
|
|
m_MachiningList(nI).m_nInterf -= FMI_TYPE.LO
|
|
End If
|
|
' Swap Allungamento Utente
|
|
Dim dOrigUsal As Double = 0
|
|
EgtGetInfo(m_MachiningList(nI).m_nId, INFO_MCH_USER_SAL, dOrigUsal)
|
|
Dim dOrigUeal As Double = 0
|
|
EgtGetInfo(m_MachiningList(nI).m_nId, INFO_MCH_USER_EAL, dOrigUeal)
|
|
EgtSetInfo(m_MachiningList(nI).m_nId, INFO_MCH_USER_SAL, dOrigUeal)
|
|
EgtSetInfo(m_MachiningList(nI).m_nId, INFO_MCH_USER_EAL, dOrigUsal)
|
|
End Sub
|
|
|
|
Private Sub BridgeIsChecked()
|
|
' eventualmente spengo il comando per eliminare i ponticelli
|
|
If m_BridgeDeleteBtn_IsChecked Then
|
|
m_BridgeDeleteBtn_IsChecked = False
|
|
NotifyPropertyChanged(NameOf(BridgeDeleteBtn_IsChecked))
|
|
End If
|
|
' se deseleziono resetto tutte le variabili
|
|
If Not m_BridgeBtn_IsChecked Then
|
|
' se sono in fase di creazione di un ponticello interrompo
|
|
DeselectWJBridgesPart()
|
|
Return
|
|
End If
|
|
' recuoero il gruppo di lavorazione corrente
|
|
Dim nIdCurrMachGroup As Integer = EgtGetCurrMachGroup()
|
|
' creo il gruppo per i ponticelli
|
|
Dim sNameGroup As String = NAME_BRIDGES
|
|
Dim nId As Integer = EgtGetFirstNameInGroup(nIdCurrMachGroup, sNameGroup)
|
|
If nId <> GDB_ID.NULL Then
|
|
m_nIdBridgesGroup = nId
|
|
End If
|
|
' se non lo trovo allora lo creo
|
|
If nId = GDB_ID.NULL Then
|
|
m_nIdBridgesGroup = EgtCreateGroup(nIdCurrMachGroup)
|
|
EgtSetName(m_nIdBridgesGroup, NAME_BRIDGES)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub BridgeDeleteIsChecked()
|
|
' eventualmente spengo il comando per inserire i ponticelli
|
|
If m_BridgeBtn_IsChecked Then
|
|
m_BridgeBtn_IsChecked = False
|
|
NotifyPropertyChanged(NameOf(BridgeBtn_IsChecked))
|
|
End If
|
|
|
|
If Not m_BridgeDeleteBtn_IsChecked Then
|
|
DeselectWJBridgesPart()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CreateCutIsChecked()
|
|
' attivo la scena per renderla attiva
|
|
If m_CreateCut_IsChecked Then
|
|
' OmagOFFICEMap.refSceneHostVM.MainScene.SetStatusSelPoint()
|
|
OmagOFFICEMap.refSceneHostVM.MainScene.SetStatusNull()
|
|
ResetSplitCut()
|
|
Else
|
|
' ????????
|
|
ResetSplitCut()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub RemoveCutIsChecked()
|
|
If m_RemoveCut_IsChecked Then
|
|
OmagOFFICEMap.refSceneHostVM.MainScene.SetStatusNull()
|
|
ResetSplitCut()
|
|
Else
|
|
' ????????
|
|
ResetSplitCut()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CreateParellelCutIsChecked()
|
|
If m_CreateParallelCut_IsChecked Then
|
|
OmagOFFICEMap.refSceneHostVM.MainScene.SetStatusNull()
|
|
ResetSplitCut()
|
|
Else
|
|
' ????????
|
|
ResetSplitCut()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ModifyCutIsChecked()
|
|
If m_CreateParallelCut_IsChecked Then
|
|
OmagOFFICEMap.refSceneHostVM.MainScene.SetStatusNull()
|
|
ResetSplitCut()
|
|
Else
|
|
' ????????
|
|
ResetSplitCut()
|
|
End If
|
|
End Sub
|
|
|
|
' Forzo la fine della creazione di un elemento SplitCut
|
|
Private Sub ResetSplitCut()
|
|
EgtResetMark(m_IdCurrRawSolid)
|
|
ResetAllMark()
|
|
If m_IdSplitGroup <> GDB_ID.NULL Then
|
|
EgtErase(m_IdSplitGroup)
|
|
End If
|
|
m_bGetStartPoint = False
|
|
m_bGetEndPoint = False
|
|
m_IdSplitLine = GDB_ID.NULL
|
|
m_IdSplitGroup = GDB_ID.NULL
|
|
m_IdSplitGroupLayer = GDB_ID.NULL
|
|
m_IdCurrRawSolid = GDB_ID.NULL
|
|
m_IdSplitLineRemove = GDB_ID.NULL
|
|
EgtDraw()
|
|
End Sub
|
|
|
|
' spegno il comando Split correntemente attivo
|
|
Public Sub DeactiveSplitCut()
|
|
ResetSplitCut()
|
|
m_RemoveCut_IsChecked = False
|
|
m_CreateCut_IsChecked = False
|
|
m_CreateParallelCut_IsChecked = False
|
|
m_ModifyCut_IsChecked = False
|
|
NotifyPropertyChanged(NameOf(CreateCut_IsChecked))
|
|
NotifyPropertyChanged(NameOf(CreateParallelCut_IsChecked))
|
|
NotifyPropertyChanged(NameOf(RemoveCut_IsChecked))
|
|
NotifyPropertyChanged(NameOf(ModifyCut_IsChecked))
|
|
End Sub
|
|
|
|
Public Sub ResetAllMark()
|
|
For Each Item As NameIdLsBxItem In m_ItemList
|
|
Item.IsSelected = False
|
|
MarkMachining(Item.Ind, False)
|
|
Next
|
|
End Sub
|
|
|
|
#End Region ' METHODS
|
|
|
|
#Region "COMMANDS"
|
|
|
|
#Region "MoveCommands"
|
|
|
|
Public ReadOnly Property MoveUpCommand As ICommand
|
|
Get
|
|
If m_cmdMoveUp Is Nothing Then
|
|
m_cmdMoveUp = New Command(AddressOf MoveUp)
|
|
End If
|
|
Return m_cmdMoveUp
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub MoveUp(ByVal param As Object)
|
|
MoveItem(-1)
|
|
End Sub
|
|
|
|
Public ReadOnly Property MoveDownCommand As ICommand
|
|
Get
|
|
If m_cmdMoveDown Is Nothing Then
|
|
m_cmdMoveDown = New Command(AddressOf MoveDown)
|
|
End If
|
|
Return m_cmdMoveDown
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub MoveDown(ByVal param As Object)
|
|
MoveItem(+1)
|
|
End Sub
|
|
|
|
Public Sub MoveItem(direction As Integer)
|
|
' Checking selected item
|
|
If m_CurrFirstInd = -1 Then
|
|
Return
|
|
End If
|
|
|
|
' Se la direzione è giù
|
|
If direction = 1 And m_CurrLastInd < m_ItemList.Count - 1 Then
|
|
' sposto il successivo prima di tutti i selezionati
|
|
m_ItemList.Move(m_CurrLastInd + 1, m_CurrFirstInd)
|
|
MoveMachining(m_CurrLastInd + 1, m_CurrFirstInd)
|
|
' aggiorno gli indici degli elementi coinvolti nello spostamento (selezionati e non)
|
|
For index = m_CurrLastInd + 1 To m_CurrFirstInd Step -1
|
|
m_ItemList(index).Ind = index
|
|
Next
|
|
m_CurrFirstInd += 1
|
|
m_CurrLastInd += 1
|
|
ElseIf direction = -1 And m_CurrFirstInd > 0 Then
|
|
' sposto il precedente dopo tutti i selezionati
|
|
m_ItemList.Move(m_CurrFirstInd - 1, m_CurrLastInd)
|
|
MoveMachining(m_CurrFirstInd - 1, m_CurrLastInd)
|
|
' aggiorno gli indici degli elementi coinvolti nello spostamento (selezionati e non)
|
|
For index = m_CurrFirstInd - 1 To m_CurrLastInd
|
|
m_ItemList(index).Ind = index
|
|
Next
|
|
m_CurrFirstInd -= 1
|
|
m_CurrLastInd -= 1
|
|
End If
|
|
|
|
' Imposto flag di modifica
|
|
m_bModified = True
|
|
End Sub
|
|
|
|
Private Sub MoveMachining(oldIndex As Integer, newIndex As Integer)
|
|
Dim item As SplitMach = m_MachiningList(oldIndex)
|
|
m_MachiningList.RemoveAt(oldIndex)
|
|
m_MachiningList.Insert(newIndex, item)
|
|
End Sub
|
|
|
|
#End Region ' MoveCommands
|
|
|
|
#Region "OnOffCommand"
|
|
|
|
Public ReadOnly Property OnOffCommand As ICommand
|
|
Get
|
|
If m_cmdOnOff Is Nothing Then
|
|
m_cmdOnOff = New Command(AddressOf OnOff)
|
|
End If
|
|
Return m_cmdOnOff
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub OnOff(ByVal param As Object)
|
|
If m_CurrFirstInd = -1 Then Return
|
|
For Index = m_CurrFirstInd To m_CurrLastInd
|
|
If m_ItemList(Index).IsSelected Then
|
|
If Not m_ItemList(Index).IsSelected Then
|
|
Continue For
|
|
End If
|
|
Dim nI As Integer = m_ItemList(Index).Ind
|
|
If m_MachiningList(nI).m_bEnabled Then
|
|
m_MachiningList(nI).m_bEnabled = False
|
|
m_ItemList(Index).bIsActive = False
|
|
Else
|
|
m_MachiningList(nI).m_bEnabled = True
|
|
m_ItemList(Index).bIsActive = True
|
|
End If
|
|
ColorMachining(m_MachiningList(nI))
|
|
ColorNumberArrow(nI)
|
|
End If
|
|
Next
|
|
EgtDraw()
|
|
' Imposto flag di modifica
|
|
m_bModified = True
|
|
' Abilitazione bottone Next
|
|
' EnableButtons()
|
|
' recupero l'elenco degli elementi selezionati
|
|
Dim ItemList As New List(Of NameIdLsBxItem)
|
|
For Each Item As NameIdLsBxItem In m_SelectedItemsList ' MachiningLsBx.SelectedItems
|
|
ItemList.Add(Item)
|
|
Next
|
|
'For Each Item As NameIdLsBxItem In m_ItemList
|
|
' If Item.bIsActive Then ItemList.Add(Item)
|
|
'Next
|
|
VerifyHomogenousMachining(ItemList)
|
|
End Sub
|
|
|
|
#End Region ' OnOffCommand
|
|
|
|
#Region "AllOnCommand"
|
|
|
|
Public ReadOnly Property AllOnCommand As ICommand
|
|
Get
|
|
If m_cmdAllOn Is Nothing Then
|
|
m_cmdAllOn = New Command(AddressOf AllOn)
|
|
End If
|
|
Return m_cmdAllOn
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub AllOn(ByVal param As Object)
|
|
For nI As Integer = 0 To m_MachiningList.Count() - 1
|
|
If Not m_MachiningList(nI).m_bEnabled Then
|
|
m_MachiningList(nI).m_bEnabled = True
|
|
m_ItemList(nI).bIsActive = True
|
|
ColorMachining(m_MachiningList(nI))
|
|
ColorNumberArrow(nI)
|
|
End If
|
|
Next
|
|
EgtDraw()
|
|
' Imposto flag di modifica
|
|
m_bModified = True
|
|
' Abilitazione bottone Next
|
|
EnableButtons()
|
|
End Sub
|
|
|
|
#End Region ' AllOnCommand
|
|
|
|
#Region "AllOffCommand"
|
|
|
|
Public ReadOnly Property AllOffCommand As ICommand
|
|
Get
|
|
If m_cmdAllOff Is Nothing Then
|
|
m_cmdAllOff = New Command(AddressOf AllOff)
|
|
End If
|
|
Return m_cmdAllOff
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub AllOff(ByVal param As Object)
|
|
For nI As Integer = 0 To m_MachiningList.Count() - 1
|
|
If m_MachiningList(nI).m_bEnabled Then
|
|
m_MachiningList(nI).m_bEnabled = False
|
|
m_ItemList(nI).bIsActive = False
|
|
ColorMachining(m_MachiningList(nI))
|
|
ColorNumberArrow(nI)
|
|
End If
|
|
Next
|
|
EgtDraw()
|
|
' Imposto flag di modifica
|
|
m_bModified = True
|
|
' Abilitazione bottone Next
|
|
EnableButtons()
|
|
End Sub
|
|
|
|
#End Region ' AllOffCommand
|
|
|
|
#Region "CutCommands"
|
|
|
|
Public ReadOnly Property CutCommand As ICommand
|
|
Get
|
|
If m_cmdCut Is Nothing Then
|
|
m_cmdCut = New Command(AddressOf Cut)
|
|
End If
|
|
Return m_cmdCut
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub Cut(ByVal param As Object)
|
|
If m_CurrFirstInd = -1 Then Return
|
|
Dim bGenModif As Boolean = False
|
|
For Index = m_CurrFirstInd To m_CurrLastInd
|
|
If Not m_ItemList(Index).IsSelected Then
|
|
Continue For
|
|
End If
|
|
Dim nI As Integer = m_ItemList(Index).Ind
|
|
' Provo ad entrambi gli estremi
|
|
Dim bModif As Boolean = AdjustBothCuts(nI)
|
|
' Provo all'inizio
|
|
If Not bModif Then bModif = AdjustStartCut(nI)
|
|
' Provo alla fine
|
|
If Not bModif Then bModif = AdjustEndCut(nI)
|
|
' Se modificato qualcosa
|
|
If bModif Then
|
|
bGenModif = True
|
|
End If
|
|
Next
|
|
' Se modificato qualcosa
|
|
If bGenModif Then
|
|
EgtDraw()
|
|
m_bModified = True
|
|
End If
|
|
' Aggiono abilitazione bottoni
|
|
EnableButtons()
|
|
End Sub
|
|
|
|
Public ReadOnly Property CutStartCommand As ICommand
|
|
Get
|
|
If m_cmdCutStart Is Nothing Then
|
|
m_cmdCutStart = New Command(AddressOf CutStart)
|
|
End If
|
|
Return m_cmdCutStart
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub CutStart(ByVal param As Object)
|
|
If m_CurrFirstInd = -1 Then Return
|
|
Dim bGenModif As Boolean = False
|
|
For Index = m_CurrFirstInd To m_CurrLastInd
|
|
If Not m_ItemList(Index).IsSelected Then
|
|
Continue For
|
|
End If
|
|
Dim nI As Integer = m_ItemList(Index).Ind
|
|
' Eseguo
|
|
If AdjustStartCut(nI) Then
|
|
bGenModif = True
|
|
End If
|
|
Next
|
|
' Se modificato qualcosa
|
|
If bGenModif Then
|
|
EgtDraw()
|
|
m_bModified = True
|
|
End If
|
|
' Aggiono abilitazione bottoni
|
|
EnableButtons()
|
|
End Sub
|
|
|
|
Public ReadOnly Property CutEndCommand As ICommand
|
|
Get
|
|
If m_cmdCutEnd Is Nothing Then
|
|
m_cmdCutEnd = New Command(AddressOf CutEnd)
|
|
End If
|
|
Return m_cmdCutEnd
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub CutEnd(ByVal param As Object)
|
|
If m_CurrFirstInd = -1 Then Return
|
|
Dim bGenModif As Boolean = False
|
|
For Index = m_CurrFirstInd To m_CurrLastInd
|
|
If Not m_ItemList(Index).IsSelected Then
|
|
Continue For
|
|
End If
|
|
Dim nI As Integer = m_ItemList(Index).Ind
|
|
' Eseguo
|
|
If AdjustEndCut(nI) Then
|
|
bGenModif = True
|
|
End If
|
|
Next
|
|
' Se modificato qualcosa
|
|
If bGenModif Then
|
|
EgtDraw()
|
|
m_bModified = True
|
|
End If
|
|
' Aggiono abilitazione bottoni
|
|
EnableButtons()
|
|
End Sub
|
|
|
|
Private Function AdjustBothCuts(nI As Integer,
|
|
Optional bAllForced As Boolean = False,
|
|
Optional bAccForced As Boolean = False) As Boolean
|
|
' Verifico che entrambi gli estremi siano allungabili
|
|
If Not (m_MachiningList(nI).m_bCanStartAll And m_MachiningList(nI).m_bCanEndAll) Then Return False
|
|
' Eseguo allungamento o riporto allo standard
|
|
EgtSetCurrMachining(m_MachiningList(nI).m_nId)
|
|
Dim nLiPrev As Integer
|
|
EgtGetMachiningParam(MCH_MP.LEADINTYPE, nLiPrev)
|
|
Dim nLoPrev As Integer
|
|
EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, nLoPrev)
|
|
If (m_MachiningList(nI).m_bStartAll Or m_MachiningList(nI).m_bEndAll) And Not bAllForced Then
|
|
' accorcio
|
|
If nLiPrev = MCH_SAW_LI.EXT_OUT Then
|
|
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.OUT)
|
|
Else
|
|
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.CENT)
|
|
End If
|
|
If nLoPrev = MCH_SAW_LO.EXT_OUT Then
|
|
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.OUT)
|
|
Else
|
|
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.CENT)
|
|
End If
|
|
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
|
m_MachiningList(nI).m_bStartAll = False
|
|
m_MachiningList(nI).m_bEndAll = False
|
|
ElseIf m_MachiningList(nI).m_bEnabled And Not bAccForced Then
|
|
' allungo
|
|
If nLiPrev = MCH_SAW_LI.OUT Then
|
|
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.EXT_OUT)
|
|
Else
|
|
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.EXT_CENT)
|
|
End If
|
|
If nLoPrev = MCH_SAW_LO.OUT Then
|
|
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.EXT_OUT)
|
|
Else
|
|
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.EXT_CENT)
|
|
End If
|
|
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
|
m_MachiningList(nI).m_bStartAll = True
|
|
m_MachiningList(nI).m_bEndAll = True
|
|
End If
|
|
ColorMachining(m_MachiningList(nI))
|
|
Return True
|
|
End Function
|
|
|
|
Private Function AdjustStartCut(nI As Integer,
|
|
Optional bAllForced As Boolean = False,
|
|
Optional bAccForced As Boolean = False) As Boolean
|
|
' Verifico che l'estremo iniziale sia allungabile
|
|
If Not m_MachiningList(nI).m_bCanStartAll Then Return False
|
|
' Eseguo allungamento o riporto allo standard
|
|
EgtSetCurrMachining(m_MachiningList(nI).m_nId)
|
|
Dim nLiPrev As Integer
|
|
EgtGetMachiningParam(MCH_MP.LEADINTYPE, nLiPrev)
|
|
If m_MachiningList(nI).m_bStartAll And Not bAllForced Then
|
|
' accorcio
|
|
If nLiPrev = MCH_SAW_LI.EXT_OUT Then
|
|
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.OUT)
|
|
Else
|
|
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.CENT)
|
|
End If
|
|
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
|
m_MachiningList(nI).m_bStartAll = False
|
|
ElseIf m_MachiningList(nI).m_bEnabled And Not bAccForced Then
|
|
' allungo
|
|
If nLiPrev = MCH_SAW_LI.OUT Then
|
|
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.EXT_OUT)
|
|
Else
|
|
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.EXT_CENT)
|
|
End If
|
|
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
|
m_MachiningList(nI).m_bStartAll = True
|
|
End If
|
|
ColorMachining(m_MachiningList(nI))
|
|
Return True
|
|
End Function
|
|
|
|
Private Function AdjustEndCut(nI As Integer,
|
|
Optional bAllForced As Boolean = False,
|
|
Optional bAccForced As Boolean = False) As Boolean
|
|
' Verifico che l'estremo finale sia allungabile
|
|
If Not m_MachiningList(nI).m_bCanEndAll Then Return False
|
|
' Eseguo allungamento o riporto allo standard
|
|
EgtSetCurrMachining(m_MachiningList(nI).m_nId)
|
|
Dim nLoPrev As Integer
|
|
EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, nLoPrev)
|
|
If m_MachiningList(nI).m_bEndAll And Not bAllForced Then
|
|
' accorcio
|
|
If nLoPrev = MCH_SAW_LO.EXT_OUT Then
|
|
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.OUT)
|
|
Else
|
|
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.CENT)
|
|
End If
|
|
m_MachiningList(nI).m_bEndAll = False
|
|
ElseIf m_MachiningList(nI).m_bEnabled And Not bAccForced Then
|
|
' allungo
|
|
If nLoPrev = MCH_SAW_LO.OUT Then
|
|
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.EXT_OUT)
|
|
Else
|
|
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.EXT_CENT)
|
|
End If
|
|
m_MachiningList(nI).m_bEndAll = True
|
|
End If
|
|
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
|
ColorMachining(m_MachiningList(nI))
|
|
Return True
|
|
End Function
|
|
|
|
#End Region ' CutCommands
|
|
|
|
#Region "OutCenStartCommand"
|
|
|
|
Public ReadOnly Property OutCenStartCommand As ICommand
|
|
Get
|
|
If m_cmdOutCenStart Is Nothing Then
|
|
m_cmdOutCenStart = New Command(AddressOf OutCenStart)
|
|
End If
|
|
Return m_cmdOutCenStart
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub OutCenStart(ByVal param As Object)
|
|
If m_CurrFirstInd = -1 Then Return
|
|
Dim bGenModif As Boolean = False
|
|
For Index = m_CurrFirstInd To m_CurrLastInd
|
|
If Not m_ItemList(Index).IsSelected Then
|
|
Continue For
|
|
End If
|
|
Dim nI As Integer = m_ItemList(Index).Ind
|
|
If m_MachiningList(nI).m_sLay = NAME_OUTLOOP Then
|
|
EgtSetCurrMachining(m_MachiningList(nI).m_nId)
|
|
Dim nLiPrev As Integer
|
|
EgtGetMachiningParam(MCH_MP.LEADINTYPE, nLiPrev)
|
|
If nLiPrev = MCH_SAW_LI.OUT Then
|
|
' accorcio
|
|
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.CENT)
|
|
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
|
ModifyOtherLeadIn(nI, MCH_SAW_LI.CENT)
|
|
' ri-verifico interferenza
|
|
EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
|
|
ElseIf nLiPrev = MCH_SAW_LI.EXT_OUT Then
|
|
' accorcio
|
|
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.EXT_CENT)
|
|
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
|
ModifyOtherLeadIn(nI, MCH_SAW_LI.CENT)
|
|
ElseIf nLiPrev = MCH_SAW_LI.CENT Then
|
|
' allungo
|
|
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.OUT)
|
|
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
|
ModifyOtherLeadIn(nI, MCH_SAW_LI.OUT)
|
|
' ri-verifico interferenza
|
|
EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
|
|
ElseIf nLiPrev = MCH_SAW_LI.EXT_CENT Then
|
|
' allungo
|
|
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.EXT_OUT)
|
|
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
|
ModifyOtherLeadIn(nI, MCH_SAW_LI.OUT)
|
|
End If
|
|
ColorMachining(m_MachiningList(nI))
|
|
ColorNumberArrow(nI)
|
|
bGenModif = True
|
|
End If
|
|
Next
|
|
' Se modificato qualcosa
|
|
If bGenModif Then
|
|
EgtDraw()
|
|
m_bModified = True
|
|
End If
|
|
End Sub
|
|
|
|
#End Region ' OutCenStartCommand
|
|
|
|
#Region "AllOutStartCommand"
|
|
|
|
Public ReadOnly Property AllOutStartCommand As ICommand
|
|
Get
|
|
If m_cmdAllOutStart Is Nothing Then
|
|
m_cmdAllOutStart = New Command(AddressOf AllOutStart)
|
|
End If
|
|
Return m_cmdAllOutStart
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub AllOutStart(ByVal param As Object)
|
|
For nI As Integer = 0 To m_MachiningList.Count() - 1
|
|
EgtSetCurrMachining(m_MachiningList(nI).m_nId)
|
|
Dim nLiPrev As Integer
|
|
EgtGetMachiningParam(MCH_MP.LEADINTYPE, nLiPrev)
|
|
If nLiPrev = MCH_SAW_LI.CENT Then
|
|
' allungo
|
|
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.OUT)
|
|
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
|
ModifyOtherLeadIn(nI, MCH_SAW_LI.OUT)
|
|
' ri-verifico interferenza
|
|
EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
|
|
ElseIf nLiPrev = MCH_SAW_LI.EXT_CENT Then
|
|
' allungo
|
|
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.EXT_OUT)
|
|
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
|
ModifyOtherLeadIn(nI, MCH_SAW_LI.OUT)
|
|
End If
|
|
ColorMachining(m_MachiningList(nI))
|
|
ColorNumberArrow(nI)
|
|
Next
|
|
EgtDraw()
|
|
' Imposto flag di modifica
|
|
m_bModified = True
|
|
End Sub
|
|
|
|
#End Region ' AllOutStartCommand
|
|
|
|
#Region "AllCenStartCommand"
|
|
|
|
Public ReadOnly Property AllCenStartCommand As ICommand
|
|
Get
|
|
If m_cmdAllCenStart Is Nothing Then
|
|
m_cmdAllCenStart = New Command(AddressOf AllCenStart)
|
|
End If
|
|
Return m_cmdAllCenStart
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub AllCenStart(ByVal param As Object)
|
|
For nI As Integer = 0 To m_MachiningList.Count() - 1
|
|
EgtSetCurrMachining(m_MachiningList(nI).m_nId)
|
|
Dim nLiPrev As Integer
|
|
EgtGetMachiningParam(MCH_MP.LEADINTYPE, nLiPrev)
|
|
If nLiPrev = MCH_SAW_LI.OUT Then
|
|
' accorcio
|
|
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.CENT)
|
|
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
|
ModifyOtherLeadIn(nI, MCH_SAW_LI.CENT)
|
|
' ri-verifico interferenza
|
|
EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
|
|
ElseIf nLiPrev = MCH_SAW_LI.EXT_OUT Then
|
|
' accorcio
|
|
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.EXT_CENT)
|
|
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
|
ModifyOtherLeadIn(nI, MCH_SAW_LI.CENT)
|
|
End If
|
|
ColorMachining(m_MachiningList(nI))
|
|
ColorNumberArrow(nI)
|
|
Next
|
|
EgtDraw()
|
|
' Imposto flag di modifica
|
|
m_bModified = True
|
|
End Sub
|
|
|
|
#End Region ' AllCenStartCommand
|
|
|
|
#Region "OutCenEndCommand"
|
|
|
|
Public ReadOnly Property OutCenEndCommand As ICommand
|
|
Get
|
|
If m_cmdOutCenEnd Is Nothing Then
|
|
m_cmdOutCenEnd = New Command(AddressOf OutCenEnd)
|
|
End If
|
|
Return m_cmdOutCenEnd
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub OutCenEnd(ByVal param As Object)
|
|
If m_CurrFirstInd = -1 Then Return
|
|
Dim bGenModif As Boolean = False
|
|
For Index = m_CurrFirstInd To m_CurrLastInd
|
|
If Not m_ItemList(Index).IsSelected Then
|
|
Continue For
|
|
End If
|
|
Dim nI As Integer = m_ItemList(Index).Ind
|
|
If m_MachiningList(nI).m_sLay = NAME_OUTLOOP Then
|
|
EgtSetCurrMachining(m_MachiningList(nI).m_nId)
|
|
Dim nLoPrev As Integer
|
|
EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, nLoPrev)
|
|
If nLoPrev = MCH_SAW_LO.OUT Then
|
|
' accorcio
|
|
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.CENT)
|
|
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
|
ModifyOtherLeadOut(nI, MCH_SAW_LO.CENT)
|
|
' ri-verifico interferenza
|
|
EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
|
|
ElseIf nLoPrev = MCH_SAW_LO.EXT_OUT Then
|
|
' accorcio
|
|
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.EXT_CENT)
|
|
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
|
ModifyOtherLeadOut(nI, MCH_SAW_LO.CENT)
|
|
ElseIf nLoPrev = MCH_SAW_LO.CENT Then
|
|
' allungo
|
|
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.OUT)
|
|
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
|
ModifyOtherLeadOut(nI, MCH_SAW_LO.OUT)
|
|
' ri-verifico interferenza
|
|
EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
|
|
ElseIf nLoPrev = MCH_SAW_LO.EXT_CENT Then
|
|
' allungo
|
|
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.EXT_OUT)
|
|
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
|
ModifyOtherLeadOut(nI, MCH_SAW_LO.OUT)
|
|
End If
|
|
ColorMachining(m_MachiningList(nI))
|
|
ColorNumberArrow(nI)
|
|
bGenModif = True
|
|
End If
|
|
Next
|
|
' Se modificato qualcosa
|
|
If bGenModif Then
|
|
EgtDraw()
|
|
m_bModified = True
|
|
End If
|
|
End Sub
|
|
|
|
#End Region ' OutCenEndCommand
|
|
|
|
#Region "AllOutEndCommand"
|
|
|
|
Public ReadOnly Property AllOutEndCommand As ICommand
|
|
Get
|
|
If m_cmdAllOutEnd Is Nothing Then
|
|
m_cmdAllOutEnd = New Command(AddressOf AllOutEnd)
|
|
End If
|
|
Return m_cmdAllOutEnd
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub AllOutEnd(ByVal param As Object)
|
|
For nI As Integer = 0 To m_MachiningList.Count() - 1
|
|
EgtSetCurrMachining(m_MachiningList(nI).m_nId)
|
|
Dim nLoPrev As Integer
|
|
EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, nLoPrev)
|
|
If nLoPrev = MCH_SAW_LO.CENT Then
|
|
' allungo
|
|
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.OUT)
|
|
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
|
ModifyOtherLeadOut(nI, MCH_SAW_LO.OUT)
|
|
' ri-verifico interferenza
|
|
EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
|
|
ElseIf nLoPrev = MCH_SAW_LO.EXT_CENT Then
|
|
' allungo
|
|
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.EXT_OUT)
|
|
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
|
ModifyOtherLeadOut(nI, MCH_SAW_LO.OUT)
|
|
End If
|
|
ColorMachining(m_MachiningList(nI))
|
|
ColorNumberArrow(nI)
|
|
Next
|
|
EgtDraw()
|
|
' Imposto flag di modifica
|
|
m_bModified = True
|
|
End Sub
|
|
|
|
#End Region ' AllOutEndCommand
|
|
|
|
#Region "AllCenEndCommand"
|
|
|
|
Public ReadOnly Property AllCenEndCommand As ICommand
|
|
Get
|
|
If m_cmdAllCenEnd Is Nothing Then
|
|
m_cmdAllCenEnd = New Command(AddressOf AllCenEnd)
|
|
End If
|
|
Return m_cmdAllCenEnd
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub AllCenEnd(ByVal param As Object)
|
|
For nI As Integer = 0 To m_MachiningList.Count() - 1
|
|
EgtSetCurrMachining(m_MachiningList(nI).m_nId)
|
|
Dim nLoPrev As Integer
|
|
EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, nLoPrev)
|
|
If nLoPrev = MCH_SAW_LO.OUT Then
|
|
' accorcio
|
|
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.CENT)
|
|
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
|
ModifyOtherLeadOut(nI, MCH_SAW_LO.CENT)
|
|
' ri-verifico interferenza
|
|
EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
|
|
ElseIf nLoPrev = MCH_SAW_LO.EXT_OUT Then
|
|
' accorcio
|
|
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.EXT_CENT)
|
|
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
|
ModifyOtherLeadOut(nI, MCH_SAW_LO.CENT)
|
|
End If
|
|
ColorMachining(m_MachiningList(nI))
|
|
ColorNumberArrow(nI)
|
|
Next
|
|
EgtDraw()
|
|
' Imposto flag di modifica
|
|
m_bModified = True
|
|
End Sub
|
|
|
|
#End Region ' AllCenEndCommand
|
|
|
|
#Region "AllExtendCommand"
|
|
|
|
Public ReadOnly Property AllExtendCommand As ICommand
|
|
Get
|
|
If m_cmdAllExtend Is Nothing Then
|
|
m_cmdAllExtend = New Command(AddressOf AllExtend)
|
|
End If
|
|
Return m_cmdAllExtend
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub AllExtend(ByVal param As Object)
|
|
Dim bModif As Boolean = False
|
|
For nI As Integer = 0 To m_MachiningList.Count() - 1
|
|
' Provo ad entrambi gli estremi
|
|
Dim bOneModif As Boolean = AdjustBothCuts(nI, True, False)
|
|
' Provo all'inizio
|
|
If Not bOneModif Then bOneModif = AdjustStartCut(nI, True, False)
|
|
' Provo alla fine
|
|
If Not bOneModif Then bOneModif = AdjustEndCut(nI, True, False)
|
|
' Aggiorno flag globale
|
|
If bOneModif Then bModif = True
|
|
Next
|
|
' Se modificato qualcosa
|
|
If bModif Then
|
|
EgtDraw()
|
|
m_bModified = True
|
|
End If
|
|
' Abilitazione bottone Next
|
|
EnableButtons()
|
|
End Sub
|
|
|
|
#End Region ' AllExtendCommand
|
|
|
|
#Region "AllReduceCommand"
|
|
|
|
Public ReadOnly Property AllReduceCommand As ICommand
|
|
Get
|
|
If m_cmdAllReduce Is Nothing Then
|
|
m_cmdAllReduce = New Command(AddressOf AllReduce)
|
|
End If
|
|
Return m_cmdAllReduce
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub AllReduce(ByVal param As Object)
|
|
Dim bModif As Boolean = False
|
|
For nI As Integer = 0 To m_MachiningList.Count() - 1
|
|
' Provo ad entrambi gli estremi
|
|
Dim bOneModif As Boolean = AdjustBothCuts(nI, False, True)
|
|
' Provo all'inizio
|
|
If Not bOneModif Then bOneModif = AdjustStartCut(nI, False, True)
|
|
' Provo alla fine
|
|
If Not bOneModif Then bOneModif = AdjustEndCut(nI, False, True)
|
|
' Aggiorno flag globale
|
|
If bOneModif Then bModif = True
|
|
Next
|
|
' Se modificato qualcosa
|
|
If bModif Then
|
|
EgtDraw()
|
|
m_bModified = True
|
|
End If
|
|
' Abilitazione bottone Next
|
|
EnableButtons()
|
|
End Sub
|
|
|
|
#End Region ' AllReduceCommand
|
|
|
|
#Region "ModifStartCommand"
|
|
|
|
Public ReadOnly Property ModifStartCommand As ICommand
|
|
Get
|
|
If m_cmdModifStart Is Nothing Then
|
|
m_cmdModifStart = New Command(AddressOf ModifStart)
|
|
End If
|
|
Return m_cmdModifStart
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub ModifStart(ByVal param As Object)
|
|
Dim bFirstInd As Boolean = True
|
|
Dim bFirstMill As Boolean = True
|
|
Dim bFirstWJ As Boolean = True
|
|
' elenco delle variabili : MCH_MY.SAWING/MCH_MY.MILLING
|
|
Dim dUsal As Double = 0
|
|
' elenco delle variabili : MCH_MY.WATERJETTING
|
|
Dim dWJAddLen As Double = 0
|
|
Dim bWJLiHole As Boolean = True
|
|
Dim nWJTangDist As Double = 0
|
|
Dim nWJPerpDist As Double = 0
|
|
Dim nWJLeadInType As Integer = 0
|
|
' Recupero la lavorazione corrente
|
|
If m_CurrFirstInd = -1 Then Return
|
|
Dim bGenModif As Boolean = False
|
|
For Index = m_CurrFirstInd To m_CurrLastInd
|
|
If Not m_ItemList(Index).IsSelected Then
|
|
Continue For
|
|
End If
|
|
Dim nI As Integer = m_ItemList(Index).Ind
|
|
Dim nOperId As Integer = m_MachiningList(nI).m_nId
|
|
Dim nMachiningType As Integer = EgtGetOperationType(nOperId)
|
|
' Se taglio con lama
|
|
If nMachiningType = MCH_MY.SAWING Then
|
|
Dim dOrigUsal As Double = 0
|
|
EgtGetInfo(nOperId, INFO_MCH_USER_SAL, dOrigUsal)
|
|
' Dialogo richiesta valore
|
|
If bFirstInd Then
|
|
Dim ModifStartWindow As New ModifStartEndCutWindowV
|
|
Dim ModifStartWindowVM As New ModifStartEndCutWindowVM
|
|
ModifStartWindowVM.Title = EgtMsg(90791) ' Sawing
|
|
ModifStartWindow.DataContext = ModifStartWindowVM
|
|
ModifStartWindow.Owner = Application.Current.MainWindow
|
|
ModifStartWindowVM.SetVal(dOrigUsal)
|
|
' Il posizionamento è forzato nel codice xaml: WindowStartupLocation="CenterOwner"
|
|
ModifStartWindow.Left = 190
|
|
ModifStartWindow.Top = 600
|
|
If Not ModifStartWindow.ShowDialog() Then Return
|
|
' Modifica della lavorazione
|
|
dUsal = ModifStartWindowVM.GetVal()
|
|
bFirstInd = False
|
|
End If
|
|
|
|
Dim bRepeat As Boolean = False
|
|
Do
|
|
' Se c'è limite alla lunghezza libera
|
|
If m_MachiningList(nI).m_dStartFreeLen < FREELEN_INF Then
|
|
' se abilitati i controlli sugli allungamenti dei lati interni
|
|
If Not m_StartEndModifyOnIntCorner Then
|
|
' Recupero sicurezza in corner interno
|
|
Dim dCornerSafety As Double = Math.Max(GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_INTCORNER, 1, CurrentMachine.sMachIniFile), 10 * EPS_SMALL)
|
|
' Recupero lunghezza baffo del taglio
|
|
Dim nPvId As Integer = GDB_ID.NULL
|
|
EgtGetInfo(EgtGetFirstNameInGroup(nOperId, NAME_PREVIEW), INFO_PV_ONPART_ID, nPvId)
|
|
Dim dDT As Double = 0
|
|
EgtGetInfo(EgtGetFirstGroupInGroup(nPvId), "DT", dDT)
|
|
dUsal = Math.Min(dUsal, m_MachiningList(nI).m_dStartFreeLen - dDT - dCornerSafety)
|
|
End If
|
|
End If
|
|
EgtSetCurrMachining(nOperId)
|
|
Dim dAddLen As Double = 0
|
|
EgtGetMachiningParam(MCH_MP.STARTADDLEN, dAddLen)
|
|
' verifico che non sia sull'angolo interno (altrimenti vieto la modifica)
|
|
If Not m_StartEndModifyOnIntCorner And (dAddLen - dOrigUsal < -10 * EPS_SMALL) Then
|
|
Return
|
|
End If
|
|
EgtSetMachiningParam(MCH_MP.STARTADDLEN, dAddLen + dUsal - dOrigUsal)
|
|
EgtSetInfo(nOperId, INFO_MCH_USER_SAL, dUsal)
|
|
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
|
bRepeat = Not UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
|
If bRepeat Then
|
|
EgtSetMachiningParam(MCH_MP.STARTADDLEN, dOrigUsal)
|
|
EgtSetInfo(nOperId, INFO_MCH_USER_SAL, dOrigUsal)
|
|
dUsal = dOrigUsal
|
|
End If
|
|
Loop Until Not bRepeat
|
|
' verifico interferenza
|
|
EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
|
|
ColorMachining(m_MachiningList(nI))
|
|
ColorNumberArrow(nI)
|
|
bGenModif = True
|
|
|
|
ElseIf nMachiningType = MCH_MY.MILLING Then ' And m_MachiningList(nI).m_sLay = NAME_ONPATH
|
|
|
|
' leggo il valore salvato nella geometria
|
|
Dim dOrigUsal As Double = 0
|
|
EgtGetInfo(nOperId, INFO_MCH_USER_SAL, dOrigUsal)
|
|
' Dialogo richiesta valore
|
|
If bFirstMill Then
|
|
Dim ModifStartWindow As New ModifStartEndCutWindowV
|
|
Dim ModifStartWindowVM As New ModifStartEndCutWindowVM
|
|
ModifStartWindowVM.Title = EgtMsg(90793) ' Milling
|
|
ModifStartWindow.DataContext = ModifStartWindowVM
|
|
ModifStartWindow.Owner = Application.Current.MainWindow
|
|
ModifStartWindowVM.SetVal(dOrigUsal)
|
|
If Not ModifStartWindow.ShowDialog() Then Return
|
|
' Modifica della lavorazione
|
|
dUsal = ModifStartWindowVM.GetVal()
|
|
bFirstMill = False
|
|
End If
|
|
' Modifica della lavorazione
|
|
EgtSetCurrMachining(nOperId)
|
|
Dim dAddLen As Double = 0
|
|
EgtGetMachiningParam(MCH_MP.STARTADDLEN, dAddLen)
|
|
EgtSetMachiningParam(MCH_MP.STARTADDLEN, dAddLen + dUsal - dOrigUsal)
|
|
EgtSetInfo(nOperId, INFO_MCH_USER_SAL, dUsal)
|
|
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
|
bGenModif = True
|
|
|
|
' se altrimenti getto d'acqua
|
|
ElseIf nMachiningType = MCH_MY.WATERJETTING Then
|
|
' Recupero i valori attuali della lavorazione
|
|
If bFirstWJ Then
|
|
Dim bOriginalIsLeadIn As Boolean = True
|
|
Dim dOriginalAddLen As Double = 0
|
|
Dim bOriginalLiHole As Boolean = True
|
|
Dim nOriginalTangDist As Double = 0
|
|
Dim nOriginalPerpDist As Double = 0
|
|
Dim nOriginalLeadInType As Integer = 0
|
|
EgtSetCurrMachining(nOperId)
|
|
EgtGetMachiningParam(MCH_MP.STARTADDLEN, dOriginalAddLen)
|
|
EgtGetMachiningParam(MCH_MP.LIHOLE, bOriginalLiHole)
|
|
EgtGetMachiningParam(MCH_MP.LITANG, nOriginalTangDist)
|
|
EgtGetMachiningParam(MCH_MP.LIPERP, nOriginalPerpDist)
|
|
EgtGetMachiningParam(MCH_MP.LEADINTYPE, nOriginalLeadInType)
|
|
' Dialogo richiesta valori
|
|
Dim ModifStartWnd As New ModifStartEndWjWindowV
|
|
Dim ModifStartWndVM As New ModifStartEndWjWindowVM
|
|
ModifStartWndVM.Title = EgtMsg(90798) ' Water jetting
|
|
ModifStartWnd.DataContext = ModifStartWndVM
|
|
ModifStartWnd.Owner = Application.Current.MainWindow
|
|
ModifStartWndVM.HoleVisibility = Visibility.Visible
|
|
ModifStartWndVM.LeadInVisibility = Visibility.Visible
|
|
ModifStartWndVM.LeadOutVisibility = Visibility.Collapsed
|
|
ModifStartWndVM.SetVal(dOriginalAddLen)
|
|
ModifStartWndVM.SetHole(bOriginalLiHole)
|
|
ModifStartWndVM.SetLeadInType(nOriginalLeadInType)
|
|
ModifStartWndVM.SetLiTangDist(nOriginalTangDist)
|
|
ModifStartWndVM.SetLiPerpDist(nOriginalPerpDist)
|
|
If Not ModifStartWnd.ShowDialog() Then Return
|
|
|
|
dWJAddLen = ModifStartWndVM.GetVal()
|
|
bWJLiHole = ModifStartWndVM.GetHole()
|
|
nWJTangDist = ModifStartWndVM.GetLiTangDist()
|
|
nWJPerpDist = ModifStartWndVM.GetLiPerpDist()
|
|
nWJLeadInType = ModifStartWndVM.GetLeadInType().Id
|
|
bFirstWJ = False
|
|
End If
|
|
|
|
' Modifica della lavorazione
|
|
EgtSetCurrMachining(nOperId)
|
|
EgtSetMachiningParam(MCH_MP.LIHOLE, bWJLiHole)
|
|
EgtSetMachiningParam(MCH_MP.STARTADDLEN, dWJAddLen)
|
|
EgtSetMachiningParam(MCH_MP.LEADINTYPE, nWJLeadInType)
|
|
EgtSetMachiningParam(MCH_MP.LITANG, nWJTangDist)
|
|
EgtSetMachiningParam(MCH_MP.LIPERP, nWJPerpDist)
|
|
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
|
' verifico interferenza
|
|
EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
|
|
ColorMachining(m_MachiningList(nI))
|
|
ColorNumberArrow(nI)
|
|
bGenModif = True
|
|
End If
|
|
Next
|
|
' Se modificato qualcosa
|
|
If bGenModif Then
|
|
EgtDraw()
|
|
m_bModified = True
|
|
End If
|
|
End Sub
|
|
|
|
#End Region ' ModifStartCommand
|
|
|
|
#Region "ModifEndCommand"
|
|
|
|
Public ReadOnly Property ModifEndCommand As ICommand
|
|
Get
|
|
If m_cmdModifEnd Is Nothing Then
|
|
m_cmdModifEnd = New Command(AddressOf ModifEnd)
|
|
End If
|
|
Return m_cmdModifEnd
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub ModifEnd(ByVal param As Object)
|
|
Dim bFirstInd As Boolean = True
|
|
Dim bFirstMill As Boolean = True
|
|
Dim bFirstWJ As Boolean = True
|
|
' elenco delle variabili : MCH_MY.SAWING/MCH_MY.MILLING
|
|
Dim dUeal As Double = 0
|
|
' elenco delle variabili : MCH_MY.WATERJETTING
|
|
Dim dWJAddLen As Double = 0
|
|
Dim nWJTangDist As Double = 0
|
|
Dim nWJPerpDist As Double = 0
|
|
Dim nWJLeadInType As Integer = 0
|
|
|
|
' Recupero la lavorazione corrente
|
|
If m_CurrFirstInd = -1 Then Return
|
|
Dim bGenModif As Boolean = False
|
|
For Index = m_CurrFirstInd To m_CurrLastInd
|
|
If Not m_ItemList(Index).IsSelected Then
|
|
Continue For
|
|
End If
|
|
Dim nI As Integer = m_ItemList(Index).Ind
|
|
Dim nOperId As Integer = m_MachiningList(nI).m_nId
|
|
Dim nMachiningType As Integer = EgtGetOperationType(nOperId)
|
|
' Se taglio con lama
|
|
If nMachiningType = MCH_MY.SAWING Then
|
|
Dim dOrigUeal As Double = 0
|
|
EgtGetInfo(nOperId, INFO_MCH_USER_EAL, dOrigUeal)
|
|
' Dialogo richiesta valore
|
|
If bFirstInd Then
|
|
Dim ModifStartWindow As New ModifStartEndCutWindowV
|
|
Dim ModifStartWindowVM As New ModifStartEndCutWindowVM
|
|
ModifStartWindowVM.Title = EgtMsg(90791) ' Sawing
|
|
ModifStartWindow.DataContext = ModifStartWindowVM
|
|
ModifStartWindow.Owner = Application.Current.MainWindow
|
|
ModifStartWindowVM.SetVal(dOrigUeal)
|
|
If Not ModifStartWindow.ShowDialog() Then Return
|
|
' Modifica della lavorazione
|
|
dUeal = ModifStartWindowVM.GetVal()
|
|
bFirstInd = False
|
|
End If
|
|
Dim bRepeat As Boolean = False
|
|
Do
|
|
' Se c'è limite alla lunghezza libera
|
|
If m_MachiningList(nI).m_dEndFreeLen < FREELEN_INF Then
|
|
' se abilitati i controlli sugli allungamenti dei lati interni
|
|
If Not m_StartEndModifyOnIntCorner Then
|
|
' Recupero sicurezza in corner interno
|
|
Dim dCornerSafety As Double = Math.Max(GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_INTCORNER, 1, CurrentMachine.sMachIniFile), 10 * EPS_SMALL)
|
|
' Recupero lunghezza baffo del taglio
|
|
Dim nPvId As Integer = GDB_ID.NULL
|
|
EgtGetInfo(EgtGetFirstNameInGroup(nOperId, NAME_PREVIEW), INFO_PV_ONPART_ID, nPvId)
|
|
Dim dDT As Double = 0
|
|
EgtGetInfo(EgtGetFirstGroupInGroup(nPvId), "DT", dDT)
|
|
dUeal = Math.Min(dUeal, m_MachiningList(nI).m_dEndFreeLen - dDT - dCornerSafety)
|
|
End If
|
|
End If
|
|
EgtSetCurrMachining(nOperId)
|
|
Dim dAddLen As Double = 0
|
|
EgtGetMachiningParam(MCH_MP.ENDADDLEN, dAddLen)
|
|
If Not m_StartEndModifyOnIntCorner And (dAddLen - dOrigUeal < -10 * EPS_SMALL) Then
|
|
Return
|
|
End If
|
|
EgtSetMachiningParam(MCH_MP.ENDADDLEN, dAddLen + dUeal - dOrigUeal)
|
|
EgtSetInfo(nOperId, INFO_MCH_USER_EAL, dUeal)
|
|
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
|
bRepeat = Not UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
|
If bRepeat Then
|
|
EgtSetMachiningParam(MCH_MP.ENDADDLEN, dOrigUeal)
|
|
EgtSetInfo(nOperId, INFO_MCH_USER_EAL, dOrigUeal)
|
|
dUeal = dOrigUeal
|
|
End If
|
|
Loop Until Not bRepeat
|
|
' verifico interferenza
|
|
EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
|
|
ColorMachining(m_MachiningList(nI))
|
|
ColorNumberArrow(nI)
|
|
bGenModif = True
|
|
|
|
ElseIf nMachiningType = MCH_MY.MILLING Then ' And m_MachiningList(nI).m_sLay = NAME_ONPATH
|
|
|
|
Dim dOrigUeal As Double = 0
|
|
EgtGetInfo(nOperId, INFO_MCH_USER_EAL, dOrigUeal)
|
|
' ------------------ INIZIO PREPARAZIONE TASTIERINO VIRTUALE ------------------
|
|
If bFirstMill Then
|
|
Dim ModifStartWindow As New ModifStartEndCutWindowV
|
|
Dim ModifStartWindowVM As New ModifStartEndCutWindowVM
|
|
ModifStartWindowVM.Title = EgtMsg(90793) ' Milling
|
|
ModifStartWindow.DataContext = ModifStartWindowVM
|
|
ModifStartWindow.Owner = Application.Current.MainWindow
|
|
ModifStartWindowVM.SetVal(dOrigUeal)
|
|
If Not ModifStartWindow.ShowDialog() Then Return
|
|
' Modifica della lavorazione
|
|
dUeal = ModifStartWindowVM.GetVal()
|
|
bFirstMill = False
|
|
End If
|
|
' ------------------ FINE PREPARAZIONE TASTIERINO VIRTUALE ------------------
|
|
' Modifica della lavorazione
|
|
EgtSetCurrMachining(nOperId)
|
|
Dim dAddLen As Double = 0
|
|
EgtGetMachiningParam(MCH_MP.ENDADDLEN, dAddLen)
|
|
EgtSetMachiningParam(MCH_MP.ENDADDLEN, dAddLen + dUeal - dOrigUeal)
|
|
EgtSetInfo(nOperId, INFO_MCH_USER_EAL, dUeal)
|
|
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
|
bGenModif = True
|
|
|
|
' se altrimenti getto d'acqua
|
|
ElseIf nMachiningType = MCH_MY.WATERJETTING Then
|
|
' Recupero i valori attuali della lavorazione
|
|
If bFirstWJ Then
|
|
Dim dAddLen As Double = 0
|
|
Dim nTangDist As Double = 0
|
|
Dim nPerpDist As Double = 0
|
|
Dim LeadOutTypeId As Integer = 0
|
|
EgtSetCurrMachining(nOperId)
|
|
EgtGetMachiningParam(MCH_MP.ENDADDLEN, dAddLen)
|
|
EgtGetMachiningParam(MCH_MP.LOTANG, nTangDist)
|
|
EgtGetMachiningParam(MCH_MP.LOPERP, nPerpDist)
|
|
EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, LeadOutTypeId)
|
|
' Dialogo richiesta valori
|
|
Dim ModifStartWnd As New ModifStartEndWjWindowV()
|
|
Dim ModifStartWndVM As New ModifStartEndWjWindowVM
|
|
ModifStartWndVM.Title = EgtMsg(90798) ' Water jetting
|
|
ModifStartWnd.DataContext = ModifStartWndVM
|
|
ModifStartWnd.Owner = Application.Current.MainWindow
|
|
ModifStartWndVM.HoleVisibility = Visibility.Collapsed
|
|
ModifStartWndVM.LeadInVisibility = Visibility.Collapsed
|
|
ModifStartWndVM.LeadOutVisibility = Visibility.Visible
|
|
ModifStartWndVM.SetVal(dAddLen)
|
|
ModifStartWndVM.SetLeadOutType(LeadOutTypeId)
|
|
ModifStartWndVM.SetLoTangDist(nTangDist)
|
|
ModifStartWndVM.SetLoPerpDist(nPerpDist)
|
|
If Not ModifStartWnd.ShowDialog() Then Return
|
|
|
|
dWJAddLen = ModifStartWndVM.GetVal()
|
|
nWJTangDist = ModifStartWndVM.GetLoTangDist()
|
|
nWJPerpDist = ModifStartWndVM.GetLoPerpDist()
|
|
nWJLeadInType = ModifStartWndVM.GetLeadOutType().Id
|
|
|
|
bFirstWJ = False
|
|
End If
|
|
' Modifica della lavorazione
|
|
EgtSetCurrMachining(nOperId)
|
|
EgtSetMachiningParam(MCH_MP.ENDADDLEN, dWJAddLen)
|
|
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, nWJLeadInType)
|
|
EgtSetMachiningParam(MCH_MP.LOTANG, nWJTangDist)
|
|
EgtSetMachiningParam(MCH_MP.LOPERP, nWJPerpDist)
|
|
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
|
' verifico interferenza
|
|
EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
|
|
ColorMachining(m_MachiningList(nI))
|
|
ColorNumberArrow(nI)
|
|
bGenModif = True
|
|
End If
|
|
Next
|
|
' Se modificato qualcosa
|
|
If bGenModif Then
|
|
EgtDraw()
|
|
m_bModified = True
|
|
End If
|
|
End Sub
|
|
|
|
#End Region ' ModifEndCommand
|
|
|
|
#Region "PauseCommand"
|
|
|
|
Public ReadOnly Property PauseCommand As ICommand
|
|
Get
|
|
If m_cmdPause Is Nothing Then
|
|
m_cmdPause = New Command(AddressOf Pause)
|
|
End If
|
|
Return m_cmdPause
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub Pause(ByVal param As Object)
|
|
If m_CurrFirstInd = -1 Then Return
|
|
For Index = m_CurrFirstInd To m_CurrLastInd
|
|
If Not m_ItemList(Index).IsSelected Then
|
|
Continue For
|
|
End If
|
|
Dim nI As Integer = m_ItemList(Index).Ind
|
|
Dim nOperId As Integer = m_MachiningList(nI).m_nId
|
|
If GetPause(nOperId) Then
|
|
ResetPause(nOperId)
|
|
m_MachiningList(nI).m_bPause = False
|
|
RemovePauseText(m_ItemList(Index).Name)
|
|
Else
|
|
SetPause(nOperId)
|
|
m_MachiningList(nI).m_bPause = True
|
|
AddPauseText(m_ItemList(Index).Name)
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
#End Region ' PauseCommand
|
|
|
|
#Region "InvertCommand"
|
|
|
|
Public ReadOnly Property InvertCommand As ICommand
|
|
Get
|
|
If m_cmdInvert Is Nothing Then
|
|
m_cmdInvert = New Command(AddressOf Invert)
|
|
End If
|
|
Return m_cmdInvert
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub Invert(ByVal param As Object)
|
|
If m_CurrFirstInd = -1 Then Return
|
|
For Index = m_CurrFirstInd To m_CurrLastInd
|
|
If Not m_ItemList(Index).IsSelected Then
|
|
Continue For
|
|
End If
|
|
Dim nI As Integer = m_ItemList(Index).Ind
|
|
' Si possono invertire solo i tagli di lama
|
|
If m_MachiningList(nI).m_nType <> MCH_OY.SAWING Then Continue For
|
|
' Non si possono invertire i tagli di lama inclinati
|
|
If Math.Abs(m_MachiningList(nI).m_dSideAng) > 0.1 Then Continue For
|
|
' Se abilitata inversione automatica e quindi non invertito
|
|
If m_MachiningList(nI).m_bEnableInvert Then
|
|
' Inverto e disabilito inversione automatica
|
|
If CamAuto.InvertVerticalCut(m_MachiningList(nI).m_nId) Then
|
|
m_MachiningList(nI).m_bInvert = True
|
|
m_MachiningList(nI).m_vtDir = -m_MachiningList(nI).m_vtDir
|
|
m_MachiningList(nI).m_bEnableInvert = False
|
|
SwapStartEndData(nI)
|
|
ResetEnableInvert(m_MachiningList(nI).m_nEntId)
|
|
EgtErase(m_MachiningList(nI).m_nArrId)
|
|
NumberDirectionMachining(nI, False)
|
|
EgtDraw()
|
|
End If
|
|
' se altrimenti disabilitata inversione automatica e invertito
|
|
ElseIf m_MachiningList(nI).m_bInvert Then
|
|
' Tolgo inversione e lascio disabilitazione inv. autom.
|
|
If CamAuto.InvertVerticalCut(m_MachiningList(nI).m_nId) Then
|
|
m_MachiningList(nI).m_bInvert = False
|
|
m_MachiningList(nI).m_vtDir = -m_MachiningList(nI).m_vtDir
|
|
SwapStartEndData(nI)
|
|
EgtErase(m_MachiningList(nI).m_nArrId)
|
|
NumberDirectionMachining(nI, False)
|
|
EgtDraw()
|
|
End If
|
|
' altrimenti disabilitata inversione automatica e non invertito
|
|
Else
|
|
' Abilito inversione automatica e lascio non invertito
|
|
m_MachiningList(nI).m_bEnableInvert = True
|
|
SetEnableInvert(m_MachiningList(nI).m_nEntId)
|
|
EgtErase(m_MachiningList(nI).m_nArrId)
|
|
NumberDirectionMachining(nI, False)
|
|
EgtDraw()
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
#End Region ' InvertComman
|
|
|
|
#End Region ' COMMANDS
|
|
|
|
#Region "EVENTS"
|
|
|
|
#Region "BRIDGE"
|
|
|
|
Private Sub OnMyMouseDownSceneBridges(sender As Object, e As System.Windows.Forms.MouseEventArgs,
|
|
ByVal IsFirst As Boolean,
|
|
ByRef m_nIdSelectedSideWJ As Integer,
|
|
ByRef m_nIdSelectedWaterJet As Integer,
|
|
ByRef nIdParentPart As Integer)
|
|
|
|
' Acquisisco punto da disegno
|
|
Dim CurrPoint As New Point3d
|
|
EgtUnProjectPoint(e.Location, CurrPoint)
|
|
|
|
' Verifico se selezionato indicativo di pezzo
|
|
EgtSetObjFilterForSelWin(False, True, False, False, False)
|
|
Dim nSelMy As Integer
|
|
EgtSelect(e.Location, Scene.DIM_SEL, Scene.DIM_SEL, nSelMy)
|
|
Dim nIdMy As Integer = EgtGetFirstObjInSelWin()
|
|
While nIdMy <> GDB_ID.NULL
|
|
Dim sLayer As String = String.Empty
|
|
' layer di origine
|
|
Dim nIdParent As Integer = EgtGetParent(nIdMy)
|
|
' recupero il nome del Layer
|
|
EgtGetName(nIdParent, sLayer)
|
|
' solo se il nome del layer è quello associato ad un lato esterno allora procedo con l'evidenziazione
|
|
If sLayer = NAME_OUTLOOP Then
|
|
If (EgtGetType(nIdMy) = GDB_TY.CRV_ARC OrElse EgtGetType(nIdMy) = GDB_TY.CRV_COMPO OrElse EgtGetType(nIdMy) = GDB_TY.CRV_LINE) AndAlso VerifySideIsAcceptable(nIdMy) Then
|
|
If m_nIdSelectedSideWJ <> GDB_ID.NULL Or m_nIdSelectedSideWJ = nIdMy Then
|
|
EgtDeselectObj(m_nIdSelectedSideWJ)
|
|
End If
|
|
' recupero il gruppo della lavorazione associata
|
|
nIdParentPart = EgtGetParent(nIdParent)
|
|
' se non esiste almeno 1 Preview di tipo WaterJet
|
|
If IsWaterJetting(nIdMy) Then
|
|
m_nIdSelectedSideWJ = nIdMy
|
|
' recupero il punto più vicino alla curva passata
|
|
If IsFirst Then
|
|
EgtNearPoint(nIdMy, CurrPoint, GDB_RT.GLOB, m_ptSrtBridge)
|
|
Else
|
|
' prima di confermare verifico che non ci siano interferenze
|
|
EgtNearPoint(nIdMy, CurrPoint, GDB_RT.GLOB, m_ptEndBridge)
|
|
EgtModifyCurveEndPoint(m_nIdBridge, m_ptEndBridge, GDB_RT.GLOB)
|
|
If VerifyInterference(m_nIdBridge) Then
|
|
OmagOFFICEMap.refStatusBarVM.ClearOutputMessage()
|
|
EgtSetInfo(m_nIdBridge, "PartStart", m_nIdSelectedPartWJ_Srt)
|
|
EgtSetInfo(m_nIdBridge, "EntStart", m_nIdSelectedSideWJ_Srt)
|
|
EgtSetInfo(m_nIdBridge, "PartEnd", m_nIdSelectedPartWJ_End)
|
|
EgtSetInfo(m_nIdBridge, "EntEnd", m_nIdSelectedSideWJ_End)
|
|
EgtSetInfo(m_nIdBridge, "Ph", EgtGetCurrPhase())
|
|
' Ricalcolo tutte le lavorazioni
|
|
Dim nWarn As Integer = 0
|
|
ResetAllMachinings(nWarn)
|
|
Else
|
|
' attendo la selezione di un punto valido
|
|
m_nIdSelectedSideWJ = GDB_ID.NULL
|
|
m_nIdSelectedWaterJet = GDB_ID.NULL
|
|
nIdParentPart = GDB_ID.NULL
|
|
OmagOFFICEMap.refStatusBarVM.ClearOutputMessage()
|
|
OmagOFFICEMap.refStatusBarVM.SetOutputMessage("Bridge intersects part", 3, MSG_TYPE.ERROR_)
|
|
Return
|
|
End If
|
|
End If
|
|
' salvo il valore del PreView evidenziato
|
|
EgtSetMark(nIdParentPart)
|
|
' EgtSetMark(nIdWJ)
|
|
EgtSelectObj(nIdMy)
|
|
EgtDraw()
|
|
Exit While
|
|
End If
|
|
End If
|
|
End If
|
|
nIdMy = EgtGetNextObjInSelWin()
|
|
End While
|
|
End Sub
|
|
|
|
Private Sub OnMyMouseDownSceneBridgesDelete(sender As Object, e As System.Windows.Forms.MouseEventArgs)
|
|
' Acquisisco punto da disegno
|
|
Dim CurrPoint As New Point3d
|
|
EgtUnProjectPoint(e.Location, CurrPoint)
|
|
|
|
' Verifico se selezionato indicativo di pezzo
|
|
EgtSetObjFilterForSelWin(False, True, False, False, False)
|
|
Dim nSelMy As Integer
|
|
EgtSelect(e.Location, Scene.DIM_SEL, Scene.DIM_SEL, nSelMy)
|
|
Dim nIdMy As Integer = EgtGetFirstObjInSelWin()
|
|
While nIdMy <> GDB_ID.NULL
|
|
Dim sGroupName As String = String.Empty
|
|
Dim sSelName As String = String.Empty
|
|
' gruppo di appartenenza
|
|
Dim nIdParent As Integer = EgtGetParent(nIdMy)
|
|
' recupero il nome del gruppo di appartenenza
|
|
EgtGetName(nIdParent, sGroupName)
|
|
' recupero il nome dell'oggetto selezionato
|
|
EgtGetName(nIdMy, sSelName)
|
|
If sGroupName.Contains(NAME_BRIDGES) AndAlso sSelName.Contains(NAME_BRIDGESLINE) Then
|
|
EgtErase(nIdMy)
|
|
EgtDraw()
|
|
' Ricalcolo tutte le lavorazioni
|
|
Dim nWarn As Integer = 0
|
|
ResetAllMachinings(nWarn)
|
|
Return
|
|
End If
|
|
nIdMy = EgtGetNextObjInSelWin()
|
|
End While
|
|
End Sub
|
|
|
|
Private Sub OnMyMouseMoveSceneBridges(ptCurr As Point3d)
|
|
ptCurr.z = m_ptSrtBridge.z
|
|
' rappresento il egmento
|
|
If m_nIdBridge = GDB_ID.NULL Then
|
|
m_nIdBridge = EgtCreateLine(m_nIdBridgesGroup, m_ptSrtBridge, ptCurr, GDB_RT.GLOB)
|
|
' assegno un nome alla linea
|
|
EgtSetName(m_nIdBridge, NAME_BRIDGESLINE)
|
|
End If
|
|
EgtModifyCurveEndPoint(m_nIdBridge, ptCurr, GDB_RT.GLOB)
|
|
EgtDraw()
|
|
End Sub
|
|
|
|
Private Function VerifyInterference(nIdBridge As Integer) As Boolean
|
|
' prima di procedere alla verifica accorco il segmento (solo per sicurezza) 10 * EPS_SMALL
|
|
Dim dLen As Double
|
|
EgtCurveLength(nIdBridge, dLen)
|
|
If dLen > 21 AndAlso Not EgtCurveIsClosed(nIdBridge) Then
|
|
EgtTrimCurveEndAtLen(nIdBridge, dLen - 10 * EPS_SMALL)
|
|
EgtTrimCurveStartAtLen(nIdBridge, 10 * EPS_SMALL)
|
|
End If
|
|
' EgtSaveFile("c:\EgtData\OmagOFFICE\Temp\Bridge.nge", NGE.BIN)
|
|
Dim nIdPart As Integer = GDB_ID.NULL
|
|
nIdPart = EgtGetFirstPartInRawPart(GetCurrentRaw())
|
|
While nIdPart <> GDB_ID.NULL
|
|
Dim nIdRegion As Integer = EgtGetFirstNameInGroup(nIdPart, NAME_REGION)
|
|
Dim nIdSurf As Integer = EgtGetFirstInGroup(nIdRegion)
|
|
While nIdSurf <> GDB_ID.NULL
|
|
If EgtGetType(nIdSurf) = GDB_TY.SRF_FRGN Then
|
|
' se la linea bridge interseca la superficie allora restitusco false
|
|
If EgtCurveWithRegionClassify(nIdBridge, nIdSurf) <> CREGC.OUT Then
|
|
EgtExtendCurveStartByLen(nIdBridge, 10 * EPS_SMALL)
|
|
Return False
|
|
End If
|
|
Exit While
|
|
End If
|
|
End While
|
|
nIdPart = EgtGetNextPartInRawPart(nIdPart)
|
|
End While
|
|
Return True
|
|
End Function
|
|
|
|
Private Function VerifySideIsAcceptable(nMyId As Integer) As Boolean
|
|
Dim dVal As Double = 0
|
|
' verifico che l'entità selezionata non contenga questi parametri
|
|
If EgtGetInfo(nMyId, INFO_SIDE_ANGLE2, dVal) Then
|
|
If dVal <> 0 Then
|
|
Return False
|
|
End If
|
|
End If
|
|
If EgtGetInfo(nMyId, INFO_SIDE_ANGLE, dVal) Then
|
|
If dVal <> 0 Then
|
|
Return False
|
|
End If
|
|
End If
|
|
If EgtGetInfo(nMyId, INFO_ORIG_SIDE_ANGLE, dVal) Then
|
|
If dVal <> 0 Then
|
|
Return False
|
|
End If
|
|
End If
|
|
' altrimenti l'entità è accettabile
|
|
Return True
|
|
End Function
|
|
|
|
' verifico che il lato selezionato appartenga ad una lavorazione di tipo Waterjet
|
|
Private Function IsWaterJetting(nMyId As Integer) As Boolean
|
|
' verifico che sul lato indicato sia impostato un taglio di tipo WaterJet
|
|
Dim nMchId As Integer = GDB_ID.NULL
|
|
For nInd As Integer = 0 To m_MachiningList.Count() - 1
|
|
nMchId = m_MachiningList(nInd).m_nId
|
|
Dim nMachiningType As Integer = EgtGetOperationType(m_MachiningList(nInd).m_nId)
|
|
If nMachiningType = MCH_MY.WATERJETTING Then
|
|
EgtSetCurrMachining(nMchId)
|
|
Dim nIndex As Integer = 0
|
|
Dim nIdSide As Integer = GDB_ID.NULL
|
|
Dim nSub As Integer = GDB_ID.NULL
|
|
While EgtGetMachiningGeometry(nIndex, nIdSide, nSub)
|
|
If nIdSide = nMyId Then
|
|
Return True
|
|
End If
|
|
nIndex += 1
|
|
End While
|
|
End If
|
|
Next
|
|
Return False
|
|
End Function
|
|
|
|
Private Sub RefreshMachList()
|
|
For nI As Integer = 0 To m_MachiningList.Count() - 1
|
|
' cancello tutti gli indici di lavorazione presenti nel disegno
|
|
Dim nNbrId As Integer = GDB_ID.NULL
|
|
EgtErase(m_MachiningList(nI).m_nNbrId)
|
|
EgtRemoveInfo(m_MachiningList(nI).m_nId, "NbrId")
|
|
Next
|
|
' Preparo la lista delle lavorazioni
|
|
CalculateSplitMachList(m_nCurrPhase, m_MachiningList)
|
|
' Aggiorno visualizzazione delle lavorazioni
|
|
For nI As Integer = 0 To m_MachiningList.Count() - 1
|
|
' sistemo colore
|
|
ColorMachining(m_MachiningList(nI))
|
|
' assegno nuova numerazione
|
|
NumberDirectionMachining(nI)
|
|
' conto il numero di tipi di lavorazioni
|
|
CountMachiningType(m_MachiningList(nI), m_nCountSawing, m_nCountWaterjetting, m_nCountOtherMachining)
|
|
Next
|
|
' aggiorno grafica
|
|
ShowMachiningList()
|
|
' aggiorno la visualizzazione
|
|
EgtDraw()
|
|
End Sub
|
|
|
|
Public Sub DeselectWJBridgesPart()
|
|
' se in fase di definzione di un ponticello lo elimino
|
|
If m_nIdSelectedSideWJ_Srt <> GDB_ID.NULL And m_nIdSelectedSideWJ_End = GDB_ID.NULL And m_nIdBridge <> GDB_ID.NULL Then
|
|
EgtErase(EgtGetParent(m_nIdBridge))
|
|
End If
|
|
m_nIdBridge = GDB_ID.NULL
|
|
EgtResetMark(m_nIdSelectedPartWJ_Srt)
|
|
m_nIdSelectedPartWJ_Srt = GDB_ID.NULL
|
|
EgtDeselectObj(m_nIdSelectedSideWJ_Srt)
|
|
m_nIdSelectedSideWJ_Srt = GDB_ID.NULL
|
|
m_nIdSelectedWaterJet_Srt = GDB_ID.NULL
|
|
EgtResetMark(m_nIdSelectedPartWJ_End)
|
|
m_nIdSelectedPartWJ_End = GDB_ID.NULL
|
|
EgtDeselectObj(m_nIdSelectedSideWJ_End)
|
|
m_nIdSelectedSideWJ_End = GDB_ID.NULL
|
|
m_nIdSelectedWaterJet_End = GDB_ID.NULL
|
|
EgtDraw()
|
|
End Sub
|
|
|
|
#End Region ' Bridge
|
|
|
|
#Region "Quality"
|
|
|
|
Public ReadOnly Property QualityCommand As ICommand
|
|
Get
|
|
If m_cmdQuality Is Nothing Then
|
|
m_cmdQuality = New Command(AddressOf ModifyQuality)
|
|
End If
|
|
Return m_cmdQuality
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub ModifyQuality()
|
|
Dim bFirstWJ As Boolean = True
|
|
Dim sQuality As String = String.Empty
|
|
' Recupero la lavorazione corrente
|
|
If m_CurrFirstInd = -1 Then Return
|
|
Dim bGenModif As Boolean = False
|
|
For Index As Integer = m_CurrFirstInd To m_CurrLastInd
|
|
If Not m_ItemList(Index).IsSelected Then
|
|
Continue For
|
|
End If
|
|
Dim nI As Integer = m_ItemList(Index).Ind
|
|
Dim nOperId As Integer = m_MachiningList(nI).m_nId
|
|
Dim nMachiningType As Integer = EgtGetOperationType(nOperId)
|
|
' se altrimenti getto d'acqua
|
|
If nMachiningType = MCH_MY.WATERJETTING Then
|
|
' ------------------ INIZIO PREPARAZIONE TASTIERINO VIRTUALE ------------------
|
|
If bFirstWJ Then
|
|
EgtSetCurrMachining(nOperId)
|
|
' Dialogo richiesta valore
|
|
'(m_MainWindow, m_MainWindow.m_CurrentMachine.Qualities, "Quality")
|
|
Dim ModifyQualityWnd As New ModifyQualityV
|
|
Dim ModifyQuality As New ModifyQualityVM
|
|
ModifyQuality.Title = EgtMsg(91673) ' Quality
|
|
ModifyQuality.QualityList = CurrentMachine.Qualities
|
|
ModifyQualityWnd.DataContext = ModifyQuality
|
|
ModifyQualityWnd.Owner = Application.Current.MainWindow
|
|
If EgtGetInfo(nOperId, "Quality", sQuality) Then
|
|
ModifyQuality.SelectedQuality = sQuality
|
|
Else
|
|
ModifyQuality.SelectedQuality = CurrentMachine.sCurrWaterJettingQuality
|
|
End If
|
|
If Not ModifyQualityWnd.ShowDialog() Then Return
|
|
sQuality = ModifyQuality.SelectedQuality
|
|
' comunico che ho letto il primo dato
|
|
bFirstWJ = False
|
|
|
|
End If
|
|
' ------------------ INIZIO PREPARAZIONE TASTIERINO VIRTUALE ------------------
|
|
' Modifica della lavorazione
|
|
EgtSetCurrMachining(nOperId)
|
|
EgtSetInfo(nOperId, "Quality", sQuality)
|
|
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
|
' verifico interferenza
|
|
bGenModif = True
|
|
End If
|
|
Next
|
|
' Se modificato qualcosa
|
|
If bGenModif Then
|
|
EgtDraw()
|
|
m_bModified = True
|
|
End If
|
|
End Sub
|
|
|
|
#End Region ' Quality
|
|
|
|
' Genera la lavorazione associata al percoso indicato
|
|
Private Function CreateSingleCut() As Boolean
|
|
Dim bOk As Boolean = False
|
|
' Verifico sia definito il punto iniziale e il grezzo
|
|
If Not (m_bGetStartPoint And m_bGetEndPoint) AndAlso m_IdCurrRawSolid <> GDB_ID.NULL Then
|
|
Return False
|
|
End If
|
|
' Spessore grezzo
|
|
Dim ptRawMin, ptRawMax As Point3d
|
|
If Not EgtGetRawPartBBox(m_IdCurrRawSolid, ptRawMin, ptRawMax) Then Return False
|
|
Dim dRawHeight As Double = ptRawMax.z - ptRawMin.z
|
|
' Recupero spessore lama corrente
|
|
Dim sSaw As String = CurrentMachine.sCurrSaw
|
|
Dim sSawing As String = CurrentMachine.sCurrSawing
|
|
EgtTdbSetCurrTool(sSaw)
|
|
Dim dThick As Double = 0
|
|
' Se è impostata una lavorazione di lama
|
|
If Not String.IsNullOrEmpty(sSawing) Then
|
|
EgtTdbGetCurrToolParam(MCH_TP.THICK, dThick)
|
|
End If
|
|
' Recupero pezzo per il taglio diretto
|
|
Dim nPartId = m_IdSplitGroup
|
|
' Calcolo punto di inserimento nel grezzo
|
|
Dim ptMin, ptMax As Point3d
|
|
EgtGetBBoxGlob(nPartId, GDB_BB.STANDARD, ptMin, ptMax)
|
|
Dim ptTabOri As Point3d
|
|
EgtGetTableRef(1, ptTabOri)
|
|
'Dim ptIns As Point3d = ptMin + (ptTabOri - ptRawMin)
|
|
Dim ptOri As New Point3d
|
|
Dim ptIns As Point3d = ptOri + (ptMin - ptRawMin)
|
|
ptIns.z = dRawHeight
|
|
' Imposto la fase corrente
|
|
EgtSetCurrPhase(m_nCurrPhase)
|
|
' Inserisco il taglio nel grezzo : CamAuto.GetCurrentRaw()
|
|
EgtAddPartToRawPart(nPartId, ptIns, m_IdCurrRawSolid)
|
|
' Inserisco la lavorazione
|
|
bOk = AddMachinings(nPartId) AndAlso UpdateAllMachiningsToolpaths()
|
|
'' Spengo la linea
|
|
'If bOk Then
|
|
' EgtSetStatus(m_IdSplitLine, GDB_ST.OFF)
|
|
'End If
|
|
Return bOk
|
|
End Function
|
|
|
|
Private Function RemoveCut(nId As Integer) As Boolean
|
|
Dim bOk As Boolean = False
|
|
Dim nIdCurrMachGroup As Integer = EgtGetCurrMachGroup()
|
|
Dim ParentId As Integer = EgtGetParent(nId)
|
|
While ParentId <> GDB_ID.NULL
|
|
Dim sCutName As String = String.Empty
|
|
EgtGetName(ParentId, sCutName)
|
|
If sCutName.Contains(SPLIT_CUT & "_" & nIdCurrMachGroup.ToString) Then
|
|
bOk = RemoveCurrentSplitCut(ParentId)
|
|
Return bOk
|
|
End If
|
|
ParentId = EgtGetParent(ParentId)
|
|
End While
|
|
Return bOk
|
|
End Function
|
|
|
|
Friend Sub OnMouseDownScene_DoubleClick(sender As Object, e As System.Windows.Forms.MouseEventArgs)
|
|
OnMouseDownScene(sender, e)
|
|
If m_nSelected = GDB_ID.NULL Then Return
|
|
OnOff(Nothing)
|
|
End Sub
|
|
|
|
Friend Sub OnMouseDownScene(sender As Object, e As System.Windows.Forms.MouseEventArgs)
|
|
' Se tasto premuoto allora attivo la selezione multipla da Scena
|
|
Dim bKeyCtrlPressed = (Keyboard.Modifiers And ModifierKeys.Control) > 0
|
|
' Verifico di essere il gestore attivo e non in modalità sola visualizzazione
|
|
If Not m_bActive OrElse OmagOFFICEMap.refMachiningTabVM.IsShow Then Return
|
|
' Si può selezionare solo con il tasto sinistro e se stato NULL
|
|
If e.Button <> Windows.Forms.MouseButtons.Left Or
|
|
Not OmagOFFICEMap.refSceneHostVM.MainScene.IsStatusNull() Then
|
|
Return
|
|
End If
|
|
|
|
' definizione dei ponticelli
|
|
If m_BridgeBtn_IsChecked Then
|
|
If m_nIdSelectedPartWJ_Srt = GDB_ID.NULL Then
|
|
OnMyMouseDownSceneBridges(sender, e, True, m_nIdSelectedSideWJ_Srt, m_nIdSelectedWaterJet_Srt, m_nIdSelectedPartWJ_Srt)
|
|
Else
|
|
OnMyMouseDownSceneBridges(sender, e, False, m_nIdSelectedSideWJ_End, m_nIdSelectedWaterJet_End, m_nIdSelectedPartWJ_End)
|
|
' aggiorno la visualizzazione delle lavorazioni e la lista
|
|
RefreshMachList()
|
|
End If
|
|
' se entrambi i pezzi sono stati definiti allora procedo alla deselezione
|
|
If m_nIdSelectedPartWJ_Srt <> GDB_ID.NULL And m_nIdSelectedPartWJ_End <> GDB_ID.NULL Then
|
|
DeselectWJBridgesPart()
|
|
End If
|
|
Return
|
|
End If
|
|
|
|
' eliminazione dei ponticelli
|
|
If m_BridgeDeleteBtn_IsChecked Then
|
|
OnMyMouseDownSceneBridgesDelete(sender, e)
|
|
' aggiorno la visualizzazione delle lavorazioni e la lista
|
|
RefreshMachList()
|
|
Return
|
|
End If
|
|
|
|
' Recupero le coordinate del punto corrente (solo se esiste la selezione di un grezzo corrente -> vedi sotto)
|
|
If m_CreateCut_IsChecked AndAlso m_IdCurrRawSolid <> GDB_ID.NULL Then
|
|
Dim ptCurr As Point3d
|
|
EgtUnProjectPoint(e.Location, ptCurr)
|
|
If m_bGetStartPoint And Not m_bGetEndPoint Then
|
|
m_ptEndPoint = ptCurr
|
|
m_bGetEndPoint = True
|
|
End If
|
|
If Not m_bGetStartPoint Then
|
|
m_ptStartPoint = ptCurr
|
|
m_bGetStartPoint = True
|
|
m_IdSplitGroup = EgtCreateGroup(GDB_ID.ROOT)
|
|
Dim nIdCurrMachGroup As Integer = EgtGetCurrMachGroup()
|
|
EgtSetName(m_IdSplitGroup, SPLIT_CUT & "_" & nIdCurrMachGroup.ToString & "." & EgtGetCurrPhase())
|
|
m_IdSplitGroupLayer = EgtCreateGroup(m_IdSplitGroup)
|
|
EgtSetName(m_IdSplitGroupLayer, NAME_OUTLOOP)
|
|
End If
|
|
If m_bGetStartPoint And m_bGetEndPoint Then
|
|
' procedo a disegnare la linea tra i due punti indicati
|
|
Dim ptRawMin, ptRawMax As Point3d
|
|
If EgtGetRawPartBBox(m_IdCurrRawSolid, ptRawMin, ptRawMax) Then
|
|
m_ptStartPoint.z = ptRawMax.z
|
|
m_ptEndPoint.z = ptRawMax.z
|
|
EgtModifyCurveEndPoint(m_IdSplitLine, m_ptEndPoint)
|
|
CreateSingleCut()
|
|
' Resetto tutte le variabili utilizzate
|
|
EgtResetMark(m_IdCurrRawSolid)
|
|
m_bGetStartPoint = False
|
|
m_bGetEndPoint = False
|
|
m_IdSplitLine = GDB_ID.NULL
|
|
m_IdSplitGroup = GDB_ID.NULL
|
|
m_IdSplitGroupLayer = GDB_ID.NULL
|
|
m_IdCurrRawSolid = GDB_ID.NULL
|
|
m_IdSplitLineRemove = GDB_ID.NULL
|
|
' Aggiorno la visualizzazione
|
|
PreviewMachinigList()
|
|
EgtDraw()
|
|
End If
|
|
End If
|
|
Return
|
|
ElseIf m_CreateCut_IsChecked AndAlso m_IdCurrRawSolid = GDB_ID.NULL Then
|
|
' Verifico se selezionato grezzo
|
|
EgtSetObjFilterForSelWin(False, False, True, False, False)
|
|
Dim nSelRaw As Integer
|
|
EgtSelect(e.Location, Scene.DIM_SEL, Scene.DIM_SEL, nSelRaw)
|
|
Dim nIdRaw As Integer = EgtGetFirstObjInSelWin()
|
|
While nIdRaw <> GDB_ID.NULL
|
|
Dim sRawName As String = String.Empty
|
|
If EgtGetName(nIdRaw, sRawName) AndAlso sRawName = NAME_RAW_SOLID Then
|
|
m_IdCurrRawSolid = EgtGetParent(nIdRaw)
|
|
EgtSetMark(m_IdCurrRawSolid)
|
|
EgtDraw()
|
|
Return
|
|
End If
|
|
nIdRaw = EgtGetNextObjInSelWin()
|
|
End While
|
|
Return
|
|
End If
|
|
|
|
If m_CreateParallelCut_IsChecked AndAlso m_IdCurrRawSolid = GDB_ID.NULL Then
|
|
' Verifico se selezionato grezzo
|
|
EgtSetObjFilterForSelWin(False, False, True, False, False)
|
|
Dim nSelRaw As Integer
|
|
EgtSelect(e.Location, Scene.DIM_SEL, Scene.DIM_SEL, nSelRaw)
|
|
Dim nIdRaw As Integer = EgtGetFirstObjInSelWin()
|
|
While nIdRaw <> GDB_ID.NULL
|
|
Dim sRawName As String = String.Empty
|
|
If EgtGetName(nIdRaw, sRawName) AndAlso sRawName = NAME_RAW_SOLID Then
|
|
m_IdCurrRawSolid = EgtGetParent(nIdRaw)
|
|
EgtSetMark(m_IdCurrRawSolid)
|
|
EgtDraw()
|
|
Return
|
|
End If
|
|
nIdRaw = EgtGetNextObjInSelWin()
|
|
End While
|
|
Return
|
|
ElseIf m_CreateParallelCut_IsChecked AndAlso m_IdCurrRawSolid <> GDB_ID.NULL AndAlso m_bGetStartPoint AndAlso Not m_bGetEndPoint Then
|
|
m_bGetEndPoint = True
|
|
CreateSingleCut()
|
|
' Resetto tutte le variabili utilizzate
|
|
EgtResetMark(m_IdCurrRawSolid)
|
|
m_bGetStartPoint = False
|
|
m_bGetEndPoint = False
|
|
m_IdSplitLine = GDB_ID.NULL
|
|
m_IdSplitGroup = GDB_ID.NULL
|
|
m_IdSplitGroupLayer = GDB_ID.NULL
|
|
m_IdCurrRawSolid = GDB_ID.NULL
|
|
m_IdSplitLineRemove = GDB_ID.NULL
|
|
' Aggiorno la visualizzazione
|
|
PreviewMachinigList()
|
|
EgtDraw()
|
|
Return
|
|
End If
|
|
|
|
If m_ModifyCut_IsChecked AndAlso m_IdCurrRawSolid = GDB_ID.NULL Then
|
|
' Verifico se selezionato grezzo
|
|
EgtSetObjFilterForSelWin(False, False, True, False, False)
|
|
Dim nSelRaw As Integer
|
|
EgtSelect(e.Location, Scene.DIM_SEL, Scene.DIM_SEL, nSelRaw)
|
|
Dim nIdRaw As Integer = EgtGetFirstObjInSelWin()
|
|
While nIdRaw <> GDB_ID.NULL
|
|
Dim sRawName As String = String.Empty
|
|
If EgtGetName(nIdRaw, sRawName) AndAlso sRawName = NAME_RAW_SOLID Then
|
|
m_IdCurrRawSolid = EgtGetParent(nIdRaw)
|
|
EgtSetMark(m_IdCurrRawSolid)
|
|
EgtDraw()
|
|
Return
|
|
End If
|
|
nIdRaw = EgtGetNextObjInSelWin()
|
|
End While
|
|
Return
|
|
ElseIf m_ModifyCut_IsChecked AndAlso m_IdCurrRawSolid <> GDB_ID.NULL AndAlso m_bGetStartPoint AndAlso Not m_bGetEndPoint Then
|
|
m_bGetEndPoint = True
|
|
CreateSingleCut()
|
|
RemoveCut(m_IdSplitLineRemove)
|
|
' Resetto tutte le variabili utilizzate
|
|
EgtResetMark(m_IdCurrRawSolid)
|
|
m_bGetStartPoint = False
|
|
m_bGetEndPoint = False
|
|
m_IdSplitLine = GDB_ID.NULL
|
|
m_IdSplitGroup = GDB_ID.NULL
|
|
m_IdSplitGroupLayer = GDB_ID.NULL
|
|
m_IdCurrRawSolid = GDB_ID.NULL
|
|
m_IdSplitLineRemove = GDB_ID.NULL
|
|
' Aggiorno la visualizzazione
|
|
PreviewMachinigList()
|
|
EgtDraw()
|
|
Return
|
|
End If
|
|
|
|
' Reset drag
|
|
m_nDragInd = -1
|
|
m_nDragType = 0
|
|
' Reset selection interface
|
|
m_nSelected = GDB_ID.NULL
|
|
' Verifico se selezionato estremo di taglio con lama
|
|
EgtSetObjFilterForSelWin(False, True, False, False, False)
|
|
Dim nSel As Integer
|
|
EgtSelect(e.Location, Scene.DIM_SEL, Scene.DIM_SEL, nSel)
|
|
Dim nId As Integer = EgtGetFirstObjInSelWin()
|
|
While nId <> GDB_ID.NULL
|
|
' --------------------------------- SPLIT CUT ---------------------------------
|
|
' Se attiva l'eliminazione di un taglio di separazione
|
|
If m_RemoveCut_IsChecked Then
|
|
RemoveCut(nId)
|
|
' Aggiorno la visualizzazione
|
|
PreviewMachinigList()
|
|
EgtDraw()
|
|
Return
|
|
End If
|
|
|
|
' Recupero le info del pezzo selezionato per procedere a generare
|
|
If m_CreateParallelCut_IsChecked AndAlso m_IdCurrRawSolid <> GDB_ID.NULL Then
|
|
Dim sMyName As String = ""
|
|
EgtGetName(nId, sMyName)
|
|
If String.Compare(sMyName, NAME_PV_CUT) = 0 Then
|
|
Dim nPvId As Integer = EgtGetParent(EgtGetParent(nId))
|
|
Dim sPvid As String = String.Empty
|
|
EgtGetName(nPvId, sPvid)
|
|
If sPvid.StartsWith("Saw") Then
|
|
sPvid = sPvid.Remove(0, 3)
|
|
If IsNumeric(sPvid) Then
|
|
Dim nIdLine As Integer = CInt(sPvid)
|
|
m_IdSplitGroup = EgtCreateGroup(GDB_ID.ROOT)
|
|
Dim nIdCurrMachGroup As Integer = EgtGetCurrMachGroup()
|
|
EgtSetName(m_IdSplitGroup, SPLIT_CUT & "_" & nIdCurrMachGroup.ToString & "." & EgtGetCurrPhase())
|
|
m_IdSplitGroupLayer = EgtCreateGroup(m_IdSplitGroup)
|
|
EgtSetName(m_IdSplitGroupLayer, NAME_OUTLOOP)
|
|
m_IdSplitLine = EgtCopyGlob(nIdLine, m_IdSplitGroupLayer)
|
|
' Recupero la dimennsione del taglio (non basta copiare la geometria)
|
|
Dim dUsal As Double = 0
|
|
Dim dUeal As Double = 0
|
|
Dim nMchId As Integer = GDB_ID.NULL
|
|
If EgtGetInfo(nPvId, "MId", nMchId) Then
|
|
EgtGetInfo(nMchId, INFO_MCH_USER_SAL, dUsal)
|
|
EgtGetInfo(nMchId, INFO_MCH_USER_EAL, dUeal)
|
|
End If
|
|
' Aggiorno la dimensione della geometria
|
|
EgtExtendCurveStartByLen(m_IdSplitLine, dUsal)
|
|
EgtExtendCurveEndByLen(m_IdSplitLine, dUeal)
|
|
EgtDeselectObj(nId)
|
|
m_bGetStartPoint = True
|
|
End If
|
|
End If
|
|
Return
|
|
End If
|
|
Return
|
|
End If
|
|
|
|
If m_ModifyCut_IsChecked AndAlso m_IdCurrRawSolid <> GDB_ID.NULL Then
|
|
Dim sMyName As String = ""
|
|
EgtGetName(nId, sMyName)
|
|
If String.Compare(sMyName, NAME_PV_CUT) = 0 Then
|
|
Dim nPvId As Integer = EgtGetParent(EgtGetParent(nId))
|
|
Dim sPvId As String = String.Empty
|
|
EgtGetName(nPvId, sPvId)
|
|
If sPvId.StartsWith("Saw") Then
|
|
sPvId = sPvId.Remove(0, 3)
|
|
If IsNumeric(sPvId) Then
|
|
Dim nIdLine As Integer = CInt(sPvId)
|
|
m_IdSplitGroup = EgtCreateGroup(GDB_ID.ROOT)
|
|
Dim nIdCurrMachGroup As Integer = EgtGetCurrMachGroup()
|
|
EgtSetName(m_IdSplitGroup, SPLIT_CUT & "_" & nIdCurrMachGroup.ToString & "." & EgtGetCurrPhase())
|
|
m_IdSplitGroupLayer = EgtCreateGroup(m_IdSplitGroup)
|
|
EgtSetName(m_IdSplitGroupLayer, NAME_OUTLOOP)
|
|
m_IdSplitLine = EgtCopyGlob(nIdLine, m_IdSplitGroupLayer)
|
|
' Recupero la dimennsione del taglio (non basta copiare la geometria)
|
|
Dim dUsal As Double = 0
|
|
Dim dUeal As Double = 0
|
|
Dim nMchId As Integer = GDB_ID.NULL
|
|
If EgtGetInfo(nPvId, "MId", nMchId) Then
|
|
EgtGetInfo(nMchId, INFO_MCH_USER_SAL, dUsal)
|
|
EgtGetInfo(nMchId, INFO_MCH_USER_EAL, dUeal)
|
|
End If
|
|
' Aggiorno la dimensione della geometria
|
|
EgtExtendCurveStartByLen(m_IdSplitLine, dUsal)
|
|
EgtExtendCurveEndByLen(m_IdSplitLine, dUeal)
|
|
EgtDeselectObj(nId)
|
|
' Salvo l'Id del tagli da eliminare
|
|
m_IdSplitLineRemove = nId
|
|
m_bGetStartPoint = True
|
|
EgtDraw()
|
|
End If
|
|
End If
|
|
Return
|
|
End If
|
|
Return
|
|
End If
|
|
|
|
' --------------------------------- SPLIT CUT ---------------------------------
|
|
' Verifico sia un attacco o uscita di taglio con lama
|
|
Dim nType As Integer = 0
|
|
Dim sName As String = ""
|
|
EgtGetName(nId, sName)
|
|
If String.Compare(sName, NAME_PV_PRECUT) = 0 Then
|
|
nType = 1
|
|
ElseIf String.Compare(sName, NAME_PV_POSTCUT) = 0 Then
|
|
nType = 2
|
|
ElseIf String.Compare(sName, NAME_PV_CUT) = 0 Then
|
|
nType = 3
|
|
End If
|
|
If nType = 1 Or nType = 2 Then
|
|
Dim nPvId As Integer = EgtGetParent(EgtGetParent(nId))
|
|
Dim nMchId As Integer = GDB_ID.NULL
|
|
If EgtGetInfo(nPvId, "MId", nMchId) Then
|
|
For nInd As Integer = 0 To m_MachiningList.Count() - 1
|
|
If m_MachiningList(nInd).m_nId = nMchId Then
|
|
m_nDragInd = nInd
|
|
m_nDragType = nType
|
|
End If
|
|
For nJ As Integer = 0 To m_MachiningList(nInd).m_vOthId.Count() - 1
|
|
If m_MachiningList(nInd).m_vOthId(nJ) = nMchId Then
|
|
m_nDragInd = nInd
|
|
m_nDragType = nType
|
|
Exit For
|
|
End If
|
|
Next
|
|
If m_nDragInd >= 0 Then
|
|
' Assegno l'id dell'elemento selezionato
|
|
m_nSelected = m_nDragInd
|
|
Exit For
|
|
End If
|
|
Next
|
|
End If
|
|
If m_nDragInd >= 0 Then
|
|
' Assegno l'id dell'elemento selezionato
|
|
m_nSelected = m_nDragInd
|
|
Exit While
|
|
End If
|
|
ElseIf nType = 3 Then
|
|
Dim nPvId As Integer = EgtGetParent(EgtGetParent(nId))
|
|
Dim nMchId As Integer = GDB_ID.NULL
|
|
If EgtGetInfo(nPvId, "MId", nMchId) Then
|
|
For nInd As Integer = 0 To m_MachiningList.Count() - 1
|
|
If m_MachiningList(nInd).m_nId = nMchId Then
|
|
m_nSelected = nInd
|
|
End If
|
|
For nJ As Integer = 0 To m_MachiningList(nInd).m_vOthId.Count() - 1
|
|
If m_MachiningList(nInd).m_vOthId(nJ) = nMchId Then
|
|
m_nSelected = nInd
|
|
Exit For
|
|
End If
|
|
Next
|
|
If m_nSelected >= 0 Then Exit For
|
|
Next
|
|
End If
|
|
If m_nSelected >= 0 Then Exit While
|
|
End If
|
|
nId = EgtGetNextObjInSelWin()
|
|
End While
|
|
' Sistemazioni per drag
|
|
If m_nSelected >= 0 AndAlso EgtUnProjectPoint(e.Location, m_ptDragPrev) Then
|
|
Dim nItemIndex = 0
|
|
For Each Item In ItemList
|
|
If Not bKeyCtrlPressed Then
|
|
Item.IsSelected = (nItemIndex = m_nSelected)
|
|
Else
|
|
' procedo ad rendere attivo solo l'elemnento selezionato
|
|
If nItemIndex = m_nSelected Then
|
|
Item.IsSelected = True
|
|
End If
|
|
End If
|
|
nItemIndex += 1
|
|
Next
|
|
Else
|
|
m_nDragInd = -1
|
|
m_nDragType = 0
|
|
m_nSelected = GDB_ID.NULL
|
|
End If
|
|
End Sub
|
|
|
|
Friend Sub OnMyMouseMoveScene(sender As Object, e As System.Windows.Forms.MouseEventArgs)
|
|
' Verifico di essere il gestore attivo e non in modalità sola visualizzazione
|
|
If Not m_bActive OrElse OmagOFFICEMap.refMachiningTabVM.IsShow Then Return
|
|
' Ricavo il punto corrente in coordinate mondo
|
|
Dim ptCurr As Point3d
|
|
EgtUnProjectPoint(e.Location, ptCurr)
|
|
|
|
' definizione dei ponticelli
|
|
If m_BridgeBtn_IsChecked Then
|
|
If m_nIdSelectedPartWJ_Srt <> GDB_ID.NULL Then
|
|
OnMyMouseMoveSceneBridges(ptCurr)
|
|
End If
|
|
Return
|
|
End If
|
|
|
|
' Recupero le coordinate del punto corrente
|
|
If m_CreateCut_IsChecked Then
|
|
If m_bGetStartPoint And Not m_bGetEndPoint Then
|
|
m_ptEndPoint = ptCurr
|
|
End If
|
|
If m_bGetStartPoint And Not m_bGetEndPoint Then
|
|
' procedo a disegnare la linea tra i due punti indicati
|
|
Dim ptRawMin, ptRawMax As Point3d
|
|
If EgtGetRawPartBBox(m_IdCurrRawSolid, ptRawMin, ptRawMax) Then
|
|
m_ptStartPoint.z = ptRawMax.z
|
|
m_ptEndPoint.z = ptRawMax.z
|
|
If m_IdSplitLine = GDB_ID.NULL Then
|
|
m_IdSplitLine = EgtCreateLine(m_IdSplitGroupLayer, m_ptStartPoint, m_ptEndPoint)
|
|
Else
|
|
EgtModifyCurveEndPoint(m_IdSplitLine, m_ptEndPoint)
|
|
End If
|
|
EgtDraw()
|
|
End If
|
|
End If
|
|
Return
|
|
End If
|
|
|
|
If m_CreateParallelCut_IsChecked AndAlso m_IdSplitLine <> GDB_ID.NULL Then
|
|
Dim mPoint3d As Point3d
|
|
EgtMidPoint(m_IdSplitLine, mPoint3d)
|
|
mPoint3d.z = 0
|
|
ptCurr.z = 0
|
|
EgtMove(m_IdSplitLine, ptCurr - mPoint3d)
|
|
EgtDraw()
|
|
End If
|
|
|
|
If m_ModifyCut_IsChecked AndAlso m_IdSplitLine <> GDB_ID.NULL Then
|
|
Dim mPoint3d As Point3d
|
|
EgtMidPoint(m_IdSplitLine, mPoint3d)
|
|
mPoint3d.z = 0
|
|
ptCurr.z = 0
|
|
EgtMove(m_IdSplitLine, ptCurr - mPoint3d)
|
|
EgtDraw()
|
|
End If
|
|
|
|
' Se drag non abilitato o in corso
|
|
If m_nDragInd = -1L Or m_bDragging Then Return
|
|
m_bDragging = True
|
|
Dim nOperId As Integer = m_MachiningList(m_nDragInd).m_nId
|
|
' Ricavo il vettore di movimento e la variazione di lunghezza
|
|
Dim vtMove As Vector3d = ptCurr - m_ptDragPrev
|
|
Dim dDelta = vtMove * m_MachiningList(m_nDragInd).m_vtDir
|
|
If m_nDragType = 1 Then
|
|
Dim dOrigUsal As Double = 0
|
|
Dim dUsal As Double
|
|
' ----------------------- REPEAT -----------------------
|
|
Do
|
|
dDelta = -dDelta
|
|
' Leggo il valore salvato nella geometria
|
|
EgtGetInfo(nOperId, INFO_MCH_USER_SAL, dOrigUsal)
|
|
dUsal = dOrigUsal + dDelta
|
|
' Se c'è limite alla lunghezza libera
|
|
If m_MachiningList(m_nDragInd).m_dStartFreeLen < FREELEN_INF Then
|
|
' Recupero sicurezza in corner interno
|
|
Dim dCornerSafety As Double = Math.Max(GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_INTCORNER, 1, CurrentMachine.sMachIniFile), 10 * EPS_SMALL)
|
|
' Recupero lunghezza baffo del taglio
|
|
Dim nPvId As Integer = GDB_ID.NULL
|
|
EgtGetInfo(EgtGetFirstNameInGroup(nOperId, NAME_PREVIEW), INFO_PV_ONPART_ID, nPvId)
|
|
Dim dDT As Double = 0
|
|
EgtGetInfo(EgtGetFirstGroupInGroup(nPvId), "DT", dDT)
|
|
dUsal = Math.Min(dUsal, m_MachiningList(m_nDragInd).m_dStartFreeLen - dDT - dCornerSafety)
|
|
End If
|
|
' Modifica della lavorazione
|
|
EgtSetCurrMachining(nOperId)
|
|
Dim dAddLen As Double = 0
|
|
EgtGetMachiningParam(MCH_MP.STARTADDLEN, dAddLen)
|
|
If dAddLen - dOrigUsal < -10 * EPS_SMALL Then
|
|
m_bDragging = False
|
|
Return
|
|
End If
|
|
EgtSetMachiningParam(MCH_MP.STARTADDLEN, dAddLen + dUsal - dOrigUsal)
|
|
EgtSetInfo(nOperId, INFO_MCH_USER_SAL, dUsal)
|
|
Loop Until UpdateMachiningPreview(m_MachiningList(m_nDragInd).m_nId, True)
|
|
' ----------------------- REPEAT (solo se il segmento scompare) -----------------------
|
|
Else
|
|
Dim dOrigUeal As Double = 0
|
|
Dim dUeal As Double
|
|
dDelta = -dDelta
|
|
Do
|
|
dDelta = -dDelta
|
|
' Leggo il valore salvato nella geometria
|
|
EgtGetInfo(nOperId, INFO_MCH_USER_EAL, dOrigUeal)
|
|
dUeal = dOrigUeal + dDelta
|
|
' Se c'è limite alla lunghezza libera
|
|
If m_MachiningList(m_nDragInd).m_dEndFreeLen < FREELEN_INF Then
|
|
' Recupero sicurezza in corner interno
|
|
Dim dCornerSafety As Double = Math.Max(GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_INTCORNER, 1, CurrentMachine.sMachIniFile), 10 * EPS_SMALL)
|
|
' Recupero lunghezza baffo del taglio
|
|
Dim nPvId As Integer = GDB_ID.NULL
|
|
EgtGetInfo(EgtGetFirstNameInGroup(nOperId, NAME_PREVIEW), INFO_PV_ONPART_ID, nPvId)
|
|
Dim dDT As Double = 0
|
|
EgtGetInfo(EgtGetFirstGroupInGroup(nPvId), "DT", dDT)
|
|
dUeal = Math.Min(dUeal, m_MachiningList(m_nDragInd).m_dEndFreeLen - dDT - dCornerSafety)
|
|
End If
|
|
' Modifica della lavorazione
|
|
EgtSetCurrMachining(nOperId)
|
|
Dim dAddLen As Double = 0
|
|
EgtGetMachiningParam(MCH_MP.ENDADDLEN, dAddLen)
|
|
If dAddLen - dOrigUeal < -10 * EPS_SMALL Then
|
|
m_bDragging = False
|
|
Return
|
|
End If
|
|
EgtSetMachiningParam(MCH_MP.ENDADDLEN, dAddLen + dUeal - dOrigUeal)
|
|
EgtSetInfo(nOperId, INFO_MCH_USER_EAL, dUeal)
|
|
Loop Until UpdateMachiningPreview(m_MachiningList(m_nDragInd).m_nId, True)
|
|
End If
|
|
' verifico interferenza
|
|
EgtVerifyMachining(m_MachiningList(m_nDragInd).m_nId, m_MachiningList(m_nDragInd).m_nInterf)
|
|
ColorMachining(m_MachiningList(m_nDragInd))
|
|
ColorNumberArrow(m_nDragInd)
|
|
' Aggiorno visualizzazione
|
|
EgtDraw()
|
|
m_bModified = True
|
|
' Aggiorno punto e stato di drag
|
|
m_ptDragPrev = ptCurr
|
|
m_bDragging = False
|
|
End Sub
|
|
|
|
Friend Sub OnMyMouseUpScene(sender As Object, e As System.Windows.Forms.MouseEventArgs)
|
|
' Verifico di essere il gestore attivo e non in modalità sola visualizzazione
|
|
If Not m_bActive OrElse OmagOFFICEMap.refMachiningTabVM.IsShow Then Return
|
|
' Se drag in corso
|
|
If m_nDragInd >= 0 Then
|
|
m_nDragInd = -1
|
|
End If
|
|
End Sub
|
|
|
|
Friend Sub OnKeyDownScene(sender As Object, e As System.Windows.Forms.KeyEventArgs)
|
|
' Con CANC cancello i pezzi selezionati
|
|
If (e.KeyData = System.Windows.Forms.Keys.Delete Or e.KeyData = System.Windows.Forms.Keys.Escape) And (m_BridgeBtn_IsChecked Or m_BridgeDeleteBtn_IsChecked) Then
|
|
DeselectWJBridgesPart()
|
|
End If
|
|
End Sub
|
|
|
|
Friend Sub StatusOffNumbArrow(Status As GDB_ST)
|
|
For Each Item In m_MachiningList
|
|
Dim nOperId As Integer = Item.m_nId
|
|
Dim nNbrId As Integer = Item.m_nNbrId
|
|
Dim nArrId As Integer = Item.m_nArrId
|
|
Dim nInd As Integer = m_MachiningList.IndexOf(Item)
|
|
If nInd >= 0 AndAlso nInd < m_ItemList.Count AndAlso Not m_ItemList(nInd).IsSelected Then
|
|
EgtSetStatus(nNbrId, Status)
|
|
EgtSetStatus(nArrId, Status)
|
|
End If
|
|
Next
|
|
EgtDraw()
|
|
End Sub
|
|
#End Region ' EVENTS
|
|
|
|
'-----------------------------------------------------------------------------------------------
|
|
Public Class NameIdLsBxItem
|
|
Inherits VMBase
|
|
|
|
Private m_nInd As Integer
|
|
Private m_sName As String
|
|
Private m_sSourceImg As String
|
|
Private m_bIsActive As Boolean
|
|
Private m_nType As Integer
|
|
|
|
Public Property Ind As Integer
|
|
Get
|
|
Return m_nInd
|
|
End Get
|
|
Set(value As Integer)
|
|
m_nInd = value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Name As String
|
|
Get
|
|
Return m_sName
|
|
End Get
|
|
Set(value As String)
|
|
If value <> m_sName Then
|
|
m_sName = value
|
|
NotifyPropertyChanged("Name")
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
Public Property SourceImg As String
|
|
Get
|
|
Return m_sSourceImg
|
|
End Get
|
|
Set(value As String)
|
|
m_sSourceImg = value
|
|
NotifyPropertyChanged("SourceImg")
|
|
End Set
|
|
End Property
|
|
|
|
Public Property bIsActive As Boolean
|
|
Get
|
|
Return m_bIsActive
|
|
End Get
|
|
Set(value As Boolean)
|
|
If value <> m_bIsActive Then
|
|
m_bIsActive = value
|
|
NotifyPropertyChanged("bIsActive")
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
Private m_IsSelected As Boolean
|
|
Public Property IsSelected As Boolean
|
|
Get
|
|
Return m_IsSelected
|
|
End Get
|
|
Set(value As Boolean)
|
|
If Not IsNothing(value) Then
|
|
m_IsSelected = value
|
|
If value AndAlso Not OmagOFFICEMap.refSplitModeVM.m_SelectedItemsList.Contains(Me) Then
|
|
OmagOFFICEMap.refSplitModeVM.m_SelectedItemsList.Add(Me)
|
|
Else
|
|
OmagOFFICEMap.refSplitModeVM.m_SelectedItemsList.Remove(Me)
|
|
End If
|
|
' se non è stato aggiunto nessun nuovo elemento alla lista dei selezionati allora esco
|
|
If OmagOFFICEMap.refSplitModeVM.m_SelectedItemsList.Count = 0 Then
|
|
EgtDraw()
|
|
NotifyPropertyChanged("IsSelected")
|
|
Return
|
|
End If
|
|
' se ho un solo elemento allora so che è coerrente con se stesso come lavorazione
|
|
If OmagOFFICEMap.refSplitModeVM.m_SelectedItemsList.Count = 1 Then
|
|
OmagOFFICEMap.refSplitModeVM.m_bAreHomogeneous = True
|
|
End If
|
|
' creo lista ordinata dei selezionati
|
|
Dim ItemList As New List(Of NameIdLsBxItem)
|
|
For Each Item In OmagOFFICEMap.refSplitModeVM.m_SelectedItemsList
|
|
ItemList.Add(Item)
|
|
Next
|
|
|
|
' ------------------------ verifico che le lavorazioni siano dello stesso tipo ------------------------
|
|
OmagOFFICEMap.refSplitModeVM.VerifyHomogenousMachining(ItemList)
|
|
' -----------------------------------------------------------------------------------------------------
|
|
' riordino l'elenco delle lavorazioni
|
|
ItemList.Sort(Function(x, y) Comparer(Of Integer).Default.Compare(OmagOFFICEMap.refSplitModeVM.m_ItemList.IndexOf(x), OmagOFFICEMap.refSplitModeVM.m_ItemList.IndexOf(y)))
|
|
' ------------------------ verifico che le lavorazioni siano contigue ---------------------------------
|
|
OmagOFFICEMap.refSplitModeVM.bEnabledCommandMove = VerifyContinuity(ItemList)
|
|
' -----------------------------------------------------------------------------------------------------
|
|
|
|
'If Not My.Computer.Keyboard.ShiftKeyDown And (My.Computer.Keyboard.CtrlKeyDown And value) Then
|
|
' ' verifico che siano contigui
|
|
' Dim bContigus As Boolean = False
|
|
' Dim LastSel As NameIdLsBxItem = OmagOFFICEMap.refSplitModeVM.m_SelectedItemsList(OmagOFFICEMap.refSplitModeVM.m_SelectedItemsList.Count - 1)
|
|
' If OmagOFFICEMap.refSplitModeVM.m_SelectedItemsList.Count = 1 Then
|
|
' bContigus = True
|
|
' Else
|
|
' For Each Item In ItemList
|
|
' If Item.Ind = LastSel.Ind + 1 Or Item.Ind = LastSel.Ind - 1 Then
|
|
' bContigus = True
|
|
' End If
|
|
' Next
|
|
' End If
|
|
' ' se non contiguo, elimino dai selezionati il primo(che è l'ultimo ad essere stato selezionato)
|
|
' If Not bContigus Then
|
|
' ItemList.Remove(LastSel)
|
|
' OmagOFFICEMap.refSplitModeVM.m_SelectedItemsList.RemoveAt(OmagOFFICEMap.refSplitModeVM.m_SelectedItemsList.Count - 1)
|
|
' OmagOFFICEMap.refSplitModeVM.ItemList(LastSel.Ind).IsSelected = Not value 'm_IsSelected = Not value
|
|
' ' disabilito il pulsanti per spostare le lavorazioni
|
|
' End If
|
|
'End If
|
|
|
|
' resetto marcatura lavorazioni
|
|
If OmagOFFICEMap.refSplitModeVM.m_CurrFirstInd > -1 Then
|
|
For Index = OmagOFFICEMap.refSplitModeVM.m_CurrFirstInd To OmagOFFICEMap.refSplitModeVM.m_CurrLastInd
|
|
OmagOFFICEMap.refSplitModeVM.MarkMachining(OmagOFFICEMap.refSplitModeVM.m_ItemList(Index).Ind, False)
|
|
Next
|
|
End If
|
|
' resetto indici
|
|
OmagOFFICEMap.refSplitModeVM.m_CurrFirstInd = -1
|
|
OmagOFFICEMap.refSplitModeVM.m_CurrLastInd = -1
|
|
' marco lavorazioni selezionate
|
|
For Each Item In ItemList
|
|
OmagOFFICEMap.refSplitModeVM.MarkMachining(Item.Ind, True)
|
|
Next
|
|
If (ItemList.Count > 0) Then
|
|
OmagOFFICEMap.refSplitModeVM.m_CurrFirstInd = OmagOFFICEMap.refSplitModeVM.m_ItemList.IndexOf(ItemList(0))
|
|
OmagOFFICEMap.refSplitModeVM.m_CurrLastInd = OmagOFFICEMap.refSplitModeVM.m_ItemList.IndexOf(ItemList(ItemList.Count - 1))
|
|
End If
|
|
EgtDraw()
|
|
NotifyPropertyChanged("IsSelected")
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
Public Function VerifyContinuity(ItemList As List(Of NameIdLsBxItem)) As Boolean
|
|
If ItemList.Count < 2 Then Return True
|
|
Dim bContigus As Boolean = False
|
|
For Index As Integer = 0 To ItemList.Count - 2
|
|
If ItemList(Index).Ind = ItemList(Index + 1).Ind + 1 Or ItemList(Index).Ind = ItemList(Index + 1).Ind - 1 Then
|
|
bContigus = True
|
|
Else
|
|
bContigus = False
|
|
Exit For
|
|
End If
|
|
Next
|
|
Return bContigus
|
|
End Function
|
|
|
|
Public Property Type As Integer
|
|
Get
|
|
Return m_nType
|
|
End Get
|
|
Set(value As Integer)
|
|
m_nType = value
|
|
End Set
|
|
End Property
|
|
|
|
Sub New(Name As String, Ind As Integer, bIsActive As Boolean, nType As Integer)
|
|
Me.m_sName = Name
|
|
Me.m_nInd = Ind
|
|
Me.m_bIsActive = bIsActive
|
|
Me.m_nType = nType
|
|
End Sub
|
|
|
|
Sub New(Name As String, Ind As Integer, bIsActive As Boolean, nType As Integer, sImg As String)
|
|
Me.m_sName = Name
|
|
Me.m_nInd = Ind
|
|
Me.m_bIsActive = bIsActive
|
|
Me.m_nType = nType
|
|
Me.m_sSourceImg = sImg
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
End Class
|