/ - Diff - HYTOS - 일정관리

개정판 f291ddcb

ID	f291ddcb6f9eea9e3abfb83766b99eecea1debba
상위	fa8a3260
하위	bcee5244, a3dd299d

Gyusu 이(가) 6년 이상 전에 추가함

issue #591 : Nozzle모델링 완료

                 For Each oDt As DataTable In oDs.Tables
                     oSymbolSheet.Cells(0, iColcnt).Value = oDt.TableName
                     oSymbolSheet.Columns(iColcnt).AutoFit()
                     Dim oDataRows() As DataRow = oPIDSymbol_Dt.Select("category = '" & oDt.TableName & "'")
                     Dim iRowcnt As Integer = 1
                     For Each oRow In oDataRows
                         Dim sCategory As String = oRow("name").ToString()
                         oSymbolSheet.Cells(iRowcnt, iColcnt).Value = sCategory
                         iRowcnt = iRowcnt + 1
                     Next
                     Dim sStartCell As String = ConvertAlphabet(iColcnt) & 2
                     Dim sEndCell As String = ConvertAlphabet(iColcnt) & iRowcnt
                     Dim oAddRow As DataRow = oImageSymbol_Dt.NewRow()
                     oAddRow(_Sheet_ImageSymbol_Type) = oDt.TableName
                     oAddRow(_Sheet_ImageSymbol_StartCell) = sStartCell
                     oAddRow(_Sheet_ImageSymbol_EndCell) = sEndCell
                     oImageSymbol_Dt.Rows.Add(oAddRow)
                     iColcnt = iColcnt + 1
                     If oPIDSymbol_Dt IsNot Nothing Then
                         Dim oDataRows() As DataRow = oPIDSymbol_Dt.Select("category = '" & oDt.TableName & "'")
                         Dim iRowcnt As Integer = 1
                         For Each oRow In oDataRows
                             Dim sCategory As String = oRow("name").ToString()
                             oSymbolSheet.Cells(iRowcnt, iColcnt).Value = sCategory
                             iRowcnt = iRowcnt + 1
                         Next
                         Dim sStartCell As String = ConvertAlphabet(iColcnt) & 2
                         Dim sEndCell As String = ConvertAlphabet(iColcnt) & iRowcnt
                         Dim oAddRow As DataRow = oImageSymbol_Dt.NewRow()
                         oAddRow(_Sheet_ImageSymbol_Type) = oDt.TableName
                         oAddRow(_Sheet_ImageSymbol_StartCell) = sStartCell
                         oAddRow(_Sheet_ImageSymbol_EndCell) = sEndCell
                         oImageSymbol_Dt.Rows.Add(oAddRow)
                         iColcnt = iColcnt + 1
                     End If
                 Next
             End If
             Return oImageSymbol_Dt

                 For Each oLineRow In oLinelist_Dt_Line.Rows
                     Dim sLineUid As String = oLineRow(_XML_LINE_UID).ToString()
                     If sLineUid = "c5e85037-c9a6-4b8b-aff8-240d4dd89876" Then
                         ' MessageBox.Show("")
                     End If
                     Dim dLineStart_x As Double = 0.0
                     Dim dLineStart_y As Double = 0.0
                     Dim dLineEnd_x As Double = 0.0
-...
             Try
                 For Each oSymbolRow In oLinelist_Dt_Symbol.Rows
                     Dim sUid As String = oSymbolRow(_XML_SYMBOL_UID)
                     If sUid = "9ebcb62e-156e-4d3c-aeb2-3d9e5089915e" Then
                         '    MessageBox.Show("")
                     End If
                     Dim dConn1_x As Double = 0.0
                     Dim dConn1_y As Double = 0.0
                     Dim dConn2_x As Double = 0.0

DTI_PID/SPPIDConverter/MDatatable.vb
130	130	Public Function Symbol_Dt() As DataTable
131	131	Dim oDt As New DataTable
132	132	oDt.Columns.Add(_XML_SYMBOL_UID)
	133	oDt.Columns.Add(_XML_SYMBOL_OWNER)
