From f47451a60f3a7df2c533165488d9979339e3f0e1 Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Tue, 10 Jun 2025 18:36:10 +0200 Subject: [PATCH] EgtWPFLib5 2.7f2 : - modifiche per aggiunta utensile di tipo Probe e lavorazione Probing. --- Constants/ConstMachIni.vb | 6 + EgtWPFLib5.vbproj | 14 + MachiningDbWindow/MachiningDbWindowVM.vb | 6 + MachiningDbWindow/MachiningTreeView.vb | 14 + MachiningDbWindow/ProbingParamPageV.xaml | 334 ++++++++++++++++++ MachiningDbWindow/ProbingParamPageV.xaml.vb | 3 + My Project/AssemblyInfo.vb | 4 +- ToolDbWindow/ProbeParamPageV.xaml | 372 ++++++++++++++++++++ ToolDbWindow/ProbeParamPageV.xaml.vb | 3 + ToolDbWindow/ToolDbWindowVM.vb | 6 + Utility/MachineUtility.vb | 6 + 11 files changed, 766 insertions(+), 2 deletions(-) create mode 100644 MachiningDbWindow/ProbingParamPageV.xaml create mode 100644 MachiningDbWindow/ProbingParamPageV.xaml.vb create mode 100644 ToolDbWindow/ProbeParamPageV.xaml create mode 100644 ToolDbWindow/ProbeParamPageV.xaml.vb diff --git a/Constants/ConstMachIni.vb b/Constants/ConstMachIni.vb index 368c620..d999a21 100644 --- a/Constants/ConstMachIni.vb +++ b/Constants/ConstMachIni.vb @@ -1,6 +1,7 @@ Public Module EstConstMachIni Public Const S_TOOLS As String = "Tools" + Public Const K_PROBE As String = "Probe" Public Const K_DRILLBIT As String = "Drillbit" Public Const K_SAWBLADE As String = "Sawblade" Public Const K_MILL As String = "Mill" @@ -10,6 +11,7 @@ Public Const K_CHISEL As String = "Chisel" Public Const K_COMPO As String = "Compo" Public Const K_WATERJET As String = "Waterjet" + Public Const K_PROBEMAKER As String = "ProbeMaker" Public Const K_DRILLMAKER As String = "DrillMaker" Public Const K_SAWBLADEMAKER As String = "SawbladeMaker" Public Const K_MILLMAKER As String = "MillMaker" @@ -19,6 +21,7 @@ Public Const S_TOOLHOLDER As String = "ToolHolder" Public Const S_MACHININGS As String = "Machinings" + Public Const K_PROBING As String = "Probing" Public Const K_SAWING As String = "Sawing" Public Const K_DRILLING As String = "Drilling" Public Const K_MILLING As String = "Milling" @@ -34,6 +37,9 @@ Public Const K_5AXMILLING As String = "5AxMilling" Public Const K_WATERJETTING As String = "Waterjetting" + Public Const S_PROBING As String = "Probing" + Public Const K_PRBSCRIPT As String = "PrbScript" + Public Const S_GENMACHINING As String = "GenMachining" Public Const K_GENSCRIPT As String = "GenScript" diff --git a/EgtWPFLib5.vbproj b/EgtWPFLib5.vbproj index b2a8de1..d2db18e 100644 --- a/EgtWPFLib5.vbproj +++ b/EgtWPFLib5.vbproj @@ -127,6 +127,9 @@ FiveAxisMachinigParamPageV.xaml + + ProbingParamPageV.xaml + ImportExportMachiningWindowV.xaml @@ -232,6 +235,9 @@ MortiseParamPageV.xaml + + ProbeParamPageV.xaml + StoneDrillParamPageV.xaml @@ -376,6 +382,10 @@ Designer MSBuild:Compile + + MSBuild:Compile + Designer + MSBuild:Compile Designer @@ -512,6 +522,10 @@ MSBuild:Compile Designer + + MSBuild:Compile + Designer + MSBuild:Compile Designer diff --git a/MachiningDbWindow/MachiningDbWindowVM.vb b/MachiningDbWindow/MachiningDbWindowVM.vb index 2d2da99..a06a1bc 100644 --- a/MachiningDbWindow/MachiningDbWindowVM.vb +++ b/MachiningDbWindow/MachiningDbWindowVM.vb @@ -553,6 +553,7 @@ Public Class MachiningDbWindowVM Private Stone5WjParamPageV As Stone5WaterjettingParamPageV Private FiveAxParamPageV As FiveAxisMachinigParamPageV Private SurfRoughParamPageV As SurfRoughingParamPageV + Private ProbParamPageV As ProbingParamPageV Public ReadOnly Property ParamPageV As ContentControl Get @@ -1289,6 +1290,11 @@ Public Class MachiningDbWindowVM SurfRoughParamPageV.DataContext = selMachining Return SurfRoughParamPageV + Case MCH_MY.PROBING + If IsNothing(ProbParamPageV) Then ProbParamPageV = New ProbingParamPageV + ProbParamPageV.DataContext = selMachining + Return ProbParamPageV + End Select Return Nothing diff --git a/MachiningDbWindow/MachiningTreeView.vb b/MachiningDbWindow/MachiningTreeView.vb index 8a2463d..022cfd1 100644 --- a/MachiningDbWindow/MachiningTreeView.vb +++ b/MachiningDbWindow/MachiningTreeView.vb @@ -1163,6 +1163,17 @@ Public Class MachiningTreeViewItem If m_SubTypeList.Count = 0 Then m_SubTypeList.Add(New IdNameStruct(0, "")) End If + Case MCH_MY.PROBING + Dim Index = 1 + Dim sPrbScript As String = String.Empty + m_SubTypeList = New ObservableCollection(Of Object) + While EgtUILib.GetPrivateProfileString(S_PROBING, K_PRBSCRIPT & Index, "", sPrbScript, MachiningDbWindowVM.m_sMachineIniPath) > 0 + m_SubTypeList.Add(New IdNameStruct(Index, sPrbScript)) + Index += 1 + End While + If m_SubTypeList.Count = 0 Then + m_SubTypeList.Add(New IdNameStruct(0, "")) + End If Case Else m_SubTypeList = Nothing End Select @@ -3521,6 +3532,9 @@ Public Class MachiningTreeViewItem Case MCH_MY.WATERJETTING m_ToolList = New ObservableCollection(Of String) FindToolByType(MCH_TY.WATERJET, m_ToolList) + Case MCH_MY.PROBING + m_ToolList = New ObservableCollection(Of String) + FindToolByType(MCH_TY.PROBE, m_ToolList) Case Else m_ToolList = Nothing End Select diff --git a/MachiningDbWindow/ProbingParamPageV.xaml b/MachiningDbWindow/ProbingParamPageV.xaml new file mode 100644 index 0000000..cab6398 --- /dev/null +++ b/MachiningDbWindow/ProbingParamPageV.xaml @@ -0,0 +1,334 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +