HYTOS

Imports SPPIDConverter

Imports SPPIDConverter.Main

Imports Plaice

Imports Llama

Public Class Drawing

    Private _DWGNAME As String = ""

    Private _SIZE As String = ""

    Private _UNIT As String = ""

    Private _LINE_NO As List(Of Line_no)

    Private _TRIM_LINE_NO As List(Of Line_no)

    Private _EQP_NO As List(Of Eqp_no)

    '' 추가 수정 중 

    Private _SYMBOLS As List(Of Symbol)

    Private _LINES As List(Of Line)

    Private _LINENUMBERS As List(Of LineNumber)

    Private _TRIMLINES As List(Of LineNumber)

    Private _TEXTS As List(Of Text)

    ''

    Public Property DwgName() As String

        Get

            Return _DWGNAME

        End Get

        Set(value As String)

            _DWGNAME = value

        End Set

    End Property

    Public Property Size() As String

        Get

            Return _SIZE

        End Get

        Set(value As String)

            _SIZE = value

        End Set

    End Property

    Public Property Unit() As String

        Get

            Return _UNIT

        End Get

        Set(value As String)

            _UNIT = value

        End Set

    End Property

    Public Property Line_nos As List(Of Line_no)

        Get

            Return _LINE_NO

        End Get

        Set(value As List(Of Line_no))

            _LINE_NO = value

        End Set

    End Property

    Public Property TrimLine_nos As List(Of Line_no)

        Get

            Return _TRIM_LINE_NO

        End Get

        Set(value As List(Of Line_no))

            _TRIM_LINE_NO = value

        End Set

    End Property

    Public Property Eqp_nos As List(Of Eqp_no)

        Get

            Return _EQP_NO

        End Get

        Set(value As List(Of Eqp_no))

            _EQP_NO = value

        End Set

    End Property

    Public Property LINES As List(Of Line)

        Get

            Return _LINES

        End Get

        Set(value As List(Of Line))

            _LINES = value

        End Set

    End Property

    Public Property LINENUMBERS As List(Of LineNumber)

        Get

            Return _LINENUMBERS

        End Get

        Set(value As List(Of LineNumber))

            _LINENUMBERS = value

        End Set

    End Property

    Public Property SYMBOLS As List(Of Symbol)

        Get

            Return _SYMBOLS

        End Get

        Set(value As List(Of Symbol))

            _SYMBOLS = value

        End Set

    End Property

    Public Property TRIMLINES As List(Of LineNumber)

        Get

            Return _TRIMLINES

        End Get

        Set(value As List(Of LineNumber))

            _TRIMLINES = value

        End Set

    End Property

    Public Property TEXTS As List(Of Text)

        Get

            Return _TEXTS

        End Get

        Set(value As List(Of Text))

            _TEXTS = value

        End Set

    End Property

End Class

Public Class Line_no

    Private _UID As String = ""

    Private _TEXT As String = ""

    Private _LOCATION As String = ""

    Private _ANGLE As String = ""

    Private _SYSTEMPATH As String = ""

    Private _Line_Dt As DataTable

    Private _Symbol_Dt As DataTable

    Private _Attribute_Dt As DataTable

    Private _Line As List(Of Line)

    Private _Symbol As List(Of Symbol)

    Private _Attribute As List(Of Attribute)

    Public Property Uid() As String

        Get

            Return _UID

        End Get

        Set(value As String)

            _UID = value

        End Set

    End Property

    Public Property Text() As String

        Get

            Return _TEXT

        End Get

        Set(value As String)

            _TEXT = value

        End Set

    End Property

    Public Property Location() As String

        Get

            Return _LOCATION

        End Get

        Set(value As String)

            _LOCATION = value

        End Set

    End Property

    Public Property Angle() As String

        Get

            Return _ANGLE

        End Get

        Set(value As String)

            _ANGLE = value

        End Set

    End Property

    Public Property SystemPath() As String

        Get

            Return _SYSTEMPATH

        End Get

        Set(value As String)

            _SYSTEMPATH = value

        End Set

    End Property

    Public Property Dt_Line As DataTable

        Get

            Return _Line_Dt

        End Get

        Set(value As DataTable)

            _Line_Dt = value

        End Set

    End Property

    Public Property Dt_Symbol As DataTable

        Get

            Return _Symbol_Dt

        End Get

        Set(value As DataTable)

            _Symbol_Dt = value

        End Set

    End Property

    Public Property Dt_Attribute As DataTable

        Get

            Return _Attribute_Dt

        End Get

        Set(value As DataTable)

            _Attribute_Dt = value

        End Set

    End Property

    Public Property Line As List(Of Line)

        Get

            Return _Line

        End Get

        Set(value As List(Of Line))

            _Line = value

        End Set

    End Property

    Public Property Symbol As List(Of Symbol)

        Get

            Return _Symbol

        End Get

        Set(value As List(Of Symbol))

            _Symbol = value

        End Set

    End Property

    Public Property Attribute As List(Of Attribute)

        Get

            Return _Attribute

        End Get

        Set(value As List(Of Attribute))

            _Attribute = value

        End Set

    End Property

End Class

Public Class Eqp_no

    Private _UID As String = ""

    Private _TEXT As String = ""

    Private _LOCATION As String = ""

    Private _ANGLE As String = ""

    Private _SYSTEMPATH As String = ""

    Private _Eqp_Dt As DataTable

    Private _Attribute_Dt As DataTable

    Public Property Uid() As String

        Get

            Return _UID

        End Get

        Set(value As String)

            _UID = value

        End Set

    End Property

    Public Property Text() As String

        Get

            Return _TEXT

        End Get

        Set(value As String)

            _TEXT = value

        End Set

    End Property

    Public Property Location() As String

        Get

            Return _LOCATION

        End Get

        Set(value As String)

            _LOCATION = value

        End Set

    End Property

    Public Property Angle() As String

        Get

            Return _ANGLE

        End Get

        Set(value As String)

            _ANGLE = value

        End Set

    End Property

    Public Property SystemPath() As String

        Get

            Return _SYSTEMPATH

        End Get

        Set(value As String)

            _SYSTEMPATH = value

        End Set

    End Property

    Public Property Dt_Equipment As DataTable

        Get

            Return _Eqp_Dt

        End Get

        Set(value As DataTable)

            _Eqp_Dt = value

        End Set

    End Property

    Public Property Dt_Attribute As DataTable

        Get

            Return _Attribute_Dt

        End Get

        Set(value As DataTable)

            _Attribute_Dt = value

        End Set

    End Property

End Class

Public Enum SPPID_ITEM_TYPE

    SYMBOL

    LINE

    LABEL

    TEXT

End Enum

Public MustInherit Class SPPID_ITEM

    Private _UID As String

    Private _TYPE As String

    Private _NAME As String

    Private _SPPID_TYPE As SPPID_ITEM_TYPE

    Private _SPPIDMAPPINGNAME As String

    Private _GROUPING As Boolean = True

    Private _AREA As String

    Private _ATTRIBUTES As List(Of Attribute) = New List(Of Attribute)

    Private _SPPID_ITEM_OBJECT As Object

    Public Property UID As String

        Get

            Return _UID

        End Get

        Set(value As String)

            _UID = value

        End Set

    End Property

    Public Property TYPE As String

        Get

            Return _TYPE

        End Get

        Set(value As String)

            _TYPE = value

        End Set

    End Property

    Public Property NAME As String

        Get

            Return _NAME

        End Get

        Set(value As String)

            _NAME = value

        End Set

    End Property

    Public Property SPPID_TYPE As SPPID_ITEM_TYPE

        Get

            Return _SPPID_TYPE

        End Get

        Set(value As SPPID_ITEM_TYPE)

            _SPPID_TYPE = value

        End Set

    End Property

    Public Property SPPIDMAPPINGNAME As String

        Get

            Return _SPPIDMAPPINGNAME

        End Get

        Set(value As String)

            _SPPIDMAPPINGNAME = value

        End Set

    End Property

    Public Property GROUPING As Boolean

        Get

            Return _GROUPING

        End Get

        Set(value As Boolean)

            _GROUPING = value

        End Set

    End Property

    Public Property AREA As String

        Get

            Return _AREA

        End Get

        Set(value As String)

            _AREA = value

        End Set

    End Property

    Public Property ATTRIBUTES As List(Of Attribute)

        Get

            Return _ATTRIBUTES

        End Get

        Set(value As List(Of Attribute))

            _ATTRIBUTES = value

        End Set

    End Property

    Public Property SPPID_ITEM_OBJECT As Object

        Get

            Return _SPPID_ITEM_OBJECT

        End Get

        Set(value As Object)

            _SPPID_ITEM_OBJECT = value

        End Set

    End Property

    Public MustOverride Sub Modeling()

    Public MustOverride Sub AfterSetting()

    Public MustOverride Sub SetAttribute()

    Public Function FindObjectByUID(ByVal UID As String) As Object

        For Each item As Symbol In AutoModeling.CDrawing.SYMBOLS

            If item.UID = UID Then

                Return item

            End If

        Next

        For Each item As Line In AutoModeling.CDrawing.LINES

            If item.UID = UID Then

                Return item

            End If

        Next

        Return Nothing

    End Function

End Class

Public Class Symbol

    Inherits SPPID_ITEM

    Private _ORIGINALPOINT As String

    Private _CONNECTORS As List(Of Connector)

    Private _LOCATION As String

    Private _SIZE As String

    Private _ANGLE As String

    Private _PARENT As String

    Private _CHILD As List(Of String) = New List(Of String)

    Private _CHILD_SPPID_ITEM_OBJECT As List(Of Object) = New List(Of Object)

    Private _HASINSTRUMENTLABEL As String

    Private _CURRENTPOINTMODEINDEX As String

    Private _DRAWCHECKED As Boolean

    Private _LOCATION_X As Double

    Private _LOCATION_Y As Double

    Private _LINENUMBER As LineNumber

    Private _MIRROR As Integer = 0

    Public Property ORIGINALPOINT As String

        Get

            Return _ORIGINALPOINT

        End Get

        Set(value As String)

            _ORIGINALPOINT = value

        End Set

    End Property

    Public Property CONNECTORS As List(Of Connector)

        Get

            Return _CONNECTORS

        End Get

        Set(value As List(Of Connector))

            _CONNECTORS = value

        End Set

    End Property

    Public Property LOCATION As String

        Get

            Return _LOCATION

        End Get

        Set(value As String)

            _LOCATION = value

        End Set

    End Property

    Public Property SIZE As String

        Get

            Return _SIZE

        End Get

        Set(value As String)

            _SIZE = value

        End Set

    End Property

    Public Property ANGLE As String

        Get

            Return _ANGLE

        End Get

        Set(value As String)

            _ANGLE = value

        End Set

    End Property

    Public Property PARENT As String

        Get

            Return _PARENT

        End Get

        Set(value As String)

            _PARENT = value

        End Set

    End Property

    Public Property HASINSTRUMENTLABEL As String

        Get

            Return _HASINSTRUMENTLABEL

        End Get

        Set(value As String)

            _HASINSTRUMENTLABEL = value

        End Set

    End Property

    Public Property CURRENTPOINTMODEINDEX As String

        Get

            Return _CURRENTPOINTMODEINDEX

        End Get

        Set(value As String)

            _CURRENTPOINTMODEINDEX = value

        End Set

    End Property

    Public Property DRAWCHECKED As Boolean

        Get

            Return _DRAWCHECKED

        End Get

        Set(value As Boolean)

            _DRAWCHECKED = value

        End Set

    End Property

    Public Property LOCATION_X As Double

        Get

            Return _LOCATION_X

        End Get

        Set(value As Double)

            _LOCATION_X = value

        End Set

    End Property

    Public Property LOCATION_Y As Double

        Get

            Return _LOCATION_Y

        End Get

        Set(value As Double)

            _LOCATION_Y = value

        End Set

    End Property

    Public Property LINENUMBER As LineNumber

        Get

            Return _LINENUMBER

        End Get

        Set(value As LineNumber)

            _LINENUMBER = value

        End Set

    End Property

    Public Property MIRROR As Integer

        Get

            Return _MIRROR

        End Get

        Set(value As Integer)

            _MIRROR = value

        End Set

    End Property

    Public Property CHILD As List(Of String)

        Get

            Return _CHILD

        End Get

        Set(value As List(Of String))

            _CHILD = value

        End Set

    End Property

    Public Property CHILD_SPPID_ITEM_OBJECT As List(Of Object)

        Get

            Return _CHILD_SPPID_ITEM_OBJECT

        End Get

        Set(value As List(Of Object))

            _CHILD_SPPID_ITEM_OBJECT = value

        End Set

    End Property

    Public Overrides Sub Modeling()

        Dim _Placement As Placement = New Placement

        Dim sysPath = SPPIDMAPPINGNAME

        SPPID_ITEM_OBJECT = Nothing

        If sysPath <> "" Then

            Dim connectSymbol As LMSymbol = Nothing

            For Each connector As Connector In CONNECTORS

                If String.IsNullOrEmpty(connector.CONNECTEDITEM) = False Or connector.CONNECTEDITEM <> "None" Then

                    Dim _sym As Symbol = FindObjectByUID(connector.CONNECTEDITEM)

                    If _sym IsNot Nothing Then

                        If _sym.SPPID_ITEM_OBJECT IsNot Nothing Then

                            connectSymbol = _sym.SPPID_ITEM_OBJECT

                            Exit For

                        End If

                    End If

                End If

            Next

            If connectSymbol IsNot Nothing Then

                SPPID_ITEM_OBJECT = _Placement.PIDPlaceSymbol(sysPath, LOCATION_X, LOCATION_Y, Rotation:=ANGLE, Mirror:=MIRROR, TargetItem:=connectSymbol)

            Else

                SPPID_ITEM_OBJECT = _Placement.PIDPlaceSymbol(sysPath, LOCATION_X, LOCATION_Y, Rotation:=ANGLE, Mirror:=MIRROR)

            End If

            '' Check Child

            For Each _child As String In CHILD

                Dim arrChild As String() = _child.Split(",")

                Dim arrow As String = arrChild(0)

                Dim mappingName As String = arrChild(1)

                Dim childAngle As Double = 0

                If arrow = "UP" Then

                    childAngle = 0

                ElseIf arrow = "RIGHT" Then

                    childAngle = 90 * Math.PI / 180

                ElseIf arrow = "DOWN" Then

                    childAngle = Math.PI

                Else

                    childAngle = 270 * Math.PI / 180

                End If

                Dim _childLmSymbol As LMSymbol = _Placement.PIDPlaceSymbol(mappingName, LOCATION_X, LOCATION_Y, Mirror:=0, Rotation:=childAngle, TargetItem:=SPPID_ITEM_OBJECT)

                CHILD_SPPID_ITEM_OBJECT.Add(_childLmSymbol)

            Next

            SPPID_ITEM_OBJECT.Commit()

            Debug.WriteLine(LOCATION_X.ToString + "," + LOCATION_Y.ToString + "/" + UID + "/" + SIZE)

        End If

    End Sub

    Public Overrides Sub AfterSetting()

        '' Angle Setting

        If ANGLE = 1.57 Then

            ANGLE = 90 * Math.PI / 180

        ElseIf ANGLE = 3.14 Then

            ANGLE = Math.PI

        ElseIf ANGLE = 4.71 Then

            ANGLE = 270 * Math.PI / 180

        Else

            ANGLE = 0

        End If

        '' end

        '' Location Setting

        Dim OriginX As Double

        Dim OriginY As Double

        Main.ConvertPointBystring(_ORIGINALPOINT, OriginX, OriginY)

        Main.ConvertPointByImage(OriginX, OriginY, Main._IMG_X, Main._IMG_Y)

        _LOCATION_X = OriginX

        _LOCATION_Y = OriginY

        '' end

        '' SPPID Type Setting

        SPPID_TYPE = SPPID_ITEM_TYPE.SYMBOL

        '' end

    End Sub

    Public Overrides Sub SetAttribute()

        Throw New NotImplementedException()

    End Sub

End Class

Public Enum SlopType

    NONE

    VERTICAL

    HORIZONTAL

    SLOPE

End Enum

Public Class Line

    Inherits SPPID_ITEM

    Private _STARTPOINT As String

    Private _ENDPOINT As String

    Private _CONNECTORS As List(Of Connector)

    Private _LINENUMBER As LineNumber

    Private _LMCONNECTOR_MODELID As String

    Private _SLOPTYPE As SlopType

    Private _START_X As Double

    Private _START_Y As Double

    Private _END_X As Double

    Private _END_Y As Double

    Public Property STARTPOINT As String

        Get

            Return _STARTPOINT

        End Get

        Set(value As String)

            _STARTPOINT = value

        End Set

    End Property

    Public Property ENDPOINT As String

        Get

            Return _ENDPOINT

        End Get

        Set(value As String)

            _ENDPOINT = value

        End Set

    End Property

    Public Property CONNECTORS As List(Of Connector)

        Get

            Return _CONNECTORS

        End Get

        Set(value As List(Of Connector))

            _CONNECTORS = value

        End Set

    End Property

    Public Property LINENUMBER As LineNumber

        Get

            Return _LINENUMBER

        End Get

        Set(value As LineNumber)

            _LINENUMBER = value

        End Set

    End Property

    Public Property START_X As Double

        Get

            Return _START_X

        End Get

        Set(value As Double)

            _START_X = value

        End Set

    End Property

    Public Property START_Y As Double

        Get

            Return _START_Y

        End Get

        Set(value As Double)

            _START_Y = value

        End Set

    End Property

    Public Property END_X As Double

        Get

            Return _END_X

        End Get

        Set(value As Double)

            _END_X = value

        End Set

    End Property

    Public Property END_Y As Double

        Get

            Return _END_Y

        End Get

        Set(value As Double)

            _END_Y = value

        End Set

    End Property

    Public Property LMCONNECTOR_MODELID As String

        Get

            Return _LMCONNECTOR_MODELID

        End Get

        Set(value As String)

            _LMCONNECTOR_MODELID = value

        End Set

    End Property

    Public Property SLOPTYPE As SlopType

        Get

            Return _SLOPTYPE

        End Get

        Set(value As SlopType)

            _SLOPTYPE = value

        End Set

    End Property

    Public Overrides Sub Modeling()

        Throw New NotImplementedException()

    End Sub

    Public Overrides Sub AfterSetting()

        '' Point Setting

        Main.ConvertPointBystring(_STARTPOINT, _START_X, _START_Y)

        Main.ConvertPointByImage(_START_X, _START_Y, Main._IMG_X, Main._IMG_Y)

        Main.ConvertPointBystring(_ENDPOINT, _END_X, _END_Y)

        Main.ConvertPointByImage(_END_X, _END_Y, Main._IMG_X, Main._IMG_Y)

        '' end

        '' Slop Setting

        _SLOPTYPE = CalcSlop(New Pointd(_START_X, _START_Y), New Pointd(_END_X, _END_Y))

        '' end

        '' SPPID Type Setting

        SPPID_TYPE = SPPID_ITEM_TYPE.LINE

        '' end

    End Sub

    Private Function CalcSlop(ByVal point1 As Pointd, ByVal point2 As Pointd) As SlopType

        If point1.X - point2.X = 0 Then

            Return SlopType.VERTICAL

        Else

            Dim angle = Math.Atan(Math.Abs(point2.Y - point1.Y) / Math.Abs(point2.X - point1.X)) * 180 / Math.PI

            If angle < 20 Then

                Return SlopType.HORIZONTAL

            ElseIf angle > 70 Then

                Return SlopType.VERTICAL

            Else

                Return SlopType.SLOPE

            End If

        End If

    End Function

    Public Overrides Sub SetAttribute()

        Throw New NotImplementedException()

    End Sub

End Class

Public Class LineNumber

    Inherits SPPID_ITEM

    Private _ANGLE As String

    Private _LOCATION As String

    Private _LOCATION_X As Double

    Private _LOCATION_Y As Double

    Private _SYMBOLRUNITEMS As List(Of String)

    Private _LINERUNITEMS As List(Of String)

    Private _TEXT As String

    Private _CONNECTLINE As String

    Private _TARGETLINE As Line

    Public Property ANGLE As String

        Get

            Return _ANGLE

        End Get

        Set(value As String)

            _ANGLE = value

        End Set

    End Property

    Public Property SYMBOLRUNITEMS As List(Of String)

        Get

            Return _SYMBOLRUNITEMS

        End Get

        Set(value As List(Of String))

            _SYMBOLRUNITEMS = value

        End Set

    End Property

    Public Property LINERUNITEMS As List(Of String)

        Get

            Return _LINERUNITEMS

        End Get

        Set(value As List(Of String))

            _LINERUNITEMS = value

        End Set

    End Property

    Public Property TEXT As String

        Get

            Return _TEXT

        End Get

        Set(value As String)

            _TEXT = value

        End Set

    End Property

    Public Property CONNECTLINE As String

        Get

            Return _CONNECTLINE

        End Get

        Set(value As String)

            _CONNECTLINE = value

        End Set

    End Property

    Public Property TARGETLINE As Line

        Get

            Return _TARGETLINE

        End Get

        Set(value As Line)

            _TARGETLINE = value

        End Set

    End Property

    Public Property LOCATION_X As Double

        Get

            Return _LOCATION_X

        End Get

        Set(value As Double)

            _LOCATION_X = value

        End Set

    End Property

    Public Property LOCATION_Y As Double

        Get

            Return _LOCATION_Y

        End Get

        Set(value As Double)

            _LOCATION_Y = value

        End Set

    End Property

    Public Property LOCATION As String

        Get

            Return _LOCATION

        End Get

        Set(value As String)

            _LOCATION = value

        End Set

    End Property

    Public Overrides Sub AfterSetting()

        '' Angle Setting

        If ANGLE = 1.57 Then

            ANGLE = 90 * Math.PI / 180

        ElseIf ANGLE = 3.14 Then

            ANGLE = Math.PI

        ElseIf ANGLE = 4.71 Then

            ANGLE = 270 * Math.PI / 180

        Else

            ANGLE = 0

        End If

        '' end

        '' Location Setting

        Main.ConvertPointBystring(LOCATION, LOCATION_X, LOCATION_Y)

        Main.ConvertPointByImage(LOCATION_X, LOCATION_Y, Main._IMG_X, Main._IMG_Y)

        '' end

        '' SPPID Type Setting

        SPPID_TYPE = SPPID_ITEM_TYPE.LABEL

        '' end

    End Sub

    Public Overrides Sub Modeling()

        Try

            If TARGETLINE IsNot Nothing Then

                If String.IsNullOrEmpty(TARGETLINE.LMCONNECTOR_MODELID) = False Then

                    Dim _Placement As Placement = New Placement

                    Dim points(2) As Double

                    points(1) = LOCATION_X

                    points(2) = LOCATION_Y

                    Dim _lmPipeRun As LMPipeRun = _Placement.PIDDataSource.GetPipeRun(TARGETLINE.LMCONNECTOR_MODELID)

                    If _lmPipeRun IsNot Nothing Then

                        For Each representation As LMRepresentation In _lmPipeRun.Representations

                            If representation.RepresentationType = "Connector" And representation.ItemStatus = "Active" Then

                                Dim _lmConnector As LMConnector = _Placement.PIDDataSource.GetConnector(representation.Id)

                                SPPID_ITEM_OBJECT = _Placement.PIDPlaceLabel(SPPIDMAPPINGNAME, points, Rotation:=ANGLE, LabeledItem:=_lmConnector.AsLMRepresentation, IsLeaderVisible:=True)

                                Exit For

                            End If

                        Next

                    End If

                End If

            End If

        Catch ex As Exception

            Console.WriteLine(ex.Message)

        End Try

    End Sub

    Public Overrides Sub SetAttribute()

        If TARGETLINE IsNot Nothing Then

            Dim _Placement As Placement = New Placement

            Dim _PipeRun As LMPipeRun = _Placement.PIDDataSource.GetPipeRun(TARGETLINE.LMCONNECTOR_MODELID)

            For Each _attr As Attribute In ATTRIBUTES

                If String.IsNullOrEmpty(_attr.VALUE) Then

                    Continue For

                End If

                Try

                    _PipeRun.Attributes(_attr.NAME).Value = _attr.VALUE

                Catch ex As Exception

                    Console.WriteLine(_attr.NAME)

                End Try

            Next

            _PipeRun.Commit()

        End If

    End Sub

End Class

Public Class Text

    Inherits SPPID_ITEM

    Private _ANGLE As String

    Private _LOCATION As String

    Private _LOCATION_X As Double

    Private _LOCATION_Y As Double

    Private _TEXT As String

    Private _OWNER As String

    Public Property ANGLE As String

        Get

            Return _ANGLE

        End Get

        Set(value As String)

            _ANGLE = value

        End Set

    End Property

    Public Property LOCATION As String

        Get

            Return _LOCATION

        End Get

        Set(value As String)

            _LOCATION = value

        End Set

    End Property

    Public Property LOCATION_X As Double

        Get

            Return _LOCATION_X

        End Get

        Set(value As Double)

            _LOCATION_X = value

        End Set

    End Property

    Public Property LOCATION_Y As Double

        Get

            Return _LOCATION_Y

        End Get

        Set(value As Double)

            _LOCATION_Y = value

        End Set

    End Property

    Public Property TEXT As String

        Get

            Return _TEXT

        End Get

        Set(value As String)

            _TEXT = value

        End Set

    End Property

    Public Property OWNER As String

        Get

            Return _OWNER

        End Get

        Set(value As String)

            _OWNER = value

        End Set

    End Property

    Public Overrides Sub AfterSetting()

        '' Angle Setting

        If ANGLE = 1.57 Then

            ANGLE = 90 * Math.PI / 180

        ElseIf ANGLE = 3.14 Then

            ANGLE = Math.PI

        ElseIf ANGLE = 4.71 Then

            ANGLE = 270 * Math.PI / 180

        Else

            ANGLE = 0

        End If

        '' end

        '' Location Setting

        Main.ConvertPointBystring(LOCATION, LOCATION_X, LOCATION_Y)

        Main.ConvertPointByImage(LOCATION_X, LOCATION_Y, Main._IMG_X, Main._IMG_Y)

        '' end

        '' SPPID Type Setting

        SPPID_TYPE = SPPID_ITEM_TYPE.TEXT

        '' end

    End Sub

    Public Overrides Sub Modeling()

        Try

            Dim _Placement As Placement = New Placement

            If NAME = "TEXT" Then

                Dim _lmSymbol As LMSymbol = _Placement.PIDPlaceSymbol(SPPIDMAPPINGNAME, LOCATION_X, LOCATION_Y, Rotation:=ANGLE)

                SPPID_ITEM_OBJECT = _Placement.PIDDataSource.GetItemNote(_lmSymbol.ModelItemID)

                SPPID_ITEM_OBJECT.Attributes("Note.Body").Value = TEXT

            ElseIf NAME = "SIZE" Then

                Dim _obj As Object = FindObjectByUID(OWNER)

                If String.IsNullOrEmpty(OWNER) = False Then

                    Dim points(2) As Double

                    points(1) = LOCATION_X

                    points(2) = LOCATION_Y

                    If TypeOf (_obj) Is Symbol Then

                        Dim _symbol As Symbol = _obj

                        Dim _lmSymbol As LMSymbol = _symbol.SPPID_ITEM_OBJECT

                        If _lmSymbol.FileName.ToString().Contains("Piping") Then

                            SPPIDMAPPINGNAME = "\Piping\Labels - Piping Components\Nominal Diameter.sym"

                        ElseIf _lmSymbol.FileName.ToString().Contains("Instrumentation") Then

                            SPPIDMAPPINGNAME = "\Instrumentation\Labels - General Instrument\Nominal Diameter.sym"

                        End If

                        SPPID_ITEM_OBJECT = _Placement.PIDPlaceLabel(SPPIDMAPPINGNAME, points, Rotation:=ANGLE, LabeledItem:=_lmSymbol.AsLMRepresentation, IsLeaderVisible:=True)

                    End If

                End If

            End If

        Catch ex As Exception

            Console.WriteLine(ex.Message)

        End Try

    End Sub

    Public Overrides Sub SetAttribute()

        Try

            Dim _obj As Object = FindObjectByUID(OWNER)

            If String.IsNullOrEmpty(OWNER) = False Then

                Dim _Placement As Placement = New Placement

                If NAME = "SIZE" Then

                    If TypeOf (_obj) Is Symbol Then

                        Try

                            Dim _symbol As Symbol = _obj

                            Dim _lmSymbol As LMSymbol = _symbol.SPPID_ITEM_OBJECT

                            If _lmSymbol.FileName.ToString().Contains("Piping") Then

                                Dim _lmPipingComp As LMPipingComp = _Placement.PIDDataSource.GetPipingComp(_lmSymbol.ModelItemID)

                                If DBNull.Value.Equals(_lmPipingComp.Attributes("NominalDiameter").Value) Then

                                    _lmPipingComp.Attributes("NominalDiameter").Value = TEXT

                                    _lmPipingComp.Commit()

                                End If

                            ElseIf _lmSymbol.FileName.ToString().Contains("Instrumentation") Then

                                Dim _lmInstrument As LMInstrument = _Placement.PIDDataSource.GetInstrument(_lmSymbol.ModelItemID)

                                If DBNull.Value.Equals(_lmInstrument.Attributes("NominalDiameter").Value) Then

                                    _lmInstrument.Attributes("NominalDiameter").Value = TEXT

                                    _lmInstrument.Commit()

                                End If

                            End If

                        Catch ex As Exception

                            Console.WriteLine(ex.Message)

                        End Try

                    ElseIf TypeOf (_obj) Is Line Then

                        Try

                            Dim _line As Line = _obj

                            Dim _PipeRun As LMPipeRun = _Placement.PIDDataSource.GetPipeRun(_line.LMCONNECTOR_MODELID)

                            If DBNull.Value.Equals(_PipeRun.NominalDiameter) Then

                                _PipeRun.NominalDiameter = TEXT

                                _PipeRun.Commit()

                            End If

                        Catch ex As Exception

                            Console.WriteLine(ex.Message)

                        End Try

                    End If

                End If

            End If

        Catch ex As Exception

            Console.WriteLine(ex.Message)

        End Try

    End Sub

End Class

Public Class Attribute

    Private _UID As String

    Private _NAME As String

    Private _VALUE As String

    Public Property UID As String

        Get

            Return _UID

        End Get

        Set(value As String)

            _UID = value

        End Set

    End Property

    Public Property NAME As String

        Get

            Return _NAME

        End Get

        Set(value As String)

            _NAME = value

        End Set

    End Property

    Public Property VALUE As String

        Get

            Return _VALUE

        End Get

        Set(value As String)

            _VALUE = value

        End Set

    End Property

End Class

Public Class Connector

    Private _CONNECTEDITEM As String

    Private _CONNECTPOINT As String

    Private _SCENECONNECTPOINT As String

    Public Property CONNECTEDITEM As String

        Get

            Return _CONNECTEDITEM

        End Get

        Set(value As String)

            _CONNECTEDITEM = value

        End Set

    End Property

    Public Property CONNECTPOINT As String

        Get

            Return _CONNECTPOINT

        End Get

        Set(value As String)

            _CONNECTPOINT = value

        End Set

    End Property

    Public Property SCENECONNECTPOINT As String

        Get

            Return _SCENECONNECTPOINT

        End Get

        Set(value As String)

            _SCENECONNECTPOINT = value

        End Set

    End Property

End Class