| 527 |
527 |
Dim sConnectionPoint As String = ""
|
| 528 |
528 |
Dim sConnectionUids As String = ""
|
| 529 |
529 |
Dim sConnArray As String()
|
| 530 |
|
|
|
530 |
Dim sChild As String = ""
|
| 531 |
531 |
Dim dCenterPos_x As Double = 0.0
|
| 532 |
532 |
Dim dCenterPos_y As Double = 0.0
|
| 533 |
533 |
Dim dDwgCenterPos_x As Double = 0.0
|
| ... | ... | |
| 564 |
564 |
sAngle = oEleObj.Value
|
| 565 |
565 |
oEleObj = oSymbol.Element(_XML_SYMBOL_CONNECTIONPOINT)
|
| 566 |
566 |
sConnectionPoint = oEleObj.Value
|
|
567 |
oEleObj = oSymbol.Element(_XML_SYMBOL_CHILD)
|
|
568 |
sChild = oEleObj.Value
|
| 567 |
569 |
Try
|
| 568 |
570 |
oEleObj = oSymbol.Element(_XML_SYMBOL_ORIGINALPOINT)
|
| 569 |
571 |
sOriginalPoint = oEleObj.Value
|
| ... | ... | |
| 664 |
666 |
|
| 665 |
667 |
oAddrow(_XML_SYMBOL_CONNECTIONPOINT) = sConnectionPoint
|
| 666 |
668 |
oAddrow(_XML_SYMBOL_DRAWING_TF) = "FALSE"
|
|
669 |
oAddrow(_XML_SYMBOL_CHILD) = sChild
|
| 667 |
670 |
' _AllSymbol_DT.Rows.Add(oAddrow)
|
| 668 |
671 |
oSymbol_Dt.Rows.Add(oAddrow)
|
| 669 |
672 |
Catch ex As Exception
|
| ... | ... | |
| 1714 |
1717 |
ConvertPointBystring(sOriginalPoint, dOriginal_x, dOriginal_y)
|
| 1715 |
1718 |
ConvertPointByImage(dOriginal_x, dOriginal_y, _IMG_X, _IMG_Y)
|
| 1716 |
1719 |
|
|
1720 |
Dim sChildItem As String = oCurrentSymbolRow(_XML_SYMBOL_CHILD)
|
|
1721 |
|
| 1717 |
1722 |
'Connection 정보 체크, 모델링 되어 있는지 유무
|
| 1718 |
1723 |
'양 커넥션의 모델링 유무를 체크한다.
|
| 1719 |
1724 |
Dim sConn1Uid As String = oCurrentSymbolRow(_XML_SYMBOL_Conn1_Uid).ToString()
|
| ... | ... | |
| 1784 |
1789 |
ConvertPoint(oCurrentSymbolRow(_XML_SYMBOL_Conn4_Point).ToString(), dConn4_x, dConn4_y)
|
| 1785 |
1790 |
End If
|
| 1786 |
1791 |
|
|
1792 |
|
|
1793 |
|
|
1794 |
|
|
1795 |
|
| 1787 |
1796 |
'If sConn1Type = "Line" Then
|
| 1788 |
1797 |
' Dim sStartpoint As String = oCurrentSymbolRow(0)(_XML_SYMBOL_Conn1_Point).ToString()
|
| 1789 |
1798 |
' ConvertPointBystring(sStartpoint, dConn1_x, dConn1_y)
|
| ... | ... | |
| 1908 |
1917 |
|
| 1909 |
1918 |
sFirstUid = CheckExistModeling(oConn1Rows(0))
|
| 1910 |
1919 |
sSecondUid = CheckExistModeling(oConn2Rows(0))
|
| 1911 |
|
If oStartLMConnector IsNot Nothing Then
|
| 1912 |
|
dOriginal_x = dConn1_x
|
| 1913 |
|
dOriginal_y = dConn1_y
|
|
1920 |
|
|
1921 |
If oStartLMConnector IsNot Nothing And oEndLMConnector IsNot Nothing Then
|
|
1922 |
|
|
1923 |
''라인을 센터점에 먼저그리기
|
|
1924 |
'If dConn1_x <> dConn2_x And dConn1_y <> dConn2_y Then
|
|
1925 |
' 'Angle Valve
|
|
1926 |
' '라인두개 긋기
|
|
1927 |
' objInputs.Clear()
|
|
1928 |
' objInputs.AddConnectorTarget(oStartLMConnector, dConn1_x, dConn1_y)
|
|
1929 |
' objInputs.AddPoint(dOriginal_x, dOriginal_y)
|
|
1930 |
' objInputs.AddConnectorTarget(oEndLMConnector, dConn2_x, dConn2_y)
|
|
1931 |
' Dim objItem As LMAItem
|
|
1932 |
' Dim sLineType As String = oConn1Rows(0)(_XML_LINE_TYPE).ToString()
|
|
1933 |
' Dim sLine1Path As String = GetPipeType(sLineType)
|
|
1934 |
' sLineType = oConn2Rows(0)(_XML_LINE_TYPE).ToString()
|
|
1935 |
' Dim sLine2Path As String = GetPipeType(sLineType)
|
|
1936 |
' If sLine1Path = sLine2Path Then
|
|
1937 |
' objItem = _Placement.PIDCreateItem(sLine1Path)
|
|
1938 |
' _Placement.PIDPlaceRun(objItem, objInputs)
|
|
1939 |
' Else
|
|
1940 |
' '//서로다른선일경우 먼저 Symbol을 그리고 커넥션으로 부터 각 선까지 선을 잇는다.
|
|
1941 |
' End If
|
|
1942 |
|
|
1943 |
|
|
1944 |
'End If
|
| 1914 |
1945 |
Else
|
| 1915 |
|
dOriginal_x = dConn2_x
|
| 1916 |
|
dOriginal_y = dConn2_y
|
|
1946 |
If oStartLMConnector IsNot Nothing Then
|
|
1947 |
dOriginal_x = dConn1_x
|
|
1948 |
dOriginal_y = dConn1_y
|
|
1949 |
Else
|
|
1950 |
dOriginal_x = dConn2_x
|
|
1951 |
dOriginal_y = dConn2_y
|
|
1952 |
End If
|
| 1917 |
1953 |
End If
|
| 1918 |
|
|
| 1919 |
1954 |
ElseIf sConn1Type <> "" And sConn2Type = "" Then
|
| 1920 |
1955 |
If sConn1Type = "Line" Then
|
| 1921 |
1956 |
CheckConnectionLine(oConn1Rows, dConn1_x, dConn1_y, oStartLMConnector, dPreConn_x, dPreConn_y)
|
| ... | ... | |
| 1997 |
2032 |
sReturnUid = ""
|
| 1998 |
2033 |
End If
|
| 1999 |
2034 |
|
|
2035 |
|
|
2036 |
|
|
2037 |
|
|
2038 |
|
|
2039 |
|
|
2040 |
|
|
2041 |
|
| 2000 |
2042 |
If sSymbolCompType.ToUpper() = _SYMBOL_INSTUMENT.ToUpper() Then
|
| 2001 |
2043 |
oLMSymbol = _Placement.PIDPlaceSymbol(sSystemPath, dOriginal_x, dOriginal_y,, dAngle)
|
| 2002 |
2044 |
oCurrentSymbolRow(_XML_SYMBOL_LMSYMBOL) = oLMSymbol
|
| ... | ... | |
| 2019 |
2061 |
oLMSymbol = _Placement.PIDPlaceSymbol(sSystemPath, dOriginal_x, dOriginal_y,, dAngle)
|
| 2020 |
2062 |
oCurrentSymbolRow(_XML_SYMBOL_LMSYMBOL) = oLMSymbol
|
| 2021 |
2063 |
End If
|
|
2064 |
|
|
2065 |
|
|
2066 |
|
|
2067 |
End If
|
|
2068 |
|
|
2069 |
|
|
2070 |
If sChildItem <> "" Then
|
|
2071 |
Dim sConn1_Systempath As String = ""
|
|
2072 |
Dim sConn2_Systempath As String = ""
|
|
2073 |
Dim sConn1_Angle As Double = 0
|
|
2074 |
Dim sConn2_Angle As Double = 0
|
|
2075 |
|
|
2076 |
For Each sDirection In sChildItem.Split("/")
|
|
2077 |
Dim iType As Integer = 0
|
|
2078 |
For Each sType In sDirection.Split(",")
|
|
2079 |
If sConn1_Systempath = "" Then
|
|
2080 |
If iType = 0 Then
|
|
2081 |
sConn1_Angle = GetChildSymbolDirection(sType)
|
|
2082 |
iType = iType + 1
|
|
2083 |
Else
|
|
2084 |
Dim sStartpoint As String = oCurrentSymbolRow(_XML_SYMBOL_Conn1_Point).ToString()
|
|
2085 |
ConvertPointBystring(sStartpoint, dConn1_x, dConn1_y)
|
|
2086 |
ConvertPointByImage(dConn1_x, dConn1_y, _IMG_X, _IMG_Y)
|
|
2087 |
sConn1_Systempath = GetDataFromMappingDB(sType, _DB_COLUMN_MAPPING_SPPID_SYSTEMPATH)
|
|
2088 |
If oStartLMConnector Is Nothing Then
|
|
2089 |
Dim dChildConn1_x As Double = 0
|
|
2090 |
Dim dChildConn1_y As Double = 0
|
|
2091 |
_Placement.PIDConnectPointLocation(oLMSymbol, 1, dChildConn1_x, dChildConn1_y)
|
|
2092 |
If oLMSymbol.Connect1Connectors.Count = 0 And oLMSymbol IsNot Nothing Then
|
|
2093 |
_Placement.PIDPlaceSymbol(sConn1_Systempath, dChildConn1_x, dChildConn1_y,, sConn1_Angle,,
|
|
2094 |
TargetItem:=oLMSymbol.AsLMAItem)
|
|
2095 |
Else
|
|
2096 |
For Each oConnector In oLMSymbol.Connect1Connectors
|
|
2097 |
_Placement.PIDPlaceSymbol(sConn1_Systempath, dChildConn1_x, dChildConn1_y,, sConn1_Angle,,
|
|
2098 |
TargetItem:=oConnector.AsLMAItem)
|
|
2099 |
Next
|
|
2100 |
End If
|
|
2101 |
|
|
2102 |
Else
|
|
2103 |
_Placement.PIDPlaceSymbol(sConn1_Systempath, dConn1_x, dConn1_y,, sConn1_Angle,,
|
|
2104 |
TargetItem:=oLMSymbol.AsLMAItem)
|
|
2105 |
'oLMSymbol = _Placement.PIDPlaceSymbol(sConn1_Systempath, dConn1_x, dConn1_y,, sConn1_Angle,,
|
|
2106 |
'TargetItem:=oStartLMConnector.AsLMAItem)
|
|
2107 |
End If
|
|
2108 |
|
|
2109 |
End If
|
|
2110 |
Else
|
|
2111 |
If iType = 0 Then
|
|
2112 |
sConn2_Angle = GetChildSymbolDirection(sType)
|
|
2113 |
iType = iType + 1
|
|
2114 |
Else
|
|
2115 |
Dim sEndPoint As String = oCurrentSymbolRow(_XML_SYMBOL_Conn2_Point).ToString()
|
|
2116 |
ConvertPointBystring(sEndPoint, dConn2_x, dConn2_y)
|
|
2117 |
ConvertPointByImage(dConn2_x, dConn2_y, _IMG_X, _IMG_Y)
|
|
2118 |
sConn2_Systempath = GetDataFromMappingDB(sType, _DB_COLUMN_MAPPING_SPPID_SYSTEMPATH)
|
|
2119 |
If oEndLMConnector Is Nothing Then
|
|
2120 |
Dim dChildConn2_x As Double = 0
|
|
2121 |
Dim dChildConn2_y As Double = 0
|
|
2122 |
_Placement.PIDConnectPointLocation(oLMSymbol, 2, dChildConn2_x, dChildConn2_y)
|
|
2123 |
If oLMSymbol.Connect2Connectors.Count = 0 And oLMSymbol IsNot Nothing Then
|
|
2124 |
_Placement.PIDPlaceSymbol(sConn1_Systempath, dChildConn2_x, dChildConn2_y,, sConn2_Angle,,
|
|
2125 |
TargetItem:=oLMSymbol.AsLMAItem)
|
|
2126 |
Else
|
|
2127 |
For Each oConnector In oLMSymbol.Connect2Connectors
|
|
2128 |
oLMSymbol = _Placement.PIDPlaceSymbol(sConn2_Systempath, dChildConn2_x, dChildConn2_y,, sConn2_Angle,,
|
|
2129 |
TargetItem:=oConnector.AsLMAItem)
|
|
2130 |
Next
|
|
2131 |
End If
|
|
2132 |
|
|
2133 |
Else
|
|
2134 |
_Placement.PIDPlaceSymbol(sConn1_Systempath, dConn2_x, dConn2_y,, sConn2_Angle,,
|
|
2135 |
TargetItem:=oLMSymbol.AsLMAItem)
|
|
2136 |
' oLMSymbol = _Placement.PIDPlaceSymbol(sConn2_Systempath, dConn2_x, dConn2_y,, sConn2_Angle,,
|
|
2137 |
'TargetItem:=oEndLMConnector.AsLMAItem)
|
|
2138 |
End If
|
|
2139 |
|
|
2140 |
End If
|
|
2141 |
End If
|
|
2142 |
Next
|
|
2143 |
Next
|
|
2144 |
|
|
2145 |
|
|
2146 |
'If sConn1_Systempath <> "" Then
|
|
2147 |
' Dim oConn1s As LMConnectors = oLMSymbol.Connect1Connectors
|
|
2148 |
' Dim dChildConn1_x As Double = 0
|
|
2149 |
' Dim dChildConn1_y As Double = 0
|
|
2150 |
' _Placement.PIDConnectPointLocation(oLMSymbol, 1, dChildConn1_x, dChildConn1_y)
|
|
2151 |
' oLMSymbol = _Placement.PIDPlaceSymbol(sConn1_Systempath, dChildConn1_x, dChildConn1_y,, sConn1_Angle)
|
|
2152 |
' 'For Each oConnector In oLMSymbol.Connect1Connectors
|
|
2153 |
' ' oLMSymbol = _Placement.PIDPlaceSymbol(sConn1_Systempath, dChildConn1_x, dChildConn1_y,, sConn1_Angle,,
|
|
2154 |
' ' TargetItem:=oConnector.AsLMAItem)
|
|
2155 |
' 'Next
|
|
2156 |
'End If
|
|
2157 |
|
|
2158 |
'If sConn2_Systempath <> "" Then
|
|
2159 |
' Dim oConn2s As LMConnectors = oLMSymbol.Connect2Connectors
|
|
2160 |
' Dim dChildConn2_x As Double = 0
|
|
2161 |
' Dim dChildConn2_y As Double = 0
|
|
2162 |
' _Placement.PIDConnectPointLocation(oLMSymbol, 2, dChildConn2_x, dChildConn2_y)
|
|
2163 |
' oLMSymbol = _Placement.PIDPlaceSymbol(sConn2_Systempath, dChildConn2_x, dChildConn2_y,, sConn2_Angle)
|
|
2164 |
' 'For Each oConnector In oLMSymbol.Connect2Connectors
|
|
2165 |
' ' oLMSymbol = _Placement.PIDPlaceSymbol(sConn2_Systempath, dChildConn2_x, dChildConn2_y,, sConn2_Angle,,
|
|
2166 |
' ' TargetItem:=oConnector.AsLMAItem)
|
|
2167 |
' 'Next
|
|
2168 |
'End If
|
|
2169 |
''Child 모델링
|
|
2170 |
|
|
2171 |
|
|
2172 |
|
|
2173 |
|
|
2174 |
|
|
2175 |
|
|
2176 |
|
| 2022 |
2177 |
End If
|
|
2178 |
|
|
2179 |
|
|
2180 |
|
|
2181 |
|
|
2182 |
|
| 2023 |
2183 |
AddProgress()
|
| 2024 |
2184 |
|
| 2025 |
2185 |
SetListBoxItems(ListBox_Result, "Place Fitting.." & sUid & " (" & dOriginal_x & "," & dOriginal_y & ")..." & _iFittingcnt & " count ")
|
| ... | ... | |
| 2102 |
2262 |
'현재 Uid 모델링
|
| 2103 |
2263 |
End Function
|
| 2104 |
2264 |
|
|
2265 |
Private Function GetChildSymbolDirection(ByVal sDirection As String) As Double
|
|
2266 |
Dim sReturnDirection As String = ""
|
|
2267 |
If sDirection.ToUpper() = "RIGHT" Then
|
|
2268 |
Return 3.14
|
|
2269 |
ElseIf sDirection.ToUpper() = "LEFT" Then
|
|
2270 |
Return 0
|
|
2271 |
ElseIf sDirection.ToUpper = "DOWN" Then
|
|
2272 |
Return 1.57
|
|
2273 |
ElseIf sDirection.ToUpper() = "UP" Then
|
|
2274 |
Return 4.71
|
|
2275 |
Else
|
|
2276 |
Return 0
|
|
2277 |
End If
|
|
2278 |
End Function
|
|
2279 |
|
|
2280 |
|
|
2281 |
|
| 2105 |
2282 |
Private Function CheckExistModeling(ByVal oRow As DataRow) As String
|
| 2106 |
2283 |
If oRow(_XML_LINE_DRAWING_TF).ToString() = "FALSE" And oRow(_XML_LINE_Check).ToString() = "TRUE" Then
|
| 2107 |
2284 |
Return oRow(_XML_LINE_UID).ToString()
|
| ... | ... | |
| 2116 |
2293 |
End Sub
|
| 2117 |
2294 |
|
| 2118 |
2295 |
|
| 2119 |
|
|
| 2120 |
|
|
| 2121 |
|
'Dim _StartPos_X As Double = 0
|
| 2122 |
|
'Dim _StartPos_Y As Double = 0
|
| 2123 |
|
'Dim _EndPos_X As Double = 0
|
| 2124 |
|
'Dim _EndPos_Y As Double = 0
|
| 2125 |
|
'Dim _StartUid As String = ""
|
| 2126 |
|
'Dim _EndUid As String = ""
|
| 2127 |
|
'Dim _objInputs As PlaceRunInputs
|
| 2128 |
|
'Dim _ListPos As New List(Of String)
|
| 2129 |
|
'Dim _Direction As String = ""
|
| 2130 |
|
'Private Function FinalLineModeling(ByVal oCurrentLineRow As DataRow,
|
| 2131 |
|
' ByVal oLine_Dt As DataTable, ByVal oSymbol_Dt As DataTable,
|
| 2132 |
|
' ByVal oAttribute_Dt As DataTable) As String
|
| 2133 |
|
' Dim sReturnUid As String = ""
|
| 2134 |
|
' '현재 Uid 모델링 여부 체크
|
| 2135 |
|
' Dim sStartpoint As String = ""
|
| 2136 |
|
' Dim sEndpoint As String = ""
|
| 2137 |
|
|
| 2138 |
|
' Dim dOriginalStart_x As Double = 0.0
|
| 2139 |
|
' Dim dOriginalStart_y As Double = 0.0
|
| 2140 |
|
' Dim dOriginalEnd_x As Double = 0.0
|
| 2141 |
|
' Dim dOriginalEnd_y As Double = 0.0
|
| 2142 |
|
|
| 2143 |
|
' Dim dConvertStart_x As Double = 0
|
| 2144 |
|
' Dim dConvertStart_y As Double = 0
|
| 2145 |
|
' Dim dConvertEnd_x As Double = 0
|
| 2146 |
|
' Dim dConvertEnd_y As Double = 0
|
| 2147 |
|
|
| 2148 |
|
|
| 2149 |
|
' Dim dCenterPos_x As Double = 0.0
|
| 2150 |
|
' Dim dCenterPos_y As Double = 0.0
|
| 2151 |
|
' Dim objItem As LMAItem
|
| 2152 |
|
|
| 2153 |
|
' Dim sUid As String = oCurrentLineRow(_XML_LINE_UID).ToString()
|
| 2154 |
|
' Dim sLineType As String = oCurrentLineRow(_XML_LINE_TYPE).ToString()
|
| 2155 |
|
' Dim sSystemPath As String = GetPipeType(sLineType)
|
| 2156 |
|
' Dim sLineNoText As String = oCurrentLineRow(_XML_LINENO_TEXT).ToString()
|
| 2157 |
|
' Dim sLineNoUid As String = oCurrentLineRow(_XML_LINE_LINENOUID).ToString()
|
| 2158 |
|
' sStartpoint = oCurrentLineRow(_XML_LINE_STARTPOINT).ToString()
|
| 2159 |
|
' ConvertPointBystring(sStartpoint, dOriginalStart_x, dOriginalStart_y)
|
| 2160 |
|
' ConvertPointByImage(dConvertStart_x, dConvertStart_y, _IMG_X, _IMG_Y)
|
| 2161 |
|
' sEndpoint = oCurrentLineRow(_XML_LINE_ENDPOINT).ToString()
|
| 2162 |
|
' ConvertPointBystring(sEndpoint, dOriginalEnd_x, dOriginalEnd_y)
|
| 2163 |
|
' ConvertPointByImage(dConvertEnd_x, dConvertEnd_y, _IMG_X, _IMG_Y)
|
| 2164 |
|
|
| 2165 |
|
' dCenterPos_x = Math.Abs(dOriginalStart_x + dOriginalEnd_x) / 2
|
| 2166 |
|
' dCenterPos_y = Math.Abs(dOriginalStart_y + dOriginalEnd_y) / 2
|
| 2167 |
|
|
| 2168 |
|
' If _Direction = "" Then
|
| 2169 |
|
' If Math.Abs(dOriginalStart_x - dOriginalEnd_x) > Math.Abs(dOriginalStart_y - dOriginalEnd_y) Then
|
| 2170 |
|
' _Direction = "X"
|
| 2171 |
|
' Else
|
| 2172 |
|
' _Direction = "Y"
|
| 2173 |
|
' End If
|
| 2174 |
|
' Else
|
| 2175 |
|
' If _Direction = "X" Then
|
| 2176 |
|
' If Math.Abs(dOriginalStart_x - dOriginalEnd_x) < Math.Abs(dOriginalStart_y - dOriginalEnd_y) Then
|
| 2177 |
|
|
| 2178 |
|
' End If
|
| 2179 |
|
' Else
|
| 2180 |
|
' If Math.Abs(dOriginalStart_x - dOriginalEnd_x) > Math.Abs(dOriginalStart_y - dOriginalEnd_y) Then
|
| 2181 |
|
|
| 2182 |
|
' End If
|
| 2183 |
|
' End If
|
| 2184 |
|
' End If
|
| 2185 |
|
|
| 2186 |
|
|
| 2187 |
|
' 'Connection 정보 체크, 모델링 되어 있는지 유무
|
| 2188 |
|
' '양 커넥션의 모델링 유무를 체크한다.
|
| 2189 |
|
' Dim sConn1Uid As String = oCurrentLineRow(_XML_LINE_Conn1_Uid).ToString()
|
| 2190 |
|
' Dim sConn2Uid As String = oCurrentLineRow(_XML_LINE_Conn2_Uid).ToString()
|
| 2191 |
|
' Dim sConn1Type As String = ""
|
| 2192 |
|
' Dim sConn2Type As String = ""
|
| 2193 |
|
|
| 2194 |
|
' Dim oConn1Rows() As DataRow = oSymbol_Dt.Select("[" & _XML_SYMBOL_UID & "] = '" & sConn1Uid & "'" &
|
| 2195 |
|
' " And [" & _XML_SYMBOL_DRAWING_TF & "] = 'False'" &
|
| 2196 |
|
' " And [" & _XML_SYMBOL_Check & "] = 'True'")
|
| 2197 |
|
' If oConn1Rows.Length = 0 Then
|
| 2198 |
|
' oConn1Rows = oLine_Dt.Select("[" & _XML_LINE_UID & "] = '" & sConn1Uid & "'" &
|
| 2199 |
|
' " And [" & _XML_LINE_DRAWING_TF & "] = 'False'" &
|
| 2200 |
|
' " And [" & _XML_LINE_Check & "] = 'True'")
|
| 2201 |
|
' If oConn1Rows.Length = 1 Then
|
| 2202 |
|
' sConn1Type = "Line"
|
| 2203 |
|
' End If
|
| 2204 |
|
' Else
|
| 2205 |
|
' sConn1Type = "Symbol"
|
| 2206 |
|
' End If
|
| 2207 |
|
|
| 2208 |
|
' Dim oConn2Rows() As DataRow = oSymbol_Dt.Select("[" & _XML_SYMBOL_UID & "] = '" & sConn2Uid & "'" &
|
| 2209 |
|
' " And [" & _XML_SYMBOL_DRAWING_TF & "] = 'False'" &
|
| 2210 |
|
' " And [" & _XML_SYMBOL_Check & "] = 'True'")
|
| 2211 |
|
' If oConn2Rows.Length = 0 Then
|
| 2212 |
|
' oConn2Rows = oLine_Dt.Select("[" & _XML_LINE_UID & "] = '" & sConn2Uid & "'" &
|
| 2213 |
|
' " And [" & _XML_LINE_DRAWING_TF & "] = 'False'" &
|
| 2214 |
|
' " And [" & _XML_LINE_Check & "] = 'True'")
|
| 2215 |
|
' If oConn2Rows.Length = 1 Then
|
| 2216 |
|
' sConn2Type = "Line"
|
| 2217 |
|
' End If
|
| 2218 |
|
' Else
|
| 2219 |
|
' sConn2Type = "Symbol"
|
| 2220 |
|
' End If
|
| 2221 |
|
|
| 2222 |
|
|
| 2223 |
|
' If _StartPos_X = 0 And _StartPos_Y = 0 Then
|
| 2224 |
|
' _StartPos_X = dOriginalStart_x
|
| 2225 |
|
' _StartPos_Y = dOriginalStart_y
|
| 2226 |
|
' _ListPos.Add(_StartPos_X & "," & _StartPos_Y)
|
| 2227 |
|
' End If
|
| 2228 |
|
' Dim iModelingType As Integer = 0
|
| 2229 |
|
' If sConn1Type = "Line" And sConn2Type = "Line" Then
|
| 2230 |
|
' sReturnUid = sConn2Uid
|
| 2231 |
|
' ElseIf sConn1Type = "Line" And sConn2Type = "Symbol" Then
|
| 2232 |
|
' sReturnUid = sConn2Uid
|
| 2233 |
|
' ElseIf sConn1Type = "Symbol" And sConn2Type = "Line" Then
|
| 2234 |
|
' sReturnUid = sConn2Uid
|
| 2235 |
|
' ElseIf sConn1Type = "Symbol" And sConn2Type = "Symbol" Then
|
| 2236 |
|
' sReturnUid = sConn2Uid
|
| 2237 |
|
' ElseIf sConn1Type = "Line" And sConn2Type = "" Then
|
| 2238 |
|
' sReturnUid = sConn1Uid
|
| 2239 |
|
' ElseIf sConn1Type = "Symbol" And sConn2Type = "" Then
|
| 2240 |
|
' sReturnUid = sConn1Uid
|
| 2241 |
|
' ElseIf sConn1Type = "" And sConn2Type = "Line" Then
|
| 2242 |
|
' sReturnUid = sConn2Uid
|
| 2243 |
|
' ElseIf sConn1Type = "" And sConn2Type = "Symbol" Then
|
| 2244 |
|
' sReturnUid = sConn2Uid
|
| 2245 |
|
' Else
|
| 2246 |
|
' sReturnUid = ""
|
| 2247 |
|
' _EndPos_X = dOriginalEnd_x
|
| 2248 |
|
' _EndPos_Y = dOriginalEnd_y
|
| 2249 |
|
' End If
|
| 2250 |
|
|
| 2251 |
|
|
| 2252 |
|
' Dim sConn1LineNo As String = ""
|
| 2253 |
|
' If oConn1Rows.Length = 1 Then
|
| 2254 |
|
|
| 2255 |
|
' End If
|
| 2256 |
|
' Dim sConn2LineNo As String = ""
|
| 2257 |
|
' If oConn2Rows.Length = 1 Then
|
| 2258 |
|
|
| 2259 |
|
' End If
|
| 2260 |
|
' Dim oStartLMConnector As LMConnector = Nothing
|
| 2261 |
|
' Dim oEndLMConnector As LMConnector = Nothing
|
| 2262 |
|
' Dim oLMSymbol1 As LMSymbol = Nothing
|
| 2263 |
|
' Dim oLMSymbol2 As LMSymbol = Nothing
|
| 2264 |
|
' Dim objInputs As PlaceRunInputs
|
| 2265 |
|
' objInputs = New PlaceRunInputs
|
| 2266 |
|
|
| 2267 |
|
' If sConn1Type = "Line" And sConn2Type = "Line" Then
|
| 2268 |
|
' iModelingType = 1
|
| 2269 |
|
' ElseIf sConn1Type = "Line" And sConn2Type = "Symbol" Then
|
| 2270 |
|
' iModelingType = 1
|
| 2271 |
|
' ElseIf sConn1Type = "Symbol" And sConn2Type = "Line" Then
|
| 2272 |
|
' iModelingType = 1
|
| 2273 |
|
' ElseIf sConn1Type = "Symbol" And sConn2Type = "Symbol" Then
|
| 2274 |
|
' iModelingType = 1
|
| 2275 |
|
' ElseIf sConn1Type = "Line" And sConn2Type = "" Then
|
| 2276 |
|
' iModelingType = 2
|
| 2277 |
|
' ElseIf sConn1Type = "Symbol" And sConn2Type = "" Then
|
| 2278 |
|
' iModelingType = 2
|
| 2279 |
|
' ElseIf sConn1Type = "" And sConn2Type = "Line" Then
|
| 2280 |
|
' iModelingType = 3
|
| 2281 |
|
' ElseIf sConn1Type = "" And sConn2Type = "Symbol" Then
|
| 2282 |
|
' iModelingType = 3
|
| 2283 |
|
' Else
|
| 2284 |
|
' iModelingType = 4
|
| 2285 |
|
' End If
|
| 2286 |
|
|
| 2287 |
|
' If iModelingType = 1 Then
|
| 2288 |
|
' If sConn1Type = "Line" Then
|
| 2289 |
|
' CheckConnectionLine(oConn1Rows, dOriginalStart_x, dOriginalStart_y, oStartLMConnector)
|
| 2290 |
|
' Else
|
| 2291 |
|
' oLMSymbol1 = CheckConnectionSymbolToLine(oConn1Rows, dOriginalStart_x, dOriginalStart_y, dCenterPos_x, dCenterPos_y, oStartLMConnector)
|
| 2292 |
|
' End If
|
| 2293 |
|
' If sConn1Type = "Line" Then
|
| 2294 |
|
' CheckConnectionLine(oConn2Rows, dOriginalEnd_x, dOriginalEnd_y, oEndLMConnector)
|
| 2295 |
|
' Else
|
| 2296 |
|
' oLMSymbol2 = CheckConnectionSymbolToLine(oConn2Rows, dOriginalEnd_x, dOriginalEnd_y, dCenterPos_x, dCenterPos_y, oEndLMConnector)
|
| 2297 |
|
' End If
|
| 2298 |
|
' 'CheckConnectionLine(oConn1Rows, dOriginalStart_x, dOriginalStart_y, oStartLMConnector)
|
| 2299 |
|
' 'CheckConnectionLine(oConn2Rows, dOriginalEnd_x, dOriginalEnd_y, oEndLMConnector)
|
| 2300 |
|
' ElseIf iModelingType = "2" Then
|
| 2301 |
|
' If sConn1Type = "Line" Then
|
| 2302 |
|
' CheckConnectionLine(oConn1Rows, dOriginalStart_x, dOriginalStart_y, oStartLMConnector)
|
| 2303 |
|
' Else
|
| 2304 |
|
' oLMSymbol1 = CheckConnectionSymbolToLine(oConn1Rows, dOriginalStart_x, dOriginalStart_y, dCenterPos_x, dCenterPos_y, oStartLMConnector)
|
| 2305 |
|
' End If
|
| 2306 |
|
' ' CheckConnectionLine(oConn2Rows, dOriginalStart_x, dOriginalStart_y, oStartLMConnector)
|
| 2307 |
|
' ElseIf iModelingType = "3" Then
|
| 2308 |
|
' If sConn1Type = "Line" Then
|
| 2309 |
|
' CheckConnectionLine(oConn2Rows, dOriginalEnd_x, dOriginalEnd_y, oEndLMConnector)
|
| 2310 |
|
' Else
|
| 2311 |
|
' oLMSymbol2 = CheckConnectionSymbolToLine(oConn2Rows, dOriginalEnd_x, dOriginalEnd_y, dCenterPos_x, dCenterPos_y, oEndLMConnector)
|
| 2312 |
|
' End If
|
| 2313 |
|
' ' CheckConnectionLine(oConn2Rows, dOriginalEnd_x, dOriginalEnd_y, oStartLMConnector)
|
| 2314 |
|
|
| 2315 |
|
' Else
|
| 2316 |
|
' 'objInputs.AddPoint(dOriginalStart_x, dOriginalStart_y)
|
| 2317 |
|
' 'objInputs.AddPoint(dOriginalEnd_x, dOriginalEnd_y)
|
| 2318 |
|
' End If
|
| 2319 |
|
|
| 2320 |
|
' Dim sFirstUid As String = ""
|
| 2321 |
|
' Dim sSecondUid As String = ""
|
| 2322 |
|
|
| 2323 |
|
' If oStartLMConnector Is Nothing And oEndLMConnector Is Nothing Then
|
| 2324 |
|
' objInputs.AddPoint(dOriginalStart_x, dOriginalStart_y)
|
| 2325 |
|
' objInputs.AddPoint(dOriginalEnd_x, dOriginalEnd_y)
|
| 2326 |
|
' 'sFirstUid = CheckExistModeling(oConn1Rows(0))
|
| 2327 |
|
' 'sSecondUid = CheckExistModeling(oConn2Rows(0))
|
| 2328 |
|
' ElseIf oStartLMConnector IsNot Nothing And oEndLMConnector Is Nothing Then
|
| 2329 |
|
' If sConn1Type = "Line" Then
|
| 2330 |
|
' objInputs.AddConnectorTarget(oStartLMConnector, dOriginalStart_x, dOriginalStart_y)
|
| 2331 |
|
' Else
|
| 2332 |
|
' objInputs.AddSymbolTarget(oLMSymbol1, dOriginalStart_x, dOriginalStart_y)
|
| 2333 |
|
' End If
|
| 2334 |
|
|
| 2335 |
|
' objInputs.AddPoint(dOriginalEnd_x, dOriginalEnd_y)
|
| 2336 |
|
' ' sSecondUid = CheckExistModeling(oConn2Rows(0))
|
| 2337 |
|
' ElseIf oStartLMConnector Is Nothing And oEndLMConnector IsNot Nothing Then
|
| 2338 |
|
' If sConn2Type = "Line" Then
|
| 2339 |
|
' objInputs.AddConnectorTarget(oStartLMConnector, dOriginalEnd_x, dOriginalEnd_y)
|
| 2340 |
|
' Else
|
| 2341 |
|
' objInputs.AddSymbolTarget(oLMSymbol2, dOriginalEnd_x, dOriginalEnd_y)
|
| 2342 |
|
' End If
|
| 2343 |
|
|
| 2344 |
|
' objInputs.AddPoint(dOriginalStart_x, dOriginalStart_y)
|
| 2345 |
|
|
| 2346 |
|
' 'objInputs.AddPoint(dOriginalEnd_x, dOriginalEnd_y)
|
| 2347 |
|
|
| 2348 |
|
' ' sFirstUid = CheckExistModeling(oConn1Rows(0))
|
| 2349 |
|
' Else
|
| 2350 |
|
' If sConn1Type = "Line" Then
|
| 2351 |
|
' objInputs.AddConnectorTarget(oStartLMConnector, dOriginalStart_x, dOriginalStart_y)
|
| 2352 |
|
' Else
|
| 2353 |
|
' objInputs.AddSymbolTarget(oLMSymbol1, dOriginalStart_x, dOriginalStart_y)
|
| 2354 |
|
' End If
|
| 2355 |
|
' If sConn2Type = "Line" Then
|
| 2356 |
|
' objInputs.AddConnectorTarget(oStartLMConnector, dOriginalEnd_x, dOriginalEnd_y)
|
| 2357 |
|
' Else
|
| 2358 |
|
' objInputs.AddSymbolTarget(oLMSymbol2, dOriginalEnd_x, dOriginalEnd_y)
|
| 2359 |
|
' End If
|
| 2360 |
|
' 'objInputs.AddConnectorTarget(oStartLMConnector, dOriginalStart_x, dOriginalStart_y)
|
| 2361 |
|
' 'objInputs.AddConnectorTarget(oEndLMConnector, dOriginalEnd_x, dOriginalEnd_y)
|
| 2362 |
|
' End If
|
| 2363 |
|
' If sConn1Type <> "" And sConn2Type <> "" Then
|
| 2364 |
|
' sFirstUid = CheckExistModeling(oConn1Rows(0))
|
| 2365 |
|
' sSecondUid = CheckExistModeling(oConn2Rows(0))
|
| 2366 |
|
' ElseIf sConn1Type <> "" And sConn2Type = "" Then
|
| 2367 |
|
' sFirstUid = CheckExistModeling(oConn1Rows(0))
|
| 2368 |
|
' ElseIf sConn1Type = "" And sConn2Type <> "" Then
|
| 2369 |
|
' sSecondUid = CheckExistModeling(oConn2Rows(0))
|
| 2370 |
|
' End If
|
| 2371 |
|
|
| 2372 |
|
' If sFirstUid <> "" And sSecondUid <> "" Then
|
| 2373 |
|
' sReturnUid = sSecondUid
|
| 2374 |
|
' ElseIf sFirstUid = "" And sSecondUid <> "" Then
|
| 2375 |
|
' sReturnUid = sSecondUid
|
| 2376 |
|
' ElseIf sFirstUid <> "" And sSecondUid = "" Then
|
| 2377 |
|
' sReturnUid = sFirstUid
|
| 2378 |
|
' Else
|
| 2379 |
|
' sReturnUid = ""
|
| 2380 |
|
' End If
|
| 2381 |
|
' _iPipecnt = _iPipecnt + 1
|
| 2382 |
|
' Dim oCurrentConnector As LMConnector
|
| 2383 |
|
|
| 2384 |
|
' objItem = _Placement.PIDCreateItem(sSystemPath)
|
| 2385 |
|
' Try
|
| 2386 |
|
' objInputs.Clear()
|
| 2387 |
|
' objInputs.AddPoint(dOriginalStart_x, dOriginalStart_y)
|
| 2388 |
|
' objInputs.AddPoint(dOriginalEnd_x, dOriginalEnd_y)
|
| 2389 |
|
' oCurrentConnector = _Placement.PIDPlaceRun(objItem, objInputs)
|
| 2390 |
|
' Catch ex As Exception
|
| 2391 |
|
|
| 2392 |
|
' End Try
|
| 2393 |
|
|
| 2394 |
|
' oCurrentLineRow(_XML_LINE_LMCONNECTOR) = oCurrentConnector
|
| 2395 |
|
' oCurrentLineRow(_XML_LINE_DRAWING_TF) = "TRUE"
|
| 2396 |
|
|
| 2397 |
|
' SetListBoxItems(ListBox_Result, "Place Pipe.." & sUid & " (" & dOriginalStart_x & "," & dOriginalStart_y & ") - (" & dOriginalEnd_x & "," & dOriginalEnd_y & ")..." & _iPipecnt & " count ")
|
| 2398 |
|
|
| 2399 |
|
' ComUtil.MessageLog.CEventLog.Log_Write_Update(_Log_Path, _Log_File, "Place Pipe : " & sUid)
|
| 2400 |
|
' ComUtil.MessageLog.CEventLog.Log_Write_Update(_Log_Path, _Log_File, "LineNo : " & sLineNoText)
|
| 2401 |
|
' ComUtil.MessageLog.CEventLog.Log_Write_Update(_Log_Path, _Log_File, "Connection1 : " & oCurrentLineRow(_XML_SYMBOL_Conn1_Uid).ToString())
|
| 2402 |
|
' ComUtil.MessageLog.CEventLog.Log_Write_Update(_Log_Path, _Log_File, "Connection2 : " & oCurrentLineRow(_XML_SYMBOL_Conn2_Uid).ToString())
|
| 2403 |
|
' 'ComUtil.MessageLog.CEventLog.Log_Write_Update(_Log_Path, _Log_File, "Angle : " & dAngle)
|
| 2404 |
|
' ComUtil.MessageLog.CEventLog.Log_Write_Update(_Log_Path, _Log_File, "StartPoint : " & dOriginalStart_x & "," & dOriginalStart_y)
|
| 2405 |
|
' ComUtil.MessageLog.CEventLog.Log_Write_Update(_Log_Path, _Log_File, "EndPoint : " & dOriginalEnd_x & "," & dOriginalEnd_y)
|
| 2406 |
|
' ComUtil.MessageLog.CEventLog.Log_Write_Update(_Log_Path, _Log_File, "Pipe Count : " & _iPipecnt)
|
| 2407 |
|
|
| 2408 |
|
' Dim oPipeRun As LMPipeRun = _Placement.PIDDataSource.GetPipeRun(oCurrentConnector.ModelItemID)
|
| 2409 |
|
' Dim oAttributeRow() As DataRow = oAttribute_Dt.Select(_XML_ATTRIBUTE_UID & " = '" + sLineNoUid + "'")
|
| 2410 |
|
' If oAttributeRow.Length > 0 Then
|
| 2411 |
|
' For Each oAttribute In oAttributeRow
|
| 2412 |
|
' Try
|
| 2413 |
|
' Dim sPIDAttribute As String = oAttribute(_XML_ATTRIBUTE_NAME).ToString()
|
| 2414 |
|
' Dim sPIDValue As String = oAttribute(_XML_ATTRIBUTE_VALUE).ToString()
|
| 2415 |
|
' If sPIDValue.Contains("'") Then
|
| 2416 |
|
' sPIDValue = sPIDValue.Replace("'", """")
|
| 2417 |
|
' End If
|
| 2418 |
|
' Dim sSPPIDAttribute As String = GetAttributeMapping(sPIDAttribute, _DB_COLUMN_ATTRIBUTE_SPPID_ATTRIBUTE)
|
| 2419 |
|
' oPipeRun.Attributes(sSPPIDAttribute).Value = sPIDValue
|
| 2420 |
|
' Catch ex As Exception
|
| 2421 |
|
' End Try
|
| 2422 |
|
' Next
|
| 2423 |
|
' oPipeRun.Commit()
|
| 2424 |
|
' End If
|
| 2425 |
|
|
| 2426 |
|
' Dim sID_1 As String = ""
|
| 2427 |
|
' Dim sID_2 As String = ""
|
| 2428 |
|
' If oStartLMConnector IsNot Nothing Then
|
| 2429 |
|
' sID_1 = oStartLMConnector.ModelItemID
|
| 2430 |
|
' sID_2 = oCurrentConnector.ModelItemID
|
| 2431 |
|
' ElseIf oEndLMConnector IsNot Nothing Then
|
| 2432 |
|
' sID_1 = oEndLMConnector.ModelItemID
|
| 2433 |
|
' sID_2 = oCurrentConnector.ModelItemID
|
| 2434 |
|
' End If
|
| 2435 |
|
' If sID_1 <> "" And sID_2 <> "" Then
|
| 2436 |
|
' ' Dim objSurvivorItem As LMAItem = Nothing
|
| 2437 |
|
' ' Dim oPipeRun1 As LMPipeRun = _Placement.PIDDataSource.GetPipeRun(sID_1)
|
| 2438 |
|
' ' Dim oPipeRun2 As LMPipeRun = _Placement.PIDDataSource.GetPipeRun(sID_2)
|
| 2439 |
|
' ' _Placement.PIDJoinRuns(oPipeRun1, oPipeRun2)
|
| 2440 |
|
' End If
|
| 2441 |
|
' Return sReturnUid
|
| 2442 |
|
' '현재 Uid 모델링
|
| 2443 |
|
'End Function
|
| 2444 |
2296 |
Private Function FinalLineModeling(ByVal oCurrentLineRow As DataRow,
|
| 2445 |
2297 |
ByVal oLine_Dt As DataTable, ByVal oSymbol_Dt As DataTable,
|
| 2446 |
2298 |
ByVal oAttribute_Dt As DataTable) As String
|
| ... | ... | |
| 3056 |
2908 |
|
| 3057 |
2909 |
End Sub
|
| 3058 |
2910 |
|
|
2911 |
Private Function GetPipeColor(ByVal sType As String) As Color
|
|
2912 |
If sType.ToUpper() = "ELECTRIC" Then
|
|
2913 |
Return Color.DarkOrange
|
|
2914 |
ElseIf sType.ToUpper() = "CONNECT TO PROCESS" Then
|
|
2915 |
Return Color.LightGreen
|
|
2916 |
ElseIf sType.ToUpper() = "SOFTWARE" Then
|
|
2917 |
Return Color.Blue
|
|
2918 |
ElseIf sType.ToUpper() = "PNEUMATIC" Then
|
|
2919 |
Return Color.Gray
|
|
2920 |
Else
|
|
2921 |
Return Color.Black
|
|
2922 |
End If
|
|
2923 |
End Function
|
|
2924 |
|
| 3059 |
2925 |
Private Function GetPipeType(ByVal sType As String) As String
|
| 3060 |
2926 |
Dim sSystempath As String = "\Piping\Routing\Process Lines\Primary Piping.sym" ' oPipeRow(0)(_XML_LINE_SYSTEMPATH).ToString()
|
| 3061 |
2927 |
If sType.ToUpper() = "ELECTRIC" Then
|
| 3062 |
2928 |
sSystempath = "\Instrumentation\Signal Line\Electric.sym"
|
| 3063 |
2929 |
ElseIf sType.ToUpper() = "CONNECT TO PROCESS" Then
|
| 3064 |
2930 |
sSystempath = "\Instrumentation\Signal Line\Connect to Process.sym"
|
|
2931 |
ElseIf sType.ToUpper() = "SOFTWARE" Then
|
|
2932 |
sSystempath = "\Instrumentation\Signal Line\Software Link.sym"
|
|
2933 |
ElseIf sType.ToUpper() = "PNEUMATIC" Then
|
|
2934 |
sSystempath = "\Instrumentation\Signal Line\Pneumatic.sym"
|
| 3065 |
2935 |
Else
|
| 3066 |
2936 |
End If
|
| 3067 |
2937 |
Return sSystempath
|
| ... | ... | |
| 5570 |
5440 |
Dim sLineUid As String = oLineRow(_XML_LINE_UID)
|
| 5571 |
5441 |
Dim oPipeNode As TreeNode = oLineNoNode.Nodes.Add(sLineUid, "Pipe")
|
| 5572 |
5442 |
Dim bValidLine As Boolean = oLineRow(_XML_LINE_ValieLine)
|
|
5443 |
|
|
5444 |
|
| 5573 |
5445 |
If bValidLine = False Then
|
| 5574 |
5446 |
oLineNoNode.ForeColor = Color.Red
|
| 5575 |
5447 |
oPipeNode.ForeColor = Color.Red
|
|
5448 |
Else
|
|
5449 |
|
|
5450 |
Dim bLineType As String = oLineRow(_XML_LINE_TYPE)
|
|
5451 |
Dim bLineColor As Color = GetPipeColor(bLineType)
|
|
5452 |
If bLineType <> "Primary" Then
|
|
5453 |
MessageBox.Show("")
|
|
5454 |
End If
|
|
5455 |
oPipeNode.ForeColor = bLineColor
|
| 5576 |
5456 |
End If
|
| 5577 |
5457 |
oPipeNode.Tag = sLineNoUid
|
| 5578 |
5458 |
Next
|
| ... | ... | |
| 5580 |
5460 |
Dim sSymbolUid As String = oSymbolRow(_XML_SYMBOL_UID)
|
| 5581 |
5461 |
Dim sSymbolName As String = oSymbolRow(_XML_SYMBOL_NAME)
|
| 5582 |
5462 |
Dim oSymbolNode As TreeNode = oLineNoNode.Nodes.Add(sSymbolUid, sSymbolName)
|
|
5463 |
|
| 5583 |
5464 |
oSymbolNode.Tag = sLineNoUid
|
| 5584 |
5465 |
Next
|
| 5585 |
5466 |
Next
|
| ... | ... | |
| 5610 |
5491 |
If bValidLine = False Then
|
| 5611 |
5492 |
oLineNoNode.ForeColor = Color.Red
|
| 5612 |
5493 |
oPipeNode.ForeColor = Color.Red
|
|
5494 |
Else
|
|
5495 |
Dim bLineType As String = oLineRow(_XML_LINE_TYPE)
|
|
5496 |
If bLineType <> "Primary" Then
|
|
5497 |
MessageBox.Show("")
|
|
5498 |
End If
|
|
5499 |
Dim bLineColor As Color = GetPipeColor(bLineType)
|
|
5500 |
oPipeNode.ForeColor = bLineColor
|
| 5613 |
5501 |
End If
|
| 5614 |
5502 |
oPipeNode.Tag = sLineNoUid
|
| 5615 |
5503 |
Next
|
