개정판 4e016f5d
Update
| DTI_PID/SPPIDConverter/Main.vb | ||
|---|---|---|
| 1677 | 1677 |
oSelectRows(0)(_XML_SYMBOL_DRAWING_TF) = "FALSE" |
| 1678 | 1678 | |
| 1679 | 1679 |
If oSymbolNode.Checked Then |
| 1680 | ||
| 1681 | 1680 |
oSelectRows(0)(_XML_SYMBOL_Check) = "TRUE" |
| 1682 | 1681 |
Else |
| 1683 | 1682 |
oSelectRows(0)(_XML_SYMBOL_Check) = "FALSE" |
| ... | ... | |
| 2777 | 2776 |
sID_2 = oCurrentConnector.ModelItemID |
| 2778 | 2777 |
oAddConnector = oEndLMConnector |
| 2779 | 2778 |
End If |
| 2780 |
If sID_1 <> "" And sID_2 <> "" Then |
|
| 2781 |
Dim objSurvivorItem As LMAItem = Nothing |
|
| 2782 |
Dim oPipeRun1 As LMPipeRun = oPidDataSource.GetPipeRun(sID_1) |
|
| 2783 |
Dim oPipeRun2 As LMPipeRun = oPidDataSource.GetPipeRun(sID_2) |
|
| 2784 |
_Placement.PIDJoinRuns(oPipeRun1, oPipeRun2) |
|
| 2785 | ||
| 2786 |
Dim oChangeRow() As DataRow = _ModelingLine_Dt.Select(_XML_LINE_SPID & " = '" & sID_2 & "'") |
|
| 2787 |
If oChangeRow.Length = 1 Then |
|
| 2788 |
oChangeRow(0)(_XML_LINE_SPID) = sID_1 |
|
| 2789 |
oChangeRow(0)(_XML_LINE_LMCONNECTOR) = oAddConnector |
|
| 2790 |
End If |
|
| 2791 |
End If |
|
| 2792 |
Else
|
|
| 2779 |
' If sID_1 <> "" And sID_2 <> "" Then
|
|
| 2780 |
' Dim objSurvivorItem As LMAItem = Nothing
|
|
| 2781 |
' Dim oPipeRun1 As LMPipeRun = oPidDataSource.GetPipeRun(sID_1)
|
|
| 2782 |
' Dim oPipeRun2 As LMPipeRun = oPidDataSource.GetPipeRun(sID_2)
|
|
| 2783 |
' _Placement.PIDJoinRuns(oPipeRun1, oPipeRun2)
|
|
| 2784 | ||
| 2785 |
' Dim oChangeRow() As DataRow = _ModelingLine_Dt.Select(_XML_LINE_SPID & " = '" & sID_2 & "'")
|
|
| 2786 |
' If oChangeRow.Length = 1 Then
|
|
| 2787 |
' oChangeRow(0)(_XML_LINE_SPID) = sID_1
|
|
| 2788 |
' oChangeRow(0)(_XML_LINE_LMCONNECTOR) = oAddConnector
|
|
| 2789 |
' End If
|
|
| 2790 |
'End If
|
|
| 2791 |
Else |
|
| 2793 | 2792 |
sReturnUid = "" |
| 2794 | 2793 |
End If |
| 2795 | 2794 |
Catch ex As Exception |
| ... | ... | |
| 2841 | 2840 |
If oSymbolNode.Checked Then |
| 2842 | 2841 |
Try |
| 2843 | 2842 |
Dim sUid As String = oSymbolNode.Name |
| 2844 |
If sUid = "152b5931-e7ed-4fe9-bed8-6c01303567b7" Then |
|
| 2845 |
MessageBox.Show("")
|
|
| 2846 |
End If |
|
| 2847 | 2843 |
Dim sLineNoUid As String = CLineNo.Uid |
| 2848 | 2844 |
Dim sReturnUid = sUid |
| 2849 | 2845 |
' FinalModeling(sUid, oLine_Dt, oSymbol_Dt, oAttribute_Dt) |
| 2850 | 2846 |
While True |
| 2851 | 2847 |
Dim oLineRows As DataRow() = oLine_Dt.Select(_XML_LINE_UID & " = '" & sReturnUid & "' And [" & _XML_SYMBOL_DRAWING_TF & "] = 'False' And [" & |
| 2852 |
_XML_SYMBOL_Check & "] = 'TRUE'") |
|
| 2848 |
_XML_SYMBOL_Check & "] = 'TRUE' And [" & _XML_LINE_ValieLine & "] = 'True'")
|
|
| 2853 | 2849 |
If oLineRows.Count > 0 Then |
| 2854 |
sReturnUid = FinalLineModeling(oLineRows(0), oLine_Dt, oSymbol_Dt, oAttribute_Dt) |
|
| 2850 |
Dim sPipeType As String = oLineRows(0)(_XML_LINE_TYPE).ToString() |
|
| 2851 |
If sPipeType.ToUpper() = "PRIMARY" Then |
|
| 2852 |
sReturnUid = FinalLineModeling(oLineRows(0), oLine_Dt, oSymbol_Dt, oAttribute_Dt) |
|
| 2853 |
Else |
|
| 2854 |
sReturnUid = "" |
|
| 2855 |
End If |
|
| 2856 | ||
| 2855 | 2857 |
Else |
| 2856 |
sReturnUid = "" |
|
| 2858 |
sReturnUid = ""
|
|
| 2857 | 2859 |
End If |
| 2858 | 2860 |
If sReturnUid = "" Then |
| 2859 | 2861 |
Exit While |
| ... | ... | |
| 2885 | 2887 |
' FinalModeling(sUid, oLine_Dt, oSymbol_Dt, oAttribute_Dt) |
| 2886 | 2888 |
While True |
| 2887 | 2889 |
Dim oLineRows As DataRow() = oLine_Dt.Select(_XML_LINE_UID & " = '" & sReturnUid & "' And [" & _XML_SYMBOL_DRAWING_TF & "] = 'False' And [" & |
| 2888 |
_XML_SYMBOL_Check & "] = 'TRUE'") |
|
| 2890 |
_XML_SYMBOL_Check & "] = 'TRUE' And [" & _XML_LINE_ValieLine & "] = 'True'")
|
|
| 2889 | 2891 |
If oLineRows.Count > 0 Then |
| 2890 |
sReturnUid = FinalLineModeling(oLineRows(0), oLine_Dt, oSymbol_Dt, oAttribute_Dt) |
|
| 2892 |
Dim sPipeType As String = oLineRows(0)(_XML_LINE_TYPE).ToString() |
|
| 2893 |
If sPipeType.ToUpper() = "PRIMARY" Then |
|
| 2894 |
sReturnUid = FinalLineModeling(oLineRows(0), oLine_Dt, oSymbol_Dt, oAttribute_Dt) |
|
| 2895 |
Else |
|
| 2896 |
sReturnUid = "" |
|
| 2897 |
End If |
|
| 2891 | 2898 |
Else |
| 2892 | 2899 |
sReturnUid = "" |
| 2893 | 2900 |
End If |
| ... | ... | |
| 2999 | 3006 |
Next |
| 3000 | 3007 |
End If |
| 3001 | 3008 |
Next |
| 3009 | ||
| 3010 | ||
| 3011 |
For Each oNode As TreeNode In oDwgNode.Nodes |
|
| 3012 |
Dim iItemcnt As Integer = 0 |
|
| 3013 |
Dim sNodeUid As String = oNode.Name |
|
| 3014 |
Dim oPipeRun_Dt As DataTable = PipeRun_Dt() |
|
| 3015 |
'1.Equipment |
|
| 3016 |
'2.Piping OPC |
|
| 3017 |
'3.OPC 시작되는 Line |
|
| 3018 |
'Equipment 생성 |
|
| 3019 |
'If sNodeUid <> "PipeLineNo" Then |
|
| 3020 |
Dim CLineNo As Line_no = GetLineNo(CDrawing, sNodeUid) |
|
| 3021 | ||
| 3022 |
If CLineNo IsNot Nothing Then |
|
| 3023 |
Dim oLine_Dt As DataTable = CLineNo.Dt_Line |
|
| 3024 |
Dim oSymbol_Dt As DataTable = CLineNo.Dt_Symbol |
|
| 3025 |
Dim oAttribute_Dt As DataTable = CLineNo.Dt_Attribute |
|
| 3026 |
Dim oDrawLinenoLabel As Boolean = False |
|
| 3027 |
For Each oSymbolNode As TreeNode In oNode.Nodes |
|
| 3028 |
If oSymbolNode.Checked Then |
|
| 3029 |
Try |
|
| 3030 |
Dim sUid As String = oSymbolNode.Name |
|
| 3031 |
Dim sLineNoUid As String = CLineNo.Uid |
|
| 3032 |
Dim sReturnUid = sUid |
|
| 3033 |
' FinalModeling(sUid, oLine_Dt, oSymbol_Dt, oAttribute_Dt) |
|
| 3034 |
While True |
|
| 3035 |
Dim oLineRows As DataRow() = oLine_Dt.Select(_XML_LINE_UID & " = '" & sReturnUid & "' And [" & _XML_SYMBOL_DRAWING_TF & "] = 'False' And [" & |
|
| 3036 |
_XML_SYMBOL_Check & "] = 'TRUE' And [" & _XML_LINE_ValieLine & "] = 'True'") |
|
| 3037 | ||
| 3038 |
If oLineRows.Count > 0 Then |
|
| 3039 |
Dim sPipeType As String = oLineRows(0)(_XML_LINE_TYPE).ToString() |
|
| 3040 |
If sPipeType.ToUpper() <> "PRIMARY" Then |
|
| 3041 |
sReturnUid = FinalLineModeling(oLineRows(0), oLine_Dt, oSymbol_Dt, oAttribute_Dt) |
|
| 3042 |
Else |
|
| 3043 |
sReturnUid = "" |
|
| 3044 |
End If |
|
| 3045 |
Else |
|
| 3046 |
sReturnUid = "" |
|
| 3047 |
End If |
|
| 3048 |
If sReturnUid = "" Then |
|
| 3049 |
Exit While |
|
| 3050 |
End If |
|
| 3051 |
End While |
|
| 3052 |
Catch ex As Exception |
|
| 3053 |
End Try |
|
| 3054 |
End If |
|
| 3055 |
Next |
|
| 3056 |
End If |
|
| 3057 |
Dim CTrimLineNo As Line_no = GetTrimLineNo(CDrawing, sNodeUid) |
|
| 3058 |
If CTrimLineNo IsNot Nothing Then |
|
| 3059 |
Dim oLine_Dt As DataTable = CTrimLineNo.Dt_Line |
|
| 3060 |
Dim oSymbol_Dt As DataTable = CTrimLineNo.Dt_Symbol |
|
| 3061 |
Dim oAttribute_Dt As DataTable = CTrimLineNo.Dt_Attribute |
|
| 3062 |
Dim oDrawLinenoLabel As Boolean = False |
|
| 3063 | ||
| 3064 |
For Each oSymbolNode As TreeNode In oNode.Nodes |
|
| 3065 |
If oSymbolNode.Checked Then |
|
| 3066 |
Try |
|
| 3067 |
Dim sUid As String = oSymbolNode.Name |
|
| 3068 |
Dim sLineNoUid As String = CTrimLineNo.Uid |
|
| 3069 |
Dim sReturnUid = sUid |
|
| 3070 |
' FinalModeling(sUid, oLine_Dt, oSymbol_Dt, oAttribute_Dt) |
|
| 3071 |
While True |
|
| 3072 |
Dim oLineRows As DataRow() = oLine_Dt.Select(_XML_LINE_UID & " = '" & sReturnUid & "' And [" & _XML_SYMBOL_DRAWING_TF & "] = 'False' And [" & |
|
| 3073 |
_XML_SYMBOL_Check & "] = 'TRUE' And [" & _XML_LINE_ValieLine & "] = 'True'") |
|
| 3074 |
If oLineRows.Count > 0 Then |
|
| 3075 |
Dim sPipeType As String = oLineRows(0)(_XML_LINE_TYPE).ToString() |
|
| 3076 |
If sPipeType.ToUpper() <> "PRIMARY" Then |
|
| 3077 |
sReturnUid = FinalLineModeling(oLineRows(0), oLine_Dt, oSymbol_Dt, oAttribute_Dt) |
|
| 3078 |
Else |
|
| 3079 |
sReturnUid = "" |
|
| 3080 |
End If |
|
| 3081 |
Else |
|
| 3082 |
sReturnUid = "" |
|
| 3083 |
End If |
|
| 3084 |
If sReturnUid = "" Then |
|
| 3085 |
Exit While |
|
| 3086 |
End If |
|
| 3087 |
End While |
|
| 3088 |
Catch ex As Exception |
|
| 3089 |
End Try |
|
| 3090 |
End If |
|
| 3091 |
Next |
|
| 3092 |
End If |
|
| 3093 |
Next |
|
| 3002 | 3094 |
End If |
| 3003 | 3095 |
Next |
| 3004 | 3096 |
Next |
내보내기 Unified diff