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

EgtCAM5 1.6x2 :

Browse Source 
- modifiche per Gunstock.
This commit is contained in:
Dario Sassi
2016-12-13 19:56:29 +00:00
parent 2daae30629
commit 20b978c19c
14 changed files with 480 additions and 139 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ProjectPage/ProjectViewModel.vb
+73 -35
View File
@@ -710,43 +710,81 @@ Namespace EgtCAM5
End If
If Not bOk Then Application.Msn.NotifyColleagues(Application.NOTIFYSTATUSOUTPUT, EgtMsg(MSG_DOORSERRORS + 2))
End Sub)
Application.Msn.Register(Application.GUNSTOCKSCRIPT, Sub(sFilePath As String)
Dim bOk As Boolean
If String.IsNullOrEmpty(sFilePath) Then
bOk = ExecGunStock(m_ProjectScene, String.Empty)
Else
bOk = ExecGunStock(m_ProjectScene, sFilePath)
Application.Msn.Register(Application.GUNSTOCKNEW, Sub(sFilePath As String)
Dim bOk As Boolean
If String.IsNullOrEmpty(sFilePath) Then
bOk = ExecGunStockMod(m_ProjectScene, String.Empty)
Else
bOk = ExecGunStockMod(m_ProjectScene, sFilePath)
End If
EgtResetCurrPartLayer()
OnUpdateUI(Nothing, True)
Application.Msn.NotifyColleagues(Application.SELECTIDINOBJTREENOMARK, EgtGetCurrLayer())
If EgtGetCurrMachGroup() <> GDB_ID.NULL Then
Application.Msn.NotifyColleagues(Application.SETMACHININGMODE)
End If
If bOk Then
IniFile.m_MruNewGunStock.Add(IniFile.m_MODFilePath)
IniFile.m_MruModifyGunStock.Add(IniFile.m_PEZFilePath)
Dim sFile As String = String.Empty
If EgtGetCurrFilePath(sFile) Then
IniFile.m_MruFiles.Add(sFile)
End If
EgtResetCurrPartLayer()
OnUpdateUI(Nothing, True)
Application.Msn.NotifyColleagues(Application.SELECTIDINOBJTREENOMARK, EgtGetCurrLayer())
If EgtGetCurrMachGroup() <> GDB_ID.NULL Then
Application.Msn.NotifyColleagues(Application.SETMACHININGMODE)
Else
IniFile.m_MruNewGunStock.Remove(IniFile.m_MODFilePath)
Try
Dim sErrFilePath As String = Path.ChangeExtension(IniFile.m_MODFilePath, ".txt")
Dim fileReader As String = My.Computer.FileSystem.ReadAllText(sErrFilePath)
Dim Lines() As String = fileReader.Split(ControlChars.CrLf.ToCharArray(), StringSplitOptions.RemoveEmptyEntries)
Dim values() As String = Lines(0).Split(CChar("=")).ToArray
Lines(0) = EgtMsg(MSG_DOORSERRORS + 1) & " " & Convert.ToInt32(values(1))
fileReader = String.Empty
For Index = 1 To Lines.Count - 1
fileReader &= (Lines(Index) + ControlChars.CrLf.ToCharArray())
Next
MessageBox.Show(fileReader, Lines(0).ToUpper, MessageBoxButton.OK, MessageBoxImage.Error)
Catch ex As Exception
MessageBox.Show(EgtMsg(MSG_DOORSERRORS + 7))
End Try
End If
End Sub)
Application.Msn.Register(Application.GUNSTOCKMODIF, Sub(sFilePath As String)
Dim bOk As Boolean
If String.IsNullOrEmpty(sFilePath) Then
bOk = ExecGunStockPez(m_ProjectScene, String.Empty)
Else
bOk = ExecGunStockPez(m_ProjectScene, sFilePath)
End If
EgtResetCurrPartLayer()
OnUpdateUI(Nothing, True)
Application.Msn.NotifyColleagues(Application.SELECTIDINOBJTREENOMARK, EgtGetCurrLayer())
If EgtGetCurrMachGroup() <> GDB_ID.NULL Then
Application.Msn.NotifyColleagues(Application.SETMACHININGMODE)
End If
If bOk Then
IniFile.m_MruModifyGunStock.Add(IniFile.m_PEZFilePath)
Dim sFile As String = String.Empty
If EgtGetCurrFilePath(sFile) Then
IniFile.m_MruFiles.Add(sFile)
End If
If bOk Then
IniFile.m_MruNewGunStock.Add(IniFile.m_MODFilePath)
Dim sFile As String = String.Empty
If EgtGetCurrFilePath(sFile) Then
IniFile.m_MruFiles.Add(sFile)
End If
Else
IniFile.m_MruNewGunStock.Remove(IniFile.m_MODFilePath)
Try
Dim sErrFilePath As String = Path.ChangeExtension(IniFile.m_MODFilePath, ".txt")
Dim fileReader As String = My.Computer.FileSystem.ReadAllText(sErrFilePath)
Dim Lines() As String = fileReader.Split(ControlChars.CrLf.ToCharArray(), StringSplitOptions.RemoveEmptyEntries)
Dim values() As String = Lines(0).Split(CChar("=")).ToArray
Lines(0) = EgtMsg(MSG_DOORSERRORS + 1) & " " & Convert.ToInt32(values(1))
fileReader = String.Empty
For Index = 1 To Lines.Count - 1
fileReader &= (Lines(Index) + ControlChars.CrLf.ToCharArray())
Next
MessageBox.Show(fileReader, Lines(0).ToUpper, MessageBoxButton.OK, MessageBoxImage.Error)
Catch ex As Exception
MessageBox.Show(EgtMsg(MSG_DOORSERRORS + 7))
End Try
End If
End Sub)
Else
IniFile.m_MruModifyGunStock.Remove(IniFile.m_PEZFilePath)
Try
Dim sErrFilePath As String = Path.ChangeExtension(IniFile.m_PEZFilePath, ".txt")
Dim fileReader As String = My.Computer.FileSystem.ReadAllText(sErrFilePath)
Dim Lines() As String = fileReader.Split(ControlChars.CrLf.ToCharArray(), StringSplitOptions.RemoveEmptyEntries)
Dim values() As String = Lines(0).Split(CChar("=")).ToArray
Lines(0) = EgtMsg(MSG_DOORSERRORS + 1) & " " & Convert.ToInt32(values(1))
fileReader = String.Empty
For Index = 1 To Lines.Count - 1
fileReader &= (Lines(Index) + ControlChars.CrLf.ToCharArray())
Next
MessageBox.Show(fileReader, Lines(0).ToUpper, MessageBoxButton.OK, MessageBoxImage.Error)
Catch ex As Exception
MessageBox.Show(EgtMsg(MSG_DOORSERRORS + 7))
End Try
End If
End Sub)
End Sub