egtstone3d/Panel/EditPanelVM.vb

Imports EgtUILib

Public Class EditPanelVM
   Inherits SceneUserControlVM

#Region "FIELDS & PROPERTIES"

   Private ReadOnly m_MsgList As New List(Of String)({TopBar_Msg_Stg0, TopBar_Msg_Stg1, TopBar_Msg_Stg2})
   Public ReadOnly Property MsgList As List(Of String)
      Get
         Return m_MsgList
      End Get
   End Property

   Private m_Stage As EditPanelStage = EditPanelStage.SelectPart
   Private Property Stage As EditPanelStage
      Get
         Return m_Stage
      End Get
      Set(value As EditPanelStage)
         m_Stage = value
         DirectCast(ParamList(0), _TextBlockParam).MsgValue = MsgList(m_Stage)
      End Set
   End Property

   ' id del part selezionato per essere modificato
   Private m_nIdPart As Integer = GDB_ID.NULL
   Public Property nIdPart As Integer
      Get
         Return m_nIdPart
      End Get
      Set(value As Integer)
         m_nIdPart = value
      End Set
   End Property

#Region "Messages"

   Public ReadOnly Property TopBar_Msg_Stg0 As String
      Get
         Return EgtMsg(110040)   ' Seleziona il Part che vuoi modificare
      End Get
   End Property
   Public ReadOnly Property TopBar_Msg_Stg1 As String
      Get
         Return EgtMsg(110041)   ' Inserisci i nuovi parametri
      End Get
   End Property
   Public ReadOnly Property TopBar_Msg_Stg2 As String
      Get
         Return EgtMsg(110042)   ' Conferma, modifica con altri parametri o annulla
      End Get
   End Property

#End Region    ' Messages

#End Region    ' Fields & Properties

#Region "CONSTRUCTOR"

   Public Sub New()
      MyBase.New()
      Title = "Modifica Paretina".ToUpper()
      LoadParamList()
   End Sub

#End Region    ' Constructor

