HYTOS

    Dim _ModelingLine_Dt As New DataTable()

            If Math.Abs(dStart_x - dEnd_x) <= 15 Then

            If Math.Abs(dStart_y - dEnd_y) <= 20 Then

                CheckConnectionLine(dConn1_x, dConn1_y, oStartLMConnector)

                CheckConnectionLine(dConn2_x, dConn2_y, oEndLMConnector)

            Dim oCurrentLMConnector As LMConnector = Nothing

            'If oStartLMConnector IsNot Nothing And oEndLMConnector IsNot Nothing Then

            '    '라인을 센터점에 먼저그리기

            '    'If dConn1_x <> dConn2_x And dConn1_y <> dConn2_y Then

            '    '    'Angle Valve

            '    '    '라인두개 긋기

            '    '    objInputs.Clear()

            '    '    '   objInputs.AddPoint(dConn1_x, dConn1_y)

            '    '    objInputs.AddConnectorTarget(oStartLMConnector, dConn1_x, dConn1_y)

            '    '    objInputs.AddPoint(dOriginal_x, dOriginal_y)

            '    '    Dim objItem As LMAItem

            '    '    Dim sLineType As String = oConn1Rows(0)(_XML_LINE_TYPE).ToString()

            '    '    Dim sLine1Path As String = GetPipeType(sLineType)

            '    '    sLineType = oConn2Rows(0)(_XML_LINE_TYPE).ToString()

            '    '    Dim sLine2Path As String = GetPipeType(sLineType)

            '    '    If sLine1Path = sLine2Path Then

            '    '        objItem = _Placement.PIDCreateItem(sLine1Path)

            '    '        oCurrentLMConnector = _Placement.PIDPlaceRun(objItem, objInputs)

            '    '    Else

            '    '        '//서로다른선일경우 먼저 Symbol을 그리고 커넥션으로 부터 각 선까지 선을 잇는다.

            '    '    End If

            '    '    Dim sID_1 As String = ""

            '    '    Dim sID_2 As String = ""

            '    '    Dim sID_3 As String = ""

            '    '    sID_1 = oStartLMConnector.ModelItemID

            '    '    sID_2 = oCurrentLMConnector.ModelItemID

            '    '    sID_3 = oEndLMConnector.ModelItemID

            '    '    Try

            '    '        If sID_1 <> "" And sID_2 <> "" Then

            '    '            Dim objSurvivorItem As LMAItem = Nothing

            '    '            Dim oPipeRun1 As LMPipeRun = _Placement.PIDDataSource.GetPipeRun(sID_1)

            '    '            Dim oPipeRun2 As LMPipeRun = _Placement.PIDDataSource.GetPipeRun(sID_2)

            '    '            _Placement.PIDJoinRuns(oPipeRun1, oPipeRun2)

            '    '        End If

            '    '    Catch ex As Exception

            '    '    End Try

            '    '    objInputs.Clear()

            '    '    '     objInputs.AddPoint(dOriginal_x, dOriginal_y)

            '    '    objInputs.AddConnectorTarget(oStartLMConnector, dOriginal_x, dOriginal_y)

            '    '    'objInputs.AddPoint(dConn2_x, dConn2_y)

            '    '    objInputs.AddConnectorTarget(oEndLMConnector, dOriginal_x, dOriginal_y)

            '    '    If sLine1Path = sLine2Path Then

            '    '        objItem = _Placement.PIDCreateItem(sLine1Path)

            '    '        oCurrentLMConnector = _Placement.PIDPlaceRun(objItem, objInputs)

            '    '    Else

            '    '        '//서로다른선일경우 먼저 Symbol을 그리고 커넥션으로 부터 각 선까지 선을 잇는다.

            '    '    End If

            '    '    Try

            '    '        sID_1 = oEndLMConnector.ModelItemID

            '    '        sID_2 = oCurrentLMConnector.ModelItemID

            '    '        If sID_1 <> "" And sID_2 <> "" Then

            '    '            Dim objSurvivorItem As LMAItem = Nothing

            '    '            Dim oPipeRun1 As LMPipeRun = _Placement.PIDDataSource.GetPipeRun(sID_1)

            '    '            Dim oPipeRun2 As LMPipeRun = _Placement.PIDDataSource.GetPipeRun(sID_2)

            '    '            _Placement.PIDJoinRuns(oPipeRun1, oPipeRun2)

            '    '        End If

            '    '    Catch ex As Exception

            '    '    End Try

            '    'End If

            'Else

            '    If oStartLMConnector IsNot Nothing Then

            '        dOriginal_x = dConn1_x

            '        dOriginal_y = dConn1_y

            '    Else

            '        dOriginal_x = dConn2_x

            '        dOriginal_y = dConn2_y

            '    End If

            'End If

                CheckConnectionLine(dConn1_x, dConn1_y, oStartLMConnector)

                dOriginal_x = dConn1_x

                dOriginal_y = dConn1_y

                CheckConnectionLine(dConn2_x, dConn2_y, oEndLMConnector)

                dOriginal_x = dConn2_x

                dOriginal_y = dConn2_y

                CheckConnectionLine(dConn3_x, dConn3_y, oStartLMConnector)

                CheckConnectionLine(dConn4_x, dConn4_y, oEndLMConnector)

            'If oStartLMConnector IsNot Nothing Then

            '    dOriginal_x = dConn3_x

            '    dOriginal_y = dConn3_y

            'Else

            '    dOriginal_x = dConn4_x

            '    dOriginal_y = dConn4_y

            'End If

                CheckConnectionLine(dConn3_x, dConn3_y, oStartLMConnector)

                dOriginal_x = dConn3_x

                dOriginal_y = dConn3_y

                CheckConnectionLine(dConn4_x, dConn4_y, oEndLMConnector)

                dOriginal_x = dConn4_x

                dOriginal_y = dConn4_y

                            Dim dChildConn1_x As Double = 0

                            Dim dChildConn1_y As Double = 0

                            If oLMSymbol IsNot Nothing Then

                                _Placement.PIDConnectPointLocation(oLMSymbol, 1, dChildConn1_x, dChildConn1_y)

                                _Placement.PIDPlaceSymbol(sConn1_Systempath, dChildConn1_x, dChildConn1_y,, sConn1_Angle,,

                                 TargetItem:=oLMSymbol.AsLMAItem)

                                _Placement.PIDPlaceSymbol(sConn1_Systempath, dConn1_x, dConn1_y,, sConn1_Angle,,)

                        'If iType = 0 Then

                        '    sConn1_Angle = GetChildSymbolDirection(sType)

                        '    iType = iType + 1

                        'Else

                        '    Dim sStartpoint As String = oCurrentSymbolRow(_XML_SYMBOL_Conn1_Point).ToString()

                        '    ConvertPointBystring(sStartpoint, dConn1_x, dConn1_y)

                        '    ConvertPointByImage(dConn1_x, dConn1_y, _IMG_X, _IMG_Y)

                        '    sConn1_Systempath = GetDataFromMappingDB(sType, _DB_COLUMN_MAPPING_SPPID_SYSTEMPATH)

                        '    If oStartLMConnector Is Nothing Then

                        '        Dim dChildConn1_x As Double = 0

                        '        Dim dChildConn1_y As Double = 0

                        '        _Placement.PIDConnectPointLocation(oLMSymbol, 1, dChildConn1_x, dChildConn1_y)

                        '        If oLMSymbol.Connect1Connectors.Count = 0 And oLMSymbol IsNot Nothing Then

                        '            _Placement.PIDPlaceSymbol(sConn1_Systempath, dChildConn1_x, dChildConn1_y,, sConn1_Angle,,

                        '             TargetItem:=oLMSymbol.AsLMAItem)

                        '        Else

                        '            For Each oConnector In oLMSymbol.Connect1Connectors

                        '                _Placement.PIDPlaceSymbol(sConn1_Systempath, dChildConn1_x, dChildConn1_y,, sConn1_Angle,,

                        '                TargetItem:=oConnector.AsLMAItem)

                        '            Next

                        '        End If

                        '    Else

                        '        _Placement.PIDPlaceSymbol(sConn1_Systempath, dConn1_x, dConn1_y,, sConn1_Angle,,

                        '                    TargetItem:=oLMSymbol.AsLMAItem)

                        '        'oLMSymbol = _Placement.PIDPlaceSymbol(sConn1_Systempath, dConn1_x, dConn1_y,, sConn1_Angle,,

                        '        'TargetItem:=oStartLMConnector.AsLMAItem)

                        '    End If

                        'End If

                            Dim dChildConn2_x As Double = 0

                            Dim dChildConn2_y As Double = 0

                            If oLMSymbol IsNot Nothing Then

                                _Placement.PIDConnectPointLocation(oLMSymbol, 2, dChildConn2_x, dChildConn2_y)

                                _Placement.PIDPlaceSymbol(sConn1_Systempath, dChildConn2_x, dChildConn2_y,, sConn2_Angle,,

                                        TargetItem:=oLMSymbol.AsLMAItem)

                                _Placement.PIDPlaceSymbol(sConn2_Systempath, dChildConn2_x, dChildConn2_y,, sConn2_Angle,,)

                        'If iType = 0 Then

                        '    sConn2_Angle = GetChildSymbolDirection(sType)

                        '    iType = iType + 1

                        'Else

                        '    Dim sEndPoint As String = oCurrentSymbolRow(_XML_SYMBOL_Conn2_Point).ToString()

                        '    ConvertPointBystring(sEndPoint, dConn2_x, dConn2_y)

                        '    ConvertPointByImage(dConn2_x, dConn2_y, _IMG_X, _IMG_Y)

                        '    sConn2_Systempath = GetDataFromMappingDB(sType, _DB_COLUMN_MAPPING_SPPID_SYSTEMPATH)

                        '    If oEndLMConnector Is Nothing Then

                        '        Dim dChildConn2_x As Double = 0

                        '        Dim dChildConn2_y As Double = 0

                        '        _Placement.PIDConnectPointLocation(oLMSymbol, 2, dChildConn2_x, dChildConn2_y)

                        '        If oLMSymbol.Connect2Connectors.Count = 0 And oLMSymbol IsNot Nothing Then

                        '            _Placement.PIDPlaceSymbol(sConn1_Systempath, dChildConn2_x, dChildConn2_y,, sConn2_Angle,,

                        '            TargetItem:=oLMSymbol.AsLMAItem)

                        '        Else

                        '            For Each oConnector In oLMSymbol.Connect2Connectors

                        '                oLMSymbol = _Placement.PIDPlaceSymbol(sConn2_Systempath, dChildConn2_x, dChildConn2_y,, sConn2_Angle,,

                        '                TargetItem:=oConnector.AsLMAItem)

                        '            Next

                        '        End If

                        '    Else

                        '        _Placement.PIDPlaceSymbol(sConn1_Systempath, dConn2_x, dConn2_y,, sConn2_Angle,,

                        '            TargetItem:=oLMSymbol.AsLMAItem)

                        '        '    oLMSymbol = _Placement.PIDPlaceSymbol(sConn2_Systempath, dConn2_x, dConn2_y,, sConn2_Angle,,

                        '        'TargetItem:=oEndLMConnector.AsLMAItem)

                        '    End If

                        'End If

                Dim oOriginalPoint As String = oConn1Rows(0)(_XML_SYMBOL_ORIGINALPOINT)

                ConvertPointBystring(oOriginalPoint, dStart_Dwg_x, dStart_Dwg_y)

                ConvertPointByImage(dStart_Dwg_x, dStart_Dwg_y, _IMG_X, _IMG_Y)

                oCurrentLineRow(_XML_LINE_DWG_STARTPOINT_X) = dStart_Dwg_x

                oCurrentLineRow(_XML_LINE_DWG_STARTPOINT_Y) = dStart_Dwg_y

                Dim oOriginalPoint As String = oConn2Rows(0)(_XML_SYMBOL_ORIGINALPOINT)

                ConvertPointBystring(oOriginalPoint, dEnd_Dwg_x, dEnd_Dwg_y)

                ConvertPointByImage(dEnd_Dwg_x, dEnd_Dwg_y, _IMG_X, _IMG_Y)

                oCurrentLineRow(_XML_LINE_DWG_ENDPOINT_X) = dEnd_Dwg_x

                oCurrentLineRow(_XML_LINE_DWG_ENDPOINT_Y) = dEnd_Dwg_y

            If sConn1Type = "Symbol" Then

            End If

            '   Dim sTargetDirection As String = CheckBranchLine(dStart_Dwg_x, dStart_Dwg_y, dEnd_Dwg_x, dEnd_Dwg_y, oLMConnector)

            ' If sTargetDirection = "" Then

            CheckConnectionLine(dStart_Dwg_x, dStart_Dwg_y, oStartLMConnector)

            If oStartLMConnector Is Nothing Then

                UpdateCheckBranchLine(dStart_Dwg_x, dStart_Dwg_y, oStartLMConnector)

                    'sPreConn1Direction = oConn1Rows(0)(_XML_LINE_Direction).ToString()

                    'If sDirection = sPreConn1Direction Then

                    '    If sDirection = "X" Then

                    '        dStart_Dwg_y = oConn2Rows(0)(_XML_LINE_DWG_STARTPOINT_Y)

                    '        dEnd_Dwg_y = oConn2Rows(0)(_XML_LINE_DWG_STARTPOINT_Y)

                    '    Else

                    '        dStart_Dwg_x = oConn2Rows(0)(_XML_LINE_DWG_STARTPOINT_X)

                    '        dEnd_Dwg_x = oConn2Rows(0)(_XML_LINE_DWG_STARTPOINT_X)

                    '    End If

                    'End If

            Else

                sConn1Type = "Line"

            End If

                CheckConnectionLine(dEnd_Dwg_x, dEnd_Dwg_y, oEndLMConnector)

            If oEndLMConnector Is Nothing Then

                UpdateCheckBranchLine(dEnd_Dwg_x, dEnd_Dwg_y, oEndLMConnector)

                sConn2Type = "Line"

                    'sPreConn2Direction = oConn2Rows(0)(_XML_LINE_Direction).ToString()

                    'If sDirection = sPreConn2Direction Then

                    '    If sDirection = "X" Then

                    '        dStart_Dwg_y = oConn2Rows(0)(_XML_LINE_DWG_STARTPOINT_Y)

                    '        dEnd_Dwg_y = oConn2Rows(0)(_XML_LINE_DWG_STARTPOINT_Y)

                    '    Else

                    '        dStart_Dwg_x = oConn2Rows(0)(_XML_LINE_DWG_STARTPOINT_X)

                    '        dEnd_Dwg_x = oConn2Rows(0)(_XML_LINE_DWG_STARTPOINT_X)

                    '    End If

                    'End If

                'Else

                '    If sTargetDirection = "START" Then

                '        oStartLMConnector = oLMConnector

                '        sConn1Type = "Line"

                '    ElseIf sTargetDirection = "END" Then

                '        oEndLMConnector = oLMConnector

                '        sConn2Type = "Line"

                '    End If

                'End If

                'If iModelingType = 1 Then

                '    If sConn1Type = "Line" Then

                '        CheckConnectionLine(oConn1Rows, dOriginalStart_x, dOriginalStart_y, oStartLMConnector)

                '    Else

                '        oLMSymbol1 = CheckConnectionSymbolToLine(oConn1Rows, dOriginalStart_x, dOriginalStart_y, dCenterPos_x, dCenterPos_y, oStartLMConnector)

                '    End If

                '    If sConn1Type = "Line" Then

                '        CheckConnectionLine(oConn2Rows, dOriginalEnd_x, dOriginalEnd_y, oEndLMConnector)

                '    Else

                '        oLMSymbol2 = CheckConnectionSymbolToLine(oConn2Rows, dOriginalEnd_x, dOriginalEnd_y, dCenterPos_x, dCenterPos_y, oEndLMConnector)

                '    End If

                '    'CheckConnectionLine(oConn1Rows, dOriginalStart_x, dOriginalStart_y, oStartLMConnector)

                '    'CheckConnectionLine(oConn2Rows, dOriginalEnd_x, dOriginalEnd_y, oEndLMConnector)

                'ElseIf iModelingType = "2" Then

                '    If sConn1Type = "Line" Then

                '        CheckConnectionLine(oConn1Rows, dOriginalStart_x, dOriginalStart_y, oStartLMConnector)

                '    Else

                '        oLMSymbol1 = CheckConnectionSymbolToLine(oConn1Rows, dOriginalStart_x, dOriginalStart_y, dCenterPos_x, dCenterPos_y, oStartLMConnector)

                '    End If

                '    ' CheckConnectionLine(oConn2Rows, dOriginalStart_x, dOriginalStart_y, oStartLMConnector)

                'ElseIf iModelingType = "3" Then

                '    If sConn1Type = "Line" Then

                '        CheckConnectionLine(oConn2Rows, dOriginalEnd_x, dOriginalEnd_y, oEndLMConnector)

                '    Else

                '        oLMSymbol2 = CheckConnectionSymbolToLine(oConn2Rows, dOriginalEnd_x, dOriginalEnd_y, dCenterPos_x, dCenterPos_y, oEndLMConnector)

                '    End If

                '    ' CheckConnectionLine(oConn2Rows, dOriginalEnd_x, dOriginalEnd_y, oStartLMConnector)

                'Else

                '    'objInputs.AddPoint(dOriginalStart_x, dOriginalStart_y)

                '    'objInputs.AddPoint(dOriginalEnd_x, dOriginalEnd_y)

                'End If

                Dim sFirstUid As String = ""

                    '모델링 된 PipeLine 데이터 테이블 저장

                    Dim oAddRow As DataRow = _ModelingLine_Dt.NewRow

                    oAddRow(_XML_LINE_SPID) = oCurrentConnector.ModelItemID

                    oAddRow(_XML_LINE_LMCONNECTOR) = oCurrentConnector

                    oAddRow(_XML_LINE_DRAWING_TF) = "TRUE"

                    oAddRow(_XML_LINE_DWG_STARTPOINT_X) = dStart_Dwg_x

                    oAddRow(_XML_LINE_DWG_STARTPOINT_Y) = dStart_Dwg_y

                    oAddRow(_XML_LINE_DWG_ENDPOINT_X) = dEnd_Dwg_x

                    oAddRow(_XML_LINE_DWG_ENDPOINT_Y) = dEnd_Dwg_y

                    _ModelingLine_Dt.Rows.Add(oAddRow)

                        If oAttributeRow.Length > 0 Then

                            For Each oAttribute In oAttributeRow

                                Try

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

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

                                    If sPIDValue.Contains("'") Then

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

                                    End If

                                    Dim sSPPIDAttribute As String = GetAttributeMapping(sPIDAttribute, _DB_COLUMN_ATTRIBUTE_SPPID_ATTRIBUTE)

                                    oPipeRun.Attributes(sSPPIDAttribute).Value = sPIDValue

                                Catch ex As Exception

                                End Try

                            Next

                            oPipeRun.Commit()

                        End If

                        Dim sID_1 As String = ""

                    Dim oAddConnector As LMConnector = Nothing

                            sID_1 = oStartLMConnector.ModelItemID

                        oAddConnector = oStartLMConnector

                            sID_1 = oEndLMConnector.ModelItemID

                        oAddConnector = oEndLMConnector

                        If sID_1 <> "" And sID_2 <> "" Then

                            Dim objSurvivorItem As LMAItem = Nothing

                            Dim oPipeRun1 As LMPipeRun = oPidDataSource.GetPipeRun(sID_1)

                            Dim oPipeRun2 As LMPipeRun = oPidDataSource.GetPipeRun(sID_2)

                        Dim oChangeRow() As DataRow = _ModelingLine_Dt.Select(_XML_LINE_SPID & " = '" & sID_2 & "'")

                        If oChangeRow.Length = 1 Then

                            oChangeRow(0)(_XML_LINE_SPID) = sID_1

                            oChangeRow(0)(_XML_LINE_LMCONNECTOR) = oAddConnector

                        End If

                    Else

                        sReturnUid = ""

    Private Function CheckBranchLine(ByVal dStartX As Double, ByVal dStartY As Double,

            For Each oModelrow In _ModelingLine_Dt.Rows

                'Dim sStartPoint As String = oModelrow(_XML_LINE_STARTPOINT)

                'Dim sEndPoint As String = oModelrow(_XML_LINE_ENDPOINT)

                dModelStartX = oModelrow(_XML_LINE_DWG_STARTPOINT_X)

                dModelStartY = oModelrow(_XML_LINE_DWG_STARTPOINT_Y)

                dModelEndX = oModelrow(_XML_LINE_DWG_ENDPOINT_X)

                dModelEndY = oModelrow(_XML_LINE_DWG_ENDPOINT_Y)

                'ConvertPointBystring(sStartPoint, dModelStartX, dModelStartY)

                'ConvertPointBystring(sEndPoint, dModelEndX, dModelEndY)

                'ConvertPointByImage(dModelStartX, dModelStartY, _IMG_X, _IMG_Y)

                'ConvertPointByImage(dModelEndX, dModelEndY, _IMG_X, _IMG_Y)

                Else

    Private Function UpdateCheckBranchLine(ByRef dX As Double, ByRef dY As Double,

                                  ByRef oLMConnector As LMConnector) As Boolean

        Dim bConnectionFlag As Boolean = False

        Dim iGapCheck As Integer = 0

        Try

            For Each oModelrow In _ModelingLine_Dt.Rows

                Dim d기준x As Double = dX

                Dim d기준y As Double = dY

                Dim dGap As Double = 0.001

                Dim oRun As LMPipeRun = Nothing

                Dim dModelStartX As Double

                Dim dModelStartY As Double

                Dim dModelEndX As Double

                Dim dModelEndY As Double

                dModelStartX = oModelrow(_XML_LINE_DWG_STARTPOINT_X)

                dModelStartY = oModelrow(_XML_LINE_DWG_STARTPOINT_Y)

                dModelEndX = oModelrow(_XML_LINE_DWG_ENDPOINT_X)

                dModelEndY = oModelrow(_XML_LINE_DWG_ENDPOINT_Y)

                d기준x = (dModelStartX + dModelEndX) / 2

                d기준y = (dModelStartY + dModelEndY) / 2

                Dim dMax_X As Double = 0.0

                Dim dMax_Y As Double = 0.0

                Dim dMin_X As Double = 0.0

                Dim dMin_Y As Double = 0.0

                If dModelEndX > dModelStartX Then

                    dMax_X = dModelEndX

                    dMin_X = dModelStartX

                Else

                    dMax_X = dModelStartX

                    dMin_X = dModelEndX

                End If

                If dModelEndY > dModelStartY Then

                    dMax_Y = dModelEndY

                    dMin_Y = dModelStartY

                Else

                    dMax_Y = dModelStartY

                    dMin_Y = dModelEndY

                End If

                If dX <= dMax_X + dGap And dX >= dMin_X - dGap And

                  dY <= dMax_Y + dGap And dY >= dMin_Y - dGap Then

                    If Math.Abs(dMax_X - dMin_X) > Math.Abs(dMax_Y - dMin_Y) Then

                        dY = dMax_Y

                    Else

                        dX = dMax_X

                    End If

                    oLMConnector = oModelrow(_XML_LINE_LMCONNECTOR)

                End If

            Next

        Catch ex As Exception

            bConnectionFlag = False

            oLMConnector = Nothing

        End Try

        Return bConnectionFlag

    End Function

    Private Function CheckConnectionLine(ByRef dX As Double, ByRef dY As Double,

                                  ByRef oLMConnector As LMConnector) As Boolean

            For Each oModelrow In _ModelingLine_Dt.Rows

                Dim bCheckEqual As Boolean = False

                If dX <= dModelStartX + dGap And dX >= dModelStartX - dGap And

                        dY <= dModelStartY + dGap And dY >= dModelStartY - dGap Then

                    bCheckEqual = True

                ElseIf dX <= dModelEndX + dGap And dX >= dModelEndX - dGap And

                        dY <= dModelEndY + dGap And dY >= dModelEndY - dGap Then

                    bCheckEqual = True

                End If

                If bCheckEqual Then

                    Try

                        oLMConnector = oModelrow(_XML_LINE_LMCONNECTOR)

                        oRun = _Placement.PIDDataSource.GetPipeRun(oLMConnector.ModelItemID)

                    Catch ex As Exception

                    End Try

                    Try

                        If oRun IsNot Nothing Then

                            Dim dResultCalc As Double = -1

                            For Each objRep In oRun.Representations

                                If objRep.Attributes("RepresentationType").Value = "Connector" And objRep.Attributes("ItemStatus").Value = "Active" Then

                                    Dim objConnector As LMConnector = _Placement.PIDDataSource.GetConnector(objRep.ID)

                                    For Each objConnectorVertex In objConnector.ConnectorVertices

                                        Dim dConn_X As Double = objConnectorVertex.Attributes("XCoordinate").Value

                                        Dim dConn_Y As Double = objConnectorVertex.Attributes("YCoordinate").Value

                                        If Math.Abs(dX - dConn_X) < dGap And Math.Abs(dY - dConn_Y) < dGap Then

                                            oLMConnector = objConnector

                                            dX = dConn_X

                                            dY = dConn_Y

                                            bConnectionFlag = True

                                        End If

                                    Next

                                End If

                            Next

                        End If

                    Catch ex As Exception

                    End Try

                Else

                    'Dim dMax_X As Double = 0.0

                    'Dim dMax_Y As Double = 0.0

                    'Dim dMin_X As Double = 0.0

                    'Dim dMin_Y As Double = 0.0

                    'If dModelEndX > dModelStartX Then

                    '    dMax_X = dModelEndX

                    '    dMin_X = dModelStartX

                    'Else

                    '    dMax_X = dModelStartX

                    '    dMin_X = dModelEndX

                    'End If

                    'If dModelEndY > dModelStartY Then

                    '    dMax_Y = dModelEndY

                    '    dMin_Y = dModelStartY

                    'Else

                    '    dMin_Y = dModelStartY

                    '    dMin_X = dModelEndY

                    'End If

                    'If dX <= dMax_X + dGap And dX >= dMin_X - dGap And

                    '  dY <= dMax_Y + dGap And dY >= dMin_Y - dGap Then

                    '    If Math.Abs(dMax_X - dMin_X) > Math.Abs(dMax_Y - dMin_Y) Then

                    '        dY = dMax_Y

                    '    Else

                    '        dX = dMax_X

                    '    End If

                    '    oLMConnector = oModelrow(_XML_LINE_LMCONNECTOR)

                    'End If

                End If

            _ModelingLine_Dt = Line_Dt()