尺寸线.tbl

电气控制仿真软件

<?xml version="1.0" encoding="gb2312"?>
<vg version="451" gridsize="4" activesheetindex="1" range="0,0,800,553" pattern="1">
<page name="Page" bounds="0,0,827,1169" visible="false" margin="100,100,100,100" paperwidth="2100" paperheight="2969"/>
<sheet name="尺寸线A">
<line name="Line1" origin="112,155" protect="8">
<points>
112,120,6
112,192,2
</points>
</line>
<line name="Line4" origin="193.999937,156">
<points>
248,120,6
248,192,2
</points>
</line>
<line name="Line7" origin="112,160" linkmode="1" points="112,192,6">
<programe>
Published Function OnNodeChange(Sender)
if Sender.Points[0].x &gt; Line5.Points[0].x then
	Sender.Points[0].x = Line5.Points[0].x
end if
p=Point( Line5.Left, Line5.Top )
Line5.ViewToClient( p )
Parent.ClientToView( p )
SetOrigin( p.x, p.y )
p.x=Sender.Points[0].x
p.y=Sender.Points[0].y
Sender.ViewToClient( p )
Parent.ClientToView( p )
Sender.Points[0].y = Line5.Points[0].y
Angle = PointToAngle( XOrigin, YOrigin, p.x, p.y )
Line1.Left = Sender.Points[0].x
Line3.Left = Line1.Left - Line3.Width
Line6.Text1.Value = abs(Line4.Left - Line1.Left)
End Function
</programe>
</line>
<line name="Line5" origin="232,200" linkmode="1" points="248,192,6">
<programe>
Published Function OnNodeChange(Sender)
if Sender.Points[0].x &lt; Line7.Points[0].x then
	Sender.Points[0].x = Line7.Points[0].x
end if
p=Point( Line7.Left, Line7.Top )
Line7.ViewToClient( p )
Parent.ClientToView( p )
SetOrigin( p.x, p.y )
p.x=Sender.Points[0].x
p.y=Sender.Points[0].y
Sender.ViewToClient( p )
Parent.ClientToView( p )
Sender.Points[0].y = Line7.Points[0].y
Angle = PointToAngle( p.x, p.y, XOrigin, YOrigin )
Line4.Left = Sender.Points[0].x
Line6.Left = Line4.Left
Line6.Text1.Value = abs(Line4.Left - Line1.Left)
End Function
</programe>
</line>
<line name="Line3" origin="90.5,128" endarrow="1">
<points>
72,128,6
112,128,2
</points>
</line>
<line name="Line6" origin="205.999937,128" startarrow="1">
<points>
248,128,6
296,128,2
</points>
<text name="Text1" bounds="268,105,276,127" origin="248,128" autosize="true" border="$0" fontname="宋体" fontsize="16" numberdigital="2" textalign="14"/>
</line>
<line name="Line2" origin="184,128" points="176,128,6">
<programe>
Published Function OnNodeChange(Sender)
Line3.Top = Sender.Top
Line6.Top = Sender.Top
if( Line1.Points[1].y - Line3.Points[1].y ) &gt; 0
	Line1.Points[0].y = Line3.Points[1].y - 10
else
	Line1.Points[0].y = Line3.Points[1].y + 10
end if
if( Line4.Points[1].y - Line6.Points[1].y ) &gt; 0
	Line4.Points[0].y = Line6.Points[1].y - 10
else
	Line4.Points[0].y = Line6.Points[1].y + 10
end if
Line1.Refresh()
Line4.Refresh()
End Function
</programe>
</line>
</sheet>
<sheet name="尺寸线B" protect="64">
<line name="Line1" origin="112,155" linkmode="1">
<points>
112,120,6
112,192,2
</points>
<programe>
Published Function OnNodeChange(Sender)
if( Line1.Points[1].y - Line6.Points[1].y ) &gt; 0
	Line1.Points[0].y = Line6.Points[1].y - 10
else
	Line1.Points[0].y = Line6.Points[1].y + 10
