egtbeamwall/EgtBEAMWALL.ViewerOptimizer/Utility/Map.vb

Imports EgtWPFLib5
Imports EgtBEAMWALL.Core

Module Map

   Private m_refMainWindowVM As MainWindowVM
   Private m_refMyStatusBarVM As MyStatusBarVM
   Private m_refProjManagerVM As ProjManagerVM
   Private m_refProdManagerVM As ProdManagerVM
   Private m_refProjectVM As ProjectVM
   Private m_refMainMenuVM As MainMenuVM
   'Private m_refMachinePanelVM As MachinePanelVM
   'Private m_refMyMachGroupPanelVM As MyMachGroupPanelVM
   Private m_refLeftPanelVM As LeftPanelVM
   Private m_refBottomPanelVM As BottomPanelVM
   Private m_refShowBeamPanelVM As ShowBeamPanelVM
   Private m_refConfigurationPageVM As ConfigurationPageVM
   Private m_refRawPartListVM As RawPartListVM
   Private m_refPartInRawPartListVM As PartInRawPartListVM
   Private m_refWarehouseWndVM As WarehouseWndVM
   Private m_refFeatureListVM As FeatureListVM
   Private m_refFreeContourManagerVM As FreeContourManagerVM
   Private m_refFreeContourInputVM As FreeContourInputVM
   Private m_refPartManagerVM As PartManagerVM
   Private m_refInstrumentPanelVM As InstrumentPanelVM
   Private m_refTopPanelVM As TopPanelVM
   Private m_refOptimizePanelVM As OptimizePanelVM
   Private m_refCALCPanelVM As CALCPanelVM
   'Private m_refOpenProjectFileDialogVM As OpenProjectFileDialogVM
   'Private m_refRawPartTabVM As RawPartTabVM
   'Private m_refNestingTabVM As NestingTabVM
   'Private m_refMachiningTabVM As MachiningTabVM
   'Private m_refSplitModeVM As SplitModeVM
   'Private m_refMoveRawModeVM As MoveRawModeVM
   'Private m_refSimulTabVM As SimulTabVM

#Region "Get"

   Public ReadOnly Property refMainWindowVM As MainWindowVM
      Get
         Return m_refMainWindowVM
      End Get
   End Property

   Public ReadOnly Property refMyStatusBarVM As MyStatusBarVM
      Get
         Return LibMap.refStatusBarVM
      End Get
   End Property

   Public ReadOnly Property refProjManagerVM As ProjManagerVM
      Get
         Return m_refProjManagerVM
      End Get
   End Property
   Public ReadOnly Property refProdManagerVM As ProdManagerVM
      Get
         Return m_refProdManagerVM
      End Get
   End Property

   Public ReadOnly Property refProjectVM As ProjectVM
      Get
         Return m_refProjectVM
      End Get
   End Property

   Public ReadOnly Property refSceneHostVM As SceneHostVM
      Get
         Return LibMap.refSceneHostVM
      End Get
   End Property

   Public ReadOnly Property refShowPanelVM As ShowPanelVM
      Get
         Return LibMap.refShowPanelVM
      End Get
   End Property

   Public ReadOnly Property refMainMenuVM As MainMenuVM
      Get
         Return m_refMainMenuVM
      End Get
   End Property

   Public ReadOnly Property refMachinePanelVM As MachinePanelVM
      Get
         Return CoreMap.refMachinePanelVM
      End Get
   End Property

   Public ReadOnly Property refLeftPanelVM As LeftPanelVM
      Get
         Return m_refLeftPanelVM
      End Get
   End Property

   Public ReadOnly Property refMachGroupPanelVM As MyMachGroupPanelVM
      Get
         Return CoreMap.refMachGroupPanelVM
      End Get
   End Property

   Public ReadOnly Property refBottomPanelVM As BottomPanelVM
      Get
         Return m_refBottomPanelVM
      End Get
   End Property

   Public ReadOnly Property refShowBeamPanelVM As ShowBeamPanelVM
      Get
         Return m_refShowBeamPanelVM
      End Get
   End Property

   Public ReadOnly Property refConfigurationPageVM As ConfigurationPageVM
      Get
         Return m_refConfigurationPageVM
      End Get
   End Property

   Public ReadOnly Property refRawPartListVM As RawPartListVM
      Get
         Return m_refRawPartListVM
      End Get
   End Property

   Public ReadOnly Property refPartInRawPartListVM As PartInRawPartListVM
      Get
         Return m_refPartInRawPartListVM
      End Get
   End Property

   Public ReadOnly Property refWarehouseWndVM As WarehouseWndVM
      Get
         Return m_refWarehouseWndVM
      End Get
   End Property

   Public ReadOnly Property refFeatureListVM As FeatureListVM
      Get
         Return m_refFeatureListVM
      End Get
   End Property

   Public ReadOnly Property refFreeContourManagerVM As FreeContourManagerVM
      Get
         Return m_refFreeContourManagerVM
      End Get
   End Property

   Public ReadOnly Property refFreeContourInputVM As FreeContourInputVM
      Get
         Return m_refFreeContourInputVM
      End Get
   End Property

   Public ReadOnly Property refPartManagerVM As PartManagerVM
      Get
         Return m_refPartManagerVM
      End Get
   End Property

   Public ReadOnly Property refInstrumentPanelVM As MyInstrumentPanelVM
      Get
         Return m_refInstrumentPanelVM
      End Get
   End Property

   Public ReadOnly Property refTopPanelVM As TopPanelVM
      Get
         Return m_refTopPanelVM
      End Get
   End Property

   Public ReadOnly Property refOptimizePanelVM As OptimizePanelVM
      Get
         Return m_refOptimizePanelVM
      End Get
   End Property

   Public ReadOnly Property refCALCPanelVM As CALCPanelVM
      Get
         Return m_refCALCPanelVM
      End Get
   End Property

   'Public ReadOnly Property refOpenProjectFileDialogVM As OpenProjectFileDialogVM
   '   Get
   '      Return m_refOpenProjectFileDialogVM
   '   End Get
   'End Property

   'Public ReadOnly Property refOptionPanelVM As OptionPanelVM
   '   Get
   '      Return m_refOptionPanelVM
   '   End Get
   'End Property

   'Public ReadOnly Property refRawPartTabVM As RawPartTabVM
   '   Get
   '      Return m_refRawPartTabVM
   '   End Get
   'End Property

   'Public ReadOnly Property refNestingTabVM As NestingTabVM
   '   Get
   '      Return m_refNestingTabVM
   '   End Get
   'End Property

   'Public ReadOnly Property refMachiningTabVM As MachiningTabVM
   '   Get
   '      Return m_refMachiningTabVM
   '   End Get
   'End Property

   'Public ReadOnly Property refSplitModeVM As SplitModeVM
   '   Get
   '      Return m_refSplitModeVM
   '   End Get
   'End Property

   'Public ReadOnly Property refMoveRawModeVM As MoveRawModeVM
   '   Get
   '      Return m_refMoveRawModeVM
   '   End Get
   'End Property

   'Public ReadOnly Property refSimulTabVM As SimulTabVM
   '   Get
   '      Return m_refSimulTabVM
   '   End Get
   'End Property

#End Region    ' Get

#Region "Set"

   Friend Function SetRefMyStatusBarVM(MyStatusBarVM As MyStatusBarVM) As Boolean
      LibMap.SetRefStatusBarVM(MyStatusBarVM)
      Return Not IsNothing(LibMap.refStatusBarVM)
   End Function

   Friend Function SetRefProjManagerVM(ProjManagerVM As ProjManagerVM) As Boolean
      m_refProjManagerVM = ProjManagerVM
      Return Not IsNothing(m_refProjManagerVM)
   End Function

   Friend Function SetRefProdManagerVM(ProdManagerVM As ProdManagerVM) As Boolean
      m_refProdManagerVM = ProdManagerVM
      Return Not IsNothing(m_refProdManagerVM)
   End Function

   Friend Function SetRefProjectVM(ProjectVM As ProjectVM) As Boolean
      m_refProjectVM = ProjectVM
      Return Not IsNothing(m_refProjectVM)
   End Function

   Friend Function SetRefMainMenuVM(MainMenuVM As MainMenuVM) As Boolean
      m_refMainMenuVM = MainMenuVM
      Return Not IsNothing(m_refMainMenuVM)
   End Function

   Friend Function SetRefSceneHostVM(SceneHostVM As SceneHostVM) As Boolean
      LibMap.SetRefSceneHostVM(SceneHostVM)
      Return Not IsNothing(LibMap.refSceneHostVM)
   End Function

   Friend Function SetRefShowPanelVM(ShowPanelVM As ShowPanelVM) As Boolean
      LibMap.SetRefShowPanelVM(ShowPanelVM)
      Return Not IsNothing(LibMap.refShowPanelVM)
   End Function

   Friend Function SetRefMachinePanelVM(MachinePanelVM As MachinePanelVM) As Boolean
      CoreMap.SetRefMachinePanelVM(MachinePanelVM)
      Return Not IsNothing(CoreMap.refMachinePanelVM)
   End Function

   Friend Function SetRefLeftPanelVM(LeftPanelVM As LeftPanelVM) As Boolean
      m_refLeftPanelVM = LeftPanelVM
      Return Not IsNothing(m_refLeftPanelVM)
   End Function

   Friend Function SetRefMachGroupPanelVM(MachGroupPanelVM As MyMachGroupPanelVM) As Boolean
      CoreMap.SetRefMachGroupPanelVM(MachGroupPanelVM)
      Return Not IsNothing(CoreMap.refMachGroupPanelVM)
   End Function

   Friend Function SetRefBottomPanelVM(BottomPanelVM As BottomPanelVM) As Boolean
      m_refBottomPanelVM = BottomPanelVM
      Return Not IsNothing(m_refBottomPanelVM)
   End Function

   Friend Function SetRefShowBeamPanelVM(ShowBeamPanelVM As ShowBeamPanelVM) As Boolean
      m_refShowBeamPanelVM = ShowBeamPanelVM
      Return Not IsNothing(m_refShowBeamPanelVM)
   End Function

   Friend Function SetRefConfigurationPageVM(ConfigurationPageVM As ConfigurationPageVM) As Boolean
      m_refConfigurationPageVM = ConfigurationPageVM
      Return Not IsNothing(m_refConfigurationPageVM)
   End Function

   Friend Function SetRefRawPartListVM(RawPartListVM As RawPartListVM) As Boolean
      m_refRawPartListVM = RawPartListVM
      Return Not IsNothing(m_refRawPartListVM)
   End Function

   Friend Function SetRefPartInRawPartListVM(PartInRawPartListVM As PartInRawPartListVM) As Boolean
      m_refPartInRawPartListVM = PartInRawPartListVM
      Return Not IsNothing(m_refPartInRawPartListVM)
   End Function

   Friend Function SetRefWarehouseWndVM(WarehouseWndVM As WarehouseWndVM) As Boolean
      m_refWarehouseWndVM = WarehouseWndVM
      Return Not IsNothing(m_refWarehouseWndVM)
   End Function

   Friend Function SetRefFeatureListVM(FeatureListVM As FeatureListVM) As Boolean
      m_refFeatureListVM = FeatureListVM
      Return Not IsNothing(m_refFeatureListVM)
   End Function

   Friend Function SetRefFreeContourManagerVM(FreeContourManagerVM As FreeContourManagerVM) As Boolean
      m_refFreeContourManagerVM = FreeContourManagerVM
      Return Not IsNothing(m_refFreeContourManagerVM)
   End Function

   Friend Function SetRefFreeContourInputVM(FreeContourInputVM As FreeContourInputVM) As Boolean
      m_refFreeContourInputVM = FreeContourInputVM
      Return Not IsNothing(m_refFreeContourInputVM)
   End Function

   Friend Function SetRefPartManagerVM(PartManagerVM As PartManagerVM) As Boolean
      m_refPartManagerVM = PartManagerVM
      Return Not IsNothing(m_refPartManagerVM)
   End Function

   Friend Function SetRefInstrumentPanelVM(InstrumentPanelVM As InstrumentPanelVM) As Boolean
      m_refInstrumentPanelVM = InstrumentPanelVM
      Return Not IsNothing(m_refInstrumentPanelVM)
   End Function

   Friend Function SetRefTopPanelVM(TopPanelVM As TopPanelVM) As Boolean
      m_refTopPanelVM = TopPanelVM
      Return Not IsNothing(m_refTopPanelVM)
   End Function

   Friend Function SetRefOptimizePanelVM(OptimizePanelVM As OptimizePanelVM) As Boolean
      m_refOptimizePanelVM = OptimizePanelVM
      Return Not IsNothing(m_refOptimizePanelVM)
   End Function

   Friend Function SetRefCALCPanelVM(CALCPanelVM As CALCPanelVM) As Boolean
      m_refCALCPanelVM = CALCPanelVM
      Return Not IsNothing(m_refCALCPanelVM)
   End Function

   'Friend Function SetRefOpenProjectFileDialogVM(OpenProjectFileDialogVM As OpenProjectFileDialogVM) As Boolean
   '   m_refOpenProjectFileDialogVM = OpenProjectFileDialogVM
   '   Return Not IsNothing(m_refOpenProjectFileDialogVM)
   'End Function

   'Friend Function SetRefOptionPanelVM(OptionPanelVM As OptionPanelVM) As Boolean
   '   m_refOptionPanelVM = OptionPanelVM
   '   Return Not IsNothing(m_refOptionPanelVM)
   'End Function

   'Friend Function SetRefRawPartTabVM(RawPartTabVM As RawPartTabVM) As Boolean
   '   m_refRawPartTabVM = RawPartTabVM
   '   Return Not IsNothing(m_refRawPartTabVM)
   'End Function

   'Friend Function SetRefNestingTabVM(NestingTabVM As NestingTabVM) As Boolean
   '   m_refNestingTabVM = NestingTabVM
   '   Return Not IsNothing(m_refNestingTabVM)
   'End Function

   'Friend Function SetRefMachiningTabVM(MachiningTabVM As MachiningTabVM) As Boolean
   '   m_refMachiningTabVM = MachiningTabVM
   '   Return Not IsNothing(m_refMachiningTabVM)
   'End Function

   'Friend Function SetRefSplitModeVM(SplitModeVM As SplitModeVM) As Boolean
   '   m_refSplitModeVM = SplitModeVM
   '   Return Not IsNothing(m_refSplitModeVM)
   'End Function

   'Friend Function SetRefMoveRawModeVM(MoveRawModeVM As MoveRawModeVM) As Boolean
   '   m_refMoveRawModeVM = MoveRawModeVM
   '   Return Not IsNothing(m_refMoveRawModeVM)
   'End Function

   'Friend Function SetRefSimulTabVM(SimulTabVM As SimulTabVM) As Boolean
   '   m_refSimulTabVM = SimulTabVM
   '   Return Not IsNothing(m_refSimulTabVM)
   'End Function

