hytos / DTI_PID / SPPIDConverter / MDatatable.vb @ 76f465d0
이력 | 보기 | 이력해설 | 다운로드 (7.05 KB)
| 1 |
Imports Llama |
|---|---|
| 2 |
|
| 3 |
Module MDatatable |
| 4 |
|
| 5 |
#Region "Load Pipe" |
| 6 |
Public Function LoadPipe_DT() As DataTable |
| 7 |
Dim oDt As New DataTable |
| 8 |
oDt.Columns.Add("start_x")
|
| 9 |
oDt.Columns.Add("start_y")
|
| 10 |
oDt.Columns.Add("end_x")
|
| 11 |
oDt.Columns.Add("end_y")
|
| 12 |
oDt.Columns.Add("SystemPath")
|
| 13 |
Return oDt |
| 14 |
|
| 15 |
End Function |
| 16 |
|
| 17 |
#End Region |
| 18 |
|
| 19 |
#Region "Load Symbol" |
| 20 |
Public Function LoadSymbol_DT() As DataTable |
| 21 |
Dim oDt As New DataTable |
| 22 |
oDt.Columns.Add("Class")
|
| 23 |
oDt.Columns.Add("Name")
|
| 24 |
oDt.Columns.Add("Item")
|
| 25 |
oDt.Columns.Add("Type")
|
| 26 |
oDt.Columns.Add("x")
|
| 27 |
oDt.Columns.Add("y")
|
| 28 |
oDt.Columns.Add("Angle")
|
| 29 |
oDt.Columns.Add("SystemPath")
|
| 30 |
oDt.Columns.Add("Text")
|
| 31 |
oDt.Columns.Add("uid")
|
| 32 |
Return oDt |
| 33 |
End Function |
| 34 |
#End Region |
| 35 |
|
| 36 |
|
| 37 |
#Region "Load DWG DataSet" |
| 38 |
Public Function Load_Dwg_Ds() As DataSet |
| 39 |
Dim oDs As New DataSet |
| 40 |
|
| 41 |
|
| 42 |
|
| 43 |
|
| 44 |
End Function |
| 45 |
|
| 46 |
|
| 47 |
|
| 48 |
|
| 49 |
#End Region |
| 50 |
|
| 51 |
#Region "Check LineNoText above Line" |
| 52 |
Public Function PipeRun_Dt() As DataTable |
| 53 |
Dim oDt As New DataTable |
| 54 |
oDt.Columns.Add("Piperun", GetType(LMPipeRun))
|
| 55 |
oDt.Columns.Add("startx")
|
| 56 |
oDt.Columns.Add("starty")
|
| 57 |
oDt.Columns.Add("endx")
|
| 58 |
oDt.Columns.Add("endy")
|
| 59 |
oDt.Columns.Add("value")
|
| 60 |
Return oDt |
| 61 |
End Function |
| 62 |
|
| 63 |
#End Region |
| 64 |
|
| 65 |
|
| 66 |
Public Function Drawing_Dt() As DataTable |
| 67 |
Dim oDt As New DataTable |
| 68 |
oDt.Columns.Add("Name")
|
| 69 |
oDt.Columns.Add("Path")
|
| 70 |
Return oDt |
| 71 |
End Function |
| 72 |
|
| 73 |
Public Function Line_Dt() As DataTable |
| 74 |
Dim oDt As New DataTable |
| 75 |
oDt.Columns.Add(_XML_LINE_UID) |
| 76 |
oDt.Columns.Add(_XML_LINE_LINENOUID) |
| 77 |
oDt.Columns.Add(_XML_LINENO_TEXT) |
| 78 |
oDt.Columns.Add(_XML_LINE_RUNNAME) |
| 79 |
oDt.Columns.Add(_XML_LINE_STARTPOINT) |
| 80 |
oDt.Columns.Add(_XML_LINE_ENDPOINT) |
| 81 |
oDt.Columns.Add(_XML_LINE_SYSTEMPATH) |
| 82 |
oDt.Columns.Add(_XML_LINE_DRAWING_TF) |
| 83 |
oDt.Columns.Add(_XML_LINE_TYPE) |
| 84 |
oDt.Columns.Add(_XML_LINE_Conn1_Uid) |
| 85 |
oDt.Columns.Add(_XML_LINE_Conn2_Uid) |
| 86 |
oDt.Columns.Add(_XML_LINE_Direction) |
| 87 |
oDt.Columns.Add(_XML_LINE_FlowDirection) |
| 88 |
oDt.Columns.Add(_XML_LINE_SPID) |
| 89 |
oDt.Columns.Add(_XML_LINE_LMCONNECTOR, GetType(LMConnector)) |
| 90 |
oDt.Columns.Add(_XML_LINE_LMCONNECTOR_1, GetType(LMConnector)) |
| 91 |
oDt.Columns.Add(_XML_LINE_LMCONNECTOR_2, GetType(LMConnector)) |
| 92 |
|
| 93 |
|
| 94 |
oDt.Columns.Add(_XML_LINE_STARTPOINT_X) |
| 95 |
oDt.Columns.Add(_XML_LINE_STARTPOINT_Y) |
| 96 |
oDt.Columns.Add(_XML_LINE_ENDPOINT_X) |
| 97 |
oDt.Columns.Add(_XML_LINE_ENDPOINT_Y) |
| 98 |
|
| 99 |
oDt.Columns.Add(_XML_LINE_DWG_STARTPOINT_X) |
| 100 |
oDt.Columns.Add(_XML_LINE_DWG_STARTPOINT_Y) |
| 101 |
oDt.Columns.Add(_XML_LINE_DWG_ENDPOINT_X) |
| 102 |
oDt.Columns.Add(_XML_LINE_DWG_ENDPOINT_Y) |
| 103 |
|
| 104 |
oDt.Columns.Add(_XML_LINE_Check) |
| 105 |
|
| 106 |
|
| 107 |
|
| 108 |
Return oDt |
| 109 |
End Function |
| 110 |
|
| 111 |
Public Function ModelingResult_Dt() As DataTable |
| 112 |
Dim oDt As New DataTable |
| 113 |
oDt.Columns.Add(_Modeling_Uid) |
| 114 |
oDt.Columns.Add(_Modeling_LineNoUid) |
| 115 |
oDt.Columns.Add(_Modeling_Location_X) |
| 116 |
oDt.Columns.Add(_Modeling_Location_Y) |
| 117 |
oDt.Columns.Add(_Modeling_Connection1_X) |
| 118 |
oDt.Columns.Add(_Modeling_Connection1_Y) |
| 119 |
oDt.Columns.Add(_Modeling_Connection2_X) |
| 120 |
oDt.Columns.Add(_Modeling_Connection2_Y) |
| 121 |
oDt.Columns.Add(_Modeling_Connection3_X) |
| 122 |
oDt.Columns.Add(_Modeling_Connection3_Y) |
| 123 |
oDt.Columns.Add(_Modeling_Connection4_X) |
| 124 |
oDt.Columns.Add(_Modeling_Connection4_Y) |
| 125 |
oDt.Columns.Add(_Modeling_Type) |
| 126 |
oDt.Columns.Add(_Modeling_Angle) |
| 127 |
Return oDt |
| 128 |
End Function |
| 129 |
|
| 130 |
Public Function Symbol_Dt() As DataTable |
| 131 |
Dim oDt As New DataTable |
| 132 |
oDt.Columns.Add(_XML_SYMBOL_UID) |
| 133 |
oDt.Columns.Add(_XML_SYMBOL_LINENOUID) |
| 134 |
oDt.Columns.Add(_XML_LINENO_TEXT) |
| 135 |
oDt.Columns.Add(_XML_SYMBOL_RUNNAME) |
| 136 |
oDt.Columns.Add(_XML_SYMBOL_NAME) |
| 137 |
oDt.Columns.Add(_XML_SYMBOL_CLASS) |
| 138 |
oDt.Columns.Add(_XML_SYMBOL_LOCATION) |
| 139 |
oDt.Columns.Add(_XML_SYMBOL_ORIGINALPOINT) |
| 140 |
oDt.Columns.Add(_XML_SYMBOL_SIZE) |
| 141 |
oDt.Columns.Add(_XML_SYMBOL_ANGLE) |
| 142 |
oDt.Columns.Add(_XML_SYMBOL_TYPE) |
| 143 |
oDt.Columns.Add(_XML_SYMBOL_SYSTEMPATH) |
| 144 |
oDt.Columns.Add(_XML_SYMBOL_DRAWING_TF) |
| 145 |
oDt.Columns.Add(_XML_SYMBOL_Conn1_Uid) |
| 146 |
oDt.Columns.Add(_XML_SYMBOL_Conn2_Uid) |
| 147 |
oDt.Columns.Add(_XML_SYMBOL_Conn3_Uid) |
| 148 |
oDt.Columns.Add(_XML_SYMBOL_Conn4_Uid) |
| 149 |
oDt.Columns.Add(_XML_SYMBOL_LMSYMBOL, GetType(LMSymbol)) |
| 150 |
oDt.Columns.Add(_XML_SYMBOL_LMCONNECTOR_1, GetType(LMConnector)) |
| 151 |
oDt.Columns.Add(_XML_SYMBOL_LMCONNECTOR_2, GetType(LMConnector)) |
| 152 |
oDt.Columns.Add(_XML_SYMBOL_LMCONNECTOR_3, GetType(LMConnector)) |
| 153 |
oDt.Columns.Add(_XML_SYMBOL_LMCONNECTOR_4, GetType(LMConnector)) |
| 154 |
|
| 155 |
oDt.Columns.Add(_XML_SYMBOL_Conn1_Point) |
| 156 |
oDt.Columns.Add(_XML_SYMBOL_Conn2_Point) |
| 157 |
oDt.Columns.Add(_XML_SYMBOL_Conn3_Point) |
| 158 |
oDt.Columns.Add(_XML_SYMBOL_Conn4_Point) |
| 159 |
|
| 160 |
|
| 161 |
|
| 162 |
oDt.Columns.Add(_XML_SYMBOL_CONNECTIONPOINT) |
| 163 |
oDt.Columns.Add(_XML_SYMBOL_SPID) |
| 164 |
|
| 165 |
oDt.Columns.Add(_XML_SYMBOL_CENTERPOINT_X) |
| 166 |
oDt.Columns.Add(_XML_SYMBOL_CENTERPOINT_Y) |
| 167 |
oDt.Columns.Add(_XML_SYMBOL_DWG_CENTERPOINT_X) |
| 168 |
oDt.Columns.Add(_XML_SYMBOL_DWG_CENTERPOINT_Y) |
| 169 |
|
| 170 |
oDt.Columns.Add(_XML_SYMBOL_CONN1_POINT_X) |
| 171 |
oDt.Columns.Add(_XML_SYMBOL_CONN1_POINT_Y) |
| 172 |
oDt.Columns.Add(_XML_SYMBOL_CONN2_POINT_X) |
| 173 |
oDt.Columns.Add(_XML_SYMBOL_CONN2_POINT_Y) |
| 174 |
oDt.Columns.Add(_XML_SYMBOL_CONN3_POINT_X) |
| 175 |
oDt.Columns.Add(_XML_SYMBOL_CONN3_POINT_Y) |
| 176 |
oDt.Columns.Add(_XML_SYMBOL_CONN4_POINT_X) |
| 177 |
oDt.Columns.Add(_XML_SYMBOL_CONN4_POINT_Y) |
| 178 |
|
| 179 |
oDt.Columns.Add(_XML_SYMBOL_DWG_CONN1_POINT_X) |
| 180 |
oDt.Columns.Add(_XML_SYMBOL_DWG_CONN1_POINT_Y) |
| 181 |
oDt.Columns.Add(_XML_SYMBOL_DWG_CONN2_POINT_X) |
| 182 |
oDt.Columns.Add(_XML_SYMBOL_DWG_CONN2_POINT_Y) |
| 183 |
oDt.Columns.Add(_XML_SYMBOL_DWG_CONN3_POINT_X) |
| 184 |
oDt.Columns.Add(_XML_SYMBOL_DWG_CONN3_POINT_Y) |
| 185 |
oDt.Columns.Add(_XML_SYMBOL_DWG_CONN4_POINT_X) |
| 186 |
oDt.Columns.Add(_XML_SYMBOL_DWG_CONN4_POINT_Y) |
| 187 |
|
| 188 |
oDt.Columns.Add(_XML_SYMBOL_Check) |
| 189 |
Return oDt |
| 190 |
End Function |
| 191 |
|
| 192 |
Public Function Attribute_Dt() As DataTable |
| 193 |
Dim oDt As New DataTable |
| 194 |
oDt.Columns.Add(_XML_ATTRIBUTE_UID) |
| 195 |
oDt.Columns.Add(_XML_ATTRIBUTE_NAME) |
| 196 |
oDt.Columns.Add(_XML_ATTRIBUTE_VALUE) |
| 197 |
Return oDt |
| 198 |
End Function |
| 199 |
|
| 200 |
|
| 201 |
Public Function ImageSymbol_Dt() As DataTable |
| 202 |
Dim oDt As New DataTable |
| 203 |
oDt.Columns.Add(_Sheet_ImageSymbol_Type) |
| 204 |
oDt.Columns.Add(_Sheet_ImageSymbol_StartCell) |
| 205 |
oDt.Columns.Add(_Sheet_ImageSymbol_EndCell) |
| 206 |
Return oDt |
| 207 |
End Function |
| 208 |
|
| 209 |
Public Function DrawLind_Dt() As DataTable |
| 210 |
Dim oDt As New DataTable |
| 211 |
oDt.Columns.Add(_XML_LINE_UID) |
| 212 |
oDt.Columns.Add(_XML_LINE_STARTPOINT_X) |
| 213 |
oDt.Columns.Add(_XML_LINE_STARTPOINT_Y) |
| 214 |
oDt.Columns.Add(_XML_LINE_ENDPOINT_X) |
| 215 |
oDt.Columns.Add(_XML_LINE_ENDPOINT_Y) |
| 216 |
Return oDt |
| 217 |
End Function |
| 218 |
|
| 219 |
End Module |
