개정판 d039e347
update
| DTI_PID/SPPIDConverter/Main.vb | ||
|---|---|---|
| 335 | 335 |
Return sSPPIDAttribute |
| 336 | 336 |
End Function |
| 337 | 337 |
|
| 338 |
Dim _TempSymbolDt As DataTable = Symbol_Dt() |
|
| 338 |
' Dim _TempSymbolDt As DataTable = Symbol_Dt()
|
|
| 339 | 339 |
|
| 340 | 340 |
|
| 341 | 341 |
Private Function LoadSymbolInXml(ByVal sXmlPath As String) As Drawing |
| 342 |
_TempSymbolDt = Symbol_Dt() |
|
| 342 |
'' _TempSymbolDt = Symbol_Dt()
|
|
| 343 | 343 |
Dim CDrawing As Drawing = New Drawing() |
| 344 | 344 |
Dim oDt As DataTable = LoadSymbol_DT() |
| 345 | 345 |
Dim oElement As XElement = XElement.Load(sXmlPath) |
| ... | ... | |
| 362 | 362 |
CLineNo.Angle = oLineNo.Element(_XML_LINENO_ANGLE).Value |
| 363 | 363 |
CLineNo.SystemPath = GetDataFromMappingDB(_XML_CATEGORY_LINENO, _DB_COLUMN_MAPPING_SPPID_SYSTEMPATH) |
| 364 | 364 |
Catch ex As Exception |
| 365 |
CLineNo.Text = "PipeLineNo" |
|
| 366 |
CLineNo.Uid = "PipeLineNo" |
|
| 365 |
'CLineNo.Text = "PipeLineNo"
|
|
| 366 |
'CLineNo.Uid = "PipeLineNo"
|
|
| 367 | 367 |
End Try |
| 368 | 368 |
|
| 369 | 369 |
|
| ... | ... | |
| 371 | 371 |
Dim oSymbol_Dt As DataTable = Symbol_Dt() |
| 372 | 372 |
Dim oAttribute_Dt As DataTable = Attribute_Dt() |
| 373 | 373 |
|
| 374 |
For Each oLine As Object In oLineNo.Elements(_XML_CATEGORY_LINE) |
|
| 375 |
Dim oAddrow As DataRow = oLine_Dt.NewRow() |
|
| 376 |
Dim oEleObj As XElement |
|
| 377 |
Dim sUid As String |
|
| 378 |
Dim sStartpoint As String |
|
| 379 |
Dim sEndpoint As String |
|
| 380 |
oEleObj = oLine.Element(_XML_LINE_UID) |
|
| 381 |
sUid = oEleObj.Value |
|
| 382 |
oEleObj = oLine.Element(_XML_LINE_STARTPOINT) |
|
| 383 |
sStartpoint = oEleObj.Value |
|
| 384 |
oEleObj = oLine.Element(_XML_LINE_ENDPOINT) |
|
| 385 |
sEndpoint = oEleObj.Value |
|
| 386 |
|
|
| 387 |
oAddrow(_XML_LINE_UID) = sUid |
|
| 388 |
oAddrow(_XML_LINE_STARTPOINT) = sStartpoint |
|
| 389 |
oAddrow(_XML_LINE_ENDPOINT) = sEndpoint |
|
| 390 |
oAddrow(_XML_LINE_SYSTEMPATH) = GetDataFromMappingDB(_XML_CATEGORY_LINE, _DB_COLUMN_MAPPING_SPPID_SYSTEMPATH) |
|
| 391 |
oLine_Dt.Rows.Add(oAddrow) |
|
| 392 |
Next |
|
| 393 |
|
|
| 394 |
For Each oSymbol As Object In oLineNo.Elements(_XML_CATEGORY_SYMBOL) |
|
| 395 |
Dim oAddrow As DataRow = oSymbol_Dt.NewRow() |
|
| 396 |
Dim oEleObj As XElement |
|
| 397 |
Dim sUid As String |
|
| 398 |
Dim sName As String |
|
| 399 |
Dim sLocation As String |
|
| 400 |
Dim sSize As String |
|
| 401 |
Dim sAngle As String |
|
| 402 |
Dim sOriginalPoint As String = "" |
|
| 403 |
oEleObj = oSymbol.Element(_XML_SYMBOL_UID) |
|
| 404 |
sUid = oEleObj.Value |
|
| 405 |
oEleObj = oSymbol.Element(_XML_SYMBOL_NAME) |
|
| 406 |
sName = oEleObj.Value |
|
| 407 |
oEleObj = oSymbol.Element(_XML_SYMBOL_LOCATION) |
|
| 408 |
sLocation = oEleObj.Value |
|
| 409 |
oEleObj = oSymbol.Element(_XML_SYMBOL_SIZE) |
|
| 410 |
sSize = oEleObj.Value |
|
| 411 |
oEleObj = oSymbol.Element(_XML_SYMBOL_ANGLE) |
|
| 412 |
sAngle = oEleObj.Value |
|
| 413 |
Try |
|
| 414 |
oEleObj = oSymbol.Element(_XML_SYMBOL_ORIGINALPOINT) |
|
| 415 |
sOriginalPoint = oEleObj.Value |
|
| 416 |
Catch ex As Exception |
|
| 417 |
|
|
| 418 |
End Try |
|
| 419 |
|
|
| 420 |
|
|
| 421 |
|
|
| 422 |
oAddrow(_XML_SYMBOL_UID) = sUid |
|
| 423 |
oAddrow(_XML_SYMBOL_NAME) = GetDataFromMappingDB(sName, _DB_COLUMN_MAPPING_SPPID_SYMBOLNAME) |
|
| 424 |
oAddrow(_XML_SYMBOL_LOCATION) = sLocation |
|
| 425 |
oAddrow(_XML_SYMBOL_SIZE) = sSize |
|
| 426 |
oAddrow(_XML_SYMBOL_ANGLE) = sAngle |
|
| 427 |
oAddrow(_XML_SYMBOL_SYSTEMPATH) = GetDataFromMappingDB(sName, _DB_COLUMN_MAPPING_SPPID_SYSTEMPATH) |
|
| 428 |
oAddrow(_XML_SYMBOL_TYPE) = GetDataFromMappingDB(sName, _DB_COLUMN_MAPPING_SPPID_COMPTPYE) |
|
| 429 |
oAddrow(_XML_SYMBOL_ORIGINALPOINT) = sOriginalPoint |
|
| 430 |
|
|
| 431 |
oSymbol_Dt.Rows.Add(oAddrow) |
|
| 432 |
Next |
|
| 433 |
|
|
| 434 |
For Each oAtrribute As Object In oLineNo.Elements(_XML_CATEGORY_ATTRIBUTE) |
|
| 374 |
For Each oRun As Object In oLineNo.Elements(_XML_CATEGORY_RUN) |
|
| 375 |
For Each oLine As Object In oRun.Elements(_XML_CATEGORY_LINE) |
|
| 376 |
Dim oAddrow As DataRow = oLine_Dt.NewRow() |
|
| 377 |
Dim oEleObj As XElement |
|
| 378 |
Dim sUid As String |
|
| 379 |
Dim sStartpoint As String |
|
| 380 |
Dim sEndpoint As String |
|
| 381 |
oEleObj = oLine.Element(_XML_LINE_UID) |
|
| 382 |
sUid = oEleObj.Value |
|
| 383 |
oEleObj = oLine.Element(_XML_LINE_STARTPOINT) |
|
| 384 |
sStartpoint = oEleObj.Value |
|
| 385 |
oEleObj = oLine.Element(_XML_LINE_ENDPOINT) |
|
| 386 |
sEndpoint = oEleObj.Value |
|
| 387 |
|
|
| 388 |
oAddrow(_XML_LINE_UID) = sUid |
|
| 389 |
oAddrow(_XML_LINE_STARTPOINT) = sStartpoint |
|
| 390 |
oAddrow(_XML_LINE_ENDPOINT) = sEndpoint |
|
| 391 |
oAddrow(_XML_LINE_SYSTEMPATH) = GetDataFromMappingDB(_XML_CATEGORY_LINE, _DB_COLUMN_MAPPING_SPPID_SYSTEMPATH) |
|
| 392 |
oLine_Dt.Rows.Add(oAddrow) |
|
| 393 |
Next |
|
| 394 |
|
|
| 395 |
For Each oSymbol As Object In oRun.Elements(_XML_CATEGORY_SYMBOL) |
|
| 396 |
Dim oAddrow As DataRow = oSymbol_Dt.NewRow() |
|
| 397 |
Dim oEleObj As XElement |
|
| 398 |
Dim sUid As String |
|
| 399 |
Dim sName As String |
|
| 400 |
Dim sLocation As String |
|
| 401 |
Dim sSize As String |
|
| 402 |
Dim sAngle As String |
|
| 403 |
Dim sOriginalPoint As String = "" |
|
| 404 |
oEleObj = oSymbol.Element(_XML_SYMBOL_UID) |
|
| 405 |
sUid = oEleObj.Value |
|
| 406 |
oEleObj = oSymbol.Element(_XML_SYMBOL_NAME) |
|
| 407 |
sName = oEleObj.Value |
|
| 408 |
oEleObj = oSymbol.Element(_XML_SYMBOL_LOCATION) |
|
| 409 |
sLocation = oEleObj.Value |
|
| 410 |
oEleObj = oSymbol.Element(_XML_SYMBOL_SIZE) |
|
| 411 |
sSize = oEleObj.Value |
|
| 412 |
oEleObj = oSymbol.Element(_XML_SYMBOL_ANGLE) |
|
| 413 |
sAngle = oEleObj.Value |
|
| 414 |
Try |
|
| 415 |
oEleObj = oSymbol.Element(_XML_SYMBOL_ORIGINALPOINT) |
|
| 416 |
sOriginalPoint = oEleObj.Value |
|
| 417 |
Catch ex As Exception |
|
| 435 | 418 |
|
| 436 |
Dim oAddrow As DataRow = oAttribute_Dt.NewRow() |
|
| 437 |
Dim oEleObj As XElement |
|
| 438 |
Dim sUid As String |
|
| 439 |
Dim sName As String |
|
| 440 |
Dim sValue As String |
|
| 419 |
End Try |
|
| 441 | 420 |
|
| 442 |
oEleObj = oAtrribute.Element(_XML_ATTRIBUTE_UID) |
|
| 443 |
sUid = oEleObj.Value |
|
| 444 |
oEleObj = oAtrribute.Element(_XML_ATTRIBUTE_NAME) |
|
| 445 |
sName = oEleObj.Value |
|
| 446 |
oEleObj = oAtrribute.Element(_XML_ATTRIBUTE_VALUE) |
|
| 447 |
sValue = oEleObj.Value |
|
| 421 |
oAddrow(_XML_SYMBOL_UID) = sUid |
|
| 422 |
oAddrow(_XML_SYMBOL_NAME) = GetDataFromMappingDB(sName, _DB_COLUMN_MAPPING_SPPID_SYMBOLNAME) |
|
| 423 |
oAddrow(_XML_SYMBOL_LOCATION) = sLocation |
|
| 424 |
oAddrow(_XML_SYMBOL_SIZE) = sSize |
|
| 425 |
oAddrow(_XML_SYMBOL_ANGLE) = sAngle |
|
| 426 |
oAddrow(_XML_SYMBOL_SYSTEMPATH) = GetDataFromMappingDB(sName, _DB_COLUMN_MAPPING_SPPID_SYSTEMPATH) |
|
| 427 |
oAddrow(_XML_SYMBOL_TYPE) = GetDataFromMappingDB(sName, _DB_COLUMN_MAPPING_SPPID_COMPTPYE) |
|
| 428 |
oAddrow(_XML_SYMBOL_ORIGINALPOINT) = sOriginalPoint |
|
| 429 |
|
|
| 430 |
oSymbol_Dt.Rows.Add(oAddrow) |
|
| 431 |
Next |
|
| 432 |
|
|
| 433 |
For Each oAtrribute As Object In oRun.Elements(_XML_CATEGORY_ATTRIBUTE) |
|
| 434 |
|
|
| 435 |
Dim oAddrow As DataRow = oAttribute_Dt.NewRow() |
|
| 436 |
Dim oEleObj As XElement |
|
| 437 |
Dim sUid As String |
|
| 438 |
Dim sName As String |
|
| 439 |
Dim sValue As String |
|
| 440 |
|
|
| 441 |
oEleObj = oAtrribute.Element(_XML_ATTRIBUTE_UID) |
|
| 442 |
sUid = oEleObj.Value |
|
| 443 |
oEleObj = oAtrribute.Element(_XML_ATTRIBUTE_NAME) |
|
| 444 |
sName = oEleObj.Value |
|
| 445 |
oEleObj = oAtrribute.Element(_XML_ATTRIBUTE_VALUE) |
|
| 446 |
sValue = oEleObj.Value |
|
| 447 |
|
|
| 448 |
oAddrow(_XML_ATTRIBUTE_UID) = sUid |
|
| 449 |
oAddrow(_XML_ATTRIBUTE_NAME) = sName |
|
| 450 |
oAddrow(_XML_ATTRIBUTE_VALUE) = sValue |
|
| 451 |
oAttribute_Dt.Rows.Add(oAddrow) |
|
| 452 |
Next |
|
| 448 | 453 |
|
| 449 |
oAddrow(_XML_ATTRIBUTE_UID) = sUid |
|
| 450 |
oAddrow(_XML_ATTRIBUTE_NAME) = sName |
|
| 451 |
oAddrow(_XML_ATTRIBUTE_VALUE) = sValue |
|
| 452 |
oAttribute_Dt.Rows.Add(oAddrow) |
|
| 453 | 454 |
Next |
| 454 | 455 |
CLineNo.Dt_Line = oLine_Dt |
| 455 | 456 |
CLineNo.Dt_Symbol = oSymbol_Dt |
| 456 | 457 |
CLineNo.Dt_Attribute = oAttribute_Dt |
| 457 | 458 |
oLineno_list.Add(CLineNo) |
| 458 |
Next |
|
| 459 |
|
|
| 460 |
For Each oSymbol As Object In oElement.Elements(_XML_CATEGORY_SYMBOL) |
|
| 461 |
Dim oAddrow As DataRow = _TempSymbolDt.NewRow() |
|
| 462 |
Dim oEleObj As XElement |
|
| 463 |
Dim sUid As String |
|
| 464 |
Dim sName As String |
|
| 465 |
Dim sLocation As String |
|
| 466 |
Dim sSize As String |
|
| 467 |
Dim sAngle As String |
|
| 468 |
Dim sOriginalPoint As String = "" |
|
| 469 |
oEleObj = oSymbol.Element(_XML_SYMBOL_UID) |
|
| 470 |
sUid = oEleObj.Value |
|
| 471 |
oEleObj = oSymbol.Element(_XML_SYMBOL_NAME) |
|
| 472 |
sName = oEleObj.Value |
|
| 473 |
oEleObj = oSymbol.Element(_XML_SYMBOL_LOCATION) |
|
| 474 |
sLocation = oEleObj.Value |
|
| 475 |
oEleObj = oSymbol.Element(_XML_SYMBOL_SIZE) |
|
| 476 |
sSize = oEleObj.Value |
|
| 477 |
oEleObj = oSymbol.Element(_XML_SYMBOL_ANGLE) |
|
| 478 |
sAngle = oEleObj.Value |
|
| 479 |
Try |
|
| 480 |
oEleObj = oSymbol.Element(_XML_SYMBOL_ORIGINALPOINT) |
|
| 481 |
sOriginalPoint = oEleObj.Value |
|
| 482 |
Catch ex As Exception |
|
| 459 |
'For Each oSymbol As Object In oElement.Elements(_XML_CATEGORY_SYMBOL) |
|
| 460 |
' Dim oAddrow As DataRow = _TempSymbolDt.NewRow() |
|
| 461 |
' Dim oEleObj As XElement |
|
| 462 |
' Dim sUid As String |
|
| 463 |
' Dim sName As String |
|
| 464 |
' Dim sLocation As String |
|
| 465 |
' Dim sSize As String |
|
| 466 |
' Dim sAngle As String |
|
| 467 |
' Dim sOriginalPoint As String = "" |
|
| 468 |
' oEleObj = oSymbol.Element(_XML_SYMBOL_UID) |
|
| 469 |
' sUid = oEleObj.Value |
|
| 470 |
' oEleObj = oSymbol.Element(_XML_SYMBOL_NAME) |
|
| 471 |
' sName = oEleObj.Value |
|
| 472 |
' oEleObj = oSymbol.Element(_XML_SYMBOL_LOCATION) |
|
| 473 |
' sLocation = oEleObj.Value |
|
| 474 |
' oEleObj = oSymbol.Element(_XML_SYMBOL_SIZE) |
|
| 475 |
' sSize = oEleObj.Value |
|
| 476 |
' oEleObj = oSymbol.Element(_XML_SYMBOL_ANGLE) |
|
| 477 |
' sAngle = oEleObj.Value |
|
| 478 |
' Try |
|
| 479 |
' oEleObj = oSymbol.Element(_XML_SYMBOL_ORIGINALPOINT) |
|
| 480 |
' sOriginalPoint = oEleObj.Value |
|
| 481 |
' Catch ex As Exception |
|
| 482 |
|
|
| 483 |
' End Try |
|
| 484 |
' oAddrow(_XML_SYMBOL_UID) = sUid |
|
| 485 |
' oAddrow(_XML_SYMBOL_NAME) = sName |
|
| 486 |
' oAddrow(_XML_SYMBOL_LOCATION) = sLocation |
|
| 487 |
' oAddrow(_XML_SYMBOL_SIZE) = sSize |
|
| 488 |
' oAddrow(_XML_SYMBOL_ANGLE) = sAngle |
|
| 489 |
' oAddrow(_XML_SYMBOL_SYSTEMPATH) = GetDataFromMappingDB(sName, _DB_COLUMN_MAPPING_SPPID_SYSTEMPATH) |
|
| 490 |
' oAddrow(_XML_SYMBOL_TYPE) = GetDataFromMappingDB(sName, _DB_COLUMN_MAPPING_SPPID_COMPTPYE) |
|
| 491 |
' oAddrow(_XML_SYMBOL_ORIGINALPOINT) = sOriginalPoint |
|
| 492 |
' _TempSymbolDt.Rows.Add(oAddrow) |
|
| 493 |
'Next |
|
| 483 | 494 |
|
| 484 |
End Try |
|
| 485 |
oAddrow(_XML_SYMBOL_UID) = sUid |
|
| 486 |
oAddrow(_XML_SYMBOL_NAME) = sName |
|
| 487 |
oAddrow(_XML_SYMBOL_LOCATION) = sLocation |
|
| 488 |
oAddrow(_XML_SYMBOL_SIZE) = sSize |
|
| 489 |
oAddrow(_XML_SYMBOL_ANGLE) = sAngle |
|
| 490 |
oAddrow(_XML_SYMBOL_SYSTEMPATH) = GetDataFromMappingDB(sName, _DB_COLUMN_MAPPING_SPPID_SYSTEMPATH) |
|
| 491 |
oAddrow(_XML_SYMBOL_TYPE) = GetDataFromMappingDB(sName, _DB_COLUMN_MAPPING_SPPID_COMPTPYE) |
|
| 492 |
oAddrow(_XML_SYMBOL_ORIGINALPOINT) = sOriginalPoint |
|
| 493 |
_TempSymbolDt.Rows.Add(oAddrow) |
|
| 494 | 495 |
Next |
| 495 | 496 |
|
| 496 | 497 |
|
| 497 |
For Each oEqpNo As Object In oElement.Elements(_XML_CATEGORY_EQUIPMENT) |
|
| 498 |
|
|
| 499 |
For Each oEqpNo As Object In oElement.Elements(_XML_CATEGORY_EQUIPMENT) |
|
| 498 | 500 |
Dim CEqp_no As Eqp_no = New Eqp_no() |
| 499 | 501 |
'CEqp_no.Uid = oEqpNo.Element(_XML_EQP_UID).Value |
| 500 | 502 |
'CEqp_no.Text = oEqpNo.Element(_XML_EQP_TEXT).Value |
| ... | ... | |
| 1394 | 1396 |
dY = dLocationY |
| 1395 | 1397 |
ConvertPointByImage(dX, dY, _IMG_X, _IMG_Y) |
| 1396 | 1398 |
Dim oInstrument As LMInstrument |
| 1397 |
If sSymbolCompType = _SYMBOL_INSTUMENT Then |
|
| 1399 |
If sSymbolCompType.ToUpper() = _SYMBOL_INSTUMENT Then
|
|
| 1398 | 1400 |
_iInstrumentcnt = _iInstrumentcnt + 1 |
| 1399 | 1401 |
objSymbol = _Placement.PIDPlaceSymbol(sSystemPath, dX, dY, , dAngle) |
| 1400 | 1402 |
SetListBoxItems(ListBox_Result, "Place Instrument..(" & dLocationX & "," & dLocationY & ")..." & _iInstrumentcnt & " count ")
|
| ... | ... | |
| 1414 | 1416 |
End Try |
| 1415 | 1417 |
|
| 1416 | 1418 |
|
| 1417 |
ElseIf sSymbolCompType = _SYMBOL_VALVES Then |
|
| 1419 |
ElseIf sSymbolCompType.ToUpper() = _SYMBOL_VALVES Then
|
|
| 1418 | 1420 |
_iValvecnt = _iValvecnt + 1 |
| 1419 | 1421 |
_Placement.PIDPlaceSymbol(sSystemPath, dX, dY, , dAngle) |
| 1420 | 1422 |
SetListBoxItems(ListBox_Result, "Place Valve..(" & dLocationX & "," & dLocationY & ")..." & _iValvecnt & " count ")
|
| 1421 | 1423 |
|
| 1422 |
ElseIf sSymbolCompType = _SYMBOL_FITTINGS Then |
|
| 1424 |
ElseIf sSymbolCompType.ToUpper() = _SYMBOL_FITTINGS Then
|
|
| 1423 | 1425 |
_iFittingcnt = _iFittingcnt + 1 |
| 1424 |
_Placement.PIDPlaceSymbol(sSystemPath, dX, dY, , dAngle) |
|
| 1426 |
If sSystemPath.Contains(",") Then
|
|
| 1427 |
|
|
| 1428 |
Dim sDuplicatePath As String() = sSystemPath.Split(",")
|
|
| 1429 |
Dim sMainSymbol As String = "" |
|
| 1430 |
Dim sSubSymbol As String = "" |
|
| 1431 |
For Each sPath In sDuplicatePath |
|
| 1432 |
If sMainSymbol = "" Then |
|
| 1433 |
sMainSymbol = sPath.Replace(vbLf, "") |
|
| 1434 |
Else |
|
| 1435 |
sSubSymbol = sPath.Replace(vbLf, "") |
|
| 1436 |
End If |
|
| 1437 |
Next |
|
| 1438 |
Dim oSymbolObj As LMSymbol = _Placement.PIDPlaceSymbol(sMainSymbol, dX, dY, , dAngle) |
|
| 1439 |
Dim dConnpos_x As Double = 0.0 |
|
| 1440 |
Dim dConnpos_y As Double = 0.0 |
|
| 1441 |
_Placement.PIDConnectPointLocation(oSymbolObj, 2, dConnpos_x, dConnpos_y) |
|
| 1442 |
' _Placement.PIDPlaceSymbol(sSubSymbol, dConnpos_x, dConnpos_y, dAngle, TargetItem:=oSymbolObj.AsLMRepresentation) |
|
| 1443 |
_Placement.PIDPlaceSymbol(sSubSymbol, dConnpos_x, dConnpos_y,, dAngle) |
|
| 1444 |
|
|
| 1445 |
Else |
|
| 1446 |
_Placement.PIDPlaceSymbol(sSystemPath, dX, dY, , dAngle) |
|
| 1447 |
End If |
|
| 1448 |
|
|
| 1449 |
|
|
| 1425 | 1450 |
SetListBoxItems(ListBox_Result, "Place Fitting..(" & dLocationX & "," & dLocationY & ")..." & _iFittingcnt & " count ")
|
| 1451 |
ElseIf sSymbolCompType.ToUpper() = _SYMBOL_ACTUATORS Then |
|
| 1452 |
_iFittingcnt = _iFittingcnt + 1 |
|
| 1453 |
Dim sDuplicatePath As String() = sSystemPath.Split(",")
|
|
| 1454 |
Dim sMainSymbol As String = "" |
|
| 1455 |
Dim sSubSymbol As String = "" |
|
| 1456 |
For Each sPath In sDuplicatePath |
|
| 1457 |
If sMainSymbol = "" Then |
|
| 1458 |
sMainSymbol = sPath.Replace(vbLf, "") |
|
| 1459 |
Else |
|
| 1460 |
sSubSymbol = sPath.Replace(vbLf, "") |
|
| 1461 |
End If |
|
| 1462 |
Next |
|
| 1463 |
Dim oSymbolObj As LMSymbol = _Placement.PIDPlaceSymbol(sMainSymbol, dX, dY, , dAngle) |
|
| 1464 |
Dim dSymbolpos_x As Double = oSymbolObj.XCoordinate |
|
| 1465 |
Dim dSymbolpos_y As Double = oSymbolObj.YCoordinate |
|
| 1466 |
_Placement.PIDPlaceSymbol(sSubSymbol, dSymbolpos_x, dSymbolpos_y, , dAngle, TargetItem:=oSymbolObj.AsLMAItem) |
|
| 1467 |
|
|
| 1426 | 1468 |
Else |
| 1427 | 1469 |
_iFittingcnt = _iFittingcnt + 1 |
| 1428 | 1470 |
_Placement.PIDPlaceSymbol(sSystemPath, dX, dY, , dAngle) |
| 1429 | 1471 |
SetListBoxItems(ListBox_Result, "Place Fitting..(" & dLocationX & "," & dLocationY & ")..." & _iFittingcnt & " count ")
|
| 1430 |
|
|
| 1431 | 1472 |
End If |
| 1432 | 1473 |
|
| 1433 | 1474 |
End If |
| ... | ... | |
| 1668 | 1709 |
For Each oLinelist In oLineLists |
| 1669 | 1710 |
Dim sLineNoUid As String = oLinelist.Uid |
| 1670 | 1711 |
Dim sLineNo As String = oLinelist.Text |
| 1671 |
If sLineNo <> "PipeLineNo" Then |
|
| 1672 |
Dim oLineNoNode As TreeNode = oParentNode.Nodes.Add(sLineNoUid, sLineNo) |
|
| 1673 |
For Each oLineRow In oLinelist.Dt_Line.Rows |
|
| 1674 |
Dim sLineUid As String = oLineRow(_XML_LINE_UID) |
|
| 1675 |
Dim oPipeNode As TreeNode = oLineNoNode.Nodes.Add(sLineUid, "Pipe") |
|
| 1676 |
oPipeNode.Tag = sLineNoUid |
|
| 1677 |
Next |
|
| 1678 |
For Each oSymbolRow In oLinelist.Dt_Symbol.Rows |
|
| 1679 |
Dim sSymbolUid As String = oSymbolRow(_XML_SYMBOL_UID) |
|
| 1680 |
Dim sSymbolName As String = oSymbolRow(_XML_SYMBOL_NAME) |
|
| 1681 |
Dim oSymbolNode As TreeNode = oLineNoNode.Nodes.Add(sSymbolUid, sSymbolName) |
|
| 1682 |
oSymbolNode.Tag = sLineNoUid |
|
| 1683 |
Next |
|
| 1684 |
Else |
|
| 1685 |
If oPipe = False Then |
|
| 1686 |
oOnlyPipesNode = oParentNode.Nodes.Add("PipeLineNo", "PipeLineNo")
|
|
| 1687 |
oPipe = True |
|
| 1688 |
End If |
|
| 1689 |
For Each oLineRow In oLinelist.Dt_Line.Rows |
|
| 1690 |
Dim sLineUid As String = oLineRow(_XML_SYMBOL_UID) |
|
| 1691 |
Dim oPipeNode As TreeNode = oOnlyPipesNode.Nodes.Add(sLineUid, "Pipe") |
|
| 1692 |
oPipeNode.Tag = sLineNoUid |
|
| 1693 |
Next |
|
| 1712 |
Dim oLineNoNode As TreeNode = oParentNode.Nodes.Add(sLineNoUid, sLineNo) |
|
| 1713 |
For Each oLineRow In oLinelist.Dt_Line.Rows |
|
| 1714 |
Dim sLineUid As String = oLineRow(_XML_LINE_UID) |
|
| 1715 |
Dim oPipeNode As TreeNode = oLineNoNode.Nodes.Add(sLineUid, "Pipe") |
|
| 1716 |
oPipeNode.Tag = sLineNoUid |
|
| 1717 |
Next |
|
| 1718 |
For Each oSymbolRow In oLinelist.Dt_Symbol.Rows |
|
| 1719 |
Dim sSymbolUid As String = oSymbolRow(_XML_SYMBOL_UID) |
|
| 1720 |
Dim sSymbolName As String = oSymbolRow(_XML_SYMBOL_NAME) |
|
| 1721 |
Dim oSymbolNode As TreeNode = oLineNoNode.Nodes.Add(sSymbolUid, sSymbolName) |
|
| 1722 |
oSymbolNode.Tag = sLineNoUid |
|
| 1723 |
Next |
|
| 1724 |
'If sLineNo <> "PipeLineNo" Then |
|
| 1694 | 1725 |
|
| 1726 |
'Else |
|
| 1727 |
' 'If oPipe = False Then |
|
| 1728 |
' ' oOnlyPipesNode = oParentNode.Nodes.Add("PipeLineNo", "PipeLineNo")
|
|
| 1729 |
' ' oPipe = True |
|
| 1730 |
' 'End If |
|
| 1731 |
' 'For Each oLineRow In oLinelist.Dt_Line.Rows |
|
| 1732 |
' ' Dim sLineUid As String = oLineRow(_XML_SYMBOL_UID) |
|
| 1733 |
' ' Dim oPipeNode As TreeNode = oOnlyPipesNode.Nodes.Add(sLineUid, "Pipe") |
|
| 1734 |
' ' oPipeNode.Tag = sLineNoUid |
|
| 1735 |
' 'Next |
|
| 1695 | 1736 |
|
| 1696 | 1737 |
|
| 1697 | 1738 |
|
| 1698 |
End If |
|
| 1699 |
Next |
|
| 1700 |
For Each oSymbolRow In _TempSymbolDt.Rows |
|
| 1701 |
If oFitting = False Then |
|
| 1702 |
oOnlyFittingsNode = oParentNode.Nodes.Add("Symbols", "Symbols")
|
|
| 1703 |
oFitting = True |
|
| 1704 |
End If |
|
| 1705 |
Dim sSymbolUid As String = oSymbolRow(_XML_SYMBOL_UID) |
|
| 1706 |
Dim sSymbolName As String = oSymbolRow(_XML_SYMBOL_NAME) |
|
| 1707 |
Dim oSymbolNode As TreeNode = oOnlyFittingsNode.Nodes.Add(sSymbolUid, sSymbolName) |
|
| 1708 |
oSymbolNode.Tag = sSymbolUid |
|
| 1739 |
|
|
| 1740 |
'End If |
|
| 1709 | 1741 |
Next |
| 1742 |
'For Each oSymbolRow In _TempSymbolDt.Rows |
|
| 1743 |
' If oFitting = False Then |
|
| 1744 |
' oOnlyFittingsNode = oParentNode.Nodes.Add("Symbols", "Symbols")
|
|
| 1745 |
' oFitting = True |
|
| 1746 |
' End If |
|
| 1747 |
' Dim sSymbolUid As String = oSymbolRow(_XML_SYMBOL_UID) |
|
| 1748 |
' Dim sSymbolName As String = oSymbolRow(_XML_SYMBOL_NAME) |
|
| 1749 |
' Dim oSymbolNode As TreeNode = oOnlyFittingsNode.Nodes.Add(sSymbolUid, sSymbolName) |
|
| 1750 |
' oSymbolNode.Tag = sSymbolUid |
|
| 1751 |
'Next |
|
| 1710 | 1752 |
For Each oEqplist In oEqpLists |
| 1711 | 1753 |
Dim sEqpUid As String = oEqplist.Uid |
| 1712 | 1754 |
Dim sEqpNo As String = "EQUIPMENT" |
내보내기 Unified diff
