HYTOS

Imports System.IO

Imports System.Data.SqlClient

Imports System.Data.SQLite

Imports Plaice

Imports Llama

Imports PidA

Imports System.Threading

Public Class Main

    Dim _DB As DataTable = New DataTable()

    Dim _Placement As New Placement

    Dim _DWG_X = 0.84 '0.695 '1 '

    Dim _DWG_Y = 0.594 '0.585 '0.8 '

    Dim _IMG_X = 9933

    Dim _IMG_Y = 7016

    'Drawing 전역변수

    Dim _objPIDADrawing As Object

    '현재선택한 폴더경로

    Dim _selectFolderPath As String

    Private _Main_trd As Thread

    Private Sub Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        If My.Settings.DBPath <> "" And My.Settings.Plant_Hierarchy <> "" Then

            Dim sDBPath As String = My.Settings.DBPath

            LoadDB(sDBPath)

            'TestPID()

        Else

            MessageBox.Show("설정값을 먼저 확인해주세요")

        End If

    End Sub

    Public Function GetDrawingInfo(ByVal errorList As ArrayList)

        Dim ds As Llama.LMADataSource

        ds = New Llama.LMADataSource

        Dim lmaItem As Llama.LMAItem

        For i = 0 To errorList.Count - 1

            lmaItem = ds.GetModelItem(errorList.Item(i).m_strSPID()).AsLMAItem

            Dim drawingInfo As DrawingInfo

            drawingInfo = GetDrawingName(lmaItem.ItemType, lmaItem.Id)

            errorList.Item(i).m_LMAItem = lmaItem

            errorList.Item(i).m_strDrawingName = drawingInfo.mDrawingName

            errorList.Item(i).m_strDrawingPath = drawingInfo.mPath

        Next

    End Function

    Private mDataSource As Object

    'Public Sub New()

    '    '  mDataSource.ProjectNumber = m_Information.InfoSite.SiteName

    '    '   mDataSource.SiteNode = m_Information.InfoProject.ProjectINI

    '    'm_Information = SPPIDClass.Information.GetInstance()

    '    'If m_Information.InfoProject.ProjectVersion = SPPIDClass.InfoProject.SPPID_43 Then

    '    '    'SPPID4.3용

    '    '    mDataSource.ProjectNumber = m_Information.InfoSite.SiteName

    '    'Else

    '    '    'SPPID2007, SPPID2009용

    '    '    mDataSource.ProjectNumber = m_Information.InfoSite.SiteName & "!" & m_Information.InfoSite.SiteName

    '    'End If

    '    '  mDataSource.SiteNode = m_Information.InfoProject.ProjectINI

    '    '  mDataSource.ProjectNumber = m_Information.InfoSite.SiteName & "!" & m_Information.InfoSite.SiteName

    '    '#If LATE_BINDING Then

    '    '        mInstruments = CreateObject("Llama.LMInstruments", "")

    '    '        mPipingComps = CreateObject("Llama.LMPipingComps", "")

    '    '        mVessels = CreateObject("Llama.LMVessels", "")

    '    '        mDrawings = CreateObject("Llama.LMDrawings", "")

    '    '        mEquipments = CreateObject("Llama.LMEquipments", "")

    '    '        mExchangers = CreateObject("Llama.LMExchangers", "")

    '    '        mMechanicals = CreateObject("Llama.LMMechanicals", "")

    '    '        mNozzles = CreateObject("Llama.LMNozzles", "")

    '    '        mPipeRuns = CreateObject("Llama.LMPipeRuns", "")

    '    '        mEquipmentOthers = CreateObject("Llama.LMEquipmentOthers", "")

    '    '#Else

    '    '        mInstruments = New Llama.LMInstruments

    '    '        mPipingComps = New Llama.LMPipingComps

    '    '        mVessels = New Llama.LMVessels

    '    '        mDrawings = New Llama.LMDrawings

    '    '        mEquipments = New Llama.LMEquipments

    '    '        mExchangers = New Llama.LMExchangers

    '    '        mMechanicals = New Llama.LMMechanicals

    '    '        mNozzles = New Llama.LMNozzles

    '    '        mPipeRuns = New Llama.LMPipeRuns

    '    '        mEquipmentOthers = New Llama.LMEquipmentOthers

    '    '#End If

    'End Sub

    Public Function GetDrawingName(ByVal itemType As String, ByVal itemName As String) As DrawingInfo

        Dim objFilter As Object

        objFilter = CreateObject("Llama.LMAFilter", "")

        Dim drawingInfo As DrawingInfo

        drawingInfo = New DrawingInfo

        objFilter.Criteria.AddNew("FirstOne")

        objFilter.Criteria.Item("FirstOne").SourceAttributeName = "SP_ID"

        objFilter.Critedkria.Item("FirstOne").ValueAttribute = itemName

        objFilter.Criteria.Item("FirstOne").Operator = "="

        objFilter.Criteria.AddNew("SecondOne")

        objFilter.Criteria.Item("SecondOne").SourceAttributeName = "ItemStatus"

        objFilter.Criteria.Item("SecondOne").ValueAttribute = 1

        objFilter.Criteria.Item("SecondOne").Operator = "="

        objFilter.Criteria.Item("SecondOne").Conjunctive = -1

        objFilter.ItemType = itemType

        Dim PlantItems As Object

        PlantItems = CreateObject("Llama.LMPlantItems", "")

        PlantItems.Collect(mDataSource, Filter:=objFilter)

        If PlantItems.Count = 0 Then

            drawingInfo.mSpID = "PlantStockpile"

        End If

        For Each PlantItem In PlantItems

            'If Not PlantItem.Representations.Nth(1).DrawingID.Value.ToString().Equals("0") Then

            Try

                drawingInfo.mDrawingName = PlantItem.Representations.Nth(1).DrawingObject.Attributes("Name").Value

                drawingInfo.mSpID = PlantItem.Representations.Nth(1).DrawingID

                drawingInfo.mPath = PlantItem.Representations.Nth(1).DrawingObject.Attributes("Path").Value

                Debug.WriteLine("DrawingName : " & drawingInfo.mDrawingName & ", SPID : " & drawingInfo.mSpID & ", Path : " & drawingInfo.mPath)

            Catch ex As Exception

            End Try

            'End If

        Next

        Return drawingInfo

    End Function

    Private Sub TestPID()

        Try

            Dim datasource As LMADataSource

            Dim objPIDAutoApp As Object

            Dim objPIDADrawing As Object

            Dim objDrawing As LMDrawing

            Dim objDrawings As LMDrawings

            datasource = New LMADataSource

            Dim oObj As Object = Nothing

            objDrawing = datasource.GetDrawing(oObj)

            objDrawings = New LMDrawings

            objDrawings.Collect(datasource)

            objPIDAutoApp = GetObject(, "SmartPlantPID.Application") '// CreateObject("PIDAutomation.Application")

            For Each objDrawing In objDrawings

                If objDrawing.Attributes("ItemStatus").Index = 1 Then '1 stands for Active

                    objPIDADrawing = objPIDAutoApp.Drawings.OpenDrawing(objDrawing.Attributes("Name"))

                    If Not objPIDADrawing Is Nothing Then

                        MessageBox.Show("Drawing " & objDrawing.Attributes("Name").Value & " is opened!")

                        objPIDADrawing.CloseDrawing

                    End If

                End If

            Next

            objPIDAutoApp.Quit

            objPIDAutoApp = Nothing

            objPIDADrawing = Nothing

            objDrawing = Nothing

            objDrawings = Nothing

        Catch ex As Exception

        End Try

    End Sub

    Public Function SetActiveSiteFromConfigInfo(ByVal strActiveSite As String) As Boolean

        On Error GoTo errHandler

        Dim objConfigInfo As Object 'interopigrConfigInfo412.igrConfigInfo

        objConfigInfo = CreateObject("interopigrConfigInfo412.igrConfigInfo", "")

        If Not objConfigInfo Is Nothing Then

            objConfigInfo.ApplicationName = "SmartPlantManager"

            objConfigInfo.SetConfigString(3, "SmartPlant Manager", "SiteServer", strActiveSite)

            SetActiveSiteFromConfigInfo = True

        End If

        objConfigInfo = Nothing

        Exit Function

errHandler:

        '    LogAndRaiseError ModuleName & "::GetConfigInfo "

    End Function

    Private Function CreateDwg(ByVal oDwgName As String) As Boolean

        Dim objPIDADrawing As Object = Nothing

        Dim objPIDAutoApp As Object = Nothing

        Dim datasource As LMADataSource = Nothing

        Try

            Dim DrawingNumber As String

            Dim DrawingName As String

            Dim sPlantGroupName As String = "Test"

            Dim sTemplateName As String = "\\desktop-9vlq0dp\Test02Site\P188943_SPPID_Plant\P&ID Reference Data\Template Files\Gazprom Project.pid"

            Dim objDrawing As LMDrawing

            Dim objDrawings As LMDrawings

            objDrawings = New LMDrawings

            datasource = New LMADataSource

            Debug.Print(datasource.ProjectNumber)

            Debug.Print(datasource.SiteNode)

            Debug.Print(datasource.IsSatellite)

            Debug.Print(datasource.GetSystemEditingToolbarSetting)

            objDrawings.Collect(datasource)

            Dim sPath As String = "‪\\desktop-9vlq0dp\Test02Site\P188943_SPPID_Plant\Plant_Hierarchy\8121\8121-1\188943-8121-PR-DW-011001.pid"

            objPIDAutoApp = CreateObject("PIDAutomation.Application")

            For Each objDrawing In objDrawings

                If objDrawing.Attributes("ItemStatus").Index = 1 Then '1 stands for Active

                    objPIDADrawing = objPIDAutoApp.Drawings.OpenDrawing(sPath)

                    If Not objPIDADrawing Is Nothing Then

                        objPIDADrawing.CloseDrawing

                    End If

                End If

            Next

            Dim extension As String = Path.GetExtension(oDwgName)

            oDwgName = oDwgName.Replace(extension, "")

            objPIDAutoApp = CreateObject("PIDAutomation.Application")

            'For Each objDrawing In objPIDAutoApp.Drawings

            '    objDrawing.CloseDrawing(True)

            'Next

            objPIDAutoApp.Drawings.OpenDrawing(oDwgName + ".pid")

            objPIDAutoApp.ActiveWindow.Fit()

            Return True

        Catch ex As Exception

            If objPIDADrawing IsNot Nothing Then

                objPIDADrawing.CloseDrawing

            End If

            If objPIDAutoApp IsNot Nothing Then

                objPIDAutoApp.Quit

            End If

            datasource = Nothing

            objPIDAutoApp = Nothing

            objPIDADrawing = Nothing

            Return False

        End Try

        If objPIDADrawing IsNot Nothing Then

            objPIDADrawing.CloseDrawing

        End If

    End Function

    Private Function GetSymbolMapping(ByVal oSymbolName As String) As String

        Dim oSystemPath As String = ""

        If _DB.Rows.Count > 0 Then

            Dim oSelectRow() As DataRow = _DB.Select("[pid_symbolname] = '" + oSymbolName + "'")

            If oSelectRow.Length = 1 Then

                oSystemPath = oSelectRow(0).Item("sppid_systempath").ToString()

            End If

        End If

        Return oSystemPath

    End Function

    Private Function LoadSymbolInXml(ByVal sXmlPath As String) As DataTable

        Dim oDt As DataTable = LoadSymbol_DT()

        Dim oElement As XElement = XElement.Load(sXmlPath)

        If oElement IsNot Nothing Then

            For Each symbols As Object In oElement.Elements("SYMBOLS")

                For Each page As Object In symbols.Elements("SYMBOL")

                    Dim oAddrow As DataRow = oDt.NewRow()

                    Dim oObj As XElement = page.Element("NAME")

                    Dim oName = oObj.Value

                    oObj = page.Element("TEXT")

                    Dim oText = oObj.Value

                    oObj = page.Element("CLASS")

                    Dim oClass = oObj.Value

                    oObj = page.Element("TYPE")

                    Dim oType = oObj.Value

                    oObj = page.Element("ITEM")

                    Dim oItem = oObj.Value

                    ' Dim oSymbolPath As String = "\" + oSymbol + "\" + oClass + "\" + oType + "\" + oItem + ".sym"

                    Dim oSymbolPath As String = GetSymbolMapping(oItem)

                    oObj = page.Element("ORIGINALPOINT")

                    Dim sOriginPoint = oObj.Value

                    oObj = page.Element("ANGLE")

                    Dim oAngle = oObj.Value

                    Dim oSplitPos As String() = sOriginPoint.Split(",")

                    Dim oX As Double = 0.0

                    Dim oY As Double = 0.0

                    If IsNumeric(oSplitPos(0)) Then

                        oX = Double.Parse(oSplitPos(0))

                    End If

                    If IsNumeric(oSplitPos(1)) Then

                        oY = Double.Parse(oSplitPos(1))

                    End If

                    ConvertPoint(oX, oY, _IMG_X, _IMG_Y)

                    oAddrow("x") = oX '+ 0.05

                    oAddrow("Y") = oY

                    oAddrow("Class") = oClass

                    oAddrow("Angle") = oAngle

                    oAddrow("SystemPath") = oSymbolPath

                    oAddrow("Text") = oText

                    oAddrow("Name") = oName

                    oAddrow("Item") = oItem

                    oAddrow("Type") = oType

                    oAddrow("uid") = Guid.NewGuid.ToString()

                    oDt.Rows.Add(oAddrow)

                Next

            Next

        End If

        Return oDt

    End Function

    Private Function LoadPipeInXml(ByVal sXmlPath As String) As DataTable

        Try

            Dim oDt As DataTable = LoadPipe_DT()

            Dim oElement As XElement = XElement.Load(sXmlPath)

            If oElement IsNot Nothing Then

                Dim DWGElement As XElement = oElement.Element("DWGNAME")

                Dim DWGNAME = DWGElement.Value

                Dim sXY As XElement = oElement.Element("SIZE")

                Dim sSize = sXY.Value

                Dim oSplitDWGPos As String() = sSize.Split(", ")

                If IsNumeric(oSplitDWGPos(0)) Then

                    _IMG_X = Double.Parse(oSplitDWGPos(0))

                End If

                If IsNumeric(oSplitDWGPos(1)) Then

                    _IMG_Y = Double.Parse(oSplitDWGPos(1))

                End If

                For Each pipes As Object In oElement.Elements("IMGLINES")

                    For Each pipe As Object In pipes.Elements("IMGLINE")

                        Dim oAddrow As DataRow = oDt.NewRow()

                        Dim oObj As XElement = pipe.Element("ITEM")

                        Dim oItem = oObj.Value

                        ' Dim oSymbolPath As String = "\" + oSymbol + "\" + oClass + "\" + oType + "\" + oItem + ".sym"

                        Dim oSymbolPath As String = GetSymbolMapping(oItem)

                        oObj = pipe.Element("START")

                        Dim oStartPoint = oObj.Value

                        Dim oSplitPos As String() = oStartPoint.Split(", ")

                        Dim oStartpos_X As Double = 0.0

                        Dim oStartpos_Y As Double = 0.0

                        If IsNumeric(oSplitPos(0)) Then

                            oStartpos_X = Double.Parse(oSplitPos(0))

                        End If

                        If IsNumeric(oSplitPos(1)) Then

                            oStartpos_Y = Double.Parse(oSplitPos(1))

                        End If

                        ConvertPoint(oStartpos_X, oStartpos_Y, _DWG_X, _DWG_Y)

                        oObj = pipe.Element("End")

                        Dim oEndPoint = oObj.Value

                        oSplitPos = oEndPoint.Split(", ")

                        Dim oEndpos_X As Double = 0.0

                        Dim oEndpos_Y As Double = 0.0

                        If IsNumeric(oSplitPos(0)) Then

                            oEndpos_X = Double.Parse(oSplitPos(0))

                        End If

                        If IsNumeric(oSplitPos(1)) Then

                            oEndpos_Y = Double.Parse(oSplitPos(1))

                        End If

                        ConvertPoint(oEndpos_X, oEndpos_Y, _DWG_X, _DWG_Y)

                        oAddrow("start_x") = oStartpos_X '+ 0.05

                        oAddrow("start_y") = oStartpos_Y

                        oAddrow("end_x") = oEndpos_X

                        oAddrow("end_y") = oEndpos_Y

                        oAddrow("SystemPath") = oSymbolPath

                        oDt.Rows.Add(oAddrow)

                    Next

                Next

            End If

            Return oDt

        Catch ex As Exception

            Return Nothing

        End Try

    End Function

    Private Sub ConvertPoint(ByRef dX As Double, ByRef dY As Double, ByVal dDwgX As Double, ByVal dDwgY As Double)

        Dim calcx As Double = 0

        Dim calcy As Double = 0

        calcx = (dX * _DWG_X) / dDwgX 'Math.Round((dX * _DWG_X) / dDwgX, 2)

        calcy = _DWG_Y - (dY * _DWG_Y) / dDwgY '_DWG_Y - Math.Round((dY * _DWG_Y) / dDwgY, 2)

        dX = calcx

        dY = calcy

    End Sub

    '@brief Convert To SPPID

    '@author : Gyusu Park

    '@date : 2018-04-10

    '@history:

    Private Function AutoConverting(ByVal oPipe_Dt As DataTable, ByVal oSymbol_Dt As DataTable, ByVal oTreeNode As TreeNode) As Boolean

        Dim iTotalCount As Double = oPipe_Dt.Rows.Count + oSymbol_Dt.Rows.Count

        Dim iSymbolcount As Double = 0

        Dim lobjDatasource As Object = _Placement.PIDDataSource

        ' lobjDatasource.BeginTransaction()

        '  datasource = objPlacement.PIDDataSource

        'Dim iPipecnt As Integer = 0

        SetListBoxItems(ListBox_Result, " Auto converting 시작....")

        Dim iPipeCnt As Integer = 0

        If oPipe_Dt IsNot Nothing Then

            For Each oRow As DataRow In oPipe_Dt.Rows

                Dim oposition As String = oRow("position").ToString()

                Dim oSymbol As String = oRow("SystemPath").ToString()

                Dim oSplitStr As String() = Split(oposition, " ")

                Dim objConnector As LMConnector

                Dim objInputs As PlaceRunInputs

                objInputs = New PlaceRunInputs

                For Each sposition As String In oSplitStr

                    Dim opointstr As String() = Split(sposition, ", ")

                    If (opointstr.Length > 1) Then

                        If IsNumeric(opointstr(0)) And IsNumeric(opointstr(1)) Then

                            Dim ox As Double = opointstr(0)

                            Dim oy As Double = opointstr(1)

                            ConvertPoint(ox, oy, _IMG_X, _IMG_Y)

                            objInputs.AddPoint(ox, oy)

                        End If

                    End If

                Next

                Dim objItem As LMAItem

                objItem = _Placement.PIDCreateItem(oSymbol)

                objConnector = _Placement.PIDPlaceRun(objItem, objInputs)

                SetListBoxItems(ListBox_Result, " Place PipeLine...." & "(" & (iPipeCnt + 1) & "/" & oPipe_Dt.Rows.Count)

                'Dim objPipeRun As LMPipeRun = datasource.GetPipeRun(objConnector.ModelItemID)

                'objPipeRun.Attributes("OperFluidCode").Value = "AFS"

                'objPipeRun.Commit()

                iSymbolcount = iSymbolcount + 1

                iPipeCnt = iPipeCnt + 1

            Next

        End If

        SetListBoxItems(ListBox_Result, " Place PipeLine....완료")

        Dim iAllInstrumentCnt As Integer = oSymbol_Dt.Select("Name = 'INSTRUMENTATION'").Length

                    Dim iValveCnt As Integer = oSymbol_Dt.Select("Class = 'VALVES'").Length

        Dim iInstrumentCnt As Integer = 1

        Dim iFittingsCnt As Integer = 1

        Dim oInsNode As TreeNode = oTreeNode.Nodes.Find(oTreeNode.Name & "\Instruments", True)(0)

        Dim oValveNode As TreeNode = oTreeNode.Nodes.Find(oTreeNode.Name & "\Valves", True)(0)

        Dim oFittingsNode As TreeNode = oTreeNode.Nodes.Find(oTreeNode.Name & "\Fittings", True)(0)

        For Each oRow As DataRow In oSymbol_Dt.Rows

            Try

                Dim sSystemPath As String = oRow("SystemPath").ToString()

                Dim sName As String = oRow("Name").ToString()

                Dim sType As String = oRow("Type").ToString()

                Dim sText As String = oRow("Text").ToString()

                Dim sClass As String = oRow("Class").ToString()

                Dim sItem As String = oRow("Item").ToString()

                Dim oX As Double = 0.0

                Dim oY As Double = 0.0

                If IsNumeric(oRow("x").ToString()) Then

                    oX = Double.Parse(oRow("x").ToString())

                End If

                If IsNumeric(oRow("y").ToString()) Then

                    oY = Double.Parse(oRow("y").ToString())

                End If

                Dim oAngle As Double = 0.0

                If IsNumeric(oRow("Angle").ToString()) Then

                    oAngle = Double.Parse(oRow("Angle").ToString())

                End If

                '   oSymbol = "\INSTRUMENTation\SYSTEM FUNCTIONS\D C S\DCS FUNC ACCESS IN PRIME LOC.sym"

                If sSystemPath <> "" Then

                    If sName = _TYPE_Instumentation Then

                        Dim sTagsuffix As String = ""

                        Dim sTagSequenceNo As String = ""

                        Dim sMeasuredVariableCode As String = ""

                        Dim sInstrumentTypeModifier As String = ""

                        If sText <> "" Then

                            If sText.Contains(",") Then

                                Dim splitstr() As String = sText.Split(",")

                                For i = 0 To splitstr.Count - 1

                                    If i = 0 Then

                                        sMeasuredVariableCode = Mid(splitstr(i), 1, 1)

                                        sTagSequenceNo = Mid(splitstr(i), 2, Len(splitstr(i)))

                                    Else

                                        If Len(splitstr(i)) = 1 Then

                                            sInstrumentTypeModifier = splitstr(i)

                                        ElseIf Len(splitstr(i)) = 0 Then

                                        ElseIf Len(splitstr(i)) > 1 Then

                                            sInstrumentTypeModifier = Mid(splitstr(i), 1, 1)

                                            sTagsuffix = Mid(splitstr(i), 2, Len(splitstr(i)))

                                        End If

                                    End If

                                Next

                            Else

                                sMeasuredVariableCode = Mid(sText, 1, 1)

                                sTagSequenceNo = Mid(sText, 2, Len(sText))

                            End If

                        End If

                        Dim objInstrSym As LMSymbol

                        objInstrSym = _Placement.PIDPlaceSymbol(sSystemPath, oX, oY, , oAngle)

                        SetListBoxItems(ListBox_Result, " Place Instrument...." & "(" & (iInstrumentCnt + 1) & "/" & iAllInstrumentCnt & ")")

                        ' SetTreeViewItems(Tree_Result, oTreeNode.Nodes, sTagSequenceNo)

                        Dim action As Action = Sub()

                                                   oInsNode.Nodes.Add(sClass & "-" & iInstrumentCnt)

                                                   oInsNode.ExpandAll()

                                               End Sub

                        oInsNode.TreeView.Invoke(action)

                        Dim objInstr As LMInstrument

                        objInstr = lobjDatasource.GetInstrument(objInstrSym.ModelItemID)

                        Dim objItem As LMAItem

                        objItem = _Placement.PIDCreateItem(sSystemPath)

                        objInstr.Attributes("MeasuredVariableCode").Value = sMeasuredVariableCode

                        objInstr.Attributes("InstrumentTypeModifier").Value = sInstrumentTypeModifier

                        objInstr.Attributes("TagSuffix").Value = sTagsuffix

                        objInstr.Attributes("TagSequenceNo").Value = sTagSequenceNo

                        objInstr.Commit()

                        iInstrumentCnt = iInstrumentCnt + 1

                    ElseIf sName = "GATE VALVE WITH PLUG" Then

                    ElseIf sName = "MEDIUM 1D 1TO1" Then

                    ElseIf sClass = "VALVES" Then

                        Dim action As Action = Sub()

                                                   oValveNode.ExpandAll()

                                                   oValveNode.Nodes.Add(sClass & "-" & iValveCnt)

                                               End Sub

                        oValveNode.TreeView.Invoke(action)

                        _Placement.PIDPlaceSymbol(sSystemPath, oX, oY, , oAngle)

                        iValveCnt = iValveCnt + 1

                    Else

                        Dim action As Action = Sub()

                                                   oFittingsNode.ExpandAll()

                                                   oFittingsNode.Nodes.Add(sClass & "-" & iFittingsCnt)

                                               End Sub

                        oFittingsNode.TreeView.Invoke(action)

                        _Placement.PIDPlaceSymbol(sSystemPath, oX, oY, , oAngle)

                        iFittingsCnt = iFittingsCnt + 1

                    End If

                    iSymbolcount = iSymbolcount + 1

                Else

                End If

            Catch ex As Exception

            End Try

            Dim dCalcProgressValue As Double = (iSymbolcount / iTotalCount) * 100

            SetProgressbar(ProgressBar_Status, dCalcProgressValue)

            '     ProgressBar_Status.Value = (iSymbolcount / iTotalCount) * 100

        Next

        MsgBox("Complete AutoConverting")

        SetListBoxItems(ListBox_Result, "Place Instrument....변환완료")

        SetListBoxItems(ListBox_Result, "총 symbol:  " & iSymbolcount & "개 변환완료")

        SetProgressbar(ProgressBar_Status, 100)

        ' MsgBox("symbol: " & iSymbolcount & "개, pipe : " & iPipecnt & "개 변환완료")

    End Function

    Private Sub Tree_XMLFiles_AfterCheck(sender As Object, e As TreeViewEventArgs)

        If e.Node.Checked = True Then

            For Each oNode As TreeNode In e.Node.Nodes

                oNode.Checked = True

            Next

        Else

            For Each oNode As TreeNode In e.Node.Nodes

                oNode.Checked = False

            Next

        End If

    End Sub

    Private Sub LoadDB(ByVal sDBPath As String)

        Try

            Dim sConnectionstring As String = "Data Source=" & sDBPath & ";Version=3;Synchronous=Off;UTF8Encoding=True;"

            Dim conn As SQLiteConnection = New SQLiteConnection(sConnectionstring)

            conn.Open()

            Dim sQuery As String = "Select * from Mapping"

            Dim cmd As SQLiteCommand = conn.CreateCommand()

            Dim adapter As SQLiteDataAdapter = New SQLiteDataAdapter(sQuery, conn)

            Dim oDataSet As DataSet = New DataSet()

            adapter.Fill(oDataSet)

            _DB = oDataSet.Tables(0)

        Catch ex As Exception

        End Try

    End Sub

    'Private Sub Tree_XMLFiles_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles Tree_XMLFiles.AfterSelect

    '    If first_start = False Then Exit Sub

    '    Dim pa = e.Node.FullPath.ToString

    '    printfilesfolders_here(pa, e.Node)

    '    displayfiles(pa)

    '    Dim coco As String = ""

    '    coco = pa.ToString

    '    coco = coco.Replace("\\", "\")

    '    Me.Text = coco

    '    folders_path = coco

    'End Sub

    Sub printfilesfolders_here(ByVal path As String, ByRef itree As TreeNode)

        Dim foldername As String

        Dim filename As String

        itree.Nodes.Clear()

        On Error GoTo eee

        For Each foldername In Directory.GetDirectories(path)

            On Error GoTo eee

            Dim jj = foldername.LastIndexOf("\")

            Dim jj1 = foldername.Length - jj

            Dim foldr = foldername.Substring((jj + 1), (jj1 - 1))

            itree.Nodes.Add(foldr, foldr)

        Next ' if you put this next at the end of procedure recursive will be done on first folder only

        Exit Sub

eee:

    End Sub

    '    Private Sub Tree_XMLFiles_MouseMove(sender As Object, e As MouseEventArgs) Handles Tree_XMLFiles.MouseMove

    '        first_start = True

    '    End Sub

    '    Private Sub ListView_File_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView_File.SelectedIndexChanged

    '        Dim indexes As ListView.SelectedIndexCollection =

    '                         Me.ListView_File.SelectedIndices

    '        Dim index As Integer

    '        For Each index In indexes

    '            'On Error Resume Next

    '            If folders_path.EndsWith("\") = True Then

    '                Me.Status_Main.Items(0).Text = folders_path + (Me.ListView_File.Items(index).Text)

    '                'On Error Resume Next

    '            Else

    '                Me.Status_Main.Items(0).Text = folders_path + "\" + (Me.ListView_File.Items(index).Text)

    '            End If

    '            Dim infoReader As System.IO.FileInfo

    '            infoReader = My.Computer.FileSystem.GetFileInfo(Me.Status_Main.Items(0).Text)

    '            Me.Status_Main.Items(1).Text = " Created : " + infoReader.CreationTime.ToString + " " + infoReader.Attributes.ToString

    '        Next

    '    End Sub

    '    Private Sub Procees()

    '        Dim indexes As ListView.SelectedIndexCollection =

    '                            Me.ListView_File.SelectedIndices

    '        Dim index As Integer

    '        For Each index In indexes

    '            'On Error Resume Next

    '            If folders_path.EndsWith("\") = True Then

    '                On Error GoTo out

    '                Me.Status_Main.Items(0).Text = folders_path + (Me.ListView_File.Items(index).Text)

    '                On Error GoTo out

    '                'On Error Resume Next

    '            Else

    '                Me.Status_Main.Items(0).Text = folders_path + "\" + (Me.ListView_File.Items(index).Text)

    '                On Error GoTo out

    '            End If

    '            Dim infoReader As System.IO.FileInfo

    '            infoReader = My.Computer.FileSystem.GetFileInfo(Me.Status_Main.Items(0).Text)

    '            Me.Status_Main.Items(1).Text = " Created : " + infoReader.CreationTime.ToString + " " + infoReader.Attributes.ToString

    '            On Error GoTo out

    '            MsgBox(Me.Status_Main.Items(0).Text + " is processed")

    '            On Error GoTo out

    '        Next

    '        Exit Sub

    'out:

    '        MsgBox(Err.Description)

    'End Sub

    Private Function LoadAllDrawing() As DataTable

        SetListBoxItems(ListBox_Result, "도면정보 로드중....")

        Dim oDt As DataTable = Drawing_Dt()

        'Dim oDt As DataTable = Drawing_Dt()

        '_objPIDADrawing = CreateObject("PIDAutomation.Application")

        'For Each objDrawing In _objPIDADrawing.Drawings

        '    Dim sName As String = objDrawing.Attributes("Name").Value

        '    Dim sPath As String = objDrawing.Attributes("Path").Value

        '    Dim oAddRow As DataRow = oDt.NewRow()

        '    oAddRow("Name") = sName

        '    oAddRow("Path") = sPath

        '    oDt.Rows.Add(oAddRow)

        'Next

        Dim sHierarchy As String = My.Settings.Plant_Hierarchy

        Dim files() As String

        files = Directory.GetFiles(sHierarchy, "*.pid", SearchOption.AllDirectories)

        For Each FileName As String In files

            Dim sName As String = FileName

            Dim oAddRow As DataRow = oDt.NewRow()

            oAddRow("Name") = Path.GetFileNameWithoutExtension(sName)

            oAddRow("Path") = FileName

            oDt.Rows.Add(oAddRow)

            '  Console.WriteLine(FileName)

        Next

        'Dim datasource As LMADataSource

        'Dim objPIDAutoApp As Object

        'Dim objPIDADrawing As Object

        'Dim objDrawing As LMDrawing

        'Dim objDrawings As LMDrawings

        'objPIDAutoApp = CreateObject("PIDAutomation.Application")

        'objPIDAutoApp = GetObject(, "SmartPlantPID.Application")

        'datasource = CreateObject("Llama.LMADataSource", "")

        'Dim oObj As Object = Nothing

        'objDrawings = New LMDrawings

        'objDrawing = datasource.GetDrawing(oObj)

        'objDrawings.Collect(datasource)

        ''     objPIDAutoApp = GetObject(, "SmartPlantPID.Application") '// CreateObject("PIDAutomation.Application")

        'For Each objDrawing In objDrawings

        '    Dim sName As String = objDrawing.Attributes("Name").Value

        '    Dim sPath As String = objDrawing.Attributes("Path").Value

        '    Dim oAddRow As DataRow = oDt.NewRow()

        '    oAddRow("Name") = sName

        '    oAddRow("Path") = sHierarchy & "\" & sPath

        '    oDt.Rows.Add(oAddRow)

        'Next

        Return oDt

    End Function

    Private Function LoadAllDrawing2() As DataTable

        Dim datasource As LMADataSource

        Dim objPIDAutoApp As Object

        Dim objPIDADrawing As Object

        Dim objDrawing As Object 'Drawing

        'Dim objDrawing As LMDrawing

        'Dim objDrawings As LMDrawings

        datasource = New LMADataSource

        '    objDrawings = New LMDrawings

        'objDrawings.Collect(datasource)

        objPIDAutoApp = CreateObject("PIDAutomation.Application")

        For Each objDrawing In objPIDAutoApp.Drawings

            objDrawing.CloseDrawing(True)

        Next

        Try

            objPIDADrawing = objPIDAutoApp.Drawings.OpenDrawing("UY1-K-2000_P1_300dpi_0321_TEST_1")

        Catch ex As Exception

            Process.Start("\\desktop-9vlq0dp\Test02Site\P188943_SPPID_Plant\Plant_Hierarchy\8121\8121-1\UY1-K-2000_P1_300dpi_0321_TEST_1.pid")

        End Try

        Dim sType As Type = objPIDAutoApp.GetType()

        Dim iCount As Integer = 0

        ' Dim sPath As String = "‪\\desktop-9vlq0dp\Test02Site\P188943_SPPID_Plant\Plant_Hierarchy\8121\8121-1\188943-8121-PR-DW-011001.pid"

        objPIDADrawing = objPIDAutoApp.Drawings.OpenDrawing("1")

        For Each objDrawing In objPIDAutoApp.Drawings

            If objDrawing.Attributes("ItemStatus").Index = 1 Then '1 stands for Active

                Try

                    Dim sName As String = objDrawing.Attributes("Name").Value

                    iCount = iCount + 1

                    If sName = "UY1-K-2000_P1_300dpi_0321_TEST_1" Then

                        objPIDADrawing = objPIDAutoApp.Drawings.OpenDrawing(objDrawing.Attributes("Name"))

                        objPIDADrawing = objPIDAutoApp.Drawings.OpenDrawing("\8121\8121-1\UY1-K-2000_P1_300dpi_0321_TEST_1.pid")

                        If Not objPIDADrawing Is Nothing Then

                            objPIDADrawing.CloseDrawing()

                        End If

                    End If

                Catch ex As Exception

                End Try

            End If

        Next

        objPIDAutoApp.Quit

        objPIDAutoApp = Nothing

        objPIDADrawing = Nothing

        objDrawing = Nothing

        '   objDrawings = Nothing

    End Function

    Dim _XMLList As ListView = New ListView()

    Private Sub ThreadTask()

        If _XMLList.Items.Count > 0 Then

            Dim oDwg_Dt As DataTable = LoadAllDrawing()

            Dim iDwgCnt As Integer = 0

            Dim objPIDAutoApp As Object

            objPIDAutoApp = CreateObject("PIDAutomation.Application")

            Dim myList = DirectCast(Invoke(New GetListViewDelegate(AddressOf GetListViewItems), _XMLList), List(Of String))

            For i = 0 To myList.Count - 1

                Dim sDwgName As String = Path.GetFileNameWithoutExtension(myList(i))

                Txt_Status.Text = sDwgName & "..(" & i + 1 & "/" & myList.Count & ")"

                SetListBoxItems(ListBox_Result, Txt_Status.Text & " 처리중....")

                Dim sDwgNo As String = myList(i)

                Dim oDwgPath As String = ""

                oDwgPath = _selectFolderPath + "\" + sDwgNo

                Dim sPath As String = OpenDrawing(oDwg_Dt, sDwgName)

                If sPath <> "" Then

                    Process.Start(sPath)

                    Dim bCheckOpenDrawing As Boolean = False

                    While (True)

                        bCheckOpenDrawing = CheckOpenDrawing()

                        If bCheckOpenDrawing = True Then

                            Exit While

                        Else

                            Thread.Sleep(2000)

                        End If

                    End While

                    If bCheckOpenDrawing Then

                        SetListBoxItems(ListBox_Result, sDwgName & " 도면 Open....")

                        Dim oPipe_Dt As DataTable = New DataTable() 'LoadPipeInXml(oDwgPath)

                        Dim oSymbol_Dt As DataTable = LoadSymbolInXml(oDwgPath)

                        Dim oTreeNode As New TreeNode  'SetTreeViewItems(Tree_Result, Tree_Result.Nodes, sDwgName, sDwgName)

                        'oTreeNode = Tree_Result.Nodes.Find(sDwgName, True)(0)

                        Dim action As Action = Sub()

                                                   oTreeNode = Tree_Result.Nodes.Add(sDwgName, sDwgName)

                                                   SetTreeViewItems(Tree_Result, oTreeNode.Nodes, sDwgName & "\Instruments", "Instuments")

                                                   SetTreeViewItems(Tree_Result, oTreeNode.Nodes, sDwgName & "\Pipes", "Pipes")

                                                   SetTreeViewItems(Tree_Result, oTreeNode.Nodes, sDwgName & "\Valves", "Valves")

                                                   SetTreeViewItems(Tree_Result, oTreeNode.Nodes, sDwgName & "\Fittings", "Fittings")

                                                   oTreeNode.ExpandAll()

                                               End Sub

                        Tree_Result.Invoke(action)

                        '    oTreeNode.Expand()

                        SetListBoxItems(ListBox_Result, sDwgName & " Auto converting 대기....")

                        AutoConverting(oPipe_Dt, oSymbol_Dt, oTreeNode)

                    End If

                End If

                ''도면 생성

                'If CreateDwg(sDwgName) Then

                '    'AutoConverting

                'End If

            Next

        End If

    End Sub

    Private Function CheckOpenDrawing() As Boolean

        Try

            Dim lobjDatasource As Object

            _Placement = CreateObject("Plaice.Placement", "")

            lobjDatasource = _Placement.PIDDataSource

            Return True

        Catch ex As Exception

            Return False

        End Try

    End Function

    Private Sub Btn_Convert_Click(sender As Object, e As EventArgs) Handles Btn_Convert.Click

        Main_Tab.SelectedIndex = 1

        ListBox_Result.Items.Clear()

        DataGrid_Result.DataSource = New DataTable()

        Me.ProgressBar_Status.Visible = True

            ProgressBar_Status.Maximum = 100

            ProgressBar_Status.Value = 0

        ' _selectFolderPath = Tree_XMLFiles.SelectedNode.FullPath.Replace("\\", "\")

        _Main_trd = New Thread(AddressOf ThreadTask)

        _Main_trd.IsBackground = True

        _Main_trd.Start()

    End Sub

    Private Function GetCheckList(ByVal listviewItem As ListViewItem)

    End Function

    Private Sub newThreadFunc(ByVal state As Object)

    End Sub

    Private Function OpenDrawing(ByVal oDt As DataTable, ByVal sDwgName As String) As String

        Dim oRows As DataRow() = oDt.Select("[Name] = '" & sDwgName & "'")

        Dim oPath As String = ""

        If oRows.Length > 0 Then

            oPath = oRows(0).Item("Path").ToString()

        End If

        Return oPath

    End Function

    Private Sub Btn_Setting_Click(sender As Object, e As EventArgs) Handles Btn_Setting.Click

        Dim oSettings As Settings = New Settings()

        oSettings.ShowDialog()

    End Sub

    Private Sub Btn_Stop_Click(sender As Object, e As EventArgs) Handles Btn_Stop.Click

        Try

            _Main_trd.Abort()

        Catch ex As Exception

        End Try

    End Sub

    Private Sub DropDown_File_Click(sender As Object, e As EventArgs) Handles DropDown_File.Click

    End Sub

    Private Sub TestLineToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TestLineToolStripMenuItem.Click

        Dim objPlacement As New Placement

        'PipeLine 

        'Nominal diameter -fluidcode- tagseqno-piping material spec - insulation purpose

        Dim datasource As LMADataSource

        datasource = objPlacement.PIDDataSource

        Dim PipeRunLoc As String

        Dim objItem As LMAItem

        Dim objConnector As LMConnector

        Dim objInputs As PlaceRunInputs

        Dim objSymbol As LMSymbol

        Dim InstrumentLoc As String

        PipeRunLoc = "\Piping\Routing\Process Lines\Primary Piping.sym"

        objInputs = New PlaceRunInputs

        objInputs.AddPoint(0.1, 0.1)

        objInputs.AddPoint(0.2, 0.1)

        objItem = objPlacement.PIDCreateItem(PipeRunLoc)

        objConnector = objPlacement.PIDPlaceRun(objItem, objInputs)

        Dim objPipeRun As LMPipeRun = datasource.GetPipeRun(objConnector.ModelItemID)

        objPipeRun.Attributes("NominalDiameter").Value = "250 mm"

        objPipeRun.Attributes("OperFluidCode").Value = "ADH"

        objPipeRun.Attributes("TagSequenceNo").Value = "0026"

        objPipeRun.Attributes("pipingmaterialsclass").Value = "NA1S"

        objPipeRun.Attributes("InsulPurpose").Value = "H"

        objPipeRun.Commit()

        Dim twopoints(2) As Double

        twopoints(1) = 0.12

        twopoints(2) = 0.11

        'Label

        Dim labelName1 As String = "\Piping\Labels - Piping Segments\Line Number.sym"

        Dim labelpersist As LMLabelPersist

        For Each representation In objPipeRun.Representations

            If representation.RepresentationType = "Connector" Then

                labelpersist = objPlacement.PIDPlaceLabel(labelName1,

                twopoints,, 0, LabeledItem:=representation)

            End If

        Next

        'labelpersist = objPlacement.PIDPlaceLabel(labelName1,

        '  twopoints, LabeledItem:=objPipeRun.Representations.Nth(0))

        'twopoints(1) = 0.17

        'twopoints(2) = 0.1

        'labelpersist = objPlacement.PIDPlaceLabel(labelName1,

        '  twopoints, LabeledItem:=objPipeRun.Representations.Nth(0))

        'Instrument

        InstrumentLoc = "\Instrumentation\Off-Line\Without Implied Components\Single Function\Disc Single-Func Access in Prime Loc.sym"

        objSymbol = objPlacement.PIDPlaceSymbol(InstrumentLoc, 0.15, 0.3, , 0)

        Dim objInstr As LMInstrument

        objInstr = datasource.GetInstrument(objSymbol.ModelItemID)

        objInstr.Attributes("MeasuredVariableCode").Value = "L"

        objInstr.Attributes("InstrumentTypeModifier").Value = "G"

        objInstr.Attributes("TagSuffix").Value = ""

        objInstr.Attributes("TagSequenceNo").Value = "4003"

        objInstr.Commit()

        objInputs = New PlaceRunInputs

        objInputs.AddConnectorTarget(objConnector, 0.15, 0.1)

        objInputs.AddPoint(0.15, 0.15)

        objInputs.AddPoint(0.12, 0.15)

        objInputs.AddPoint(0.12, 0.2)

        objInputs.AddPoint(0.15, 0.2)

        objInputs.AddSymbolTarget(objSymbol, 0.15, 0.3)

        objItem = objPlacement.PIDCreateItem(PipeRunLoc)

        objConnector = objPlacement.PIDPlaceRun(objItem, objInputs)

        objPipeRun = datasource.GetPipeRun(objConnector.ModelItemID)

        twopoints(1) = 0.14

        twopoints(2) = 0.22

        For Each representation In objPipeRun.Representations

            If representation.RepresentationType = "Connector" Then

                labelpersist = objPlacement.PIDPlaceLabel(labelName1,

                twopoints,, 1.57, LabeledItem:=representation)

            End If

        Next

        ' Measured Variable Code, Instr Type Modifier 

        ' TagSeqNo, TagSuffix

        'OPC

        'Valve

    End Sub

    Private Sub ToolStripDropDownButton1_Click(sender As Object, e As EventArgs) Handles ToolStripDropDownButton1.Click

    End Sub

    Private Sub LoadXmlToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LoadXmlToolStripMenuItem.Click

        Dim oOpen_Xml = New LoadXml()

        oOpen_Xml = New LoadXml()

        oOpen_Xml.ShowDialog()

        _XMLList = oOpen_Xml.GetCheckList()

        LoadXmlItem()

    End Sub

    Private Sub LoadXmlItem()

        If Tree_Result.Nodes.Count > 0 Then

            Tree_Result.Nodes(0).Nodes.Clear()

            For i = 0 To _XMLList.CheckedItems.Count - 1

                Dim sDwgName As String = Path.GetFileNameWithoutExtension(_XMLList.CheckedItems(i).Text)

                Dim sDwgPath As String = _XMLList.CheckedItems(i).Name

                Dim oNode As TreeNode = Tree_Result.Nodes(0).Nodes.Add(sDwgPath, sDwgName, 15)

                AddSymbolItem(sDwgPath, oNode)

            Next

            Tree_Result.Nodes(0).Expand()

        End If

    End Sub

    ''' <summary>

    '''  XML Tree 구조 생성 

    ''' </summary>

    ''' <param name="sDwgPath"></param>

    Private Sub AddSymbolItem(ByVal sDwgPath As String, ByVal oParentNode As TreeNode)

        Dim oDt As DataTable = LoadSymbolInXml(sDwgPath)

        'PipeLine 구분

        'Type구분

        '  Dim oParentNodeName = oParentNode.Text

        Dim oDistinct_Name_Dt As DataTable = oDt.DefaultView.ToTable(True, "Name")

        'Name 별

        For Each oNameRow In oDistinct_Name_Dt.Rows

            Dim sName As String = oNameRow("Name").ToString()

            Dim sNameKey As String = oParentNode.Text & "\" & sName

            Dim oNameNode As TreeNode = oParentNode.Nodes.Add(sNameKey, sName)

            Dim oSelectNameRows As DataRow() = oDt.Select("[Name] = '" & sName & "'")

            Dim oDistinct_Class_Dt As DataTable = oSelectNameRows.CopyToDataTable.DefaultView.ToTable(True, "Class")

            'Class 별

            For Each oClassRow In oDistinct_Class_Dt.Rows

                Dim sClass As String = oClassRow("Class").ToString()

                If sClass.Contains("'") Then

                    sClass = sClass.Replace("'", "''")

                End If

                Dim sClassKey As String = oNameNode.Name & "\" & sClass

                Dim oClassNode As TreeNode = oNameNode.Nodes.Add(sClassKey, sClass)

                Dim oSelectClassRows As DataRow() = oSelectNameRows.CopyToDataTable.Select("[Class] = '" & sClass & "'")

                'Item 별

                For Each oItemRow In oSelectClassRows

                    Dim sItem As String = oItemRow("Item").ToString()

                    Dim sItemKey As String = oItemRow("uid").ToString()

                    Dim oItemName As TreeNode = oClassNode.Nodes.Add(sItemKey, sItem)

                Next

            Next

        Next

    End Sub

    Private Sub Tree_Result_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles Tree_Result.AfterSelect

    End Sub

    ''' <summary>

    ''' Parent 노트 선택시 일괄 체크,해제

    ''' </summary>

    ''' <param name="sender"></param>

    ''' <param name="e"></param>

    Private Sub Tree_Result_AfterCheck(sender As Object, e As TreeViewEventArgs) Handles Tree_Result.AfterCheck

        If e.Node.Checked = True Then

            For Each oNode As TreeNode In e.Node.Nodes

                oNode.Checked = True

            Next

        Else

            For Each oNode As TreeNode In e.Node.Nodes

                oNode.Checked = False

            Next

        End If

    End Sub

End Class

Public Class DrawingInfo

    Public mDrawingName As String

    Public mSpID As String

    Public mPath As String

End Class