[求助]平面上点坐标顺时针排序问题

clement · 发表于 2004-5-23 12:18:00

平面上有n+1(n为自然数)个点的坐标
定义二维数组如下
Dim vntPts(0 to n,0 to 2)
第一维为点的序号
第二维为点的x,y,z坐标,且z坐标始终为0
请问:如何对这个数组进行排序,使其对应的坐标序列在平面上按照顺时针分布?

雪山飞狐_lzh · 发表于 2004-5-23 13:01:00

Values是点到中点的角度数组Points 是点数组

copy


Private Sub SortPoint(ByRef Values As Variant, ByRef Points As Variant, ByVal Count As Integer)
Dim pTemp As Double, pnt As Variant
For i = Count To 1 Step -1
       For j = 0 To i - 1
               If Values(j) > Values(j + 1) Then
                       pTemp = Values(j + 1)
                       Values(j + 1) = Values(j)
                       Values(j) = pTemp
                       pnt = Points(j + 1)
                       Points(j + 1) = Points(j)
                       Points(j) = pnt
               End If
       Next j
Next i
End Sub