HYTOS

Imports System.IO

Imports System.Data.SqlClient

Imports System.Data.SQLite

Imports Plaice

Imports Llama

Imports PidA

Public Class Main

    Dim _DB As DataTable = New DataTable()

    Dim _Placement As New Placement

    Dim _DWG_X = 0.84 '0.695 '1 '

    Dim _DWG_Y = 0.594 '0.585 '0.8 '

    Dim _IMG_X = 0

    Dim _IMG_Y = 0

    'Drawing 전역변수

    Dim _objPIDADrawing As Object

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

        Dim sDBPath As String = "C:\Users\kyusu\Desktop\Auto SPPID 변환 프로젝트\PID.db"

        LoadDB(sDBPath)

        SetUpListViewColumns()

        LoadTree()

        ' TestOpen()

    End Sub

    Private Sub LoadTree()

        Dim i As Integer

        Dim j() As String

        j = Directory.GetLogicalDrives

        For i = 0 To UBound(j)

            Dim cdrive As System.IO.DriveInfo

            cdrive = My.Computer.FileSystem.GetDriveInfo(j(i).ToString)

            Select Case cdrive.DriveType

                Case DriveType.Fixed

                    Tree_XMLFiles.Nodes.Add(j(i), j(i).ToString, 3)

                Case DriveType.CDRom

                    Tree_XMLFiles.Nodes.Add(j(i), j(i).ToString, 11)

                Case DriveType.Network

                    Tree_XMLFiles.Nodes.Add(j(i), j(i).ToString, 5)

                Case DriveType.Removable

                    Tree_XMLFiles.Nodes.Add(j(i), j(i).ToString, 12)

            End Select

        Next

    End Sub

    Private Sub SetUpListViewColumns()

        ' TODO: Add code to set up listview columns

        ListView_File.Columns.Add("  Name ")

        '   ListView_File.Columns.Add(" Size  ")

        '    ListView_File.Columns.Add(" Extension  ")

        ListView_File.Columns.Add(" Date Modified  ")

        SetView(View.Details)

    End Sub

    Private Sub SetView(ByVal View As System.Windows.Forms.View)

        'Figure out which menu item should be checked

        'Dim MenuItemToCheck As ToolStripMenuItem = Nothing

        'Select Case View

        '    Case View.Details

        '        MenuItemToCheck = DetailsToolStripMenuItem

        '    Case View.LargeIcon

        '        MenuItemToCheck = LargeIconsToolStripMenuItem

        '    Case View.List

        '        MenuItemToCheck = ListToolStripMenuItem

        '    Case View.SmallIcon

        '        MenuItemToCheck = SmallIconsToolStripMenuItem

        '    Case View.Tile

        '        MenuItemToCheck = TileToolStripMenuItem

        '    Case Else

        '        Debug.Fail("Unexpected View")

        '        View = View.Details

        '        MenuItemToCheck = DetailsToolStripMenuItem

        'End Select

        ''Check the appropriate menu item and deselect all others under the Views menu

        'For Each MenuItem As ToolStripMenuItem In ListViewToolStripButton.DropDownItems

        '    If MenuItem Is MenuItemToCheck Then

        '        MenuItem.Checked = True

        '    Else

        '        MenuItem.Checked = False

        '    End If

        'Next

        'Finally, set the view requested

        ListView_File.View = View.Details

    End Sub

    Private Sub Btn_FolderPath_Click(sender As Object, e As EventArgs)

        Dim oOpenFolderDlg = New FolderBrowserDialog()

        Dim result As DialogResult = oOpenFolderDlg.ShowDialog()

        Dim sFolderName As String = ""

        If (result = DialogResult.OK) Then

            sFolderName = oOpenFolderDlg.SelectedPath

            '    Txt_FolderPath.Text = sFolderName

            InitXMLTree(sFolderName)

        End If

    End Sub

    Private Sub InitXMLTree(ByVal sFolderPath As String)

        Tree_XMLFiles.Nodes.Clear()

        Dim oRootNode As TreeNode = Tree_XMLFiles.Nodes.Add("XML")

        '.XML 만 로드

        Dim sfileEntries As String() = Directory.GetFiles(sFolderPath, "*.xml")

        ' Process the list of files found in the directory.

        Dim sfileName As String

        For Each sfileName In sfileEntries

            oRootNode.Nodes.Add(sfileName)

        Next sfileName

        oRootNode.ExpandAll()

    End Sub

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

            'objPIDAutoApp.WindowState = 2  'pidWindowStateMaximized

            'Dim oItems As Object 'LMAItems

            'Dim objItem As Object 'LMAItem

            'Dim objItems As Object 'LMAItems

            ''Collec items

            'objItems = CreateObject("Llama.LMAItems", "")

            'oItems = CreateObject("Llama.LMAItems", "")

            'For i = 0 To itemList.Count - 1

            '    itemData = itemList.Item(i)

            '    itemType = itemData.itemType

            '    spid = itemData.spid

            '    oItems = GetLMAItemsForDrawing(itemType, spid, drawingInfo.mSpID)

            '    If Not oItems Is Nothing Then

            '        objItems.AddCollection(oItems)

            '    End If

            'Next

            'Dim objSPPIDApp As Object 'SmartPlantPID.Application

            'Dim radApp As Object

            'Dim objReturnGraphics As Collection

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

            'radApp = objSPPIDApp.RADApplication

            'If objItems.Count > 0 Then

            '    '---------------------------------------------------------

            '    'Start dealing with graphic

            '    '---------------------------------------------------------

            '    'translate LMAItem to Graphic object

            '    'if LMAItem is a piperun, connector graphic object will be returned

            '    objReturnGraphics = New Collection

            '    '     IncrementProgressBar objProgressBar, "Translate need To be highlighted LMAItems To graphic Object..."

            '    'For Each objItem In objItems

            '    '    objReturnGraphics = GetGraphicsFromLMAItem(objItem, radApp.ActiveDocument.ActiveSheet, drawingInfo.mDrawingName)

            '    '    For Each objGraphic In objReturnGraphics

            '    '        blnGraphic = True

            '    '        'add graphic object to Rad2d.ActiveSelectSet

            '    '        radApp.ActiveSelectSet.Add(objGraphic)

            '    '        'If Err.Number <> 0 Then

            '    '        '    If Err.Number = CONST_ErrNumber457 Then

            '    '        '        Err.Clear()

            '    '        '    Else

            '    '        '        GoTo errorHandler

            '    '        '    End If

            '    '        'End If

            '    '    Next

            '    'Next

            '    'If Not blnGraphic Then

            '    '    Debug.WriteLine("Items are In drawing stockpile, use EDE to view.")

            '    'Else

            '    '    Debug.WriteLine("Complete!   " & objItems.Count & " items are highled in drawing:  " & spid)

            '    'End If

            'Else

            'End If

            ''    radApp.ActiveWindow.Repaint

            'objpidauto.ActiveWindow.Fit()

            'sPlantGroupName = "8121-7"

            ''PlantGroupName = "8121-1"

            ''PlantGroupName = "Unit01"

            ''considering accessing T_OptinSetting to read the template files path, which will be more flexible

            'DrawingNumber = "Test"

            'DrawingName = "Test"

            'objPIDADrawing = objPIDAutoApp.Drawings.Add(sPlantGroupName, sTemplateName, DrawingNumber, DrawingName)

            'If Not objPIDADrawing Is Nothing Then

            '    '이미 오픈

            '    objPIDADrawing.CloseDrawing

            'End If

            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

    '    Public Function GetGraphicsFromLMAItem(ByVal objItem As Llama.LMAItem, ByVal objSheet As Object, ByVal strDrawingName As String) As Collection

    '        On Error GoTo errorHandler

    '        Dim strError As String

    '        Dim objGraphic As Object

    '        Dim strGraphicOID As String

    '        Dim strGraphicName As String

    '        Dim objRep As Object 'LMRepresentation

    '        Dim strName As String

    '        GetGraphicsFromLMAItem = New Collection

    '        'label is special, because label is a representation, different from other items

    '        If objItem.ItemType = CONST_LabelPersist Then

    '            If Not mDataSource.GetLabelPersist(objItem.Id).AsLMRepresentation Is Nothing Then

    '                If mDataSource.GetLabelPersist(objItem.Id).AsLMRepresentation.ItemStatus = CONST_Active And Not mDataSource.GetLabelPersist(objItem.Id).AsLMRepresentation.DrawingObject Is Nothing Then

    '                    If mDataSource.GetLabelPersist(objItem.Id).AsLMRepresentation.DrawingObject.Attributes("Name").Value = strDrawingName Then

    '                        If mDataSource.GetLabelPersist(objItem.Id).AsLMRepresentation.GraphicOID Is Nothing Then

    '                            'RaiseError 2000, "Label GraphicOID is NULL"

    '                            'ignore it

    '                        Else

    '                            strGraphicOID = mDataSource.GetLabelPersist(objItem.Id).AsLMRepresentation.GraphicOID

    '                            strGraphicName = "xxx " & strGraphicOID

    '                            objGraphic = objSheet.DrawingObjects(strGraphicName)

    '                            If Not objGraphic Is Nothing Then

    '                                'to ensure not get a graphic is in other drawings

    '                                'sometime, if the graphic object is in other drawing,

    '                                'set objgraphic=objsheet.drawingobjects(strgraphicname)

    '                                'is not returning nothing, but when you try to add it,

    '                                'you will get an error

    '                                On Error Resume Next

    '                                strName = objGraphic.Name

    '                                If Err.Number = 0 Then

    '                                    GetGraphicsFromLMAItem.Add(objGraphic)

    '                                End If

    '                                On Error GoTo errorHandler

    '                            End If

    '                        End If

    '                    End If

    '                End If

    '            End If

    '        Else

    '            'else, any items other than label

    '            'Piperun is special, we want to break down piperun to connector as drawing graphic

    '            If mDataSource.GetModelItem(objItem.Id).ItemTypeName = "PipeRun" Then

    '                For Each objRep In mDataSource.GetModelItem(objItem.Id).Representations

    '                    If objRep.ItemStatus = CONST_Active And Not objRep.DrawingObject Is Nothing Then

    '                        If objRep.DrawingObject.Attributes("Name").Value = strDrawingName Then

    '                            If objRep.RepresentationType = "Connector" Then

    '                                If objRep.GraphicOID Is Nothing Then

    '                                    'RaiseError 2000, "Connector GraphicOID is NULL"

    '                                Else

    '                                    strGraphicOID = objRep.GraphicOID

    '                                    strGraphicName = "xxx " & strGraphicOID

    '                                    objGraphic = objSheet.DrawingObjects(strGraphicName)

    '                                    If Not objGraphic Is Nothing Then

    '                                        'to ensure not get a graphic is in other drawings

    '                                        On Error Resume Next

    '                                        strName = objGraphic.Name

    '                                        If Err.Number = 0 Then

    '                                            GetGraphicsFromLMAItem.Add(objGraphic)

    '                                        End If

    '                                        On Error GoTo errorHandler

    '                                    End If

    '                                End If

    '                            End If

    '                        End If

    '                    End If

    '                Next

    '            Else

    '                If Not mDataSource.GetModelItem(objItem.Id) Is Nothing Then

    '                    For Each objRep In mDataSource.GetModelItem(objItem.Id).Representations

    '                        'if it is a multiple representation, only check active representation's GraphicOID

    '                        If objRep.ItemStatus = CONST_Active And Not objRep.DrawingObject Is Nothing Then

    '                            If objRep.DrawingObject.Attributes("Name").Value = strDrawingName Then

    '                                If objRep.GraphicOID Is Nothing Then

    '                                    'RaiseError 2000, "GraphicOID is NULL"

    '                                Else

    '                                    strGraphicOID = objRep.GraphicOID

    '                                    strGraphicName = "xxx " & strGraphicOID

    '                                    objGraphic = objSheet.DrawingObjects(strGraphicName)

    '                                    If Not objGraphic Is Nothing Then

    '                                        'to ensure not get a graphic is in other drawings

    '                                        On Error Resume Next

    '                                        strName = objGraphic.Name

    '                                        If Err.Number = 0 Then

    '                                            GetGraphicsFromLMAItem.Add(objGraphic)

    '                                        End If

    '                                        On Error GoTo errorHandler

    '                                    End If

    '                                End If

    '                            End If

    '                        End If

    '                    Next

    '                End If

    '            End If

    '        End If

    '        Exit Function

    'errorHandler:

    '        strError = " - error happened when " & strError & " @ Function cLMAItemGraphicTranslate::GetGraphicsFromLMAItem"

    '        Debug.WriteLine(strError)

    '    End Function

