HYTOS

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

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

                            ConvertPoint(ox, oy, _IMG_X, _IMG_Y)

        DataGrid_Result.DataSource = New DataTable()

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

                    ConvertPoint(dX, dY, _IMG_X, _IMG_Y)

    Private Function DrawLine(ByVal sUid As String, ByVal sLineNoUid As String, ByVal oLine_Dt As DataTable, ByVal oAttribute_Dt As DataTable, ByRef iPipelinecnt As Integer) As LMPipeRun

                ConvertPoint(sStartpoint, dStart_x, dStart_y)

                If ConvertPoint(sEndpoint, dEnd_x, dEnd_y) Then

                        SetListBoxItems(ListBox_Result, "Draw PipeLine.." & iPipelinecnt & " count ")

    Private Function DrawSymbol(ByVal sUid As String, ByVal sLineNoUid As String, ByVal oSymbol_Dt As DataTable, ByVal oAttribute_Dt As DataTable, ByRef iInstrumentcnt As Integer,

                                ByRef iFittingcnt As Integer, ByRef iValvecnt As Integer) As Boolean

                If ConvertPoint(sLocation, dX, dY) Then

                        iInstrumentcnt = iInstrumentcnt + 1

                        SetListBoxItems(ListBox_Result, "Draw Instrument.." & iInstrumentcnt & " count ")

                        iValvecnt = iValvecnt + 1

                        SetListBoxItems(ListBox_Result, "Draw Valve.." & iValvecnt & " count ")

                        iFittingcnt = iFittingcnt + 1

                        SetListBoxItems(ListBox_Result, "Draw Fitting.." & iFittingcnt & " count ")

                        iFittingcnt = iFittingcnt + 1

                        SetListBoxItems(ListBox_Result, "Draw Fitting.." & iFittingcnt & " count ")

            If ConvertPoint(sLocation, dX, dY) Then

                        dLineNoLocation,, 0, LabeledItem:=representation)

    Private Function GetCheckNodeCount(ByVal oTreeNode As TreeNode) As Integer

        Dim iCheckCount As Integer = 0

        For Each oNode As TreeNode In oTreeNode.Nodes

            If oNode.Checked Then

                iCheckCount = iCheckCount + 1

            End If

        Next

        Return iCheckCount

    End Function

                            If OpenSPPID(oDwg_Dt, oDwgNode.Text) Then

                                Dim iAllLineNoCount As Integer = Tree_Result.Nodes.Count ' GetCheckNodeCount(oLinenoNode)

                                Dim iLineNoCount As Integer = 0 ' GetCheckNodeCount(oLinenoNode)

                                SetListBoxItems(ListBox_Result, "Draw " & CDrawing.DwgName & "....")

                                For Each oLinenoNode As TreeNode In oDwgNode.Nodes

                                    Dim sLineNoUid As String = oLinenoNode.Name

                                    Dim CLineNo As Line_no = GetLineNo(CDrawing, sLineNoUid)

                                    Dim iPipelinecnt As Integer = 0

                                    Dim iInstrumentcnt As Integer = 0

                                    Dim iFittingcnt As Integer = 0

                                    Dim iValvescnt As Integer = 0

                                    If CLineNo IsNot Nothing Then

                                        Dim oSymbol_Dt As DataTable = CLineNo.Dt_Symbol

                                        Dim oAttribute_Dt As DataTable = CLineNo.Dt_Attribute

                                            Dim sLineUid As String = oLineNode.Name

                                            If oLineNode.Checked Then

                                                iPipelinecnt = iPipelinecnt + 1

                                                Dim sUid As String = oLineNode.Name

                                            oPipeRun = DrawLine(sUid, sLineNoUid, oLine_Dt, oAttribute_Dt, iPipelinecnt)

                                        Next

                                            If oSymbolNode.Checked Then

                                                Dim sUid As String = oSymbolNode.Name

                                            DrawSymbol(sUid, sLineNoUid, oSymbol_Dt, oAttribute_Dt, iInstrumentcnt, iFittingcnt, iValvescnt)

                                        Next

                                    End If

                                    iLineNoCount = iLineNoCount + 1

                                    Dim dCalcProgressValue As Double = (iLineNoCount / iLineNoCount) * 100

                                    SetProgressbar(ProgressBar_Status, dCalcProgressValue)

                                Next

                            End If

    'Private Function GetModelingTable() As DataTable

    '    Dim oModeling_Dt As DataTable = Modeling_Dt()

    '    For Each oLinenoNode As TreeNode In Tree_Result.Nodes

    '        Dim sLineNoUid As String = oLinenoNode.Name

    '        For Each oLineNode As TreeNode In oLinenoNode.Nodes

    '            Dim sLineUid As String = oLineNode.Name

    '            If oLineNode.Checked Then

    '                Dim oAddRow As DataRow = oModeling_Dt.NewRow

    '                oAddRow(_XML_MODELING_UID) = oLineNode.Name

    '                oAddRow(_XML_MODELING_NAME) = _XML_CATEGORY_LINE

    '                oAddRow(_XML_MODELING_PIPELINE) = sLineNoUid

    '                oAddRow(_XML_MODELING_SYSTEMPATH) = GetDataFromMappingDB(oLineNode.Text)

    '                oModeling_Dt.Rows.Add(oAddRow)

    '            End If

    '        Next

    '        For Each oSymbolNode As TreeNode In oLinenoNode.Nodes

    '            If oSymbolNode.Checked Then

    '                Dim oAddRow As DataRow = oModeling_Dt.NewRow

    '                oAddRow(_XML_MODELING_UID) = oSymbolNode.Name

    '                oAddRow(_XML_MODELING_NAME) = _XML_CATEGORY_SYMBOL

    '                oAddRow(_XML_MODELING_PIPELINE) = sLineNoUid

    '                oAddRow(_XML_MODELING_SYSTEMPATH) = GetDataFromMappingDB(oSymbolNode.Text)

    '                oModeling_Dt.Rows.Add(oAddRow)

    '            End If

    '        Next

    '    Next

    '    Return oModeling_Dt

    'End Function

    Private Function ModelingPipe(ByVal oPipeRow As DataRow) As Boolean

        Try

            Dim lobjDatasource As Object = _Placement.PIDDataSource

            Dim datasource As LMADataSource

            datasource = _Placement.PIDDataSource

            Dim sSystempath As String = oPipeRow(_XML_MODELING_SYSTEMPATH).ToString()

            Dim objItem As LMAItem

            Dim objConnector As LMConnector

            Dim objInputs As PlaceRunInputs

            objInputs = New PlaceRunInputs

            objInputs.AddPoint(0.1, 0.1)

            objInputs.AddPoint(0.2, 0.1)

            objItem = _Placement.PIDCreateItem(sSystempath)

            objConnector = _Placement.PIDPlaceRun(objItem, objInputs)

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

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

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

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

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

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

            objPipeRun.Commit()

            Dim twopoints(2) As Double

            twopoints(1) = 0.12

            twopoints(2) = 0.11

            'Label

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

            Dim labelpersist As LMLabelPersist

            For Each representation In objPipeRun.Representations

                If representation.RepresentationType = "Connector" Then

                    labelpersist = _Placement.PIDPlaceLabel(labelName1,

                twopoints,, 0, LabeledItem:=representation)

                End If

            Next

            'labelpersist = objPlaceme

        Catch ex As Exception

            Return False

        End Try

    End Function

    Private Function GetCheckList(ByVal listviewItem As ListViewItem)

    End Function

    Private Sub newThreadFunc(ByVal state As Object)

    End Sub

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

        Dim oSettings As Settings = New Settings()

        oSettings.ShowDialog()

    End Sub

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

        Try

            _Main_trd.Abort()

        Catch ex As Exception

        End Try

    End Sub

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

    End Sub

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

        Dim objPlacement As New Placement

        'PipeLine 

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

        Dim datasource As LMADataSource

        datasource = objPlacement.PIDDataSource

        Dim PipeRunLoc As String

        Dim objItem As LMAItem

        Dim objConnector As LMConnector

        Dim objInputs As PlaceRunInputs

        Dim objSymbol As LMSymbol

        Dim InstrumentLoc As String

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

        objInputs = New PlaceRunInputs

        objInputs.AddPoint(0.1, 0.1)

        objInputs.AddPoint(0.2, 0.1)

        objItem = objPlacement.PIDCreateItem(PipeRunLoc)

        objConnector = objPlacement.PIDPlaceRun(objItem, objInputs)

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

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

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

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

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

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

        objPipeRun.Commit()

        Dim twopoints(2) As Double

        twopoints(1) = 0.12

        twopoints(2) = 0.11

        'Label

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

        Dim labelpersist As LMLabelPersist

        For Each representation In objPipeRun.Representations

            If representation.RepresentationType = "Connector" Then

                labelpersist = objPlacement.PIDPlaceLabel(labelName1,

                twopoints,, 0, LabeledItem:=representation)

            End If

        Next

        'labelpersist = objPlacement.PIDPlaceLabel(labelName1,

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

        'twopoints(1) = 0.17

        'twopoints(2) = 0.1

        'labelpersist = objPlacement.PIDPlaceLabel(labelName1,

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

        'Instrument

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

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

        Dim objInstr As LMInstrument

        objInstr = datasource.GetInstrument(objSymbol.ModelItemID)

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

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

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

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

        objInstr.Commit()

        objInputs = New PlaceRunInputs

        objInputs.AddConnectorTarget(objConnector, 0.15, 0.1)

        objInputs.AddPoint(0.15, 0.15)

        objInputs.AddPoint(0.12, 0.15)

        objInputs.AddPoint(0.12, 0.2)

        objInputs.AddPoint(0.15, 0.2)

        objInputs.AddSymbolTarget(objSymbol, 0.15, 0.3)

        objItem = objPlacement.PIDCreateItem(PipeRunLoc)

        objConnector = objPlacement.PIDPlaceRun(objItem, objInputs)

        objPipeRun = datasource.GetPipeRun(objConnector.ModelItemID)

        twopoints(1) = 0.14

        twopoints(2) = 0.22

        For Each representation In objPipeRun.Representations

            If representation.RepresentationType = "Connector" Then

                labelpersist = objPlacement.PIDPlaceLabel(labelName1,

                twopoints,, 1.57, LabeledItem:=representation)

            End If

        Next

        ' Measured Variable Code, Instr Type Modifier 

        ' TagSeqNo, TagSuffix

        'OPC

        'Valve

    End Sub

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

    End Sub

        'Dim oOpen_Xml = New LoadXml()

        'oOpen_Xml = New LoadXml()

        'oOpen_Xml.ShowDialog()

        '_XMLList = oOpen_Xml.GetCheckList()

        'LoadXmlItem()

    Private Sub LoadXmlItem()

        _DrawingsList = New List(Of Drawing)

        If Tree_Result.Nodes.Count > 0 Then

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

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

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

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

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

                Dim oDwg As Drawing = AddSymbolItem(sDwgPath, oNode)

                _DrawingsList.Add(oDwg)

            Next

            Tree_Result.Nodes(0).Expand()

        End If

    End Sub

        'Dim oLineNo_Dt As DataTable = oDwg_Ds.Tables(_XML_CATEGORY_LINENO)

        ''Type구분

        ''  Dim oParentNodeName = oParentNode.Text

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

        ''Name 별

        'For Each oNameRow In oDistinct_Name_Dt.Rows

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

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

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

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

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

        '    'Class 별

        '    For Each oClassRow In oDistinct_Class_Dt.Rows

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

        '        If sClass.Contains("'") Then

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

        '        End If

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

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

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

        '        'Item 별

        '        For Each oItemRow In oSelectClassRows

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

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

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

        '        Next

        '    Next

        'Next

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

    End Sub

    ''' <summary>

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

    ''' </summary>

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

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