Question

我已经使用LINQ将一些C＃代码转换为VB.NET以获取三角形，并且两个代码版本在选择三角形之前都表现相同。

这些是我的结果：

可以看到，得到了一个空三角形的列表，所以我怀疑我的Select语句中有问题。

在VB.NET和C＃中，其他所有内容都相同。

这是我的VB.NET代码，据我所知转换为

    Function GetDelaunayTriangles(ByVal points As IEnumerable(Of Point)) As IEnumerable(Of Triangle)
        Dim result = New List(Of Triangle)()
        Dim rect = Cv2.BoundingRect(points)
        rect.Inflate(10, 10)
        Dim triangles As Vec6f()

        Using subdiv = New Subdiv2D(rect)

            For Each p In points
                Dim cv_p = New OpenCvSharp.Point2f(p.X, p.Y)
                subdiv.Insert(cv_p)
            Next

            triangles = subdiv.GetTriangleList()
        End Using

    Dim nRet As IEnumerable(Of Triangle) = From t In triangles Let p1 = New Point(t(0), t(1)) Let p2 = New Point(t(2), t(3)) Let p3 = New Point(t(4), t(5)) Where rect.Contains(p1) AndAlso rect.Contains(p2) AndAlso rect.Contains(p3) Select New Triangle(p1, p2, p3)

    Return nRet
End Function

这是有效的原始C＃代码：

    public static IEnumerable<Triangle> GetDelaunayTriangles(IEnumerable<Point> points)
    {
        var result = new List<Triangle>();

        // calculate the bounding box around the points
        var rect = Cv2.BoundingRect(points);
        rect.Inflate(10, 10);

        // the Subdiv2D class handles Delaunay triangulation
        // first we add all points, and then start triangulation
        Vec6f[] triangles;
        using (var subdiv = new Subdiv2D(rect))
        {
            foreach (var p in points)
            {
                var cv_p = new OpenCvSharp.Point2f(p.X, p.Y);
                subdiv.Insert(cv_p);
            }
            triangles = subdiv.GetTriangleList();
        }

        // return result as an enumeration of triangle structs
        return from t in triangles
               let p1 = new Point(t[0], t[1])
               let p2 = new Point(t[2], t[3])
               let p3 = new Point(t[4], t[5])
               where rect.Contains(p1) && rect.Contains(p2) && rect.Contains(p3)
               select new Triangle(p1, p2, p3);
    }

非常感谢您！

编辑：

我已经打印了“三角形”，对于VB.NET和C＃，它们是完全相同的。我只是不明白我在Select语句中做错了什么。

编辑：

我添加了一个屏幕截图，显示VS认为可以删除“导入System.Linq”，这是不正确的。

编辑：有人会这么友好，告诉我这个LINQ表达式在硬代码中会是什么样（不再有Linq）吗？

Answer 1

您的问题出在您的Triangle结构中。实际上，P1与 VB 中的p1相同。因此，您应该将p1, p2, p3更改为p1_, p2_, p3_：

Public Sub New(ByVal p1_ As Point, ByVal p2_ As Point, ByVal p3_ As Point)
    P1 = p1_
    P2 = p2_
    P3 = p3_
End Sub

使用LINQ获取三角形将返回空三角形

1 个答案: