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 _Mapping_DB As DataTable = New DataTable()

    Dim _Mapping_DB As DataSet = New DataSet()

    Dim _Attribute_DB As DataTable = New DataTable()

    Dim _PIDSymbol_DB As DataTable = New DataTable()

    Dim _ResultModeling_DT As DataTable = New DataTable()

    Dim _Placement As New Placement

    Dim _DWG_X = 0.875 '0.695 '1 '

    Dim _DWG_Y = 0.617 '0.585 '0.8 '

    'Dim _DWG_X = 0.842 '0.695 '1 '

    'Dim _DWG_Y = 0.614 '0.585 '0.8 '

    Dim _IMG_X = 0

    Dim _IMG_Y = 0

    Dim _Unit As String

    'Drawing 전역변수

    Dim _objPIDADrawing As Object

    '현재선택한 폴더경로

    Dim _selectFolderPath As String

    Private _Main_trd As Thread

    Private _Opc_trd As Thread

    Private _CompleteConvert As Boolean = False

    Private _DrawingsList As List(Of Drawing)

    Private _iPipeLineNocnt As Integer

    Private _iPipecnt As Integer

    Private _iFittingcnt As Integer

    Private _iValvecnt As Integer

    Private _iInstrumentcnt As Integer

    Private _iEquipmentcnt As Integer

    Private _iNozzlecnt As Integer

    Private _iPipintOpccnt As Integer

    Dim _Gembox As New CGembox()

    Private _allItem As Integer

    Private _Itemcnt As Integer

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

        LoadDB()

    End Sub

    Private Sub LoadDB()

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

            Dim sDBPath As String = My.Settings.DBPath

            _Gembox.isLoadFile(My.Settings.SymbolLibrary)

            _Mapping_DB = _Gembox.LoadFileFunc()

            '  _Mapping_DB = Load_DB(sDBPath, _DB_TABLE_MAPPING)

            _Attribute_DB = Load_DB(sDBPath, _DB_TABLE_ATTRIBUTE)

            _PIDSymbol_DB = Load_DB(sDBPath, _DB_TABLE_SYMBOLNAME)

            _ResultModeling_DT = ModelingResult_Dt()

            'TestPID()

            'OpenDrawing()

        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

    Function OpenDrawing()

        Dim datasource As LMADataSource

        Dim objPIDAutoApp As Object

        Dim objPIDADrawing As Object

        Dim objDrawing As LMDrawing

        Dim objDrawings As LMDrawings

        datasource = New Llama.LMADataSource

        objPIDAutoApp = CreateObject("PIDAutomation.Application")

        objDrawings = New Llama.LMDrawings 'New LMDrawings

        datasource.SiteNode = "\\desktop-9vlq0dp\Test03Site\smartplantv4.ini"

        datasource.ProjectNumber = "SBR_PBR"

        objDrawings.Collect(datasource)

        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

                    'MsgBox "Drawing " & objDrawing.Attributes("Name").Value & " is opened!"

                    objPIDADrawing.CloseDrawing

                End If

            End If

        Next

        objPIDAutoApp.Quit

        objPIDAutoApp = Nothing

        objPIDADrawing = Nothing

        objDrawing = Nothing

        objDrawings = Nothing

    End Function

    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

            Const CONST_SPID_OPC As String = "426E89964A7F49208AD79E1F320DA251"

            Dim datasource As LMADataSource

            Dim objPIDAutoApp As Object

            Dim objPIDADrawing As Object

            Dim objDrawing As LMDrawing

            Dim objDrawings As LMDrawings

            datasource = New LMADataSource

            Dim objOPC As LMOPC

            Dim objpairOPC As LMOPC

            objOPC = datasource.GetOPC(CONST_SPID_OPC)

            objpairOPC = objOPC.pairedWithOPCObject

            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 GetDataFromMappingDB(ByVal sSymbolName As String, ByVal sColumn As String) As String

        Dim sValue As String = ""

        For Each oDt As DataTable In _Mapping_DB.Tables

            If oDt.Rows.Count > 0 Then

                Dim oSelectRow() As DataRow = oDt.Select("[img_symbolname] = '" + sSymbolName + "'")

                If oSelectRow.Length = 1 Then

                    If sColumn = _DB_COLUMN_MAPPING_SPPID_SYMBOLNAME Then

                        sValue = oSelectRow(0).Item("SYM FILE NAME").ToString()

                    ElseIf sColumn = _DB_COLUMN_MAPPING_SPPID_SYSTEMPATH Then

                        sValue = "\" & oSelectRow(0).Item("SYMBOL PATH").ToString() & "\" & oSelectRow(0).Item("SYM FILE NAME").ToString()

                    ElseIf sColumn = _DB_COLUMN_MAPPING_SPPID_COMPTPYE Then

                        sValue = oSelectRow(0).Item("ITEM TYPE").ToString()

                    ElseIf sColumn = _DB_COLUMN_MAPPING_SPPID_CLASS Then

                        sValue = oSelectRow(0).Item("CLASS").ToString()

                    Else

                        sValue = oSelectRow(0).Item("SYMBOL PATH").ToString() & "\" & oSelectRow(0).Item("SYM FILE NAME").ToString()

                    End If

                End If

            End If

        Next

        Return sValue

    End Function

    Private Function GetAttributeMapping(ByVal sAttributeName As String, ByVal sColumn As String) As String

        Dim sSPPIDAttribute As String = ""

        If _Attribute_DB.Rows.Count > 0 Then

            Dim oSelectRow() As DataRow = _Attribute_DB.Select("[pid_attribute] = '" + sAttributeName + "'")

            If oSelectRow.Length = 1 Then

                sSPPIDAttribute = oSelectRow(0).Item(sColumn).ToString()

            End If

        End If

        Return sSPPIDAttribute

    End Function

    '  Dim _TempSymbolDt As DataTable = Symbol_Dt()

    Private Function LoadSymbolInXml(ByVal sXmlPath As String) As Drawing

        Try

            ''  _TempSymbolDt = Symbol_Dt()

            Dim CDrawing As Drawing = New Drawing()

            Dim oDt As DataTable = LoadSymbol_DT()

            Dim oElement As XElement = XElement.Load(sXmlPath)

            If oElement IsNot Nothing Then

                CDrawing.DwgName = oElement.Element(_XML_DWGNAME).Value

                CDrawing.Size = oElement.Element(_XML_DWGSIZE).Value

                SplitLocation(CDrawing.Size, _IMG_X, _IMG_Y)

                CDrawing.Unit = oElement.Element(_XML_UNIT).Value

                Dim oLineno_list As New List(Of Line_no)

                Dim oEqp_list As New List(Of Eqp_no)

                Dim oTrim_Lineno_list As New List(Of Line_no)

                oLineno_list = LoadLineNo(oElement, _XML_CATEGORY_LINENO)

                For Each oEqpNo As Object In oElement.Elements(_XML_CATEGORY_EQUIPMENT)

                    Dim CEqp_no As Eqp_no = New Eqp_no()

                    Dim oSymbol_Dt As DataTable = Symbol_Dt()

                    Dim oAttribute_Dt As DataTable = Attribute_Dt()

                    Dim sUid As String

                    For Each oSymbol As Object In oEqpNo.Elements(_XML_CATEGORY_SYMBOL)

                        Try

                            Dim oAddrow As DataRow = oSymbol_Dt.NewRow()

                            Dim oEleObj As XElement

                            Dim sName As String

                            Dim sLocation As String

                            Dim sSize As String

                            Dim sAngle As String

                            Dim sOriginalPoint As String = ""

                            Dim sConnectionPoint As String = ""

                            oEleObj = oSymbol.Element(_XML_SYMBOL_UID)

                            sUid = oEleObj.Value

                            oEleObj = oSymbol.Element(_XML_SYMBOL_NAME)

                            sName = oEleObj.Value

                            oEleObj = oSymbol.Element(_XML_SYMBOL_LOCATION)

                            sLocation = oEleObj.Value

                            oEleObj = oSymbol.Element(_XML_SYMBOL_SIZE)

                            sSize = oEleObj.Value

                            oEleObj = oSymbol.Element(_XML_SYMBOL_ANGLE)

                            sAngle = oEleObj.Value

                            oEleObj = oSymbol.Element(_XML_SYMBOL_CONNECTIONPOINT)

                            sConnectionPoint = oEleObj.Value

                            Try

                                oEleObj = oSymbol.Element(_XML_SYMBOL_ORIGINALPOINT)

                                sOriginalPoint = oEleObj.Value

                            Catch ex As Exception

                            End Try

                            oAddrow(_XML_SYMBOL_UID) = sUid

                            oAddrow(_XML_SYMBOL_NAME) = sName

                            oAddrow(_XML_SYMBOL_LOCATION) = sLocation

                            oAddrow(_XML_SYMBOL_SIZE) = sSize

                            oAddrow(_XML_SYMBOL_ANGLE) = sAngle

                            oAddrow(_XML_SYMBOL_SYSTEMPATH) = GetDataFromMappingDB(sName, _DB_COLUMN_MAPPING_SPPID_SYSTEMPATH)

                            oAddrow(_XML_SYMBOL_TYPE) = GetDataFromMappingDB(sName, _DB_COLUMN_MAPPING_SPPID_COMPTPYE)

                            oAddrow(_XML_SYMBOL_ORIGINALPOINT) = sOriginalPoint

                            oAddrow(_XML_SYMBOL_CONNECTIONPOINT) = sConnectionPoint

                            oAddrow(_XML_SYMBOL_DRAWING_TF) = "FALSE"

                            oSymbol_Dt.Rows.Add(oAddrow)

                        Catch ex As Exception

                        End Try

                    Next

                    For Each oAtrribute As Object In oEqpNo.Elements(_XML_CATEGORY_ATTRIBUTE)

                        Try

                            Dim oAddrow As DataRow = oAttribute_Dt.NewRow()

                            Dim oEleObj As XElement

                            Dim sAttUid As String

                            Dim sName As String

                            Dim sValue As String

                            oEleObj = oAtrribute.Element(_XML_ATTRIBUTE_UID)

                            sAttUid = oEleObj.Value

                            oEleObj = oAtrribute.Element(_XML_ATTRIBUTE_NAME)

                            sName = oEleObj.Value

                            oEleObj = oAtrribute.Element(_XML_ATTRIBUTE_VALUE)

                            sValue = oEleObj.Value

                            oAddrow(_XML_ATTRIBUTE_UID) = sAttUid

                            oAddrow(_XML_ATTRIBUTE_NAME) = sName

                            oAddrow(_XML_ATTRIBUTE_VALUE) = sValue

                            oAttribute_Dt.Rows.Add(oAddrow)

                        Catch ex As Exception

                        End Try

                    Next

                    CEqp_no.Uid = sUid

                    CEqp_no.Dt_Equipment = oSymbol_Dt

                    CEqp_no.Dt_Attribute = oAttribute_Dt

                    oEqp_list.Add(CEqp_no)

                Next

                oTrim_Lineno_list = LoadLineNo(oElement, _XML_CATEGORY_TRIM_LINENO)

                CDrawing.Line_nos = oLineno_list

                CDrawing.Eqp_nos = oEqp_list

                CDrawing.TrimLine_nos = oTrim_Lineno_list

            End If

            Return CDrawing

        Catch ex As Exception

            Return Nothing

        End Try

    End Function

    Private Function LoadLineNo(ByVal oElement As XElement, ByVal sLineType As String) As List(Of Line_no)

        Dim oLineno_list As New List(Of Line_no)

        For Each oLineNo As Object In oElement.Elements(sLineType)

            Dim CLineNo As Line_no = New Line_no()

            Try

                CLineNo.Uid = oLineNo.Element(_XML_LINENO_UID).Value

                CLineNo.Text = oLineNo.Element(_XML_LINENO_TEXT).Value

                CLineNo.Location = oLineNo.Element(_XML_LINENO_LOCATION).Value

                CLineNo.Angle = oLineNo.Element(_XML_LINENO_ANGLE).Value

                CLineNo.SystemPath = "\Piping\Labels - Piping Segments\Kemya Line Number.sym" 'GetDataFromMappingDB(_XML_CATEGORY_LINENO, _DB_COLUMN_MAPPING_SPPID_SYSTEMPATH)

            Catch ex As Exception

                'CLineNo.Text = "PipeLineNo"

                'CLineNo.Uid = "PipeLineNo"

            End Try

            Dim oLine_Dt As DataTable = Line_Dt()

            Dim oSymbol_Dt As DataTable = Symbol_Dt()

            Dim oAttribute_Dt As DataTable = Attribute_Dt()

            For Each oRun As Object In oLineNo.Elements(_XML_CATEGORY_RUN)

                For Each oLine As Object In oRun.Elements(_XML_CATEGORY_LINE)

                    Try

                        Dim oAddrow As DataRow = oLine_Dt.NewRow()

                        Dim oEleObj As XElement

                        Dim sUid As String

                        Dim sStartpoint As String

                        Dim sEndpoint As String

                        Dim sType As String

                        oEleObj = oLine.Element(_XML_LINE_UID)

                        sUid = oEleObj.Value

                        If oLine_Dt.Select(_XML_LINE_UID & "='" & sUid & "'").Length = 0 Then

                            oEleObj = oLine.Element(_XML_LINE_STARTPOINT)

                            sStartpoint = oEleObj.Value

                            oEleObj = oLine.Element(_XML_LINE_ENDPOINT)

                            sEndpoint = oEleObj.Value

                            oEleObj = oLine.Element(_XML_LINE_TYPE)

                            sType = oEleObj.Value

                            oAddrow(_XML_LINE_UID) = sUid

                            oAddrow(_XML_LINE_STARTPOINT) = sStartpoint

                            oAddrow(_XML_LINE_ENDPOINT) = sEndpoint

                            oAddrow(_XML_LINE_SYSTEMPATH) = GetDataFromMappingDB(_XML_CATEGORY_LINE, _DB_COLUMN_MAPPING_SPPID_SYSTEMPATH)

                            oAddrow(_XML_LINE_DRAWING_TF) = "FALSE"

                            oAddrow(_XML_LINE_TYPE) = sType

                            oLine_Dt.Rows.Add(oAddrow)

                        Else

                        End If

                    Catch ex As Exception

                    End Try

                Next

                For Each oSymbol As Object In oRun.Elements(_XML_CATEGORY_SYMBOL)

                    Try

                        Dim oAddrow As DataRow = oSymbol_Dt.NewRow()

                        Dim oEleObj As XElement

                        Dim sUid As String

                        Dim sName As String

                        Dim sLocation As String

                        Dim sSize As String

                        Dim sAngle As String

                        Dim sOriginalPoint As String = ""

                        oEleObj = oSymbol.Element(_XML_SYMBOL_UID)

                        sUid = oEleObj.Value

                        oEleObj = oSymbol.Element(_XML_SYMBOL_PARENT)

                        sName = oEleObj.Value

                        oEleObj = oSymbol.Element(_XML_SYMBOL_LOCATION)

                        sLocation = oEleObj.Value

                        oEleObj = oSymbol.Element(_XML_SYMBOL_SIZE)

                        sSize = oEleObj.Value

                        oEleObj = oSymbol.Element(_XML_SYMBOL_ANGLE)

                        sAngle = oEleObj.Value

                        Try

                            oEleObj = oSymbol.Element(_XML_SYMBOL_ORIGINALPOINT)

                            sOriginalPoint = oEleObj.Value

                        Catch ex As Exception

                        End Try

                        oAddrow(_XML_SYMBOL_UID) = sUid

                        oAddrow(_XML_SYMBOL_NAME) = IO.Path.GetFileNameWithoutExtension(GetDataFromMappingDB(sName, _DB_COLUMN_MAPPING_SPPID_SYMBOLNAME))

                        oAddrow(_XML_SYMBOL_LOCATION) = sLocation

                        oAddrow(_XML_SYMBOL_SIZE) = sSize

                        oAddrow(_XML_SYMBOL_ANGLE) = sAngle

                        oAddrow(_XML_SYMBOL_SYSTEMPATH) = GetDataFromMappingDB(sName, _DB_COLUMN_MAPPING_SPPID_SYSTEMPATH)

                        oAddrow(_XML_SYMBOL_TYPE) = GetDataFromMappingDB(sName, _DB_COLUMN_MAPPING_SPPID_COMPTPYE)

                        oAddrow(_XML_SYMBOL_CLASS) = GetDataFromMappingDB(sName, _DB_COLUMN_MAPPING_SPPID_CLASS)

                        oAddrow(_XML_SYMBOL_ORIGINALPOINT) = sOriginalPoint

                        oAddrow(_XML_SYMBOL_DRAWING_TF) = "FALSE"

                        oSymbol_Dt.Rows.Add(oAddrow)

                    Catch ex As Exception

                    End Try

                Next

                For Each oAtrribute As Object In oRun.Elements(_XML_CATEGORY_ATTRIBUTE)

                    Try

                        Dim oAddrow As DataRow = oAttribute_Dt.NewRow()

                        Dim oEleObj As XElement

                        Dim sUid As String

                        Dim sName As String

                        Dim sValue As String

                        oEleObj = oAtrribute.Element(_XML_ATTRIBUTE_UID)

                        sUid = oEleObj.Value

                        oEleObj = oAtrribute.Element(_XML_ATTRIBUTE_NAME)

                        sName = oEleObj.Value

                        oEleObj = oAtrribute.Element(_XML_ATTRIBUTE_VALUE)

                        sValue = oEleObj.Value

                        oAddrow(_XML_ATTRIBUTE_UID) = sUid

                        oAddrow(_XML_ATTRIBUTE_NAME) = sName

                        oAddrow(_XML_ATTRIBUTE_VALUE) = sValue

                        oAttribute_Dt.Rows.Add(oAddrow)

                    Catch ex As Exception

                    End Try

                Next

            Next

            'Line No Attribute

            For Each oAtrribute As Object In oLineNo.Elements(_XML_CATEGORY_ATTRIBUTE)

                Try

                    Dim oAddrow As DataRow = oAttribute_Dt.NewRow()

                    Dim oEleObj As XElement

                    Dim sUid As String = ""

                    Dim sName As String

                    Dim sValue As String

                    oEleObj = oAtrribute.Element(_XML_ATTRIBUTE_UID)

                    sUid = oEleObj.Value

                    oEleObj = oAtrribute.Element(_XML_ATTRIBUTE_NAME)

                    sName = oEleObj.Value

                    oEleObj = oAtrribute.Element(_XML_ATTRIBUTE_VALUE)

                    sValue = oEleObj.Value

                    oAddrow(_XML_ATTRIBUTE_UID) = sUid

                    oAddrow(_XML_ATTRIBUTE_NAME) = sName

                    oAddrow(_XML_ATTRIBUTE_VALUE) = sValue

                    oAttribute_Dt.Rows.Add(oAddrow)

                Catch ex As Exception

                End Try

            Next

            CLineNo.Dt_Line = oLine_Dt

            CLineNo.Dt_Symbol = oSymbol_Dt

            CLineNo.Dt_Attribute = oAttribute_Dt

            oLineno_list.Add(CLineNo)

        Next

        Return oLineno_list

    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 = GetSystemPathFromMappingDB(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 ConvertPointByImage(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 Sub SplitLocation(ByVal sLocation As String, ByRef dX As Double, ByRef dY As Double)

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

        If (opointstr.Length > 1) Then

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

                dX = opointstr(0)

                dY = opointstr(1)

            End If

        End If

    End Sub

    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 objConnector As LMConnector

                Dim objInputs As PlaceRunInputs

                objInputs = New PlaceRunInputs

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

                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)

                            ConvertPointByImage(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 Function Load_DB(ByVal sDBPath As String, ByVal sTableName As String) As DataTable

        Try

            Dim oDt As New DataTable

            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 " & sTableName

            Dim cmd As SQLiteCommand = conn.CreateCommand()

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

            Dim oDataSet As DataSet = New DataSet()

            adapter.Fill(oDataSet)

            oDt = oDataSet.Tables(0)

            Return oDt

        Catch ex As Exception

            Return Nothing

        End Try

    End Function

    Private Sub Load_AttributeDB(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 Attribute"

            Dim cmd As SQLiteCommand = conn.CreateCommand()

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

            Dim oDataSet As DataSet = New DataSet()

            adapter.Fill(oDataSet)

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

        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