#Region "Load Pipe"

    Private Function LoadPipe_DT() As DataTable

        Dim oDt As New DataTable

        oDt.Columns.Add("start_x")

        oDt.Columns.Add("start_y")

        oDt.Columns.Add("end_x")

        oDt.Columns.Add("end_y")

        oDt.Columns.Add("Symbol")

        Return oDt

    End Function

#End Region

#Region "Load Symbol"

    Private Function LoadSymbol_DT() As DataTable

        Dim oDt As New DataTable

        oDt.Columns.Add("Name")

        oDt.Columns.Add("x")

        oDt.Columns.Add("y")

        oDt.Columns.Add("Angle")

        oDt.Columns.Add("Symbol")

        oDt.Columns.Add("Text")

        Return oDt

    End Function

#End Region

    Private Function GetSymbolMapping(ByVal oSymbolName As String) As String

        Dim oSystemPath As String = ""

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

        If oSelectRow.Length = 1 Then

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

        End If

        Return oSystemPath

    End Function

    Private Function LoadSymbolInXml(ByVal sXmlPath As String) As DataTable

        Dim oDt As DataTable = LoadSymbol_DT()

        Dim oElement As XElement = XElement.Load(sXmlPath)

        If oElement IsNot Nothing Then

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

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

                    Dim oAddrow As DataRow = oDt.NewRow()

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

                    Dim oSymbol = oObj.Value

                    oObj = page.Element("TEXT")

                    Dim oText = oObj.Value

                    oObj = page.Element("CLASS")

                    Dim oClass = oObj.Value

                    oObj = page.Element("TYPE")

                    Dim oType = oObj.Value

                    oObj = page.Element("ITEM")

                    Dim oItem = oObj.Value

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

                    Dim oSymbolPath As String = GetSymbolMapping(oItem)

                    oObj = page.Element("ORIGINALPOINT")

                    Dim sOriginPoint = oObj.Value

                    oObj = page.Element("ANGLE")

                    Dim oAngle = oObj.Value

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

                    Dim oX As Double = 0.0

                    Dim oY As Double = 0.0

                    If IsNumeric(oSplitPos(0)) Then

                        oX = Double.Parse(oSplitPos(0))

                    End If

                    If IsNumeric(oSplitPos(1)) Then

                        oY = Double.Parse(oSplitPos(1))

                    End If

                    ConvertPoint(oX, oY, _DWG_X, _DWG_Y)

                    oAddrow("X") = oX '+ 0.05

                    oAddrow("Y") = oY

                    oAddrow("Angle") = oAngle

                    oAddrow("Symbol") = oSymbolPath

                    oAddrow("Text") = oText

                    oAddrow("Name") = oSymbol

                    oDt.Rows.Add(oAddrow)

                Next

            Next

        End If

    End Function

    Private Function LoadPipeInXml(ByVal sXmlPath As String) As DataTable

        Try

            Dim oDt As DataTable = LoadPipe_DT()

            Dim oElement As XElement = XElement.Load(sXmlPath)

            If oElement IsNot Nothing Then

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

                Dim DWGNAME = DWGElement.Value

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

                Dim sSize = sXY.Value

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

                If IsNumeric(oSplitDWGPos(0)) Then

                    _IMG_X = Double.Parse(oSplitDWGPos(0))

                End If

                If IsNumeric(oSplitDWGPos(1)) Then

                    _IMG_Y = Double.Parse(oSplitDWGPos(1))

                End If

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

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

                        Dim oAddrow As DataRow = oDt.NewRow()

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

                        Dim oItem = oObj.Value

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

                        Dim oSymbolPath As String = GetSymbolMapping(oItem)

                        oObj = pipe.Element("START")

                        Dim oStartPoint = oObj.Value

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

                        Dim oStartpos_X As Double = 0.0

                        Dim oStartpos_Y As Double = 0.0

                        If IsNumeric(oSplitPos(0)) Then

                            oStartpos_X = Double.Parse(oSplitPos(0))

                        End If

                        If IsNumeric(oSplitPos(1)) Then

                            oStartpos_Y = Double.Parse(oSplitPos(1))

                        End If

                        ConvertPoint(oStartpos_X, oStartpos_Y, _DWG_X, _DWG_Y)

                        oObj = pipe.Element("END")

                        Dim oEndPoint = oObj.Value

                        oSplitPos = oEndPoint.Split(",")

                        Dim oEndpos_X As Double = 0.0

                        Dim oEndpos_Y As Double = 0.0

                        If IsNumeric(oSplitPos(0)) Then

                            oEndpos_X = Double.Parse(oSplitPos(0))

                        End If

                        If IsNumeric(oSplitPos(1)) Then

                            oEndpos_Y = Double.Parse(oSplitPos(1))

                        End If

                        ConvertPoint(oEndpos_X, oEndpos_Y, _DWG_X, _DWG_Y)

                        oAddrow("start_x") = oStartpos_X '+ 0.05

                        oAddrow("start_y") = oStartpos_Y

                        oAddrow("end_x") = oEndpos_X

                        oAddrow("end_y") = oEndpos_Y

                        oAddrow("Symbol") = oSymbolPath

                        oDt.Rows.Add(oAddrow)

                    Next

                Next

            End If

            Return oDt

        Catch ex As Exception

            Return Nothing

        End Try

    End Function

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

        Dim calcx As Double = 0

        Dim calcy As Double = 0

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

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

        dX = calcx

        dY = calcy

    End Sub

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

        Dim iSymbolcount = 0

        Dim datasource As LMADataSource

        datasource = _Placement.PIDDataSource

        Dim iPipecnt As Integer = 0

        For Each oRow As DataRow In oPipe_Dt.Rows

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

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

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

            Dim objConnector As LMConnector

            Dim objInputs As PlaceRunInputs

            objInputs = New PlaceRunInputs

            Dim oDwg_x As Double = 9933

            Dim oDwg_y As Double = 7016

            For Each sposition As String In oSplitStr

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

                If (opointstr.Length > 1) Then

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

                        Dim ox As Double = opointstr(0)

                        Dim oy As Double = opointstr(1)

                        ConvertPoint(ox, oy, oDwg_x, oDwg_y)

                        objInputs.AddPoint(ox, oy)

                    End If

                End If

            Next

            Dim objItem As LMAItem

            objItem = _Placement.PIDCreateItem(oSymbol)

            objConnector = _Placement.PIDPlaceRun(objItem, objInputs)

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

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

            'objPipeRun.Commit()

            iPipecnt = iPipecnt + 1

        Next

        For Each oRow As DataRow In oSymbol_Dt.Rows

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

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

            Dim oText As String = oRow("Text").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 oSymbol <> "" Then

                If oType = "INSTRUMENT" Then

                    Dim sTagsuffix As String = ""

                    Dim sTagSequenceNo As String = ""

                    Dim sMeasuredVariableCode As String = ""

                    Dim sInstrumentTypeModifier As String = ""

                    If oText <> "" Then

                        If oText.Contains(",") Then

                            Dim splitstr() As String = oText.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(oText, 1, 1)

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

                        End If

                    End If

                    Dim objInstrSym As LMSymbol

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

                    Dim objInstr As LMInstrument

                    objInstr = datasource.GetInstrument(objInstrSym.ModelItemID)

                    Dim objItem As LMAItem

                    objItem = _Placement.PIDCreateItem(oSymbol)

                    'Dim objInstrClass As LMInstrument

                    'objInstrClass = datasource.GetInstrument(objItem.Id)

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

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

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

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

                    objInstr.Commit()

                    'objItem = objPlacement.PIDCreateItem(oSymbol)

                    'Dim objInstrLoop As LMInstrLoop

                    'objInstrLoop = datasource.GetInstrLoop(objItem.Id)

                    'objInstrLoop.Commit()

                ElseIf oType = "GATE VALVE WITH PLUG" Then

                ElseIf oType = "MEDIUM 1D 1TO1" Then

