多维数组问题-多边形首尾相连

[ningyong58]

图示多边形由4条直线组成，由于画图原因顺序为1-2-4-3

数据源为

x1,y1---起点坐标
x2,y2---终点坐标


　 x1 y1 z1 x2 y2 z2
第1点 693.38 182.97 0 631.33 122.86 0
第2点 631.33 122.86 0 796.47 129.43 0
第4点 878.57 244.8 0 796.47 129.43 0
第3点 670.16 281.47 0 878.57 244.8 0



要求结果

x y

第1点 693.38 182.97
第2点 796.47 129.43
第3点 878.57 244.8
第4点 670.16 281.47

多线段的首尾相连的三种情况

1、A线段的起点与B线段的起点相同

2、A线段的起点与B线段的终点相同

3、A线段的终点与B线段的起点相同

主要思想是


首先将第1点的起点坐标 X1,Y1

rr(0,0) = aa(0,0):rr(0,1) = aa(0,1) -- 定义为第一点

rr(0,0) = 693.38 :rr(0,1) = 182.97

第1条线段的终点坐标 X2,Y2赋值给tt1,tt2

tt1 = 631.33 tt2 = 122.86

查找tt1= x1 and tt2 = y1 Or tt1= x2 and tt2 = y2

如果是第3条线段时tt1,tt2可能是x1,y1的值，或者tt1,tt2是x2,y2的值。


编程如下
Sub aaarrr()
Dim rr(3, 5), rrr(3, 2)
For ii = 6 To 9
For jj = 3 To 7
rr(ii - 6, jj - 3) = Sheet1.Cells(ii, jj)
Next jj
Next ii
ii = 0
For jj = 0 To 1
rrr(ii, jj) = rr(ii, jj)
rrr(ii + 1, jj) = rr(ii, jj + 3)
Next jj
End Sub
问题在这
i=0 时 i=1,2,3 不用处理

i=1 时 只要比较 在i=0,2,3 的起点或终点坐标

i=2时 i = 0,1,3 同上

i= 3 时 i = 0,1,2 同上
循环条件判断语句如何写？？？

[ningyong58]

图形见http://club.excelhome.net/dispbbs.asp?boardID=2&ID=333201&page=1&px=0

[ningyong58]

谁来接分，要不20分浪费了。

[ningyong58]

为什么没人来接这20分