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

EgtDOORCreator 2.2c4 :

Browse Source 
- aggiunta quotatura su hardware per report.
- aggiunti parametri quotature nelle opzioni.
This commit is contained in:
Emmanuele Sassi
2020-03-24 08:36:23 +00:00
parent e6042d4073
commit 1aab4c7ec8
16 changed files with 936 additions and 577 deletions
Download Patch File Download Diff File Expand all files Collapse all files
SceneManager/ViewPanel/ViewPanelVM.vb
+10
View File
@@ -107,6 +107,8 @@ Public Class ViewPanelVM
''' </summary>
Public Sub TopView(ByVal param As Object)
m_rfScenemanagerVM.ProjectScene.TopView()
m_rfScenemanagerVM.GetController.SetLastInteger(Controller.GRID_TYPE.TOP)
Map.refSceneManagerVM.GetController.ExecuteCommand(Controller.CMD.GRID)
End Sub
#End Region ' TopViewCommand
@@ -130,6 +132,8 @@ Public Class ViewPanelVM
''' </summary>
Public Sub FrontView(ByVal param As Object)
m_rfScenemanagerVM.ProjectScene.FrontView()
m_rfScenemanagerVM.GetController.SetLastInteger(Controller.GRID_TYPE.FRONT)
Map.refSceneManagerVM.GetController.ExecuteCommand(Controller.CMD.GRID)
End Sub
#End Region ' FrontViewCommand
@@ -153,6 +157,8 @@ Public Class ViewPanelVM
''' </summary>
Public Sub LeftView(ByVal param As Object)
m_rfScenemanagerVM.ProjectScene.LeftView()
m_rfScenemanagerVM.GetController.SetLastInteger(Controller.GRID_TYPE.LEFT)
Map.refSceneManagerVM.GetController.ExecuteCommand(Controller.CMD.GRID)
End Sub
#End Region ' LeftViewCommand
@@ -176,6 +182,8 @@ Public Class ViewPanelVM
''' </summary>
Public Sub BackView(ByVal param As Object)
m_rfScenemanagerVM.ProjectScene.BackView()
m_rfScenemanagerVM.GetController.SetLastInteger(Controller.GRID_TYPE.BACK)
Map.refSceneManagerVM.GetController.ExecuteCommand(Controller.CMD.GRID)
End Sub
#End Region ' BackViewCommand
@@ -199,6 +207,8 @@ Public Class ViewPanelVM
''' </summary>
Public Sub RightView(ByVal param As Object)
m_rfScenemanagerVM.ProjectScene.RightView()
m_rfScenemanagerVM.GetController.SetLastInteger(Controller.GRID_TYPE.RIGHT)
Map.refSceneManagerVM.GetController.ExecuteCommand(Controller.CMD.GRID)
End Sub
#End Region ' RightViewCommand