1:

                Else

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

                End If

                iSymbolcount = iSymbolcount + 1

            Else

            End If

        Next

        'For Each oRow As DataRow In oPipe_Dt.Rows

        '    Dim oSymbol As String = oRow("Symbol").ToString()

        '    Dim oStartPos_x As Double = 0.0

        '    Dim oStartPos_y As Double = 0.0

        '    Dim oEndPos_x As Double = 0.0

        '    Dim oEndPos_y As Double = 0.0

        '    If IsNumeric(oRow("start_x").ToString()) Then

        '        oStartPos_x = Double.Parse(oRow("start_x").ToString())

        '    End If

        '    If IsNumeric(oRow("start_y").ToString()) Then

        '        oStartPos_y = Double.Parse(oRow("start_y").ToString())

        '    End If

        '    If IsNumeric(oRow("end_x").ToString()) Then

        '        oEndPos_x = Double.Parse(oRow("end_x").ToString())

        '    End If

        '    If IsNumeric(oRow("end_y").ToString()) Then

        '        oEndPos_y = Double.Parse(oRow("end_y").ToString())

        '    End If

        '    Dim objConnector As LMConnector

        '    Dim objInputs As PlaceRunInputs

        '    objInputs = New PlaceRunInputs

        '    objInputs.AddPoint(oStartPos_x, oStartPos_y)

        '    objInputs.AddPoint(oEndPos_x, oEndPos_y)

        '    Dim objItem As LMAItem

        '    objItem = objPlacement.PIDCreateItem(oSymbol)

        '    objConnector = objPlacement.PIDPlaceRun(objItem, objInputs)

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

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

        '    'objPipeRun.Commit()

        '    pipecnt = pipecnt + 1

        'Next

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

    End Function

    Private Sub Tree_XMLFiles_AfterCheck(sender As Object, e As TreeViewEventArgs) Handles Tree_XMLFiles.AfterCheck

        If e.Node.Checked = True Then

            For Each oNode As TreeNode In e.Node.Nodes

                oNode.Checked = True

            Next

        Else

            For Each oNode As TreeNode In e.Node.Nodes

                oNode.Checked = False

            Next

        End If

    End Sub

    Private Sub LoadDB(ByVal sDBPath As String)

        Try

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

            Dim conn As SQLiteConnection = New SQLiteConnection(sConnectionstring)

            conn.Open()

            Dim sQuery As String = "Select * from Mapping"

            Dim cmd As SQLiteCommand = conn.CreateCommand()

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

            Dim oDataSet As DataSet = New DataSet()

            adapter.Fill(oDataSet)

            _DB = oDataSet.Tables(0)

        Catch ex As Exception

        End Try

    End Sub

    Dim first_start As Boolean = False

    Dim folders_path As String

    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)

        ''be careful ! displayfils comes BEFORE you change // to / in 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

    Sub displayfiles(ByVal path As String)

        Dim lvItem As ListViewItem

        ListView_File.Items.Clear()

        Me.ToolStripProgressBar1.Visible = True

        ' lvItem = ListView.Items.Add("ListViewItem1")

        '   lvItem.SubItems.AddRange(New String() {"Size", "extention", "date modified"})

        Dim filename As String

        On Error GoTo wwq

        ' Directory.GetFiles(path).Length.

        Me.ToolStripProgressBar1.Maximum = Directory.GetFiles(path).Length + 1

        Me.ToolStripProgressBar1.Value = 0

        For Each filename In Directory.GetFiles(path)

            On Error GoTo wwq

            Dim jj_ = filename.LastIndexOf("\")

            Dim jj1_ = filename.Length - jj_

            Dim fil = filename.Substring((jj_ + 1), (jj1_ - 1))

            If fil.Contains(".xml") Then

                Me.ToolStripProgressBar1.Value = Me.ToolStripProgressBar1.Value + 1

                ' ListView.Items.Add(fil, 13) ''old 13 28

                lvItem = ListView_File.Items.Add(fil, 13) '2 5 7 work, 0 alos

                Dim infoReader As System.IO.FileInfo

                infoReader = My.Computer.FileSystem.GetFileInfo(filename)

                '    lvItem.SubItems.AddRange(New String() {infoReader.Length.ToString + " Byte", infoReader.Extension.ToString, infoReader.LastWriteTime})

                lvItem.SubItems.AddRange(New String() {infoReader.LastWriteTime})

                ListView_File.AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent)

            End If

        Next

        Me.ToolStripProgressBar1.Visible = False

        Exit Sub

