Question

我试图创建一个简单的界面（如绘画）来绘制一些基本形状，如直线，圆和弧。我已经找到了线条和圆圈，但是我很难获得绘制弧线所需的效果。我现在正在使用.NET中的graphics.Draw...方法，但可能愿意尝试不同的原生方法。

我希望创建用户选择起点，终点和＆＃34;半径＆＃34;的功能。但是，我想要＆＃34;半圆＆＃34;触及所有三点。根据图片（摘自应用程序），Pt5根据用户的三次点击计算，并设置＆＃34; radius＆＃34;弧线。该图像描绘了圆圈的中心位于Pt4，但理想情况下，中心位于边缘Pt1和Pt2。

计算中心后，我想用它来创建Arc的边界（DrawArc(Pens.Black, CInt(Center.X - Radius), CInt(Center.Y - Radius), CInt(Radius * 2), CInt(Radius * 2), ?, ?)）和＆＃34; cut＆＃34;通过Pt1行上的点Pt2和Pt1-Pt2投影的圆圈。

这是我对上面的行/圈子的计算（对于冗长的问题抱歉......）：

    '' Pt1 and Pt2 are taken earlier
    Dim pt3 As Point = e.Location
    Dim pt4, pt5, pt10, pt11, Cntr As New Point
    Dim m1, m2, m3, m4 As Double
    Dim b1, b2, b3, b4, b5 As Double
    Dim r As Double
    '' Get center (midpoint)
    pt4.X = ((pt1.X - pt2.X) / 2) + pt2.X
    pt4.Y = ((pt1.Y - pt2.Y) / 2) + pt2.Y
    '' Get picked-point slope
    m1 = (pt2.Y - pt1.Y) / (pt2.X - pt1.X)
    '' Inverse slope
    m2 = -(1 / m1)
    '' Get picked-intercept
    b1 = pt1.Y - (m1 * pt1.X)

    '' Get perpendicular intercept
    b2 = pt4.Y - (m2 * pt4.X)
    '' Get parallel intercept
    b3 = pt3.Y - (m1 * pt3.X)

    ''ln1: y = m1X + b1 ; (pt1, pt2)
    ''ln2: y = m2X + b2 ; (pt4, pt5)
    ''ln3: y = m1X + b3 ; (pt3, pt5)
    '' pt5.X = (yInt1 - yInt2)/(slope1-slope2)
    '' pt5.Y = (slope2 * pt5.X) + yInt2
    pt5.X = ((b2 - b3) / (m1 - m2))
    pt5.Y = (m2 * pt5.X) + b2

    '' Get perpendicular slope between Pt1 and Pt5
    m3 = -(1 / (pt5.Y - pt1.Y) / (pt5.X - pt1.X))
    '' Get perpendicular slope between Pt2 and Pt5
    m4 = -(1 / ((pt5.Y - pt2.Y) / (pt5.X - pt2.X)))
    '' Get perpendicular intercept between Pt1 and Pt5
    b4 = pt1.Y - (m3 * pt1.X)
    '' Get perpendicular intercept between Pt2 and Pt5
    b5 = pt2.Y - (m4 * pt2.X)
    Cntr.X = (b5 - b4) / (m3 - m4) '((m3 * m4 * ((pt1.Y - pt2.Y))) + (m4 * (pt1.X + pt5.X)) - (m3 * (pt5.X + pt2.X))) / (2 * (m4 - m3))

    Cntr.Y = (m2 * Cntr.X) + b2
    '' Calculate radius
    r = Math.Sqrt(((pt5.Y - Cntr.Y) ^ 2) + ((pt5.X - Cntr.X) ^ 2))

Answer 1

所以我们都在同一页面上，DrawArc方法有几个重载，但我会使用这个

Public Sub DrawArc(pen As System.Drawing.Pen, 
                   x As Single, 
                   y As Single, 
                   width As Single, 
                   height As Single, 
                   startAngle As Single,
                   sweepAngle As Single)

为了使用它，我们需要计算包含弧的边界矩形，如果它被绘制为一个完整的椭圆，开始扫描的角度，以及弧的中心角。

