개정판 c2c36314
Loc조정
| DTI_PID/SPPIDConverter/Main.vb | ||
|---|---|---|
| 15 | 15 |
Dim _Attribute_DB As DataTable = New DataTable() |
| 16 | 16 |
Dim _PIDSymbol_DB As DataTable = New DataTable() |
| 17 | 17 |
Dim _Placement As New Placement |
| 18 |
Dim _DWG_X = 0.829 '0.695 '1 ' |
|
| 19 |
Dim _DWG_Y = 0.5985 '0.585 '0.8 ' |
|
| 20 |
|
|
| 18 |
Dim _DWG_X = 0.89 '0.695 '1 ' |
|
| 19 |
Dim _DWG_Y = 0.61 '0.585 '0.8 ' |
|
| 20 |
'Dim _DWG_X = 0.842 '0.695 '1 ' |
|
| 21 |
'Dim _DWG_Y = 0.614 '0.585 '0.8 ' |
|
| 21 | 22 |
Dim _IMG_X = 0 |
| 22 | 23 |
Dim _IMG_Y = 0 |
| 23 | 24 |
|
| ... | ... | |
| 485 | 486 |
Dim sUid As String |
| 486 | 487 |
Dim sStartpoint As String |
| 487 | 488 |
Dim sEndpoint As String |
| 489 |
Dim sType As String |
|
| 488 | 490 |
oEleObj = oLine.Element(_XML_LINE_UID) |
| 489 | 491 |
sUid = oEleObj.Value |
| 490 | 492 |
oEleObj = oLine.Element(_XML_LINE_STARTPOINT) |
| 491 | 493 |
sStartpoint = oEleObj.Value |
| 492 | 494 |
oEleObj = oLine.Element(_XML_LINE_ENDPOINT) |
| 493 | 495 |
sEndpoint = oEleObj.Value |
| 494 |
|
|
| 496 |
oEleObj = oLine.Element(_XML_LINE_TYPE) |
|
| 497 |
sType = oEleObj.Value |
|
| 495 | 498 |
oAddrow(_XML_LINE_UID) = sUid |
| 496 | 499 |
oAddrow(_XML_LINE_STARTPOINT) = sStartpoint |
| 497 | 500 |
oAddrow(_XML_LINE_ENDPOINT) = sEndpoint |
| 498 | 501 |
oAddrow(_XML_LINE_SYSTEMPATH) = GetDataFromMappingDB(_XML_CATEGORY_LINE, _DB_COLUMN_MAPPING_SPPID_SYSTEMPATH) |
| 499 | 502 |
oAddrow(_XML_LINE_DRAWING) = "FALSE" |
| 503 |
oAddrow(_XML_LINE_TYPE) = sType |
|
| 500 | 504 |
oLine_Dt.Rows.Add(oAddrow) |
| 501 | 505 |
Catch ex As Exception |
| 502 | 506 |
|
| ... | ... | |
| 1347 | 1351 |
Dim dStart_y As Double = 0.0 |
| 1348 | 1352 |
Dim dEnd_x As Double = 0.0 |
| 1349 | 1353 |
Dim dEnd_y As Double = 0.0 |
| 1354 |
|
|
| 1355 |
Dim sType As String = oPipeRow(0)(_XML_LINE_TYPE).ToString() |
|
| 1356 |
|
|
| 1350 | 1357 |
Dim sSystempath As String = "\Piping\Routing\Process Lines\Primary Piping.sym" ' oPipeRow(0)(_XML_LINE_SYSTEMPATH).ToString() |
| 1358 |
If sType.ToUpper() = "ELECTRIC" Then |
|
| 1359 |
sSystempath = "\Instrumentation\Signal Line\Electric.sym" |
|
| 1360 |
ElseIf sType.ToUpper() = "CONNECT TO PROCESS" Then |
|
| 1361 |
sSystempath = "\Instrumentation\Signal Line\Connect to Process.sym" |
|
| 1362 |
Else |
|
| 1363 |
End If |
|
| 1351 | 1364 |
Dim sStartpoint As String = oPipeRow(0)(_XML_LINE_STARTPOINT).ToString() |
| 1352 | 1365 |
Dim sEndpoint As String = oPipeRow(0)(_XML_LINE_ENDPOINT).ToString() |
| 1353 | 1366 |
Dim sPipeUid As String = oPipeRow(0)(_XML_LINE_UID).ToString() |
내보내기 Unified diff
