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

    Dim _Placement As New Placement

    Dim _DWG_X = 0.84 '0.695 '1 '

    Dim _DWG_Y = 0.594 '0.585 '0.8 '

    Dim _IMG_X = 0

    Dim _IMG_Y = 0

    Dim _Unit As String

    'Drawing 전역변수

    Dim _objPIDADrawing As Object

    '현재선택한 폴더경로

    Dim _selectFolderPath As String

    Private _Main_trd As Thread

    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 Sub Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load

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

            Dim sDBPath As String = My.Settings.DBPath

            _Mapping_DB = Load_DB(sDBPath, _DB_TABLE_MAPPING)

            _Attribute_DB = Load_DB(sDBPath, _DB_TABLE_ATTRIBUTE)

            'TestPID()

        Else

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

        End If

    End Sub

    Public Function GetDrawingInfo(ByVal errorList As ArrayList)

        Dim ds As Llama.LMADataSource

        ds = New Llama.LMADataSource

        Dim lmaItem As Llama.LMAItem

        For i = 0 To errorList.Count - 1

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

            Dim drawingInfo As DrawingInfo

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

            errorList.Item(i).m_LMAItem = lmaItem

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

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

        Next

    End Function

    Private mDataSource As Object

    'Public Sub New()

    '    '  mDataSource.ProjectNumber = m_Information.InfoSite.SiteName

    '    '   mDataSource.SiteNode = m_Information.InfoProject.ProjectINI

    '    'm_Information = SPPIDClass.Information.GetInstance()

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

    '    '    'SPPID4.3용

    '    '    mDataSource.ProjectNumber = m_Information.InfoSite.SiteName

    '    'Else

    '    '    'SPPID2007, SPPID2009용

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

    '    'End If

    '    '  mDataSource.SiteNode = m_Information.InfoProject.ProjectINI

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

    '    '#If LATE_BINDING Then

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

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

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

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

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

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

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

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

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

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

    '    '#Else

    '    '        mInstruments = New Llama.LMInstruments

    '    '        mPipingComps = New Llama.LMPipingComps

    '    '        mVessels = New Llama.LMVessels

    '    '        mDrawings = New Llama.LMDrawings

    '    '        mEquipments = New Llama.LMEquipments

    '    '        mExchangers = New Llama.LMExchangers

    '    '        mMechanicals = New Llama.LMMechanicals

    '    '        mNozzles = New Llama.LMNozzles

    '    '        mPipeRuns = New Llama.LMPipeRuns

    '    '        mEquipmentOthers = New Llama.LMEquipmentOthers

    '    '#End If

    'End Sub

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

        Dim objFilter As Object

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

        Dim drawingInfo As DrawingInfo

        drawingInfo = New DrawingInfo

        objFilter.Criteria.AddNew("FirstOne")

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

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

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

        objFilter.Criteria.AddNew("SecondOne")

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

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

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

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

        objFilter.ItemType = itemType

        Dim PlantItems As Object

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

        PlantItems.Collect(mDataSource, Filter:=objFilter)

        If PlantItems.Count = 0 Then

            drawingInfo.mSpID = "PlantStockpile"

        End If

        For Each PlantItem In PlantItems

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

            Try

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

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

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

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

            Catch ex As Exception

            End Try

            'End If

        Next

        Return drawingInfo

    End Function

    Private Sub TestPID()

        Try

            Dim datasource As LMADataSource

            Dim objPIDAutoApp As Object

            Dim objPIDADrawing As Object

            Dim objDrawing As LMDrawing

            Dim objDrawings As LMDrawings

            datasource = New LMADataSource

            Dim oObj As Object = Nothing

            objDrawing = datasource.GetDrawing(oObj)

            objDrawings = New LMDrawings

            objDrawings.Collect(datasource)

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

            For Each objDrawing In objDrawings

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

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

                    If Not objPIDADrawing Is Nothing Then

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

                        objPIDADrawing.CloseDrawing

                    End If

                End If

            Next

            objPIDAutoApp.Quit

            objPIDAutoApp = Nothing

            objPIDADrawing = Nothing

            objDrawing = Nothing

            objDrawings = Nothing

        Catch ex As Exception

        End Try

    End Sub

    Public Function SetActiveSiteFromConfigInfo(ByVal strActiveSite As String) As Boolean

        On Error GoTo errHandler

        Dim objConfigInfo As Object 'interopigrConfigInfo412.igrConfigInfo

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

        If Not objConfigInfo Is Nothing Then

            objConfigInfo.ApplicationName = "SmartPlantManager"

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

            SetActiveSiteFromConfigInfo = True

        End If

        objConfigInfo = Nothing

        Exit Function