对于以下内容，用户以更常见的方式定义三个圆弧点：中心，开始，角度。也就是说，第一次单击定义中心，第二次单击确定起点，第三次单击确定弧跨越的角度。这很容易适应其他方法，但我使用的方法有最简单的数学解释。

在第一次点击时，我们将鼠标位置记录到变量center中。现在这是我们的中心。

在第二次单击时，我们将鼠标位置记录到变量start中。这一点为我们提供了两个关键信息，即起点的半径和角度。我们使用毕达哥拉斯定理（又称距离公式）计算半径如下：

r = Math.Sqrt(Math.Pow(start.X - center.X, 2) + Math.Pow(start.Y - center.Y))

为了计算角度，我们可以使用Δy/Δx

的反正切

theta = Math.Atan((start.Y - center.Y) / (start.X - center.X))

（我会把它作为练习让你检查(start.X - center.X) = 0并确定它是否为+/-π/ 2.（

我们现在也有足够的信息来计算弧的边界矩形。由于弧是圆形的，我们的盒子只是

x = center.X - r
y = center.Y - r
width = 2 * r
height = 2 * r

当用户第三次点击时（或者实际上只要移动鼠标），我们会将值存储到angle变量中。现在，我们需要做的就是计算该点的角度，因为我们正在绘制一个圆弧段。第二个角度的计算方法与前一个相同：

alpha = Math.Atan((angle.Y - center.Y) / (angle.X - center.X))

（请记住，和以前一样，检查(angle.X - center.X) = 0）

我们现在可以通过减去

来计算扫掠角度

sweep = theta - alpha

我们现在有足够的信息可以使用我们计算出的参数来调用DrawArc方法：

g.DrawArc(Pen.Black, x, y, width, height, theta, sweep)

最后一点想法：

此方法始终从起点逆时针绘制圆弧角。
center，start和end变量都是PointF，您需要根据需要进行转换。我删除了转换并捕获逻辑，以使上面的代码更容易理解。
所有其他变量均为Single。您需要将Atan函数的结果转换为Single。
如果在计算反正切时Δx为0，则可以通过比较y值来判断角度是正还是负。如果(center.Y < start.Y)那么你知道它是+π/ 2。 - 你也应该检查0范围。

Answer 2

我可能误解了你想要做的事情，但假设你对pt5的计算是你想要的，你希望pt1和pt2在圆周上，那么像这样的东西可能会这样做。

我认为你希望pt5成为中心。

r = Math.Sqrt((pt5.Y - pt1.Y) ^ 2 + (pt5.X - pt1.X) ^ 2)

假设您已经可以访问适当的图形对象，g

g.DrawEllipse(Pens.Blue, New Rectangle(pt5.X - r, pt5.Y - r, 2 * r, 2 * r))

Answer 3

我用了很多资源来实现我的目标。最后，由于this问题，我最终放弃了DrawArc ExcludeClip的使用。基本上，一旦我创建了正确的椭圆，我需要在点1和2之间剪切椭圆的区域。下面，您将看到我的解决方案。第一张图片显示了＆＃34;帮助＆＃34;我用来验证我的数学是正确的，然后是最终结果。

图例：

*黄色线1：在中点垂直于Pt1-Pt2线（Pt4-Pt5）

*黄色线2：第一个黄色的垂直线（与Pt1-Pt2线平行）（Pt3-Pt5）

* Pt5：黄线之间的交点

*红线：Pt1-Pt5

*蓝线：Pt2-Pt5

*粉色线：中点处的红色/蓝色垂直线（Pt10，Pt11）

*中心：粉红线之间的交点（Cntr）

*米色线：红色/蓝色线的延伸，用于ExcludeClip {（Pt20-Pt1-Pt5）和（Pt21-Pt2-Pt5）}

这是我的代码：

Dim pt3 As Point = e.Location
Dim pt4, pt5, pt10, pt11, pt20, pt21, Cntr As New Point
Dim m1, m2, mr, mt As Double
Dim b1, b2, b3, b4, b5 As Double
Dim r As Double