133	134	oDt.Columns.Add(_XML_SYMBOL_LINENOUID)
134	135	oDt.Columns.Add(_XML_LINENO_TEXT)
135	136	oDt.Columns.Add(_XML_SYMBOL_RUNNAME)

         Public _XML_SYMBOL_LMCONNECTOR_3 As String = "LMCONNECTOR_3"
         Public _XML_SYMBOL_LMCONNECTOR_4 As String = "LMCONNECTOR_4"
         Public _XML_SYMBOL_OWNER As String = "OWNER"
         Public _XML_SYMBOL_Conn1_Point As String = "Conn1_Point"
         Public _XML_SYMBOL_Conn2_Point As String = "Conn2_Point"
         Public _XML_SYMBOL_Conn3_Point As String = "Conn3_Point"

             Try
                 ''  _TempSymbolDt = Symbol_Dt()
                 Dim CDrawing As Drawing = New Drawing()
                 Dim oDt As DataTable = LoadSymbol_DT()
                 '     Dim oDt As DataTable = LoadSymbol_DT()
                 Dim oElement As XElement = XElement.Load(sXmlPath)
                 If oElement IsNot Nothing Then
                     CDrawing.DwgName = oElement.Element(_XML_DWGNAME).Value
-...
                             Try
                                 Dim oAddrow As DataRow = oSymbol_Dt.NewRow()
                                 Dim oEleObj As XElement
                                 Dim sParentName As String
                                 Dim sName As String
                                 Dim sLocation As String
                                 Dim sSize As String
-...
                                 Dim dDwg_Conn3Pos_y As Double = 0.0
                                 Dim dDwg_Conn4Pos_x As Double = 0.0
                                 Dim dDwg_Conn4Pos_y As Double = 0.0
                                 Dim sOwnerUid As String = ""
                                 oEleObj = oSymbol.Element(_XML_SYMBOL_UID)
                                 sUid = oEleObj.Value
                                 oEleObj = oSymbol.Element(_XML_SYMBOL_PARENT)
                                 sParentName = oEleObj.Value
                                 oEleObj = oSymbol.Element(_XML_SYMBOL_NAME)
                                 sName = oEleObj.Value
                                 oEleObj = oSymbol.Element(_XML_SYMBOL_LOCATION)
                                 sLocation = oEleObj.Value
-...
                                 sConnectionPoint = oEleObj.Value
                                 oEleObj = oSymbol.Element(_XML_SYMBOL_CHILD)
                                 sChild = oEleObj.Value
                                 If sName = "NOZZLE" Then
                                     oEleObj = oSymbol.Element(_XML_SYMBOL_OWNER)
                                     sOwnerUid = oEleObj.Value
                                 End If
                                 Try
                                     oEleObj = oSymbol.Element(_XML_SYMBOL_ORIGINALPOINT)
                                     sOriginalPoint = oEleObj.Value
                                 Catch ex As Exception
                                 End Try
                                 'oEleObj = oSymbol.Element(_XML_LINE_CONNS)
                                 'sConnectionUids = oEleObj.Value
                                 'sConnArray = sConnectionUids.Split(",")
                                 'If sConnArray.Length > 4 Then
                                 '    MessageBox.Show(sConnArray.Length)
                                 'End If
                                 'For i = 0 To sConnArray.Length - 1
                                 '    If i = 0 Then
                                 '        oAddrow(_XML_SYMBOL_Conn1_Uid) = sConnArray(i)
                                 '    ElseIf i = 1 Then
                                 '        oAddrow(_XML_SYMBOL_Conn2_Uid) = sConnArray(i)
                                 '    ElseIf i = 2 Then
                                 '        oAddrow(_XML_SYMBOL_Conn3_Uid) = sConnArray(i)
                                 '    ElseIf i = 3 Then
                                 '        oAddrow(_XML_SYMBOL_Conn4_Uid) = sConnArray(i)
                                 '    End If
                                 'Next
                                 oAddrow(_XML_SYMBOL_OWNER) = sOwnerUid
                                 oAddrow(_XML_SYMBOL_Conn1_Uid) = ""
                                 oAddrow(_XML_SYMBOL_Conn2_Uid) = ""
                                 oAddrow(_XML_SYMBOL_Conn3_Uid) = ""
-...
                                 Next
                                 ConvertPointByImage(dMin_x, dMin_y, _IMG_X, _IMG_Y)
                                 ConvertPointByImage(dMax_x, dMax_y, _IMG_X, _IMG_Y)
                                 oAddrow(_XML_SYMBOL_MIN_X) = dMin_x
                                 oAddrow(_XML_SYMBOL_MAX_X) = dMax_x
                                 oAddrow(_XML_SYMBOL_MIN_Y) = dMin_y
                                 oAddrow(_XML_SYMBOL_MAX_Y) = dMax_y
                                 oAddrow(_XML_SYMBOL_UID) = sUid
                                 oAddrow(_XML_SYMBOL_NAME) = IO.Path.GetFileNameWithoutExtension(GetDataFromMappingDB(sName, _DB_COLUMN_MAPPING_SPPID_SYMBOLNAME))
                                 oAddrow(_XML_SYMBOL_NAME) = IO.Path.GetFileNameWithoutExtension(GetDataFromMappingDB(sParentName, _DB_COLUMN_MAPPING_SPPID_SYMBOLNAME))
                                 oAddrow(_XML_SYMBOL_LOCATION) = sLocation
                                 oAddrow(_XML_SYMBOL_SIZE) = sSize
                                 oAddrow(_XML_SYMBOL_ANGLE) = sAngle
                                 oAddrow(_XML_SYMBOL_SYSTEMPATH) = GetDataFromMappingDB(sName, _DB_COLUMN_MAPPING_SPPID_SYSTEMPATH)
                                 oAddrow(_XML_SYMBOL_TYPE) = GetDataFromMappingDB(sName, _DB_COLUMN_MAPPING_SPPID_COMPTPYE)
                                 oAddrow(_XML_SYMBOL_CLASS) = GetDataFromMappingDB(sName, _DB_COLUMN_MAPPING_SPPID_CLASS)
                                 oAddrow(_XML_SYMBOL_SYSTEMPATH) = GetDataFromMappingDB(sParentName, _DB_COLUMN_MAPPING_SPPID_SYSTEMPATH)
                                 oAddrow(_XML_SYMBOL_TYPE) = GetDataFromMappingDB(sParentName, _DB_COLUMN_MAPPING_SPPID_COMPTPYE)
                                 oAddrow(_XML_SYMBOL_CLASS) = GetDataFromMappingDB(sParentName, _DB_COLUMN_MAPPING_SPPID_CLASS)
                                 oAddrow(_XML_SYMBOL_ORIGINALPOINT) = sOriginalPoint
                                 oAddrow(_XML_SYMBOL_CONNECTIONPOINT) = sConnectionPoint
                                 oAddrow(_XML_SYMBOL_DRAWING_TF) = "FALSE"
                                 oAddrow(_XML_SYMBOL_CHILD) = sChild
-...
                     CDrawing.Line_nos = oLineno_list
                     CDrawing.Eqp_nos = oEqp_list
                     CDrawing.TrimLine_nos = oTrim_Lineno_list
                 End If
                 Return CDrawing
             Catch ex As Exception
-...
                                     sEndpoint = oEleObj.Value
                                     oEleObj = oLine.Element(_XML_LINE_TYPE)
                                     sType = oEleObj.Value
                                     'oEleObj = oLine.Element(_XML_LINE_CONNS)
                                     'sConnectionUids = oEleObj.Value
                                     'sConnArray = sConnectionUids.Split(",")
                                     'For i = 0 To sConnArray.Length - 1
                                     '    If i = 0 Then
                                     '        oAddrow(_XML_LINE_Conn1_Uid) = sConnArray(i)
                                     '    ElseIf i = 1 Then
                                     '        oAddrow(_XML_LINE_Conn2_Uid) = sConnArray(i)
                                     '    End If
                                     'Next
                                     'If sConnArray.Length > 2 Then
                                     '    MessageBox.Show(sConnArray.Length)
                                     'End If
                                     oAddrow(_XML_LINE_Conn1_Uid) = ""
                                     oAddrow(_XML_LINE_Conn2_Uid) = ""
                                     oAddrow(_XML_LINE_UID) = sUid
-...
                                     oAddrow(_XML_LINENO_TEXT) = CLineNo.Text
                                     oAddrow(_XML_LINE_STARTPOINT) = sStartpoint
                                     oAddrow(_XML_LINE_ENDPOINT) = sEndpoint
                                     If sUid = "0bda520b-9c01-4dc1-9ddd-73adb5f7a871" Then
                                         MsgBox("")
                                     End If
                                     ConvertPointBystring(sStartpoint, dStartPos_x, dStartPos_y)
                                     ConvertPointBystring(sEndpoint, dEndPos_x, dEndPos_y)
                                     Dim sDirection As String = ""
-...
                     oAttributeRow = oAttribute_Dt.Select(_XML_ATTRIBUTE_UID & " = '" + sUid + "'")
                 End If
                 If oSymbolRow.Length > 0 Then
                     Dim oDatasource As Object = _Placement.PIDDataSource
                     Dim sSymbolName As String = oSymbolRow(0)(_XML_SYMBOL_NAME).ToString()
                     Dim sSymbolCompType As String = oSymbolRow(0)(_XML_SYMBOL_TYPE).ToString()
                     Dim sSystemPath As String = oSymbolRow(0)(_XML_SYMBOL_SYSTEMPATH).ToString()
                     Dim sClass As String = oSymbolRow(0)(_XML_SYMBOL_CLASS).ToString()
-...
                     End If
                     Dim dLocationX As Double = 0.0
                     Dim dLocationY As Double = 0.0
                     Dim dX As Double = 0.0
                     Dim dY As Double = 0.0
                     If ConvertPointBystring(sOriginalPoint, dLocationX, dLocationY) Then
                         dX = dLocationX
                         dY = dLocationY
                         ConvertPointByImage(dX, dY, _IMG_X, _IMG_Y)
                         _Placement.PIDPlaceSymbol(sSystemPath, dX, dY, , dAngle)
                     ConvertPointBystring(sOriginalPoint, dLocationX, dLocationY)
                     Dim dX As Double = dLocationX
                     Dim dY As Double = dLocationY
                     ConvertPointByImage(dX, dY, _IMG_X, _IMG_Y)
                     Dim oReturnSymbol As LMSymbol = Nothing
                     If sSymbolCompType.ToUpper() = "NOZZLE" Then
                         Dim sOwnerUid As String = oSymbolRow(0)(_XML_SYMBOL_OWNER).ToString()
                         Dim oFineRow() As DataRow = _ModelingSymbol_Dt.Select("Uid = '" & sOwnerUid & "'")
                         If oFineRow.Length = 1 Then
                             Dim sEqpModelID As String = oFineRow(0)(_XML_SYMBOL_SPID).ToString()
                             Dim objVessel As LMVessel
                             objVessel = _Placement.PIDDataSource.GetVessel(sEqpModelID)
                             Dim oVesselLocation As LMLocations = objVessel.Locations
                             Dim oEqpSymbol As LMSymbol = _Placement.PIDDataSource.GetSymbol(objVessel.Representations.Nth(1).Id)
                             Dim objNozzle As LMSymbol = _Placement.PIDPlaceSymbol(sSystemPath, dX, dY,
                                                         TargetItem:=oEqpSymbol.AsLMRepresentation)
                             SetListBoxItems(ListBox_Result, "Place Nozzle.." & sUid & " (" & dLocationX & "," & dLocationY & ")..." & _iEquipmentcnt & " count ")
                             _iNozzlecnt = _iNozzlecnt + 1
                             ComUtil.MessageLog.CEventLog.Log_Write_Update(_Log_Path, _Log_File, "Place Nozzle : " & sUid)
                             ComUtil.MessageLog.CEventLog.Log_Write_Update(_Log_Path, _Log_File, "Nozzle Name : " & sSymbolName)
                             ComUtil.MessageLog.CEventLog.Log_Write_Update(_Log_Path, _Log_File, "Angle : " & dAngle)
                             ComUtil.MessageLog.CEventLog.Log_Write_Update(_Log_Path, _Log_File, "OriginalPoint : " & dLocationX & "," & dLocationY)
                             ComUtil.MessageLog.CEventLog.Log_Write_Update(_Log_Path, _Log_File, "Nozzle Count : " & _iNozzlecnt)
                         End If
                     Else
                         oReturnSymbol = _Placement.PIDPlaceSymbol(sSystemPath, dX, dY, , dAngle)
                         SetListBoxItems(ListBox_Result, "Place Equipment.." & sUid & " (" & dLocationX & "," & dLocationY & ")..." & _iEquipmentcnt & " count ")
                         _iEquipmentcnt = _iEquipmentcnt + 1
                         ComUtil.MessageLog.CEventLog.Log_Write_Update(_Log_Path, _Log_File, "Place Equipment : " & sUid)
                         ComUtil.MessageLog.CEventLog.Log_Write_Update(_Log_Path, _Log_File, "Equipment Name : " & sEqpName)
                         ComUtil.MessageLog.CEventLog.Log_Write_Update(_Log_Path, _Log_File, "Equipment Name : " & sSymbolName)
                         ComUtil.MessageLog.CEventLog.Log_Write_Update(_Log_Path, _Log_File, "Angle : " & dAngle)
                         ComUtil.MessageLog.CEventLog.Log_Write_Update(_Log_Path, _Log_File, "OriginalPoint : " & dLocationX & "," & dLocationY)
                         ComUtil.MessageLog.CEventLog.Log_Write_Update(_Log_Path, _Log_File, "Equipment Count : " & _iEquipmentcnt)
                     End If
                     '모델링 된 Symbol 데이터 테이블 저장
                     Dim oAddRow As DataRow = _ModelingSymbol_Dt.NewRow
                     oAddRow(_XML_SYMBOL_UID) = sUid
                     oAddRow(_XML_SYMBOL_SPID) = oReturnSymbol.ModelItemID
                     oAddRow(_XML_SYMBOL_LMSYMBOL) = oReturnSymbol
                     oAddRow(_XML_SYMBOL_DRAWING_TF) = "TRUE"
                     oAddRow(_XML_SYMBOL_CENTERPOINT_X) = dLocationX
                     oAddRow(_XML_SYMBOL_CENTERPOINT_Y) = dLocationY
                     _ModelingSymbol_Dt.Rows.Add(oAddRow)
                 End If
             Catch ex As Exception
             End Try
-...
                 End If
             End If
             '모델링 된 PipeLine 데이터 테이블 저장
             '모델링 된 Symbol 데이터 테이블 저장
             Dim oAddRow As DataRow = _ModelingSymbol_Dt.NewRow
             oAddRow(_XML_SYMBOL_SPID) = oLMSymbol.ModelItemID
             oAddRow(_XML_SYMBOL_LMSYMBOL) = oLMSymbol

         Private Function GetComboEdit(ByVal sType As String) As RepositoryItemComboBox
             Dim oSymbolCombo As New RepositoryItemComboBox()
             oSymbolCombo.DropDownRows = 30
             Dim oDataRows() As DataRow = _PIDSymbol_Dt.Select("category = '" & sType & "'")
             If _PIDSymbol_Dt IsNot Nothing Then
                 Dim oDataRows() As DataRow = _PIDSymbol_Dt.Select("category = '" & sType & "'")
             For Each oRow In oDataRows
                 For Each oRow In oDataRows
                 Dim sCategory As String = oRow("name").ToString()
                 oSymbolCombo.Items.Add(sCategory)
             Next
                     Dim sCategory As String = oRow("name").ToString()
                     oSymbolCombo.Items.Add(sCategory)
                 Next
             End If
             Return oSymbolCombo

내보내기 Unified diff

프로젝트

일반

사용자정보

HYTOS

개정판 f291ddcb