增加杨格锁私有属性编译和优化解析HEX文件逻辑

BLV_Studio/Test/GridTest/TableInteraction.vb

@@ -6558,6 +6558,7 @@ Public Class TableInteraction
         Dim tmpAddr As Byte = CInt(FindAttributeValueUnderModel2(pNode, "设备存在", "拨码地址")) '设备地址(1字节)
         Dim hostAddr As Byte = CInt(FindNodeValueUnderModel(hostNode, "RS485", pNode.Desc.DevInterface)) '设备地址(1字节)
         Dim TemptDevType As Byte = 0
+         Dim T1TemptDevType As Byte = 0
         Dim ParentDevType As Byte = 0
         Dim ParentDevAddr As Byte = 0
         Dim ParentDevPort As Byte = 0
@@ -6599,14 +6600,29 @@ Public Class TableInteraction
                 End If
 
             End If
+              If Tcnode.Name.ToUpper.Equals("LOCK") And Not IsNothing(pNode.Desc.DevDescription) Then
+            Curtainbuf=   pNode.Desc.DevDescription.split(",")
+                If Curtainbuf.Length > 1 Then                  
+                  
+                   T1TemptDevType =CInt(Curtainbuf(1))
+                   
+                     If T1TemptDevType=0 Then
+                        TemptDevType = 0
+                        Else 
+                        TemptDevType=CInt(Curtainbuf(0))
+                    End If
+                    Exit For
+                End If
+
+            End If
         Next
 
 
         keepParam(0) = ParentDevType
         keepParam(1) = ParentDevAddr
         keepParam(2) = ParentDevPort
-        keepParam(8) = TemptDevType
-
+        keepParam(8) =T1TemptDevType 
+        keepParam(9) = TemptDevType
         For indexi = 1 To 5
             node = FindAttributeUnderModel(pNode, "设备存在", $"弱电输入{indexi}")
             If node Then