#End Region    ' Set

#Region "Init"

   Friend Function BeginInit(MainWindowVM As MainWindowVM) As Boolean
      m_refMainWindowVM = MainWindowVM
      Return Not IsNothing(m_refMainWindowVM)
   End Function
   Friend Function EndInit() As Boolean
      ' Verifico se tutti i pezzi necessari sono stati caricati
      'Return Not IsNothing(m_refMainWindowVM) AndAlso Not IsNothing(m_refProjectVM) AndAlso
      '       Not IsNothing(LibMap.refStatusBarVM) AndAlso Not IsNothing(m_refProjectManagerVM) AndAlso
      '       Not IsNothing(LibMap.refSceneHostVM) AndAlso Not IsNothing(LibMap.refShowPanelVM) AndAlso
      '       Not IsNothing(m_refVeinMatchPanelVM) AndAlso
      '       Not IsNothing(m_refOptionPanelVM) AndAlso Not IsNothing(m_refRawPartTabVM) AndAlso
      '       Not IsNothing(m_refNestingTabVM) AndAlso Not IsNothing(m_refSimulTabVM) AndAlso
      '       Not IsNothing(m_refMachiningTabVM) AndAlso
      '       LibMap.EndInit()
      Return Not IsNothing(m_refMainWindowVM) AndAlso Not IsNothing(m_refMainMenuVM) AndAlso
             Not IsNothing(LibMap.refStatusBarVM) AndAlso Not IsNothing(m_refProjManagerVM) AndAlso
             Not IsNothing(m_refProdManagerVM) AndAlso Not IsNothing(m_refConfigurationPageVM) AndAlso
             Not IsNothing(LibMap.refSceneHostVM) AndAlso Not IsNothing(LibMap.refShowPanelVM) AndAlso
             Not IsNothing(CoreMap.refMachinePanelVM) AndAlso Not IsNothing(LibMap.refMachGroupPanelVM) AndAlso
             Not IsNothing(m_refRawPartListVM) AndAlso Not IsNothing(m_refWarehouseWndVM) AndAlso
             Not IsNothing(m_refFeatureListVM) AndAlso Not IsNothing(m_refPartInRawPartListVM) AndAlso
             Not IsNothing(m_refFreeContourManagerVM) AndAlso Not IsNothing(m_refFreeContourInputVM) AndAlso
             Not IsNothing(m_refInstrumentPanelVM) AndAlso Not IsNothing(m_refTopPanelVM) AndAlso
             Not IsNothing(m_refPartManagerVM) AndAlso Not IsNothing(m_refOptimizePanelVM) AndAlso
             Not IsNothing(m_refShowBeamPanelVM) AndAlso Not IsNothing(m_refCALCPanelVM) AndAlso
             LibMap.EndInit()
   End Function

#End Region    ' Init

End Module