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

   Private m_PartType As PartType = PartType.Unknown
   Friend Property PartType As PartType
      Get
         Return m_PartType
      End Get
      Set(value As PartType)
         m_PartType = value
      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
         If ParamList.Count > 0 Then UpdatePanelInfoFromPart(m_nIdPart)
         AdvanceStage()
         ' devo capire che tipo di pezzo sto modificando
         ' se non ha info di accoppiamento è una base (piano cucina)
         ' se ha l'info "Sink" allora è un pezzo di una buca
         ' se ha info di accoppiamento generico è una paretina
         Dim bIsSink As Boolean = False
         EgtGetInfo(m_nIdPart, "Sink", bIsSink)
         If bIsSink Then
            PartType = PartType.Sink
            Return
         End If
         Dim sPair As String = String.Empty
         EgtGetInfo(m_nIdPart, "PairMyRef", sPair)
         Dim bIsPanel As Boolean = sPair <> String.Empty
         If bIsPanel Then
            PartType = PartType.Panel
            Return
         End If
         ' altrimenti è un piano cucina
         PartType = PartType.TopKitchen
      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()
      If Map.refSceneHostVM.m_nIdPart <> GDB_ID.NULL Then
         nIdPart = Map.refSceneHostVM.m_nIdPart
         Stage = EditPanelStage.InsertNewParam
      End If

      LoadParamList()
      UpdatePanelInfoFromPart(m_nIdPart)
   End Sub

#End Region    ' Constructor