errHandler:

        '    LogAndRaiseError ModuleName & "::GetConfigInfo "

    End Function

    Private Function CreateDwg(ByVal oDwgName As String) As Boolean

        Dim objPIDADrawing As Object = Nothing

        Dim objPIDAutoApp As Object = Nothing

        Dim datasource As LMADataSource = Nothing

        Try

            Dim DrawingNumber As String

            Dim DrawingName As String

            Dim sPlantGroupName As String = "Test"

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

            Dim objDrawing As LMDrawing

            Dim objDrawings As LMDrawings

            objDrawings = New LMDrawings

            datasource = New LMADataSource

            Debug.Print(datasource.ProjectNumber)

            Debug.Print(datasource.SiteNode)

            Debug.Print(datasource.IsSatellite)

            Debug.Print(datasource.GetSystemEditingToolbarSetting)

            objDrawings.Collect(datasource)

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

            objPIDAutoApp = CreateObject("PIDAutomation.Application")

            For Each objDrawing In objDrawings

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

                    objPIDADrawing = objPIDAutoApp.Drawings.OpenDrawing(sPath)

                    If Not objPIDADrawing Is Nothing Then

                        objPIDADrawing.CloseDrawing

                    End If

                End If

            Next

            Dim extension As String = Path.GetExtension(oDwgName)

            oDwgName = oDwgName.Replace(extension, "")

            objPIDAutoApp = CreateObject("PIDAutomation.Application")

            'For Each objDrawing In objPIDAutoApp.Drawings

            '    objDrawing.CloseDrawing(True)

            'Next

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

            objPIDAutoApp.ActiveWindow.Fit()

            Return True

        Catch ex As Exception

            If objPIDADrawing IsNot Nothing Then

                objPIDADrawing.CloseDrawing

            End If

            If objPIDAutoApp IsNot Nothing Then

                objPIDAutoApp.Quit

            End If

            datasource = Nothing

            objPIDAutoApp = Nothing

            objPIDADrawing = Nothing

            Return False

        End Try

        If objPIDADrawing IsNot Nothing Then

            objPIDADrawing.CloseDrawing

        End If

    End Function

    Private Function GetDataFromMappingDB(ByVal sSymbolName As String, ByVal sColumn As String) As String

        Dim sValue As String = ""

        If _Mapping_DB.Rows.Count > 0 Then

            Dim oSelectRow() As DataRow = _Mapping_DB.Select("[pid_symbolname] = '" + sSymbolName + "'")

            If oSelectRow.Length = 1 Then

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

            End If

        End If

        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

    Private Function LoadSymbolInXml(ByVal sXmlPath As String) As Drawing

        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)

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

                Dim CLineNo As Line_no = New Line_no()

                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 = GetDataFromMappingDB(_XML_CATEGORY_LINENO, _DB_COLUMN_MAPPING_SPPID_SYSTEMPATH)

                Dim oLine_Dt As DataTable = Line_Dt()

                Dim oSymbol_Dt As DataTable = Symbol_Dt()

                Dim oAttribute_Dt As DataTable = Attribute_Dt()

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

                    Dim oAddrow As DataRow = oLine_Dt.NewRow()

                    Dim oEleObj As XElement

                    Dim sUid As String

                    Dim sStartpoint As String

                    Dim sEndpoint As String

                    oEleObj = oLine.Element(_XML_LINE_UID)

                    sUid = oEleObj.Value

                    oEleObj = oLine.Element(_XML_LINE_STARTPOINT)

                    sStartpoint = oEleObj.Value

                    oEleObj = oLine.Element(_XML_LINE_ENDPOINT)

                    sEndpoint = 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)

                    oLine_Dt.Rows.Add(oAddrow)

                Next

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

                    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_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

                    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

                    oSymbol_Dt.Rows.Add(oAddrow)

                Next

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

                    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)

                Next

                CLineNo.Dt_Line = oLine_Dt

                CLineNo.Dt_Symbol = oSymbol_Dt

                CLineNo.Dt_Attribute = oAttribute_Dt

                'For Each oSymbol As Object In oLineNo.Elements(_XML_CATEGORY_SYMBOL)

                '    Dim oAddrow As DataRow = oDt.NewRow()

                '    Dim oObj As XElement = oSymbol.Element(_XML_SYMBOL_NAME)

                '    Dim oName As String = oObj.Value

                '    oObj = oSymbol.Element(_XML_SYMBOL_UID)

                '    Dim oUid = oObj.Value

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

                '    Dim oSymbolPath As String = GetSymbolMapping(oName)

                '    oObj = oSymbol.Element(_XML_SYMBOL_LOCATION)

                '    Dim sOriginPoint = oObj.Value

                '    oObj = oSymbol.Element(_XML_SYMBOL_ANGLE)

                '    Dim oAngle = oObj.Value

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

                '    Dim oX As Double = 0.0

                '    Dim oY As Double = 0.0

                '    If IsNumeric(oSplitPos(0)) Then

                '        oX = Double.Parse(oSplitPos(0))

                '    End If

                '    If IsNumeric(oSplitPos(1)) Then

                '        oY = Double.Parse(oSplitPos(1))

                '    End If

                '    ConvertPoint(oX, oY, _IMG_X, _IMG_Y)

                '    oAddrow("x") = oX '+ 0.05

                '    oAddrow("Y") = oY

                '    oAddrow("Angle") = oAngle

                '    oAddrow("SystemPath") = oSymbolPath

                '    oAddrow("Name") = oName

                '    oAddrow("uid") =

                '    oDt.Rows.Add(oAddrow)

                'Next

                oLineno_list.Add(CLineNo)

            Next

            CDrawing.Line_nos = oLineno_list

        End If

        Return CDrawing

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

        _Main_trd.IsBackground = True

        _Main_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