개정판 3e63328a
Place Nozzle Update
DTI_PID/SPPIDConverter/Main.vb | ||
---|---|---|
2371 | 2371 |
ConvertPointByImage(dConn1_x, dConn1_y, _IMG_X, _IMG_Y) |
2372 | 2372 |
End Sub |
2373 | 2373 |
|
2374 |
|
|
2375 | 2374 |
Private Function FinalLineModeling(ByVal oCurrentLineRow As DataRow, |
2376 | 2375 |
ByVal oLine_Dt As DataTable, ByVal oSymbol_Dt As DataTable, |
2377 | 2376 |
ByVal oAttribute_Dt As DataTable) As String |
... | ... | |
5701 | 5700 |
Dim bLineType As String = oLineRow(_XML_LINE_TYPE) |
5702 | 5701 |
Dim bLineColor As Color = GetPipeColor(bLineType) |
5703 | 5702 |
If bLineType <> "Primary" Then |
5704 |
MessageBox.Show("") |
|
5703 |
' MessageBox.Show("")
|
|
5705 | 5704 |
End If |
5706 | 5705 |
oPipeNode.ForeColor = bLineColor |
5707 | 5706 |
End If |
... | ... | |
5745 | 5744 |
Else |
5746 | 5745 |
Dim bLineType As String = oLineRow(_XML_LINE_TYPE) |
5747 | 5746 |
If bLineType <> "Primary" Then |
5748 |
MessageBox.Show("") |
|
5747 |
' MessageBox.Show("")
|
|
5749 | 5748 |
End If |
5750 | 5749 |
Dim bLineColor As Color = GetPipeColor(bLineType) |
5751 | 5750 |
oPipeNode.ForeColor = bLineColor |
내보내기 Unified diff