hytos / DTI_PID / SPPIDConverter / MDatatable.vb @ 321b1f22
이력 | 보기 | 이력해설 | 다운로드 (5.43 KB)
| 1 | 6ba3e887 | Gyusu | 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_STARTPOINT) |
||
| 79 | oDt.Columns.Add(_XML_LINE_ENDPOINT) |
||
| 80 | oDt.Columns.Add(_XML_LINE_SYSTEMPATH) |
||
| 81 | oDt.Columns.Add(_XML_LINE_DRAWING_TF) |
||
| 82 | oDt.Columns.Add(_XML_LINE_TYPE) |
||
| 83 | oDt.Columns.Add(_XML_LINE_Conn1_Uid) |
||
| 84 | oDt.Columns.Add(_XML_LINE_Conn2_Uid) |
||
| 85 | oDt.Columns.Add(_XML_LINE_FlowDirection) |
||
| 86 | oDt.Columns.Add(_XML_LINE_SPID) |
||
| 87 | |||
| 88 | oDt.Columns.Add(_XML_LINE_LMCONNECTOR, GetType(LMConnector)) |
||
| 89 | oDt.Columns.Add(_XML_LINE_LMCONNECTOR_1, GetType(LMConnector)) |
||
| 90 | oDt.Columns.Add(_XML_LINE_LMCONNECTOR_2, GetType(LMConnector)) |
||
| 91 | |||
| 92 | oDt.Columns.Add(_XML_LINE_Check) |
||
| 93 | Return oDt |
||
| 94 | End Function |
||
| 95 | |||
| 96 | Public Function ModelingResult_Dt() As DataTable |
||
| 97 | Dim oDt As New DataTable |
||
| 98 | oDt.Columns.Add(_Modeling_Uid) |
||
| 99 | oDt.Columns.Add(_Modeling_LineNoUid) |
||
| 100 | oDt.Columns.Add(_Modeling_Location_X) |
||
| 101 | oDt.Columns.Add(_Modeling_Location_Y) |
||
| 102 | oDt.Columns.Add(_Modeling_Connection1_X) |
||
| 103 | oDt.Columns.Add(_Modeling_Connection1_Y) |
||
| 104 | oDt.Columns.Add(_Modeling_Connection2_X) |
||
| 105 | oDt.Columns.Add(_Modeling_Connection2_Y) |
||
| 106 | oDt.Columns.Add(_Modeling_Connection3_X) |
||
| 107 | oDt.Columns.Add(_Modeling_Connection3_Y) |
||
| 108 | oDt.Columns.Add(_Modeling_Connection4_X) |
||
| 109 | oDt.Columns.Add(_Modeling_Connection4_Y) |
||
| 110 | oDt.Columns.Add(_Modeling_Type) |
||
| 111 | oDt.Columns.Add(_Modeling_Angle) |
||
| 112 | Return oDt |
||
| 113 | End Function |
||
| 114 | |||
| 115 | Public Function Symbol_Dt() As DataTable |
||
| 116 | Dim oDt As New DataTable |
||
| 117 | oDt.Columns.Add(_XML_SYMBOL_UID) |
||
| 118 | oDt.Columns.Add(_XML_SYMBOL_LINENOUID) |
||
| 119 | oDt.Columns.Add(_XML_LINENO_TEXT) |
||
| 120 | oDt.Columns.Add(_XML_SYMBOL_NAME) |
||
| 121 | oDt.Columns.Add(_XML_SYMBOL_CLASS) |
||
| 122 | oDt.Columns.Add(_XML_SYMBOL_LOCATION) |
||
| 123 | oDt.Columns.Add(_XML_SYMBOL_ORIGINALPOINT) |
||
| 124 | oDt.Columns.Add(_XML_SYMBOL_SIZE) |
||
| 125 | oDt.Columns.Add(_XML_SYMBOL_ANGLE) |
||
| 126 | oDt.Columns.Add(_XML_SYMBOL_TYPE) |
||
| 127 | oDt.Columns.Add(_XML_SYMBOL_SYSTEMPATH) |
||
| 128 | oDt.Columns.Add(_XML_SYMBOL_DRAWING_TF) |
||
| 129 | oDt.Columns.Add(_XML_SYMBOL_Conn1_Uid) |
||
| 130 | oDt.Columns.Add(_XML_SYMBOL_Conn2_Uid) |
||
| 131 | oDt.Columns.Add(_XML_SYMBOL_Conn3_Uid) |
||
| 132 | oDt.Columns.Add(_XML_SYMBOL_Conn4_Uid) |
||
| 133 | |||
| 134 | oDt.Columns.Add(_XML_SYMBOL_LMCONNECTOR_1, GetType(LMConnector)) |
||
| 135 | oDt.Columns.Add(_XML_SYMBOL_LMCONNECTOR_2, GetType(LMConnector)) |
||
| 136 | oDt.Columns.Add(_XML_SYMBOL_LMCONNECTOR_3, GetType(LMConnector)) |
||
| 137 | oDt.Columns.Add(_XML_SYMBOL_LMCONNECTOR_4, GetType(LMConnector)) |
||
| 138 | |||
| 139 | oDt.Columns.Add(_XML_SYMBOL_Conn1_Point) |
||
| 140 | oDt.Columns.Add(_XML_SYMBOL_Conn2_Point) |
||
| 141 | oDt.Columns.Add(_XML_SYMBOL_Conn3_Point) |
||
| 142 | oDt.Columns.Add(_XML_SYMBOL_Conn4_Point) |
||
| 143 | |||
| 144 | |||
| 145 | |||
| 146 | oDt.Columns.Add(_XML_SYMBOL_CONNECTIONPOINT) |
||
| 147 | oDt.Columns.Add(_XML_SYMBOL_SPID) |
||
| 148 | oDt.Columns.Add(_XML_SYMBOL_Check) |
||
| 149 | Return oDt |
||
| 150 | End Function |
||
| 151 | |||
| 152 | Public Function Attribute_Dt() As DataTable |
||
| 153 | Dim oDt As New DataTable |
||
| 154 | oDt.Columns.Add(_XML_ATTRIBUTE_UID) |
||
| 155 | oDt.Columns.Add(_XML_ATTRIBUTE_NAME) |
||
| 156 | oDt.Columns.Add(_XML_ATTRIBUTE_VALUE) |
||
| 157 | Return oDt |
||
| 158 | End Function |
||
| 159 | |||
| 160 | |||
| 161 | Public Function ImageSymbol_Dt() As DataTable |
||
| 162 | Dim oDt As New DataTable |
||
| 163 | oDt.Columns.Add(_Sheet_ImageSymbol_Type) |
||
| 164 | oDt.Columns.Add(_Sheet_ImageSymbol_StartCell) |
||
| 165 | oDt.Columns.Add(_Sheet_ImageSymbol_EndCell) |
||
| 166 | Return oDt |
||
| 167 | End Function |
||
| 168 | |||
| 169 | Public Function DrawLind_Dt() As DataTable |
||
| 170 | Dim oDt As New DataTable |
||
| 171 | oDt.Columns.Add(_XML_LINE_UID) |
||
| 172 | oDt.Columns.Add(_XML_LINE_STARTPOINT_X) |
||
| 173 | oDt.Columns.Add(_XML_LINE_STARTPOINT_Y) |
||
| 174 | oDt.Columns.Add(_XML_LINE_ENDPOINT_X) |
||
| 175 | oDt.Columns.Add(_XML_LINE_ENDPOINT_Y) |
||
| 176 | Return oDt |
||
| 177 | End Function |
||
| 178 | |||
| 179 | End Module |
