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

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

        _Main_trd.IsBackground = True

        _Main_trd.Start()

        FineOPCForm()

    End Sub

    Private Sub FineOPCForm()

        _Opc_trd = New Thread(AddressOf ThreadOPCRemove)

        _Opc_trd.IsBackground = True

        _Opc_trd.Start()

    End Sub

    '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

    Dim _objPIDAutoApp As Object

    Private Function OpenSPPID(ByVal oDwg_Dt As DataTable, ByVal sDwgName As String) As Boolean

        Dim bCheckOpen As Boolean = False

        '   Dim sDwgName As String = Path.GetFileNameWithoutExtension(oDwgPath)

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

        _objPIDAutoApp = CreateObject("PIDAutomation.Application")

        Dim sPath As String = OpenDrawing(oDwg_Dt, sDwgName)

        If sPath <> "" Then

            Process.Start(sPath)

        Else

            Return bCheckOpen

        End If

            Dim bCheckOpenDrawing As Boolean = False

            While (True)

                bCheckOpenDrawing = CheckOpenDrawing()

                If bCheckOpenDrawing = True Then

                    bCheckOpen = True

                    Exit While

                Else

                    Thread.Sleep(2000)

                End If

            End While

            Return bCheckOpen

    End Function

    Private Function GetDrawing(ByVal sDwgName As String) As Drawing

        For Each CDrawing In _DrawingsList

            If CDrawing.DwgName.ToUpper() = sDwgName.ToUpper() Then

                Return CDrawing

            End If

        Next

        Return Nothing

    End Function

    Private Function GetLineNo(ByVal CDrawing As Drawing, ByVal sLineNoUid As String) As Line_no

        For Each CLineNo In CDrawing.Line_nos

            If CLineNo.Uid = sLineNoUid Then

                Return CLineNo

            End If

        Next

        Return Nothing

    End Function

    Private Function GetTrimLineNo(ByVal CDrawing As Drawing, ByVal sLineNoUid As String) As Line_no

        For Each CLineNo In CDrawing.TrimLine_nos

            If CLineNo.Uid = sLineNoUid Then

                Return CLineNo

            End If

        Next

        Return Nothing

    End Function

    Private Function GetOnlyPipeLineNo(ByVal CDrawing As Drawing, ByVal sPipeUid As String) As Line_no

        For Each CLineNo In CDrawing.Line_nos

            Dim odt As DataTable = CLineNo.Dt_Line

            If odt.Rows.Count > 0 Then

                If odt.Rows(0)(_XML_LINE_UID).ToString = sPipeUid Then

                    Return CLineNo

                End If

            End If

        Next

        Return Nothing

    End Function

    Private Function GetEqpNo(ByVal CDrawing As Drawing, ByVal sEqpUid As String) As Eqp_no

        For Each CEqpNo In CDrawing.Eqp_nos

            If CEqpNo.Uid = sEqpUid Then

                Return CEqpNo

            End If

        Next

        Return Nothing

    End Function

    Private Function ConvertPointBystring(ByVal sPoint As String, ByRef dX As Double, ByRef dY As Double) As Boolean

        Try

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

            If (opointstr.Length > 1) Then

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

                    dX = opointstr(0)

                    dY = opointstr(1)

                Else

                    dX = 0

                    dY = 0

                    Return False

                End If

            End If

            Return True

        Catch ex As Exception

            Return False

        End Try

    End Function

    Dim _DrawLine_Dt As DataTable = DrawLind_Dt()

    Private Function DrawLine(ByVal sUid As String, ByVal sLineNoUid As String, ByVal oLine_Dt As DataTable,

                              ByVal oAttribute_Dt As DataTable, ByRef oPiperun_Dt As DataTable) As LMPipeRun

        Try

            Dim oPipeRun As LMPipeRun = Nothing

            Dim oPipeRow() As DataRow = oLine_Dt.Select(_XML_LINE_UID & " = '" + sUid + "'")

            Dim oAttributeRow() As DataRow = oAttribute_Dt.Select(_XML_ATTRIBUTE_UID & " = '" + sLineNoUid + "'")

            If oPipeRow.Length > 0 Then

                Dim oDatasource As Object = _Placement.PIDDataSource

                Dim objItem As LMAItem

                Dim objConnector As LMConnector

                Dim objInputs As PlaceRunInputs

                objInputs = New PlaceRunInputs

                Dim dOriginalStart_x As Double = 0.0

                Dim dOriginalStart_y As Double = 0.0

                Dim dOriginalEnd_x As Double = 0.0

                Dim dOriginalEnd_y As Double = 0.0

                Dim dStart_x As Double = 0.0

                Dim dStart_y As Double = 0.0

                Dim dEnd_x As Double = 0.0

                Dim dEnd_y As Double = 0.0

                Dim sType As String = oPipeRow(0)(_XML_LINE_TYPE).ToString()

                Dim sSystempath As String = "\Piping\Routing\Process Lines\Primary Piping.sym" ' oPipeRow(0)(_XML_LINE_SYSTEMPATH).ToString()

                If sType.ToUpper() = "ELECTRIC" Then

                    sSystempath = "\Instrumentation\Signal Line\Electric.sym"

                ElseIf sType.ToUpper() = "CONNECT TO PROCESS" Then

                    sSystempath = "\Instrumentation\Signal Line\Connect to Process.sym"

                Else

                End If

                Dim sStartpoint As String = oPipeRow(0)(_XML_LINE_STARTPOINT).ToString()

                Dim sEndpoint As String = oPipeRow(0)(_XML_LINE_ENDPOINT).ToString()

                Dim sPipeUid As String = oPipeRow(0)(_XML_LINE_UID).ToString()

                Dim oAddPiperunRow As DataRow = oPiperun_Dt.NewRow()

                ConvertPointBystring(sStartpoint, dOriginalStart_x, dOriginalStart_y)

                dStart_x = dOriginalStart_x

                dStart_y = dOriginalStart_y

                If ConvertPointBystring(sEndpoint, dOriginalEnd_x, dOriginalEnd_y) Then

                    dEnd_x = dOriginalEnd_x

                    dEnd_y = dOriginalEnd_y

                    '라인보정(oLine_Dt, sPipeUid, dStart_x, dStart_y, dEnd_x, dEnd_y)

                    '//Overlap 보정

                    'If FindOverlapLine(oLine_Dt, sPipeUid, dStart_x, dStart_y, dEnd_x, dEnd_y) = False Then

                    '    '//떨어진 라인 보정

                    '    Dim dSeperate_start_x As Double = dStart_x

                    '    Dim dSeperate_start_y As Double = dStart_y

                    '    Dim dSeperate_end_x As Double = dEnd_x

                    '    Dim dSeperate_end_y As Double = dEnd_y

                    '    CalcSperateLine(dSeperate_start_x, dSeperate_start_y, dSeperate_end_x, dSeperate_end_y)

                    '    If (FindOverlapLine(oLine_Dt, sPipeUid, dSeperate_start_x, dSeperate_start_y, dSeperate_end_x, dSeperate_end_y)) Then

                    '        dStart_x = dSeperate_start_x

                    '        dStart_y = dSeperate_start_y

                    '        dEnd_x = dSeperate_end_x

                    '        dEnd_y = dSeperate_end_y

                    '    End If

                    'End If

                    ConvertPointByImage(dStart_x, dStart_y, _IMG_X, _IMG_Y)

                    ConvertPointByImage(dEnd_x, dEnd_y, _IMG_X, _IMG_Y)

                    If dStart_x <> 0 And dStart_y <> 0 And dEnd_x <> 0 And dEnd_y <> 0 Then

                        Dim iConnType As Integer = ModelingLine(dStart_x, dStart_y, dEnd_x, dEnd_y, sUid)

                        If iConnType = 1 Then

                            objInputs.AddLocatedTarget(dStart_x, dStart_y)

                            objInputs.AddPoint(dEnd_x, dEnd_y)

                        ElseIf iConnType = 2 Then

                            objInputs.AddLocatedTarget(dEnd_x, dEnd_y)

                            objInputs.AddPoint(dStart_x, dStart_y)

                        ElseIf iConnType = 3 Then

                            objInputs.AddLocatedTarget(dEnd_x, dEnd_y)

                            objInputs.AddPoint(dStart_x, dStart_y)

                        ElseIf iConnType = 4 Then

                            objInputs.AddLocatedTarget(dStart_x, dStart_y)

                            objInputs.AddPoint(dEnd_x, dEnd_y)

                        Else

                            objInputs.AddPoint(dStart_x, dStart_y)

                            objInputs.AddPoint(dEnd_x, dEnd_y)

                        End If

                        objInputs.AddPoint(dStart_x, dStart_y)

                        objInputs.AddPoint(dEnd_x, dEnd_y)

                        AddModelingLine(dStart_x, dStart_y, dEnd_x, dEnd_y, sUid)

                        objItem = _Placement.PIDCreateItem(sSystempath)

                        _iPipecnt = _iPipecnt + 1

                        SetListBoxItems(ListBox_Result, "Place PipeLine..(" & dOriginalStart_x & "," & dOriginalStart_y & ") - (" & dOriginalEnd_x & "," & dOriginalEnd_y & ").." & _iPipecnt & " count ")

                        objConnector = _Placement.PIDPlaceRun(objItem, objInputs)

                        oPipeRun = oDatasource.GetPipeRun(objConnector.ModelItemID)

                        oPipeRun.Attributes("FlowDirection").Value = "End 1 is upstream (Inlet)"

                        If oAttributeRow.Length > 0 Then

                            For Each oAttribute In oAttributeRow

                                Try

                                    Dim sPIDAttribute As String = oAttribute(_XML_ATTRIBUTE_NAME).ToString()

                                    Dim sPIDValue As String = oAttribute(_XML_ATTRIBUTE_VALUE).ToString()

                                    If sPIDValue.Contains("'") Then

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

                                    End If

                                    Dim sSPPIDAttribute As String = GetAttributeMapping(sPIDAttribute, _DB_COLUMN_ATTRIBUTE_SPPID_ATTRIBUTE)

                                    oPipeRun.Attributes(sSPPIDAttribute).Value = sPIDValue

                                Catch ex As Exception

                                End Try

                            Next

                            oPipeRun.Commit()

                        End If

                        'Flow Direction 

                        'Dim sFlowDirectionPath As String = "\Piping\Labels - Piping Segments\Flow Direction.sym" 'GetDataFromMappingDB(_XML_CATEGORY_FLOWDIRECITON, _DB_COLUMN_MAPPING_SPPID_SYSTEMPATH)

                        'Dim dFlowDirectionAngle As Double = 0.0

                        'If dStart_y <> dEnd_y Then

                        '    If dStart_y > dEnd_y Then

                        '        dFlowDirectionAngle = -1.57

                        '    Else

                        '        dFlowDirectionAngle = 1.57

                        '    End If

                        'End If

                        'If dStart_x <> dEnd_x Then

                        '    If dStart_x > dEnd_x Then

                        '        dFlowDirectionAngle = 3.14

                        '    Else

                        '        dFlowDirectionAngle = 0

                        '    End If

                        'End If

                        '_Placement.PIDPlaceSymbol(sFlowDirectionPath, dEnd_x, dEnd_y, , dFlowDirectionAngle)

                    End If

                End If

                _Itemcnt = _Itemcnt + 1

                Dim dCalcProgressValue As Double = (_Itemcnt / _allItem) * 100

                SetProgressbar(ProgressBar_Status, dCalcProgressValue)

                Label_Progress.Text = Math.Round(dCalcProgressValue, 0) & "%"

                oAddPiperunRow("Piperun") = oPipeRun

                oAddPiperunRow("startx") = dOriginalStart_x

                oAddPiperunRow("starty") = dOriginalStart_y

                oAddPiperunRow("endx") = dOriginalEnd_x

                oAddPiperunRow("endy") = dOriginalEnd_y

                oPiperun_Dt.Rows.Add(oAddPiperunRow)

            End If

            Return oPipeRun

        Catch ex As Exception

            Return Nothing

        End Try

    End Function

    Private Sub AddModelingLine(ByVal dStart_x As Double, ByVal dStart_y As Double, ByVal dEnd_x As Double, ByVal dEnd_y As Double, ByVal sUid As String)

        Dim oAddRow = _DrawLine_Dt.NewRow()

        oAddRow(_XML_LINE_UID) = sUid

        oAddRow(_XML_LINE_STARTPOINT_X) = dStart_x

        oAddRow(_XML_LINE_STARTPOINT_Y) = dStart_y

        oAddRow(_XML_LINE_ENDPOINT_X) = dEnd_x

        oAddRow(_XML_LINE_ENDPOINT_Y) = dEnd_y

        _DrawLine_Dt.Rows.Add(oAddRow)

    End Sub

    Private Function ModelingLine(ByVal dStart_x As Double, ByVal dStart_y As Double, ByVal dEnd_x As Double, ByVal dEnd_y As Double, ByVal sUid As String) As Integer

        'Dim oFindRows_1 As DataRow() = _DrawLine_Dt.Select("start_x = '" & dStart_x & "' and start_y = '" & dStart_y & "' and uid <> '" & sUid & "'")

        'Dim oFindRows_2 As DataRow() = _DrawLine_Dt.Select("end_x = '" & dEnd_x & "' and end_y = '" & dEnd_y & "' and uid <> '" & sUid & "'")

        'Dim oFindRows_3 As DataRow() = _DrawLine_Dt.Select("start_x = '" & dEnd_x & "' and start_y = '" & dEnd_y & "' and uid <> '" & sUid & "'")

        'Dim oFindRows_4 As DataRow() = _DrawLine_Dt.Select("end_x = '" & dStart_x & "' and end_y = '" & dStart_y & "' and uid <> '" & sUid & "'")

        'If oFindRows_1.Length > 0 Then

        '    Return 1

        'ElseIf oFindRows_2.Length > 0 Then

        '    Return 2

        'ElseIf oFindRows_3.Length > 0 Then

        '    Return 3

        'ElseIf oFindRows_4.Length > 0 Then

        '    Return 4

        'Else

        '    Return 0

        'End If

        Return 0

    End Function

    Private Function FindConnectionPoint(ByVal dX As Double, ByVal dY As Double)

    End Function

    Private Sub PlaceEquipment(ByVal sUid As String, ByVal oSymbol_Dt As DataTable, ByVal oAttribute_Dt As DataTable)

        Try

            Dim oSymbolRow() As DataRow = oSymbol_Dt.Select(_XML_SYMBOL_UID & " = '" + sUid + "'")

            Dim oAttributeRow() As DataRow

            If oAttribute_Dt.Rows.Count > 0 Then

                oAttributeRow = oAttribute_Dt.Select(_XML_ATTRIBUTE_UID & " = '" + sUid + "'")

            End If

            If oSymbolRow.Length > 0 Then

                Dim oDatasource As Object = _Placement.PIDDataSource

                Dim sSymbolCompType As String = oSymbolRow(0)(_XML_SYMBOL_TYPE).ToString()

                Dim sSystemPath As String = oSymbolRow(0)(_XML_SYMBOL_SYSTEMPATH).ToString()

                Dim sClass As String = oSymbolRow(0)(_XML_SYMBOL_CLASS).ToString()

                Dim sLocation As String = oSymbolRow(0)(_XML_SYMBOL_LOCATION).ToString()

                Dim sOriginalPoint As String = oSymbolRow(0)(_XML_SYMBOL_ORIGINALPOINT).ToString()

                Dim dAngle As Double = 0.0

                If IsNumeric(oSymbolRow(0)(_XML_SYMBOL_ANGLE).ToString()) Then

                    dAngle = Double.Parse(oSymbolRow(0)(_XML_SYMBOL_ANGLE).ToString())

                End If

                Dim dLocationX As Double = 0.0

                Dim dLocationY As Double = 0.0

                Dim dX As Double = 0.0

                Dim dY As Double = 0.0

                If ConvertPointBystring(sOriginalPoint, dLocationX, dLocationY) Then

                    dX = dLocationX

                    dY = dLocationY

                    ConvertPointByImage(dX, dY, _IMG_X, _IMG_Y)

                    _Placement.PIDPlaceSymbol(sSystemPath, dX, dY, , dAngle)

                    SetListBoxItems(ListBox_Result, "Place Equipment..(" & dLocationX & "," & dLocationY & ")..." & _iFittingcnt & " count ")

                End If

            End If

        Catch ex As Exception

        End Try

    End Sub

    Private Sub PlacePipingOPC(ByVal sUid As String, ByVal sLineUid As String, ByVal oOPCRow As DataRow, ByVal oAttribute_Dt As DataTable)

        Try

            Dim oAttributeRow() As DataRow

            If oAttribute_Dt.Rows.Count > 0 Then

                oAttributeRow = oAttribute_Dt.Select(_XML_ATTRIBUTE_UID & " = '" + sUid + "'")

            End If

            Dim oDatasource As Object = _Placement.PIDDataSource