自绘图形.tbl

电气控制仿真软件

<?xml version="1.0" encoding="gb2312"?>
<vg Version="450" ActiveSheetIndex="21" Range="0,0,300,296" Caption="般箱子" BorderStyle="1" Pattern="1">
<Page Name="Page" Bounds="0.000000,0.000000,827.000000,1169.000000" Visible="False" PaperWidth="2100" PaperHeight="2969"/>
<Sheet Name="平行四边形">
<Line Name="Line1" Pattern="1">
<Points>
0.000000,40.000000,6
30.000000,0.000000,2
130.000000,0.000000,2
100.000000,40.000000,2
0.000000,40.000000,2
</Points>
</Line>
<Text Name="Text1" Bounds="30.000000,0.000000,99.000000,40.000000" Origin="66.000000,12.000000" Border="$0" FontName="宋体" FontSize="16"/>
</Sheet>
<Sheet Name="菱形">
<Line Name="Line1" Pattern="1">
<Points>
30.000000,0.000000,6
0.000000,40.000000,2
30.000000,80.000000,2
60.000000,40.000000,2
30.000000,0.000000,2
</Points>
</Line>
<Text Name="Text1" Bounds="13.000000,23.000000,47.000000,56.750000" Origin="29.500000,39.500000" Border="$0" FontName="宋体" FontSize="16"/>
</Sheet>
<Sheet Name="文档">
<Line Name="Line1" Origin="88.000000,32.000000" Pattern="1">
<Points>
0.000000,0.000000,6
176.000000,0.000000,2
176.000000,64.000000,2
128.000000,16.000000,4
48.000000,112.000000,4
0.000000,64.000000,4
0.000000,0.000000,3
</Points>
</Line>
<Text Name="Text1" Bounds="0.000000,0.000000,176.000000,48.000000" Origin="88.000000,24.000000" Border="$0" FontName="宋体" FontSize="16"/>
</Sheet>
<Sheet Name="五边形">
<Line Name="Line1" Pattern="1">
<Points>
31.000000,0.000000,6
0.000000,22.000000,2
11.000000,58.000000,2
50.000000,58.000000,2
62.000000,22.000000,2
31.000000,0.000000,2
</Points>
</Line>
<Text Name="Text1" Bounds="13.500000,12.500000,48.250000,58.000000" Origin="30.875000,35.250000" Border="$0" FontName="宋体" FontSize="16"/>
</Sheet>
<Sheet Name="六边形">
<Line Name="Line1" Pattern="1">
<Points>
11.000000,0.000000,6
0.000000,19.000000,2
11.000000,38.000000,2
33.000000,38.000000,2
45.000000,19.000000,2
33.000000,0.000000,2
11.000000,0.000000,2
</Points>
</Line>
<Text Name="Text1" Bounds="11.000000,0.000000,32.750000,38.000000" Origin="22.000000,19.125000" Border="$0" FontName="宋体" FontSize="16"/>
</Sheet>
<Sheet Name="八边形">
<Line Name="Line1" Pattern="1">
<Points>
44.000000,0.000000,6
0.000000,44.000000,2
0.000000,105.000000,2
44.000000,149.000000,2
105.000000,149.000000,2
149.000000,105.000000,2
149.000000,44.000000,2
105.000000,0.000000,2
44.000000,0.000000,2
</Points>
</Line>
<Text Name="Text1" Cursor="15" Bounds="23.500000,21.500000,126.500000,128.000000" Origin="75.000000,74.750000" Border="$0" FontName="宋体" FontSize="16" ReadOnly="False"/>
</Sheet>
<Sheet Name="五角形">
<Line Name="Line1" Pattern="1">
<Points>
108.000000,0.000000,6
82.000000,78.000000,2
0.000000,78.000000,2
66.000000,127.000000,2
41.000000,206.000000,2
108.000000,157.000000,2
175.000000,206.000000,2
149.000000,127.000000,2
216.000000,78.000000,2
133.000000,78.000000,2
108.000000,0.000000,2
</Points>
</Line>
<Text Name="Text1" Bounds="66.500000,78.000000,148.500000,157.000000" Origin="106.750000,118.250000" Border="$0" FontName="宋体" FontSize="16"/>
</Sheet>
<Sheet Name="星形">
<Line Name="Line1" Pattern="1">
<Points>
50.000000,0.000000,6
37.000000,37.000000,2
0.000000,50.000000,2
37.000000,62.000000,2
50.000000,100.000000,2
62.000000,62.000000,2
100.000000,50.000000,2
62.000000,37.000000,2
50.000000,0.000000,2
</Points>
</Line>
<Text Name="Text1" Bounds="37.000000,37.250000,62.000000,61.750000" Origin="49.750000,49.625000" Border="$0" FontName="宋体" FontSize="16"/>
</Sheet>
<Sheet Name="等腰三角形">
<Line Name="Line1" Pattern="1">
<Points>
60.000000,0.000000,6
0.000000,140.000000,2
120.000000,140.000000,2
60.000000,0.000000,2
</Points>
</Line>
<Text Name="Text1" Bounds="33.000000,64.000000,87.500000,140.000000" Origin="60.250000,102.000000" Border="$0" FontName="宋体" FontSize="16"/>
</Sheet>
<Sheet Name="梯形">
<Line Name="Line1" Pattern="1">
<Points>
0.000000,40.000000,6
30.000000,0.000000,2
72.500000,0.000000,2
100.000000,40.000000,2
0.000000,40.000000,2
</Points>
</Line>
<Text Name="Text1" Bounds="30.250000,0.000000,72.250000,40.000000" Origin="51.125000,20.375000" Border="$0" FontName="宋体" FontSize="16"/>
</Sheet>
<Sheet Name="直角三角形">
<Line Name="Line1" Pattern="1">
<Points>
110.000000,0.000000,6
0.000000,170.000000,2
110.000000,170.000000,2
110.000000,0.000000,2
</Points>
</Line>
<Text Name="Text1" Bounds="50.000000,93.000000,110.000000,170.000000" Origin="80.500000,131.500000" Border="$0" FontName="宋体" FontSize="16" TextAlign="24"/>
</Sheet>
<Sheet Name="十字形">
<Line Name="Line1" Pattern="1">
<Points>
60.000000,0.000000,262
60.000000,60.000000,18
0.000000,60.000000,1026
0.000000,90.000000,2050
60.000000,90.000000,2306
60.000000,150.000000,258
90.000000,150.000000,514
90.000000,90.000000,2562
150.000000,90.000000,2050
150.000000,60.000000,1026
90.000000,60.000000,1538
90.000000,0.000000,514
60.000000,0.000000,258
</Points>
</Line>
<Text Name="Text1" Bounds="0.000000,60.000000,150.000000,90.000000" Origin="75.250000,76.000000" Border="$0" FontName="宋体" FontSize="16"/>
</Sheet>
<Sheet Name="右箭头">
<Line Name="Line1" Pattern="1">
<Points>
0.000000,40.000000,6
130.000000,40.000000,2
130.000000,0.000000,2
190.500000,40.000000,2
220.000000,60.000000,2
190.500000,79.500000,2
130.000000,120.000000,2
130.000000,80.000000,2
0.000000,80.000000,2
0.000000,40.000000,2
</Points>
</Line>
<Text Name="Text1" Bounds="0.000000,40.000000,190.500000,80.000000" Origin="95.500000,59.500000" Border="$0" FontName="宋体" FontSize="16"/>
</Sheet>
<Sheet Name="左箭头">
<Line Name="Line1" Pattern="1">
<Points>
220.000000,80.000000,6
90.000000,80.000000,2
90.000000,122.500000,2
29.766886,79.976091,2
0.000000,59.000000,2
29.000000,40.000000,2
90.000000,0.000000,2
90.000000,40.000000,2
220.000000,40.000000,2
220.000000,80.000000,2
</Points>
</Line>
<Text Name="Text1" Bounds="29.766886,40.000000,220.000000,80.000000" Origin="124.750000,59.500000" Border="$0" FontName="宋体" FontSize="16"/>
</Sheet>
<Sheet Name="上箭头">
<Line Name="Line1" Pattern="1">
<Points>
40.000000,220.000000,6
40.000000,89.000000,2
0.000000,89.000000,2
60.000000,0.000000,2
119.000000,90.000000,2
80.000000,90.000000,2
80.000000,220.000000,2
40.000000,220.000000,2
</Points>
</Line>
<Text Name="Text1" Bounds="40.000000,31.500000,80.000000,220.000000" Origin="59.000000,125.750000" Border="$0" FontName="宋体" FontSize="16" TextAlign="6"/>
</Sheet>
<Sheet Name="下箭头">
<Line Name="Line1" Pattern="1">
<Points>
77.000000,0.000000,6
77.000000,132.000000,2
118.000000,132.000000,2
58.000000,220.000000,2
0.000000,130.000000,2
39.000000,130.000000,2
39.000000,0.000000,2
77.000000,0.000000,2
</Points>
</Line>
<Text Name="Text1" Bounds="39.000000,0.000000,77.000000,190.000000" Origin="57.750000,95.250000" Border="$0" FontName="宋体" FontSize="16"/>
</Sheet>
<Sheet Name="立体柱">
<Line Name="Line1" BackColor="$808080" Pattern="1">
<Points>
22.000000,8.000000,6
22.000000,72.000000,2
30.000000,64.000000,2
30.000000,0.000000,2
</Points>
</Line>
<Line Name="Line2" BackColor="$C0C0C0" Pattern="1">
<Points>
0.000000,8.000000,6
8.000000,0.000000,2
30.000000,0.000000,2
22.000000,8.000000,2
</Points>
</Line>
<Line Name="Line3" Pattern="1">
<Points>
0.000000,8.000000,6
0.000000,72.000000,2
22.000000,72.000000,2
22.000000,8.000000,2
0.000000,8.000000,2
</Points>
</Line>
<Text Name="Text1" Bounds="0.000000,8.000000,22.000000,72.000000" Origin="11.000000,40.500000" Border="$0" FontName="宋体" FontSize="16"/>
<Programe>
Private Function GetValue()
return Line3.Height
End Function
Private Function Get厚度()
return F厚度
End Function
Property Houdu read Get厚度 write Set厚度
Private Function Initialize(Sender)
F厚度=8
End Function
Private Function OnResize(Sender)
W=Width
if W &lt; 18 then
  w = 18