end if
Line1.Points[0].x = Line1.Points[1].x
Line6.Points[1].x = Sender.Left
Line6.Refresh()
Line6.Text1.Value = abs(Line4.Left - Line1.Left)
End Function
</programe>
</line>
<line name="Line4" origin="189.999937,156" linkmode="1">
<points>
256,120,6
256,228,2
</points>
<programe>
Published Function OnNodeChange(Sender)
if( Line4.Points[1].y - Line6.Points[1].y ) &gt; 0
  Line4.Points[0].y = Line6.Points[1].y - 10
else
	Line4.Points[0].y = Line6.Points[1].y + 10
end if
Line4.Points[0].x = Line4.Points[1].x
Line6.Points[0].x = Sender.Left
Line6.Refresh()
Line6.Text1.Value = abs(Line4.Left - Line1.Left)
End Function
</programe>
</line>
<line name="Line6" origin="154.000063,128" startarrow="1" endarrow="1">
<points>
256,128,6
112,128,2
</points>
<text name="Text1" bounds="180,105,188,127" origin="256,128" autosize="true" border="$0" fontname="宋体" fontsize="16" numberdigital="2" textalign="14"/>
</line>
<line name="Line2" origin="184,128" points="184,128,6">
<programe>
Published Function OnNodeChange(Sender)
Line6.Top = Sender.Top
if( Line1.Points[1].y - Line6.Points[1].y ) &gt; 0
	Line1.Points[0].y = Line6.Points[1].y - 10
else
	Line1.Points[0].y = Line6.Points[1].y + 10
end if
if( Line4.Points[1].y - Line6.Points[1].y ) &gt; 0
	Line4.Points[0].y = Line6.Points[1].y - 10
else
	Line4.Points[0].y = Line6.Points[1].y + 10
end if
Line1.Refresh()
Line4.Refresh()
End Function
</programe>
</line>
</sheet>
<sheet name="尺寸线C" protect="64">
<line name="Line1" origin="112,155" linkmode="1">
<points>
112,120,6
80,120,2
</points>
<programe>
Published Function OnNodeChange(Sender)
if( Line1.Points[1].x - Line6.Points[1].x ) &gt; 0
	Line1.Points[0].x = Line6.Points[1].x - 10
else
	Line1.Points[0].x = Line6.Points[1].x + 10
end if
Line1.Points[0].y = Line1.Points[1].y
Line6.Points[1].y = Sender.Top
Line6.Refresh()
Line6.Text1.Value = abs(Line4.Top - Line1.Top)
End Function
</programe>
</line>
<line name="Line4" origin="45.999937,248" linkmode="1">
<points>
112,208,6
46,208,2
</points>
<programe>
Published Function OnNodeChange(Sender)
if( Line4.Points[1].x - Line6.Points[1].x ) &gt; 0
  Line4.Points[0].x = Line6.Points[1].x - 10
else
	Line4.Points[0].x = Line6.Points[1].x + 10
end if
Line4.Points[0].y = Line4.Points[1].y
Line6.Points[0].y = Sender.Top
Line6.Refresh()
Line6.Text1.Value = abs(Line4.Top - Line1.Top)
End Function
</programe>
</line>
<line name="Line6" origin="146.000063,120" startarrow="1" endarrow="1">
<points>
104,208,6
104,120,2
</points>
<text name="Text1" bounds="144,185,152,207" origin="104,208" angle="90" autosize="true" border="$0" fontname="宋体" fontsize="16" numberdigital="2" textalign="14"/>
</line>
<line name="Line2" origin="104,168" points="104,168,6">
<programe>
Published Function OnNodeChange(Sender)
Line6.Left = Sender.Left
if( Line1.Points[1].x - Line6.Points[1].x ) &gt; 0
	Line1.Points[0].x = Line6.Points[1].x - 10
else
	Line1.Points[0].x = Line6.Points[1].x + 10
end if
if( Line4.Points[1].x - Line6.Points[1].x ) &gt; 0
	Line4.Points[0].x = Line6.Points[1].x - 10
else
	Line4.Points[0].x = Line6.Points[1].x + 10
end if
Line1.Refresh()
Line4.Refresh()
End Function
</programe>
</line>
</sheet>
</vg>