电力设备.tbl

电气控制仿真软件

<?xml version="1.0" encoding="gb2312"?>
<vg version="451" gridsize="8" zoom="852,100" range="0,0,1024,721" caption="般箱子" borderstyle="1" pattern="1">
<page name="Page" bounds="0,0,827,1169" visible="false" margin="100,100,100,100" paperwidth="2100" paperheight="2969"/>
<sheet name="垂直刀闸" protect="128">
<line name="Line1" visible="false" backcolor="$FF" pattern="1">
<points>
7,14,6
12,22,2
</points>
</line>
<shape name="Circle1" type="Circle" bounds="5,10,9,14" backcolor="$FF"/>
<line name="Line4" backcolor="$FF" pattern="1">
<points>
7,14,6
7,23,2
</points>
</line>
<shape name="Circle2" type="Circle" bounds="5,23,9,27" backcolor="$FF"/>
<line name="L2" linkmode="2">
<points>
7,27,6
7,33,2
</points>
</line>
<line name="L1" linkmode="2">
<points>
7,10,6
7,3,2
</points>
</line>
<group name="Group1">
Line1
Circle1
Line4
Circle2
L2
L1
</group>
<programe>
Property Color read GetColor write SetColor
Private Function GetColor()
return Line1.LineColor
End Function
Private Function GetIsoff()
return Line4.Visible
End Function
Property Isoff read GetIsoff write SetIsoff name 开合 editor Bool
Private Function SetColor(AColor)
FColor = AColor
Line1.LineColor = AColor
Line4.LineColor = AColor
L2.LineColor = AColor
L1.LineColor = AColor
Circle1.LineColor = AColor
Circle2.LineColor = AColor
End Function
Private Function SetIsoff(AIsoff)
Line4.Visible = AIsoff
Line1.Visible = not AIsoff
End Function
</programe>
</sheet>
<sheet name="水平刀闸">
<line name="Line5" origin="1,2" visible="false" backcolor="$FF" pattern="1">
<points>
10,11,6
22,5,2
</points>
</line>
<shape name="Circle3" type="Circle" bounds="22,9,26,13" backcolor="$FF"/>
<line name="Line6" backcolor="$FF" pattern="1">
<points>
10,11,6
22,11,2
</points>
</line>
<shape name="Circle4" type="Circle" bounds="6,9,10,13" backcolor="$FF"/>
<line name="L1" linkmode="2">
<points>
6,11,6
0,11,2
</points>
</line>
<line name="L2" linkmode="2">
<points>
26,11,6
33,11,2
</points>
</line>
<programe>
Property Color read GetColor write SetColor
Private Function GetColor()
return L1.LineColor
End Function
Private Function GetIsoff()
return Line6.Visible
End Function
Property Isoff read GetIsoff write SetIsoff name 开合 editor Bool
Private Function SetColor(AColor)
Circle4.LineColor = AColor
Circle3.LineColor = AColor
Line5.LineColor = AColor
Line6.LineColor = AColor
L2.LineColor = AColor
L1.LineColor = AColor
End Function
Private Function SetIsoff(AIsoff)
Line6.Visible = AIsoff
Line5.Visible = not AIsoff
End Function
</programe>
</sheet>
<sheet name="三卷变压器">
<shape name="Circle4" type="Circle" bounds="5,11,19,25"/>
<shape name="Circle5" type="Circle" bounds="5,20,19,34"/>
<shape name="Circle1" type="Circle" bounds="13,16,27,30"/>
<line name="L1" linkmode="2">
<points>
12,11,6
12,2,2
</points>
</line>
<line name="L3" linkmode="2">
<points>
12,34,6
12,43,2
</points>
</line>
<line name="L2" linkmode="2">
<points>
27,22,6
36,22,2
</points>
</line>
<programe>
Property Color read GetColor write SetColor name 颜色 editor Color
Private Function GetColor()
return L1.LineColor
End Function
Private Function SetColor(AColor)
circle1.LineColor=Acolor
circle4.LineColor=Acolor
circle5.LineColor=Acolor
L1.LineColor=Acolor
L2.LineColor=Acolor
L3.LineColor=Acolor
End Function
</programe>
</sheet>
<sheet name="双卷变压器" protect="128">
<shape name="Circle4" type="Circle" bounds="4,8,18,22"/>
<shape name="Circle5" type="Circle" bounds="4,17,18,31"/>
<line name="L1" linkmode="2">
<points>
11,8,6
11,2,2
</points>
<programe>
Published Function OnClick(Sender)
Circle4.LineColor=Acolor
Circle5.LineColor=Acolor
Th.LineColor=Acolor
Tl.LineColor=Acolor
End Function
</programe>
</line>
<line name="L2" linkmode="2">
<points>
11,31,6
11,37,2
</points>
</line>
<programe>
Property color read getcolor write setcolor name 颜色 editor Color
Private Function getcolor()
return L1.LineColor
End Function
Private Function setcolor(Acolor)
circle4.LineColor=Acolor
circle5.LineColor=Acolor
L1.LineColor=Acolor
L2.LineColor=Acolor
End Function
</programe>
</sheet>
<sheet name="垂直开关">
<shape name="Rect1" bounds="6,8,14,22" backcolor="$0" pattern="1"/>
<line name="L1" linkmode="2">
<points>
10,8,6
10,2,2
</points>
</line>
<line name="L2" linkmode="2">
<points>
10,22,6
10,28,2
</points>
</line>
<programe>
Property Color read GetColor write SetColor
Private Function GetColor()
return L1.LineColor
End Function
Private Function GetIsoff()
return Rect1.Pattern=1 
End Function
Property Isoff read GetIsoff write SetIsoff name 开合 editor Bool
Private Function SetColor(AColor)
Rect1.LineColor = AColor
L1.LineColor = AColor
L2.LineColor = AColor
End Function
Private Function SetIsoff(AIsoff)
if AIsoff
	Rect1.Pattern=1
else
	Rect1.Pattern=0
end if
End Function
</programe>
</sheet>
<sheet name="水平开关">
<shape name="Rect1" bounds="6,2,22,10" backcolor="$0" pattern="1"/>
<line name="L2" linkmode="2">
<points>
22,6,6
28,6,2
</points>
</line>
<line name="L1" linkmode="2">
<points>
6,6,6
1,6,2
</points>
</line>
<programe>
Property Color read GetColor write SetColor
Private Function GetColor()
return L2.LineColor
End Function
Private Function GetIsoff()
return Rect1.Pattern=1 
End Function
Property Isoff read GetIsoff write SetIsoff name 开合 editor Bool
Private Function SetColor(AColor)
Rect1.LineColor = AColor
L2.LineColor = AColor
L1.LineColor = AColor
End Function
Private Function SetIsoff(AIsoff)
if AIsoff
	Rect1.Pattern=1
else
	Rect1.Pattern=0
end if
End Function
</programe>
</sheet>
<sheet name="发电机">
<shape name="Circle1" type="Circle" bounds="1,12,18,29"/>
<shape name="Arc1" type="Arc" bounds="9,16,16,32" endangle="135" startangle="44"/>
<shape name="Arc2" type="Arc" bounds="3,9,10,25" endangle="315" startangle="225"/>
<line name="L1" linkmode="2">
<points>
9,12,6
9,3,2
</points>
</line>
<programe>
Property Color read GetColor write SetColor
Private Function GetColor()
return L1.LineColor
End Function
Private Function SetColor(AColor)
L1.LineColor = AColor
Circle1.LineColor = AColor
Arc1.LineColor = AColor
Arc2.LineColor = AColor
End Function
</programe>
</sheet>
<sheet name="水平电容器">
<line name="Line5" origin="10.9,8.05">
<points>
10.9,1,6
10.9,15.1,2
</points>
</line>
<line name="Line6" origin="16.9,7.95">
<points>
16.9,0.9,6
16.9,15,2
</points>
</line>
<line name="LinkLine1" origin="5.9,8" linkmode="2">
<points>
10.9,8,6
0.9,8,2
</points>
</line>
<line name="LinkLine2" origin="26.3,10.7" linkmode="2">
<points>
16.9,8,6
26.9,8,2
</points>
</line>
<programe>
Property Color read GetColor write SetColor editor Color
Private Function GetColor()
return LinkLine1.LineColor
End Function
Private Function SetColor(AColor)
LinkLine1.LineColor = AColor
LinkLine2.LineColor = AColor
Line5.LineColor = AColor
Line6.LineColor = AColor
End Function
</programe>
</sheet>
<sheet name="垂直电容器">
<line name="Line1">
<points>
2,13,6
16,13,2
</points>
</line>
<line name="Line2">
<points>
2,19,6
16,19,2
</points>
</line>
<line name="LinkLine1" origin="-1,24" linkmode="2">
<points>
9,19,6
9,29,2
</points>
</line>
<line name="LinkLine2" origin="-1,8" linkmode="2">
<points>
9,13,6
9,3,2
</points>
</line>
<programe>
Property Color read GetColor write SetColor editor Color
Private Function GetColor()
return LinkLine1.LineColor
End Function
Private Function SetColor(AColor)
LinkLine1.LineColor = AColor
LinkLine2.LineColor = AColor
Line1.LineColor = AColor
Line2.LineColor = AColor
End Function
</programe>
</sheet>
<sheet name="水平接地">
<line name="Line2" linecolor="$808080" backcolor="$C0C0C0" pattern="1">
<points>
18,0,6
18,18,2
</points>
</line>
<line name="Line3" linecolor="$808080" backcolor="$C0C0C0" pattern="1">
<points>
22,4,6
22,16,2
</points>
</line>
<line name="Line4" linecolor="$808080" backcolor="$C0C0C0" pattern="1">
<points>
26,6,6
26,12,2
</points>
</line>
<line name="LinkLine1" origin="-1,-1" linkmode="2">
<points>
18,9,6
0,9,2
</points>
</line>
</sheet>
<sheet name="垂直接地">
<line name="Line2" linecolor="$808080" backcolor="$C0C0C0" pattern="1">
<points>
0,15,6
18,15,2
</points>
</line>
<line name="Line3" linecolor="$808080" backcolor="$C0C0C0" pattern="1">
<points>
3,19,6
15,19,2
</points>
</line>
<line name="Line4" linecolor="$808080" backcolor="$C0C0C0" pattern="1">
<points>
6,23,6
12,23,2
</points>
</line>
<line name="LinkLine1" origin="-1,7.5" linkmode="2">
<points>
9,15,6
9,0,2
</points>
</line>
</sheet>
<sheet name="水平线路">
<line name="Line1">
<points>
6,9,6
9,9,2
12,3,2
15,15,2
18,3,2
21,9,2
24,9,2
</points>
</line>
<line name="LinkLine1" origin="27.2,-1" linkmode="2">
<points>
24,9,6
30,9,2
</points>
</line>
<line name="LinkLine2" origin="-7,-1" linkmode="2">
<points>
6,9,6
0,9,2
</points>
</line>
<programe>
Property Color read GetColor write SetColor
Private Function GetColor()
return LinkLine1.LineColor
End Function
Private Function SetColor(AColor)
Line1.LineColor = AColor
LinkLine1.LineColor = AColor
LinkLine2.LineColor = AColor
End Function
</programe>
</sheet>
<sheet name="垂直线路">
<line name="Line3">
<points>
9,9,6
9,12,2
15,15,2
3,18,2
15,21,2
9,24,2
9,27,2
</points>
</line>
<line name="L1" linkmode="2">
<points>
9,9,6
9,3,2
</points>
</line>
<line name="L2" linkmode="2">
<points>
9,27,6
9,33,2
</points>
</line>
<programe>
Property Color read GetColor write SetColor
Private Function GetColor()
return L1.LineColor
End Function
Private Function SetColor(AColor)
Line3.LineColor = AColor
L1.LineColor = AColor
L2.LineColor = AColor
End Function
</programe>
</sheet>
<sheet name="横向母线" protect="8">
<line name="LinkLine1" type="Link" linewidth="4" linecolor="$80" linkmode="2">
<points>
19,15,6
42.019,15.141,2
</points>
</line>
<programe>
Property Color read GetColor write SetColor
Private Function GetColor()
return LinkLine1.LineColor
End Function
Private Function SetColor(AColor)
LinkLine1.LineColor = AColor
End Function
</programe>
</sheet>
<sheet name="纵向母线" protect="4">
<line name="LinkLine1" type="Link" linewidth="4" linecolor="$80" linkmode="2">
<points>
60,19,6
60,77,2
</points>
</line>
<programe>
Property Color read GetColor write SetColor
Private Function GetColor()
return LinkLine1.LineColor
End Function
Private Function SetColor(AColor)
LinkLine1.LineColor = AColor
End Function
</programe>
</sheet>
</vg>