#Region "METHODS"

   Private Sub UpdatePanelInfoFromPart(nIdPart As Integer)
      If nIdPart = GDB_ID.NULL Then Return
      Dim dH As Double = 100
      EgtGetInfo(nIdPart, "H", dH)
      DirectCast(ParamList(2), _TextBoxParam).sValue = dH.ToString()
      Dim dTh As Double = 10
      EgtGetInfo(nIdPart, "Th", dTh)
      DirectCast(ParamList(3), _TextBoxParam).sValue = dTh.ToString()

   End Sub

   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 = 200
      AddGenericParam(New _TextBoxParam("Altezza", dH, ParamType.LEN, Visibility.Visible))
      Dim dTh As Double = 20
      AddGenericParam(New _TextBoxParam("Spessore", dTh, ParamType.LEN, Visibility.Visible))
      Dim nJunctionType As Integer = 0
      Dim JunctionTypeList As New List(Of ParamCmBx)({New ParamCmBx("Trim Start"), New ParamCmBx("Trim End"), New ParamCmBx("Angle"), New ParamCmBx("Trim Both")})
      AddGenericParam(New _ComboBoxParam("Tipo Giunzione", JunctionTypeList, nJunctionType))

      ' 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))

      ' checkbox
      AddGenericParam(New _CheckBoxParam("ModificaAdiacenti", "Modifica anche altre paretine dello stesso tipo", 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()
      ' in base al tipo di pezzo che sto modificando chiamo la funzione corrispondente
      Select Case PartType
         Case PartType.Sink
            'EditSplitBottom()
         Case PartType.Panel
            EditPanel()
         Case PartType.TopKitchen
            'EditTopKitchen()
      End Select


      ' 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_EDIT_PANEL)
      If TypeOf (Btn) Is _ToggleButton Then
         DirectCast(Btn, _ToggleButton).IsChecked = False
      Else
         EgtOutLog("CONFIG ERR: Il pulsante di Edit Panel è stato definito come Button anziché ToggleButton")
      End If
      ' rimuovo lo UC dalla griglia
      Map.refSceneButtonVM.RemoveUC(Map.refSceneButtonVM.m_EditPanelUC)
      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

   Private Sub SetVariablesAndRecreate(nEdgeId As Integer)
      If EgtLuaSetGlobIntVar("TOOL.nEdgeId", nEdgeId) Then AssLog("TOOL.nEdgeId = " & nEdgeId.ToString())
      Dim nJunctionType = DirectCast(ParamList(4), _ComboBoxParam).IndexSelParamCmBx + 1 ' in Lua l'enum è 1-based
      If EgtLuaSetGlobIntVar("TOOL.nJunctionType", nJunctionType) Then AssLog("TOOL.nJunctionType = " & nJunctionType.ToString())
      Dim dTh As Double = DirectCast(ParamList(3), _TextBoxParam).GetValue()
      If EgtLuaSetGlobNumVar("TOOL.dTh", dTh) Then AssLog("TOOL.dTh = " & dTh.ToString())
      Dim dH As Double = DirectCast(ParamList(2), _TextBoxParam).GetValue()
      If EgtLuaSetGlobNumVar("TOOL.dH", dH) Then AssLog("TOOL.dH = " & dH.ToString())
      Dim bPrev As Boolean = True
      If EgtLuaSetGlobBoolVar("TOOL.bPrev", bPrev) Then AssLog("TOOL.bPrev = true")
      Dim bNext As Boolean = True
      If EgtLuaSetGlobBoolVar("TOOL.bNext", bNext) Then AssLog("TOOL.bNext = true")
      If EgtLuaCallFunction("TOOL.CreateParetinaFull") Then AssLog("TOOL.CreateParetinaFull()")
   End Sub

   Private Sub EditPanel()
      ' recupero le info salvate nel Part
      EgtLuaExecLine("TOOL.FillInfoTableFromPart(" & nIdPart.ToString() & ")")
      ' recupero l'id dell'edge che ha generato la paretina
      Dim nParent As Integer = GDB_ID.NULL
      EgtGetInfo(nIdPart, "Parent", nParent)
      Dim nIn As Integer = 0
      EgtGetInfo(nIdPart, "nInLoop", nIn)
      Dim sLayName As String = "OutLoop"
      Dim nLayId As Integer = GDB_ID.NULL
      If nIn = 0 Then
         nLayId = EgtGetFirstNameInGroup(nParent, sLayName)
      Else
         sLayName = "InLoop"
         nLayId = EgtGetFirstNameInGroup(nParent, sLayName)
         Dim nInLays = 1
         While nInLays <> nIn
            nLayId = EgtGetNextName(nLayId, sLayName)
            nInLays += 1
         End While
      End If
      Dim nEdge As Integer = 0
      EgtGetInfo(nIdPart, "ParentEdge", nEdge)
      Dim sEdgeName As String = "A" & nEdge.ToString()
      Dim nEdgeId As Integer = EgtGetFirstNameInGroup(nLayId, sEdgeName)
      ' setto i parametri che ha scelto l'utente
      SetVariablesAndRecreate(nEdgeId)
      ' se la checkbox per la modifica delle paretine dello stesso tipo, sullo stesso loop, è checkata allora scorro il loop e continuo a chiamare la ricreazione
      If DirectCast(ParamList(10), _CheckBoxParam).IsChecked Then
         ' scorro i next e prev modificando anche le paretine adiacenti con le stesse modifiche
         ' facendo attenzione a non entrare in un loop
         Dim sCurrPartName As String = String.Empty
         EgtGetName(nIdPart, sCurrPartName)
         Dim sNamePrev As String = String.Empty
         EgtGetInfo(nIdPart, "Prev", sNamePrev)
         Dim nLastPrev As Integer = GDB_ID.NULL
         While sNamePrev <> String.Empty And sNamePrev <> sCurrPartName
            Dim nPrev As Integer = EgtGetFirstNameInGroup(GDB_ID.ROOT, sNamePrev)
            ' recupero le info salvate nel Part
            EgtLuaExecLine("TOOL.FillInfoTableFromPart(" & nPrev.ToString() & ")")
            ' recupero l'edge del parent e ricreo la paretina
            EgtGetInfo(nPrev, "ParentEdge", nEdge)
            sEdgeName = "A" & nEdge.ToString()
            nEdgeId = EgtGetFirstNameInGroup(nLayId, sEdgeName)
            SetVariablesAndRecreate(nEdgeId)
            EgtGetInfo(nPrev, "Prev", sNamePrev)
            nLastPrev = nPrev
         End While
         Dim sNameNext As String = String.Empty
         EgtGetInfo(nIdPart, "Next", sNameNext)
         While sNameNext <> String.Empty
            Dim nNext As Integer = EgtGetFirstNameInGroup(GDB_ID.ROOT, sNameNext)
            ' recupero le info salvate nel Part
            EgtLuaExecLine("TOOL.FillInfoTableFromPart(" & nNext.ToString() & ")")
            ' recupero l'edge del parent e ricreo la paretina
            If nNext = nLastPrev Then Exit While
            EgtGetInfo(nNext, "ParentEdge", nEdge)
            sEdgeName = "A" & nEdge.ToString()
            nEdgeId = EgtGetFirstNameInGroup(nLayId, sEdgeName)
            SetVariablesAndRecreate(nEdgeId)
            EgtGetInfo(nNext, "Next", sNameNext)
         End While
      End If
   End Sub

#End Region    ' Methods
End Class