end if
H=Height
if H &lt; F厚度 then
  h = F厚度
end if
Line1.Points[0].x = Left + W - F厚度
Line1.Points[0].y = Top + F厚度
Line1.Points[1].x = Left + W - F厚度
Line1.Points[1].y = Top + H
Line1.Points[2].x = Left + W
Line1.Points[2].y = Top + H - F厚度
Line1.Points[3].x = Left + W
Line1.Points[3].y = Top
Line1.Refresh()
Line2.Points[0].x = Left
Line2.Points[0].y = Top + F厚度
Line2.Points[1].x = Left + F厚度
Line2.Points[1].y = Top
Line2.Points[2].x = Left + W
Line2.Points[2].y = Top
Line2.Points[3].x = Left + W - F厚度
Line2.Points[3].y = Top + F厚度
Line2.Refresh()
Line3.Points[0].x = Left
Line3.Points[0].y = Top + F厚度
Line3.Points[1].x = Left
Line3.Points[1].y = Top + Height
Line3.Points[2].x = Left + W - F厚度
Line3.Points[2].y = Top + Height
Line3.Points[3].x = Left + W - F厚度
Line3.Points[3].y = Top + F厚度
Line3.Points[4].x=Line3.Points[0].x
Line3.Points[4].y=Line3.Points[0].y
Line3.Refresh()
Text1.SetBounds( Line3.Left, Line3.Top, Line3.Width, Line3.Height )
Refresh()
End Function
Private Function SetValue(AValue)
Bottom=Top+Height
Height = AValue + F厚度
Top = Bottom - Height
End Function
Private Function Set厚度(A厚度)
F厚度=A厚度
if F厚度 &gt; 1000 then
  F厚度 = 1000 then