'' Get center (midpoint)
pt4.X = ((pt1.X - pt2.X) / 2) + pt2.X
pt4.Y = ((pt1.Y - pt2.Y) / 2) + pt2.Y
'' Get picked-point slope
m1 = (pt2.Y - pt1.Y) / (pt2.X - pt1.X)
'' Inverse slope
m2 = -(1 / m1)
'' Get picked-intercept
b1 = pt1.Y - (m1 * pt1.X)
'' Get perpendicular intercept
b2 = pt4.Y - (m2 * pt4.X)
'' Get parallel intercept
b3 = pt3.Y - (m1 * pt3.X)

''ln1: y = m1X + b1 ; (pt1, pt2)
''ln2: y = m2X + b2 ; (pt4, pt5)
''ln3: y = m1X + b3 ; (pt3, pt5)
'' pt5.X = (yInt1 - yInt2)/(slope1-slope2)
'' pt5.Y = (slope2 * pt5.X) + yInt2
pt5.X = ((b2 - b3) / (m1 - m2))
pt5.Y = (m2 * pt5.X) + b2

'' Setup Pt1-Pt5 perpendicular line (Pt10-Cntr)
pt10.X = ((pt5.X - pt1.X) / 2) + pt1.X
pt10.Y = ((pt5.Y - pt1.Y) / 2) + pt1.Y


'' Setup Pt2-Pt5 perpendicular line (Pt11-Cntr)
pt11.X = ((pt5.X - pt2.X) / 2) + pt2.X
pt11.Y = ((pt5.Y - pt2.Y) / 2) + pt2.Y


'' Get perpendicular slope between Pt1 and Pt5
mr = (pt5.Y - pt1.Y) / (pt5.X - pt1.X)
'' Get perpendicular slope between Pt2 and Pt5
mt = (pt2.Y - pt5.Y) / (pt2.X - pt5.X)
'' Get perpendicular intercept between Pt1 and Pt5
b4 = pt1.Y - (mr * pt1.X)
'' Get perpendicular intercept between Pt2 and Pt5
b5 = pt2.Y - (mt * pt2.X)


If Not mr > 10000 And Not mt > 10000 And Not mr < -10000 And Not mt < -10000 And Not mr = 0 And Not mt = 0 And Not mr = mt Then
    Cntr.X = (((mr * mt) * ((pt2.Y - pt1.Y))) + (mr * (pt5.X + pt2.X)) - (mt * (pt1.X + pt5.X))) / (2 * (mr - mt))

    Cntr.Y = -(1 / mr) * (Cntr.X - ((pt1.X + pt5.X) / 2)) + ((pt1.Y + pt5.Y) / 2)
    '' Calculate radius
    r = Math.Sqrt(((pt5.Y - Cntr.Y) ^ 2) + ((pt5.X - Cntr.X) ^ 2))

    '' Determine which side to extend Chords
    If pt1.X > pt5.X Then
        pt20.X = pt1.X + (r * 2)
    Else
        pt20.X = pt1.X - (r * 2)
    End If
    pt20.Y = (mr * (pt20.X)) + b4

    If pt2.X > pt5.X Then
        pt21.X = pt2.X + (r * 2)
    Else
        pt21.X = pt2.X - (r * 2)
    End If
    pt21.Y = (mt * (pt21.X)) + b5

    'g.DrawLine(Pens.Black, pt1, pt2)
    'g.DrawLine(Pens.Orange, pt4, pt5)
    'g.DrawLine(Pens.Orange, pt3, pt5)
    'g.DrawLine(Pens.Pink, pt10, Cntr)
    'g.DrawLine(Pens.Pink, pt11, Cntr)
    'g.DrawLine(Pens.Red, pt1, pt5)
    'g.DrawLine(Pens.Blue, pt2, pt5)
    'g.DrawLine(Pens.Beige, pt1, pt20)
    'g.DrawLine(Pens.Beige, pt2, pt21)
    Dim path As New Drawing2D.GraphicsPath()
    path.AddPolygon({pt20, pt1, Cntr, pt2, pt21})
    g.ExcludeClip(New Region(path))

    g.DrawEllipse(Pens.Black, CInt(Cntr.X - r), CInt(Cntr.Y - r), CInt(r * 2), CInt(r * 2))
Else
    Debug.WriteLine("mr: " & mr.ToString & vbTab & "mt: " & mt.ToString)
End If

This帮助我根据圆周上的3个点找到了圆心

绘制三点Arc VB.NET

3 个答案: