Question

我见过这个解决方案：Drawing lines at angle vb.net 对于我的问题，但我需要澄清答案。（我无法在该帖中添加评论，因为我没有足够的声誉这样做。）

我的具体要求是：基本上以给定的角度和给定的长度在给定中心点的两侧绘制两条线。

    Dim stPt As New clsNode
    stPt.X = 2000 * Math.Cos(RadAngle) + v_center.X
    stPt.Y = 2000 * Math.Sin(RadAngle) + v_center.Y

    'Get EndPoint
    Dim edpt As New clsNode
    How can I get endpoint?

我正在使用vb.net。

Answer 1

@Hans Passant：你是对的。所以这是最终代码：

    Dim RadAngle As Double = v_dAngle * (Math.PI / 180)

    'Get StartPoint
    Dim stPt As New clsNode
    stPt.X = 2000 * Math.Cos(RadAngle) + v_center.X
    stPt.Y = 2000 * Math.Sin(RadAngle) + v_center.Y

    'Get EndPoint
    Dim edpt As New clsNode
    edpt.X = -2000 * Math.Cos(RadAngle) + v_center.X
    edpt.Y = -2000 * Math.Sin(RadAngle) + v_center.Y

    Return New clsNode() {stPt, edpt}.ToList

给定时画线是中心点，角度和长度

1 个答案: