/DTI_PID/SPPIDConverter/Drawing.vb - 이력해설 - HYTOS - 일정관리

hytos / DTI_PID / SPPIDConverter / Drawing.vb @ 9f27c190

-            e6ef24be
+Imports SPPIDConverter
 Public Class Drawing
-ba3e887
+            Gyusu
     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)
-            e6ef24be
+            gaqhf
     '' 추가 수정 중
     Private _SYMBOLS As List(Of Symbol)
     Private _LINES As List(Of Line)
     Private _LINENUMBERS As List(Of LineNumber)
     Private _TRIMLINES As List(Of LineNumber)
     ''
-ba3e887
+    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
-            e6ef24be
+            gaqhf
     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
-ba3e887
+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 Class Symbol
-            e6ef24be
+    Private _UID As String
     Private _NAME As String
     Private _TYPE As String
     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 String
     Private _HASINSTRUMENTLABEL As String
     Private _AREA As String
     Private _CURRENTPOINTMODEINDEX As String
     Private _LINENUMBER As LineNumber
-e561f5b
+    Private _ENABLE As Boolean = True
-            e6ef24be
+            gaqhf
     Public Property NAME As String
         Get
             Return _NAME
         End Get
         Set(value As String)
             _NAME = 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 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 CHILD As String
         Get
             Return _CHILD
         End Get
         Set(value As String)
             _CHILD = 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 AREA As String
         Get
             Return _AREA
         End Get
         Set(value As String)
             _AREA = 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 UID As String
         Get
             Return _UID
         End Get
         Set(value As String)
             _UID = value
         End Set
     End Property
-ba3e887
+            Gyusu
-            e6ef24be
+    Public Property LINENUMBER As LineNumber
         Get
             Return _LINENUMBER
         End Get
         Set(value As LineNumber)
             _LINENUMBER = value
         End Set
     End Property
-e561f5b
+            gaqhf
     Public Property ENABLE As Boolean
         Get
             Return _ENABLE
         End Get
         Set(value As Boolean)
             _ENABLE = value
         End Set
     End Property
-ba3e887
+End Class
 Public Class Line
-            e6ef24be
+    Private _UID As String
     Private _STARTPOINT As String
     Private _ENDPOINT As String
     Private _TYPE As String
     Private _AREA As String
     Private _CONNECTORS As List(Of Connector)
     Private _LINENUMBER As LineNumber
-e561f5b
+    Private _ENABLE As Boolean = True
     Private _LMCONNECTOR_MODELID As String
-            e6ef24be
+            gaqhf
-e561f5b
+    Private _START_X As Double
     Private _START_Y As Double
     Private _END_X As Double
     Private _END_Y As Double
     ''DrawPrimaryLines
-            e6ef24be
+    Public Property STARTPOINT As String
         Get
             Return _STARTPOINT
         End Get
         Set(value As String)
             _STARTPOINT = value
-e561f5b
+            Main.ConvertPointBystring(_STARTPOINT, _START_X, _START_Y)
             Main.ConvertPointByImage(_START_X, _START_Y, Main._IMG_X, Main._IMG_Y)
-            e6ef24be
+        End Set
     End Property
-ba3e887
+            Gyusu
-            e6ef24be
+    Public Property ENDPOINT As String
         Get
             Return _ENDPOINT
         End Get
         Set(value As String)
             _ENDPOINT = value
-e561f5b
+            Main.ConvertPointBystring(_ENDPOINT, _END_X, _END_Y)
             Main.ConvertPointByImage(_END_X, _END_Y, Main._IMG_X, Main._IMG_Y)
-            e6ef24be
+        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 AREA As String
         Get
             Return _AREA
         End Get
         Set(value As String)
             _AREA = 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 UID As String
         Get
             Return _UID
         End Get
         Set(value As String)
             _UID = 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
-e561f5b
+            gaqhf
     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 ENABLE As Boolean
         Get
             Return _ENABLE
         End Get
         Set(value As Boolean)
             _ENABLE = 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
-            e6ef24be
+End Class
 Public Class LineNumber
     Private _UID As String
     Private _SYMBOLRUNITEMS As List(Of String)
     Private _LINERUNITEMS As List(Of String)
     Public Property UID As String
         Get
             Return _UID
         End Get
         Set(value As String)
             _UID = 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
-ba3e887
+End Class
 Public Class Attribute
 End Class
-            e6ef24be
+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

프로젝트

일반

사용자정보

HYTOS

hytos / DTI_PID / SPPIDConverter / Drawing.vb @ 9f27c190