lengthandarea.tbl

一个不错的做图软件

<?xml version="1.0" encoding="utf-8"?>
<vg version="724" gridsize="10" range="0,0,1024,768" papervisible="false">
<sheet name="sheet1" visible="false">
<rect name="rect1" origin="88,40" bounds="16,16,160,64" pattern="1">
<text name="text1" origin="88,40" bounds="16,16,160,64" border="0" fontname="瀹嬩綋" fontsize="12" text="Calculate Length"/>
<programe>
<!--
published function OnClick(Sender)
d = NewUnit( "line", 1 )
if d <> 0 then
  ln = 0
  i = 1
  while i < d.PointCount
    ln = ln + sqrt( sqr( d.X[i-1] - d.X[i] ) + sqr( d.Y[i-1] - d.Y[i] ) )
    i = i + 1
  wend
  ShowMessage( "the line's length is " + Str( ln, 4 ) )
end if
end function
-->
</programe>
</rect>
<rect name="rect2" origin="240,40" bounds="168,16,312,64" pattern="1">
<text name="text1" origin="240,40" bounds="168,16,312,64" border="0" fontname="瀹嬩綋" fontsize="12" text="Calculate Area"/>
<programe>
<!--
published function OnClick(Sender)
d = NewUnit( "line", 2 )
if d <> 0 then
  ox = ( d.Left + d.Right ) / 2
  oy = ( d.Top + d.Bottom ) / 2
  sn = 0
  i = 0
  while i < d.PointCount
    if i = 0 then
      l1 = sqrt( sqr( d.X[d.PointCount-1] - d.X[i] ) + sqr( d.Y[d.PointCount-1] - d.Y[i] ) )
      p1 = Point( d.X[d.PointCount-1], d.Y[d.PointCount-1] )
    else
      l1 = sqrt( sqr( d.X[i-1] - d.X[i] ) + sqr( d.Y[i-1] - d.Y[i] ) )
      p1 = Point( d.X[i-1], d.Y[i-1] )
    end if
    p2 = Point( d.X[i], d.Y[i] )
    d.ViewToClient( p1 )
    d.ViewToClient( p2 )
    kn = p2.y - p1.y
    km = p2.x - p1.x
    ln = ( kn * kn + km * km )
    if ln <> 0 then
      b = ( kn * kn * oY + km * km * d.Y[i] + kn * km * ( oX - d.X[i] ) ) / ln
      a = ( km * km * oX + kn * kn * d.X[i] + kn * km * ( oY - d.Y[i] ) ) / ln
      l2 = sqrt( sqr( a - ox ) + sqr( b - oy ) )
      sn = sn + l1 * l2 / 2
    end if
    i = i + 1
  wend
  ShowMessage( "the area is " + Str( sn, 4 ) )
end if
end function
-->
</programe>
</rect>
</sheet>
</vg>