wwq:

        Me.ToolStripProgressBar1.Visible = False

        MsgBox(Err.Description)

    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

        Dim oDt As DataTable = Drawing_Dt()

        _objPIDADrawing = CreateObject("PIDAutomation.Application")

        For Each objDrawing In _objPIDADrawing.Drawings

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

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

            Dim oAddRow As DataRow = oDt.NewRow()

            oAddRow("Name") = sName

            oAddRow("Path") = sPath

            oDt.Rows.Add(oAddRow)

        Next

        Return oDt

    End Function

    Private Sub TestOpen()

        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 Sub

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

        If ListView_File.Items.Count > 0 Then

            Dim oDwg_Dt As DataTable = LoadAllDrawing()

            For Each oItem As ListViewItem In ListView_File.Items

                If oItem.Checked Then

                    Dim sDwgName As String = oItem.Text

                    Dim sDwgNo As String = oItem.Text

                    Dim oDwgPath As String = ""

                    oDwgPath = Tree_XMLFiles.SelectedNode.FullPath + "\" + sDwgName

                    Dim oPipe_Dt As DataTable = Nothing 'LoadPipeInXml(oDwgPath)

                    Dim oSymbol_Dt As DataTable = LoadSymbolInXml(oDwgPath)

                    '도면 생성

                    If CreateDwg(sDwgName) Then

                        'AutoConverting

                        AutoConverting(oPipe_Dt, oSymbol_Dt)

                    End If

                End If

            Next

        End If

    End Sub

End Class