社区 › C# › Dim listPoint1 As New List(Of Point3d) 排序并删除zy相同项

羊羊羊 发表于 2014-10-18 23:00:00

Dim listPoint1 As New List(Of Point3d) 排序并删除zy相同项

n = listPoint1.Count
            If n > 0 Then
                '根据数据分断方向标识，对界内特征点数据排序
                Select Case FXrect
                  Case "x"
                        Dim ptstmp = From pt In listPoint1 Select pt Order By pt.X, pt.Y
                        '//按x为主，y为辅的升序排列
                        listPoint1 = ptstmp.ToList()
                  Case "y"
                        Dim ptstmp = From pt In listPoint1 Select pt Order By pt.Y, pt.X
                        '//按y为主，x为辅的升序排列
                        listPoint1 = ptstmp.ToList()
                     End Select
         
                '添加界内特征点(剔除XY坐标相同点)进总特征点集
                For m = 0 To n - 1
                  If m = 0 Then
                        VerPoint.Add(listPoint1(m))
                  Else
                        If listPoint1(m).XlistPoint1(m - 1).X Or listPoint1(m).YlistPoint1(m - 1).Y Then
                            VerPoint.Add(listPoint1(m))
                        End If
                  End If
                Next
                'listPoint1.Clear()
            End If

羊羊羊 发表于 2014-10-18 23:01:00

这段代码能优化吗，想提高计算速度，数据量极大！！！！

查看完整版本: Dim listPoint1 As New List(Of Point3d) 排序并删除zy相同项