#Region "METHODS"

   Public Overrides Sub LoadParamList()
      AddGenericParam(New _TextBlockParam("Messaggio", MsgList(0), ParamType.STR, Visibility.Visible))
      ' sezione paretina
      AddGenericParam(New _TextBlockParam("Messaggio", MsgList(1), ParamType.STR, Visibility.Collapsed))
      Dim dH As Double = 0
      EgtGetInfo(nIdPart, "H", dH)
      AddGenericParam(New _TextBoxParam("Altezza", dH, ParamType.LEN, Visibility.Visible))
      Dim dTh As Double = 0
      EgtGetInfo(nIdPart, "Th", dTh)
      AddGenericParam(New _TextBoxParam("Spessore", dTh, ParamType.LEN, Visibility.Visible))

      ' sezione fondello
      AddGenericParam(New _TextBlockParam("Messaggio", MsgList(2), ParamType.STR, Visibility.Collapsed))
      AddGenericParam(New _TextBoxParam("Altezza", 100, ParamType.LEN, Visibility.Collapsed))
      AddGenericParam(New _TextBoxParam("Spessore", 10, ParamType.LEN, Visibility.Collapsed))
      AddGenericParam(New _TextBoxParam("Inclinazione", 0.1, ParamType.DOUB, Visibility.Collapsed))
      AddGenericParam(New _TextBoxParam("Diametro foro", 30, ParamType.LEN, Visibility.Collapsed))

      '
      AddGenericParam(New _CheckBoxParam("ModificaAdiacenti", "Modifica anche paretine adiacenti", Visibility.Visible))

      '' dalle info leggo se l'oggetto è una paretina o una buca

      'If DirectCast(sender, _ComboBoxParam).Name = "TipoParetina" Then
      '   If DirectCast(Selection, ParamCmBx).Name = "SplitBottom" Then
      '      ParamList(3).nVisibility = Visibility.Collapsed
      '      ParamList(4).nVisibility = Visibility.Collapsed

      '      ParamList(5).nVisibility = Visibility.Visible
      '      ParamList(6).nVisibility = Visibility.Visible
      '      ParamList(7).nVisibility = Visibility.Visible
      '      ParamList(8).nVisibility = Visibility.Visible
      '      ParamList(9).nVisibility = Visibility.Visible
      '      Map.refSceneHostVM.m_SelType = GDB_TY.SRF_MESH
      '      'DirectCast(Map.refSceneButtonV.m_PanelUC, SceneUserControlV).Preview.Visibility = Visibility.Visible
      '   ElseIf DirectCast(Selection, ParamCmBx).Name = "Tappa Buca" Then
      '      ParamList(2).nVisibility = Visibility.Visible
      '      ParamList(3).nVisibility = Visibility.Visible
      '      ParamList(4).nVisibility = Visibility.Visible

      '      ParamList(5).nVisibility = Visibility.Visible
      '      ParamList(6).nVisibility = Visibility.Visible
      '      ParamList(7).nVisibility = Visibility.Visible
      '      ParamList(8).nVisibility = Visibility.Visible
      '      ParamList(9).nVisibility = Visibility.Visible
      '      Map.refSceneHostVM.m_SelType = GDB_TY.CRV_LINE
      '   Else
      '      ParamList(2).nVisibility = Visibility.Collapsed
      '      ParamList(3).nVisibility = Visibility.Visible
      '      ParamList(4).nVisibility = Visibility.Visible

      '      ParamList(5).nVisibility = Visibility.Collapsed
      '      ParamList(6).nVisibility = Visibility.Collapsed
      '      ParamList(7).nVisibility = Visibility.Collapsed
      '      ParamList(8).nVisibility = Visibility.Collapsed
      '      ParamList(9).nVisibility = Visibility.Collapsed
      '      Map.refSceneHostVM.m_SelType = GDB_TY.CRV_LINE
      '      'DirectCast(Map.refSceneButtonV.m_PanelUC, SceneUserControlV).Preview.Visibility = Visibility.Hidden
      '   End If
      'End If
   End Sub

   Public Sub AdvanceStage()
      Stage += 1
   End Sub

   Public Function AtStage()
      Return Stage
   End Function

   Public Overrides Sub Conferma()
      ' se sono in modalità fondello allora devo creare il pezzo
      If DirectCast(ParamList(1), _ComboBoxParam).SelParamCmBx.Name = "SplitBottom" Then
         AddSplitBottom(Map.refSceneHostVM.m_PanelPartList)
      End If
      ' resetto la lista dei part selezionati per la creazione di uno splitBottom
      Map.refSceneHostVM.m_PanelPartList.Clear()
      ' resetto il tipo di elementi da evidenziare
      Map.refSceneHostVM.m_SelType = GDB_TY.NONE

      ' chiudo lo user control
      Close()
   End Sub

   Public Overrides Sub Annulla()
      Map.refSceneHostVM.m_nIdPart = GDB_ID.NULL
      SceneCmd.DeselectAll()
      ' chiudo lo user control
      Close()
   End Sub

   Private Sub Close()
      SolidManagerM.ResetOperationMarks(Map.refSceneHostVM.m_nIdPart)
      EgtDraw()
      Dim Btn As SceneBtn = Map.refSceneButtonVM.GetButton(EGT_PANEL)
      If TypeOf (Btn) Is _ToggleButton Then
         DirectCast(Btn, _ToggleButton).IsChecked = False
      Else
         EgtOutLog("CONFIG ERR: Il pulsante di Panel è stato definito come Button anziché ToggleButton")
      End If
      ' rimuovo lo UC dalla griglia
      Map.refSceneButtonVM.RemoveUC(Map.refSceneButtonVM.m_NewPanelUC)
      SolidManagerM.ManageUndoRedo()
   End Sub

   Public Sub AddPanel(nId As Integer)
      Dim ComboBoxParam As _ComboBoxParam = DirectCast(ParamList(1), _ComboBoxParam)
      If ComboBoxParam.SelParamCmBx.Name = "Alzatina" Then
         AddSplashTop(nId)
      ElseIf ComboBoxParam.SelParamCmBx.Name = "Frontalino" Then
         AddWaterfall(nId)
      ElseIf ComboBoxParam.SelParamCmBx.Name = "Tappa Buca" Then
         AddWaterfallAndBottom(nId)
      End If
   End Sub

   Public Function GetPanelType()
      Return DirectCast(ParamList(1), _ComboBoxParam).SelParamCmBx.Name
   End Function

   Private Sub AddSplashTop(nId As Integer)
      Dim nPartId As Integer = EgtGetParent(EgtGetParent(nId))
      ' setto l'indice del lato e il parent
      If EgtLuaSetGlobIntVar("TOOL.nEdgeId", nId) Then AssLog("TOOL.nEdgeId = " & nId.ToString())
      If EgtLuaSetGlobIntVar("TOOL.nParent", nPartId) Then AssLog("TOOL.nParent = " & nPartId.ToString())
      ' setto le variabili per l'alzatina
      Dim dAngAlzatina As Double = 90
      If EgtLuaSetGlobNumVar("TOOL.dPairAng", dAngAlzatina) Then AssLog("TOOL.dPairAng = " & dAngAlzatina.ToString())
      Dim nJunctionTypeAlz = 1
      If EgtLuaSetGlobIntVar("TOOL.nJunctionType", nJunctionTypeAlz) Then AssLog("TOOL.nJunctionType = " & nJunctionTypeAlz.ToString())
      Dim bOnLoop As Boolean = False
      If EgtLuaSetGlobBoolVar("TOOL.bOnLoop", bOnLoop) Then AssLog("TOOL.bOnLoop = false")
      Dim bInsideLoop As Boolean = True
      If EgtLuaSetGlobBoolVar("TOOL.bInsideLoop", bInsideLoop) Then AssLog("TOOL.bInsideLoop = true")
      ' setto le varibili generiche per il pezzo
      Dim dTh As Double = DirectCast(ParamList(4), _TextBoxParam).GetValue()
      If EgtLuaSetGlobNumVar("TOOL.dTh", dTh) Then AssLog("TOOL.dTh = " & dTh.ToString())
      Dim dH As Double = DirectCast(ParamList(3), _TextBoxParam).GetValue()
      If EgtLuaSetGlobNumVar("TOOL.dH", dH) Then AssLog("TOOL.dH = " & dH.ToString())
      If EgtLuaSetGlobBoolVar("TOOL.bPrev", True) Then AssLog("TOOL.bPrev = true")
      If EgtLuaSetGlobBoolVar("TOOL.bNext", True) Then AssLog("TOOL.bNext = true")
      ' chiamo la funzione per la creazione
      If EgtLuaCallFunction("TOOL.CreateParetinaFull") Then AssLog("TOOL.CreateParetinaFull()")
   End Sub
   Private Sub AddWaterfall(nId As Integer)
      Dim nPartId As Integer = EgtGetParent(EgtGetParent(nId))
      ' setto l'indice del lato e il parent
      If EgtLuaSetGlobIntVar("TOOL.nEdgeId", nId) Then AssLog("TOOL.nEdgeId = " & nId.ToString())
      If EgtLuaSetGlobIntVar("TOOL.nParent", nPartId) Then AssLog("TOOL.nParent = " & nPartId.ToString())
      ' setto le variabili per l'alzatina
      Dim dAngFrontalino As Double = -90
      If EgtLuaSetGlobNumVar("TOOL.dPairAng", dAngFrontalino) Then AssLog("TOOL.dPairAng = " & dAngFrontalino.ToString())
      Dim nJunctionTypeAlz = 3
      If EgtLuaSetGlobIntVar("TOOL.nJunctionType", nJunctionTypeAlz) Then AssLog("TOOL.nJunctionType = " & nJunctionTypeAlz.ToString())
      Dim bOnLoop As Boolean = True
      If EgtLuaSetGlobBoolVar("TOOL.bOnLoop", bOnLoop) Then AssLog("TOOL.bOnLoop = false")
      Dim bInsideLoop As Boolean = True
      If EgtLuaSetGlobBoolVar("TOOL.bInsideLoop", bInsideLoop) Then AssLog("TOOL.bInsideLoop = true")
      ' setto le varibili generiche per il pezzo
      Dim dTh As Double = DirectCast(ParamList(4), _TextBoxParam).GetValue()
      If EgtLuaSetGlobNumVar("TOOL.dTh", dTh) Then AssLog("TOOL.dTh = " & dTh.ToString())
      Dim dH As Double = DirectCast(ParamList(3), _TextBoxParam).GetValue()
      If EgtLuaSetGlobNumVar("TOOL.dH", dH) Then AssLog("TOOL.dH = " & dH.ToString())
      If EgtLuaSetGlobBoolVar("TOOL.bPrev", True) Then AssLog("TOOL.bPrev = true")
      If EgtLuaSetGlobBoolVar("TOOL.bNext", True) Then AssLog("TOOL.bNext = true")
      ' chiamo la funzione per la creazione
      If EgtLuaCallFunction("TOOL.CreateParetinaFull") Then AssLog("TOOL.CreateParetinaFull()")
   End Sub

   Private Sub AddSplitBottom(PartList As List(Of Integer))
      If PartList.Count = 0 Then
         Close()
         Return
      End If
      Dim lEdgeList As New List(Of Integer)
      For Each nPart As Integer In PartList
         Dim nOutLay As Integer = EgtGetFirstNameInGroup(nPart, "OutLoop")
         Dim nEdge As Integer = EgtGetFirstNameInGroup(nOutLay, "A3")
         lEdgeList.Add(nEdge)
      Next

      For i As Integer = 1 To lEdgeList.Count
         EgtLuaSetGlobIntVar("TOOL.tbIdEdges." & i.ToString(), lEdgeList(i - 1).ToString())
      Next
      Dim dTh As Double = DirectCast(ParamList(7), _TextBoxParam).GetValue()
      EgtLuaSetGlobNumVar("TOOL.dTh", dTh)
      Dim dDiam As Double = DirectCast(ParamList(9), _TextBoxParam).GetValue()
      EgtLuaSetGlobNumVar("TOOL.dDiamBore", dDiam)
      Dim dAng As Double = DirectCast(ParamList(8), _TextBoxParam).GetValue()
      EgtLuaSetGlobNumVar("TOOL.dSlopeAng", dAng)
      EgtLuaCallFunction("TOOL.CreateSplitBottom")
   End Sub

   Private Sub AddWaterfallAndBottom(nId As Integer)
      Dim nInLoopLay As Integer = EgtGetParent(nId)
      Dim nEdges As Integer = EgtGetGroupObjs(nInLoopLay)
      Dim nEdge As Integer = EgtGetFirstInGroup(nInLoopLay)
      While nEdge <> GDB_ID.NULL
         AddWaterfall(nEdge)
         nEdge = EgtGetNext(nEdge)
      End While
      ' recupero le info dei part creati come frontalini dalle info del Parent
      Dim nParent As Integer = EgtGetParent(nInLoopLay)
      ' scopro la posizione ordinale dell'inloop in questione
      Dim nIn As Integer = 1
      Dim nInLoop As Integer = EgtGetFirstNameInGroup(nParent, "InLoop")
      While nInLoop <> nInLoopLay
         nIn += 1
         nInLoop = EgtGetNextName(nInLoop, "InLoop")
      End While
      Dim WaterFallList As New List(Of Integer)
      For i As Integer = 1 To nEdges
         Dim sInfoName As String = "A" & i.ToString() & "_I" & nIn.ToString()
         Dim sPartName As String = String.Empty
         EgtGetInfo(nParent, sInfoName, sPartName)
         WaterFallList.Add(EgtGetFirstNameInGroup(GDB_ID.ROOT, sPartName))
      Next
      ' ora che ho la lista dei frontalini posso creare lo split bottom
      AddSplitBottom(WaterFallList)
   End Sub

#End Region    ' Methods
End Class