end if
if F厚度 &lt; 3 then
  F厚度=3
end if
OnResize( This )
End Function
Property Value read GetValue write SetValue
</Programe>
</Sheet>
<Sheet Name="车轮">
<Shape Name="Circle1" Type="Circle" Bounds="0.000000,0.000000,200.000000,200.000000" LineWidth="5" LineColor="$FF" Pattern="1"/>
<Line Name="Line1" BackColor="$C000">
<Points>
100.000000,100.000000,6
200.000000,100.000000,2
</Points>
</Line>
<Line Name="Line2" BackColor="$C000">
<Points>
100.000000,100.000000,6
170.000000,30.000000,2
</Points>
</Line>
<Line Name="Line3" BackColor="$C000">
<Points>
100.000000,100.000000,6
100.000000,0.000000,2
</Points>
</Line>
<Line Name="Line4" BackColor="$C000">
<Points>
100.000000,100.000000,6
30.000000,30.000000,2
</Points>
</Line>
<Line Name="Line5" BackColor="$C000">
<Points>
100.000000,100.000000,6
0.000000,100.000000,2
</Points>
</Line>
<Line Name="Line6" BackColor="$C000">
<Points>
100.000000,100.000000,6
30.000000,170.000000,2
</Points>
</Line>
<Line Name="Line7" BackColor="$C000">
<Points>
100.000000,100.000000,6
100.000000,200.000000,2
</Points>
</Line>
<Line Name="Line8" BackColor="$C000">
<Points>
100.000000,100.000000,6
170.000000,170.000000,2
</Points>
</Line>
<Shape Name="Circle2" Type="Circle" Bounds="80.000000,80.000000,120.000000,120.000000" BackColor="$FF" Pattern="1"/>
<Programe>
Property Delta read GetDelta write SetDelta
Private Function GetDelta()
return FDelta
End Function
Public Function GetInterval()
return FInterval
End Function
Private Function Initialize(Sender)
FInterval = 200
Timer = CreateTimer( This, "OnTimer", 200 )
FAngle = 0
FDelta = 2
End Function
Property Interval read GetInterval write SetInterval
Private Function OnDestroy(Sender)
DestroyTimer(Timer)
End Function
Private Function OnTimer(Sender)
i = 1
FAngle = FAngle + FDelta
if FAngle &gt;= 360 then
  FAngle = 0
end if
x = FAngle
while i &lt;= 8
  p = Units[i].Points
  p[0].x = Circle1.Left + Circle1.Width / 2
  p[0].y = Circle1.Top + Circle1.Height / 2
  p[1].x = Circle1.Left + Circle1.Width / 2 * ( 1 + cos( x * 3.1416 / 180 ) )
  p[1].y = Circle1.Top + Circle1.Height / 2 * ( 1 + sin( x * 3.1416 / 180 ) )
  Units[i].Refresh()
  x = x + 45
  if x &gt;= 360 then
    x = x - 360
  end if
  i = i + 1
wend
Refresh()
End Function
Public Function SetDelta(ADelta)
FDelta = ADelta
End Function
Public Function SetInterval(n)
DestroyTimer( Timer )
Timer =  CreateTimer( This,"OnTimer", n )
FInterval = n
End Function
</Programe>
</Sheet>
<Sheet Name="左右箭头">
<Line Name="Line1" Pattern="1">
<Points>
220.000000,120.000000,6
220.000000,80.000000,2
90.000000,80.000000,2
90.000000,120.000000,2
0.000000,59.000000,2
90.000000,0.000000,2
90.000000,40.000000,2
220.000000,40.000000,2
220.000000,0.000000,2
310.000000,60.000000,2
220.000000,120.000000,2
</Points>
</Line>
<Text Name="Text1" Bounds="30.500000,40.000000,279.500000,80.000000" Origin="155.000000,59.500000" Border="$0" FontName="宋体" FontSize="16"/>
</Sheet>
<Sheet Name="上下箭头">
<Line Name="Line1" Pattern="1">
<Points>
40.000000,220.000000,6
40.000000,89.000000,2
0.000000,89.000000,2
60.000000,0.000000,2
119.000000,90.000000,2
80.000000,90.000000,2
80.000000,220.000000,2
120.000000,220.000000,2
60.000000,310.000000,2
0.000000,220.000000,2
40.000000,220.000000,2
</Points>
</Line>
<Text Name="Text1" Bounds="40.000000,30.000000,80.000000,280.000000" Origin="60.250000,154.500000" Border="$0" FontName="宋体" FontSize="16"/>
</Sheet>
<Sheet Name="右快箭头">
<Line Name="Line1" Pattern="1">
<Points>
40.000000,40.000000,6
130.000000,40.000000,2
130.000000,0.000000,2
190.500000,40.000000,2
220.000000,60.000000,2
190.500000,79.500000,2
130.000000,120.000000,2
130.000000,80.000000,2
40.000000,80.000000,2
40.000000,40.000000,2
</Points>
</Line>
<Text Name="Text1" Bounds="40.000000,40.000000,190.500000,80.000000" Origin="95.500000,59.500000" Border="$0" FontName="宋体" FontSize="16"/>
<Shape Name="Rect1" Bounds="-24.000000,40.000000,-8.000000,80.000000" Origin="-16.000000,60.000000" Pattern="1"/>
<Shape Name="Rect2" Bounds="-40.000000,40.000000,-32.000000,80.000000" Origin="-36.000000,60.000000" Pattern="1"/>
<Shape Name="Rect3" Bounds="0.000000,40.000000,32.000000,80.000000" Origin="16.000000,60.000000" Pattern="1"/>
</Sheet>
<Sheet Name="左快箭头">
<Line Name="Line1" Origin="280.000000,-40.000000" Pattern="1">
<Points>
180.000000,40.000000,6
90.000000,40.000000,2
90.000000,0.000000,2
29.500000,40.000000,2
0.000000,60.000000,2
29.500000,79.500000,2
90.000000,120.000000,2
90.000000,80.000000,2
180.000000,80.000000,2
180.000000,40.000000,2
</Points>
</Line>
<Text Name="Text1" Bounds="29.500000,40.000000,180.000000,80.000000" Origin="124.500000,59.500000" Border="$0" FontName="宋体" FontSize="16"/>
<Shape Name="Rect1" Bounds="228.000000,40.000000,244.000000,80.000000" Origin="236.000000,60.000000" Pattern="1"/>
<Shape Name="Rect2" Bounds="252.000000,40.000000,260.000000,80.000000" Origin="256.000000,60.000000" Pattern="1"/>
<Shape Name="Rect3" Bounds="188.000000,40.000000,220.000000,80.000000" Origin="204.000000,60.000000" Pattern="1"/>
</Sheet>
</vg>