水暖设备.tbl

电气控制仿真软件

<?xml version="1.0" encoding="gb2312"?>
<vg version="452" gridsize="10" activesheetindex="2" range="0,0,1024,721" caption="般箱子" backcolor="$FFFFFF" frontcolor="$0" pattern="1">
<page name="Page" bounds="0,0,794,1122" visible="false" margin="100,100,100,100" paperwidth="2100" paperheight="2969"/>
<sheet name="三通" bounds="0,-0.273224,72,92.726776">
<shape name="Rect1" bounds="36,-0.273224,72,92.726776" origin="0,-0.273224" linetype="0" frontcolor="$808080" pattern="243"/>
<line name="Line1" linetype="0" frontcolor="$808080" pattern="245">
<points>
0,26,6
36,26,2
56,44,2
36,64,2
0,64,2
0,26,2
</points>
</line>
<programe>
Private Function GetZhijing()
return Rect1.Width
End Function
Private Function OnResize(Sender)
Rect1.SetBounds( Left + Width - Rect1.Width, Top, Rect1.Width, Height )
m = Top + Height / 2
h = Rect1.Width / 2
Line1.Points[0].x = Left;Line1.Points[0].y = m - h
Line1.Points[1].x = Rect1.Left;Line1.Points[1].y = m - h
Line1.Points[2].x = Rect1.Left + h;Line1.Points[2].y = m
Line1.Points[3].x = Rect1.Left;Line1.Points[3].y = m + h
Line1.Points[4].x = Left;Line1.Points[4].y = m + h
Line1.Points[5].x = Left;Line1.Points[5].y = m - h
Line1.Refresh()
End Function
Private Function SetZhijing(Value)
Rect1.Width = Value
OnResize( this )
End Function
Property Zhijing read GetZhijing write SetZhijing name 直径
</programe>
</sheet>
<sheet name="四通" bounds="0,9,108,102">
<shape name="Rect1" bounds="36,9,72,102" linetype="0" frontcolor="$808080" pattern="243"/>
<line name="Line1" linetype="0" frontcolor="$808080" pattern="245">
<points>
0,36,6
36,36,2
56,54,2
36,74,2
0,74,2
0,36,2
</points>
</line>
<line name="Line2" linetype="0" frontcolor="$808080" pattern="245">
<points>
108,36,6
71,36,2
56,54,2
71,73,2
108,73,2
108,36,2
</points>
</line>
<programe>
Private Function GetZhijing()
return Rect1.Width
End Function
Private Function OnResize(Sender)
m = Top + Height / 2
h = Rect1.Width / 2
Rect1.SetBounds( Left + Width / 2 - h, Top, Rect1.Width, Height )
Line1.Points[0].x = Left;Line1.Points[0].y = m - h
Line1.Points[1].x = Rect1.Left;Line1.Points[1].y = m - h
Line1.Points[2].x = Rect1.Left + h;Line1.Points[2].y = m
Line1.Points[3].x = Rect1.Left;Line1.Points[3].y = m + h
Line1.Points[4].x = Left;Line1.Points[4].y = m + h
Line1.Points[5].x = Left;Line1.Points[5].y = m - h
Line1.Refresh()
Line2.Points[0].x = Left+Width;Line2.Points[0].y = m - h
Line2.Points[1].x = Rect1.Left+Rect1.Width;Line2.Points[1].y = m - h
Line2.Points[2].x = Rect1.Left + h;Line2.Points[2].y = m
Line2.Points[3].x = Rect1.Left+Rect1.Width;Line2.Points[3].y = m + h
Line2.Points[4].x = Left+Width;Line2.Points[4].y = m + h
Line2.Points[5].x = Left+Width;Line2.Points[5].y = m - h
Line2.Refresh()
End Function
Private Function SetZhijing(Value)
Rect1.Width = Value
OnResize( this )
End Function
Property Zhijing read GetZhijing write SetZhijing name 直径
</programe>
</sheet>
<sheet name="垂直管道" bounds="1,1,37,92">
<shape name="Rect1" bounds="1,1,37,92" linetype="0" frontcolor="$808080" pattern="243"/>
<programe>
Private Function GetZhijing()
return Rect1.Width
End Function
Private Function OnResize(Sender)
Rect1.SetBounds( Left, Top, Rect1.Width, Height )
End Function
Private Function SetZhijing(Value)
Rect1.Width = Value
OnResize( this )
End Function
Property Zhijing read GetZhijing write SetZhijing name 直径
</programe>
</sheet>
<sheet name="水平管道" bounds="0,0,82,36">
<shape name="Rect1" bounds="0,0,82,36" linetype="0" frontcolor="$808080" pattern="245"/>
<programe>
Private Function GetZhijing()
return Rect1.Height
End Function
Private Function OnResize(Sender)
Rect1.SetBounds( Left, Top, Width, Rect1.Height )
End Function
Private Function SetZhijing(Value)
Rect1.Height = Value
OnResize( this )
End Function
Property Zhijing read GetZhijing write SetZhijing name 直径
</programe>
</sheet>
<sheet name="弯头" bounds="0,-1,77,74">
<line name="Line1" origin="-60.5,-61" linetype="0" frontcolor="$808080" pattern="243">
<points>
41,-1,6
41,38,2
77,74,2
77,-1,2
41,-1,2
</points>
</line>
<line name="Line2" origin="-60.5,-61" linetype="0" frontcolor="$808080" pattern="245">
<points>
0,38,6
0,74,2
77,74,2
41,38,2
0,38,2
</points>
</line>
<programe>
Private Function GetZhijing()
return Line1.Width
End Function
Private Function OnResize(Sender)
h = Line1.Width
Line1.Points[0].x = Left+Width-h;Line1.Points[0].y = Top
Line1.Points[1].x = Left+Width-h;Line1.Points[1].y = Top + Height - h
Line1.Points[2].x = Left+Width;Line1.Points[2].y = Top + Height
Line1.Points[3].x = Left+Width;Line1.Points[3].y = Top
Line1.Points[4].x = Left+Width-h;Line1.Points[4].y = Top
Line1.Refresh()
Line2.Points[0].x = Left;Line2.Points[0].y = Top + Height - h
Line2.Points[1].x = Left;Line2.Points[1].y = Top + Height
Line2.Points[2].x = Left+Width;Line2.Points[2].y = Top + Height
Line2.Points[3].x = Left+Width-h;Line2.Points[3].y = Top + Height - h
Line2.Points[4].x = Left;Line2.Points[4].y = Top+Height-h
Line2.Refresh()
End Function
Private Function SetZhijing(Value)
Line1.Width = Value
OnResize( this )
End Function
Property Zhijing read GetZhijing write SetZhijing name 直径
</programe>
</sheet>
<sheet name="阀门" bounds="115,46,159,112">
<shape name="Rect4" bounds="132,52,141,64" pattern="243"/>
<shape name="Rect5" bounds="117,62,156,112" corner="12" linetype="0" frontcolor="$808080" pattern="243"/>
<shape name="Rect6" bounds="115,46,159,55" corner="4" linetype="0" backcolor="$808000" frontcolor="$800080" pattern="243"/>
</sheet>
<sheet name="法兰" bounds="4,2,20,37">
<shape name="Rect9" bounds="12,2,18,37" linetype="0" frontcolor="$808080" pattern="245"/>
<shape name="Rect10" bounds="6,2,12,37" linetype="0" frontcolor="$808080" pattern="245"/>
<shape name="Rect11" bounds="18,5,20,8" pattern="1"/>
<shape name="Rect12" bounds="18,13,20,17" backcolor="$0" pattern="1"/>
<shape name="Rect13" bounds="18,24,20,28" backcolor="$0" pattern="1"/>
<shape name="Rect14" bounds="18,31,20,35" backcolor="$0" pattern="1"/>
<shape name="Rect15" bounds="18,5,20,9" backcolor="$0" pattern="1"/>
<shape name="Rect16" bounds="4,5,6,9" backcolor="$0" pattern="1"/>
<shape name="Rect17" bounds="4,13,6,17" backcolor="$0" pattern="1"/>
<shape name="Rect18" bounds="4,23,6,27" backcolor="$0" pattern="1"/>
<shape name="Rect19" bounds="4,30,6,34" backcolor="$0" pattern="1"/>
<line name="Line1">
<points>
12,2,6
12,37,2
</points>
</line>
</sheet>
<sheet name="电机" bounds="5,5,112,75">
<shape name="Rect19" bounds="22,6,108,63" corner="12" linecolor="$808080" frontcolor="$808080" pattern="245"/>
<line name="Line2" backcolor="$808080" pattern="1">
<points>
35,15,6
41,10,2
76,10,2
85,15,2
35,15,2
</points>
</line>
<line name="Line3" backcolor="$808080" pattern="1">
<points>
35,22,6
41,17,2
76,17,2
85,22,2
35,22,2
</points>
</line>
<line name="Line4" backcolor="$808080" pattern="1">
<points>
35,29,6
41,24,2
76,24,2
85,29,2
35,29,2
</points>
</line>
<line name="Line5" backcolor="$808080" pattern="1">
<points>
35,36,6
41,31,2
76,31,2
85,36,2
35,36,2
</points>
</line>
<line name="Line6" backcolor="$808080" pattern="1">
<points>
35,43,6
41,38,2
76,38,2
85,43,2
35,43,2
</points>
</line>
<line name="Line7" backcolor="$808080" pattern="1">
<points>
35,50,6
41,45,2
76,45,2
85,50,2
35,50,2
</points>
</line>
<line name="Line8" backcolor="$808080" pattern="1">
<points>
35,57,6
41,52,2
76,52,2
85,57,2
35,57,2
</points>
</line>
<line name="Line9" linecolor="$660066" frontcolor="$C0C0C0" pattern="245">
<points>
15,5,6
5,15,2
5,56,2
17,64,2
28,64,2
28,5,2
15,5,2
</points>
</line>
<shape name="Rect22" bounds="8,16,24,17" pattern="1"/>
<shape name="Rect23" bounds="8,21,24,22" pattern="1"/>
<shape name="Rect24" bounds="9,28,25,29" pattern="1"/>
<shape name="Rect25" bounds="9,33,25,34" pattern="1"/>
<shape name="Rect26" bounds="9,39,25,40" pattern="1"/>
<shape name="Rect27" bounds="9,44,25,45" pattern="1"/>
<shape name="Rect28" bounds="9,49,25,50" pattern="1"/>
<shape name="Rect29" bounds="9,52,25,53" pattern="1"/>
<shape name="Rect30" bounds="35,62,90,72" pattern="1"/>
<shape name="Rect31" bounds="17,72,112,75" pattern="1"/>
</sheet>
</vg>