圆弧分段问题：无法准确获取目标红色区域圆弧段

问题分析 #

你遇到的核心问题是无法准确锁定目标红色圆弧的区间——不管它在圆的哪个位置，现有代码仅通过起始/结束角度的大小调整，无法适配劣弧（弧高<半径）和优弧（弧高>半径）的所有场景。关键在于必须通过弧高和弧中点的位置来确定目标弧的方向与范围，而非单纯依赖角度数值比较。

解决方案 #

核心思路 #

1. 明确弧高与弧类型的对应关系：
   • 劣弧：ArcHeight < Radius，扫角小于π，弧中点在弦与圆心的同侧
   • 优弧：ArcHeight > Radius，扫角大于π，弧中点在弦的另一侧（远离圆心）
2. 通过弦中点的垂直方向定位弧中点，验证目标弧的区间
3. 归一化角度到[0, 2π)范围，避免跨0度的计算误差
4. 动态调整起始/结束角度与扫角方向，确保生成的分段始终对应红色区域

修改后的完整代码 #

先添加两个辅助函数处理角度归一化与区间判断：

' 归一化角度至[0, 2π)范围，消除负数或超出2π的异常
Private Function NormalizeAngle(angle As Double) As Double
    angle = angle Mod (2 * Math.PI)
    If angle < 0 Then angle += 2 * Math.PI
    Return angle
End Function

' 判断目标角度是否位于起始角度到结束角度的顺时针区间内
Private Function IsAngleBetween(startAngle As Double, endAngle As Double, targetAngle As Double) As Boolean
    startAngle = NormalizeAngle(startAngle)
    endAngle = NormalizeAngle(endAngle)
    targetAngle = NormalizeAngle(targetAngle)
    
    If startAngle <= endAngle Then
        Return targetAngle >= startAngle AndAlso targetAngle <= endAngle
    Else
        ' 跨0度（2π）场景，目标角度在[start, 2π)或[0, end]区间内
        Return targetAngle >= startAngle OrElse targetAngle <= endAngle
    End If
End Function

替换原代码中的角度计算逻辑，整合弧侧判断：

Dim ArcHeight As Double = xyz.GetArcHeight
Dim radius As Double = xyz.Radius
Direction = GetDirection222(lstxyz)

' 计算起始/结束点相对于圆心的角度（先归一化）
Dim startAngle As Double = NormalizeAngle(Math.Atan2(startY - centerY, startX - centerX))
Dim endAngle As Double = NormalizeAngle(Math.Atan2(endY - centerY, endX - centerX))

' 计算弦的中点
Dim midX As Double = (startX + endX) / 2
Dim midY As Double = (startY + endY) / 2

' 计算弦的方向向量及两个垂直方向（对应两种可能的弧中点方向）
Dim chordDirX As Double = endX - startX
Dim chordDirY As Double = endY - startY
Dim perpLen As Double = Math.Sqrt(chordDirX ^ 2 + chordDirY ^ 2)
' 归一化后的垂直方向向量
Dim perpDir1X As Double = -chordDirY / perpLen
Dim perpDir1Y As Double = chordDirX / perpLen
Dim perpDir2X As Double = chordDirY / perpLen
Dim perpDir2Y As Double = -chordDirX / perpLen

' 判断目标弧是劣弧还是优弧
Dim isMajorArc As Boolean = ArcHeight > radius
Dim arcMidX, arcMidY As Double

If isMajorArc Then
    ' 优弧：弧中点在弦的远离圆心一侧
    Dim dotProduct As Double = (midX - centerX) * perpDir1X + (midY - centerY) * perpDir1Y
    ' 选择指向远离圆心的垂直方向
    arcMidX = midX + If(dotProduct > 0, perpDir2X, perpDir1X) * ArcHeight
    arcMidY = midY + If(dotProduct > 0, perpDir2Y, perpDir1Y) * ArcHeight
Else
    ' 劣弧：弧中点在弦的靠近圆心一侧
    Dim dotProduct As Double = (midX - centerX) * perpDir1X + (midY - centerY) * perpDir1Y
    ' 选择指向靠近圆心的垂直方向
    arcMidX = midX + If(dotProduct > 0, perpDir1X, perpDir2X) * ArcHeight
    arcMidY = midY + If(dotProduct > 0, perpDir1Y, perpDir2Y) * ArcHeight
End If

' 计算弧中点的角度
Dim midAngle As Double = NormalizeAngle(Math.Atan2(arcMidY - centerY, arcMidX - centerX))
Dim sweepAngle As Double

If isMajorArc Then
    ' 优弧扫角为2π减去劣弧扫角，确保覆盖目标区域
    Dim minorSweep As Double = Math.Abs(endAngle - startAngle)
    minorSweep = If(minorSweep > Math.PI, 2 * Math.PI - minorSweep, minorSweep)
    sweepAngle = 2 * Math.PI - minorSweep
    
    ' 若弧中点不在当前起始/结束角度的劣弧区间，交换角度适配优弧方向
    If Not IsAngleBetween(startAngle, endAngle, midAngle) Then
        Dim temp As Double = startAngle
        startAngle = endAngle
        endAngle = temp
    End If
Else
    ' 劣弧：确保弧中点在起始到结束的区间内，否则反转扫角方向
    If IsAngleBetween(startAngle, endAngle, midAngle) Then
        sweepAngle = endAngle - startAngle
        sweepAngle = If(sweepAngle < 0, sweepAngle + 2 * Math.PI, sweepAngle)
    Else
        sweepAngle = startAngle - endAngle
        sweepAngle = If(sweepAngle < 0, sweepAngle + 2 * Math.PI, sweepAngle)
        ' 交换起始/结束角度，保证扫角为正
        Dim temp As Double = startAngle
        startAngle = endAngle
        endAngle = temp
        sweepAngle = 2 * Math.PI - sweepAngle
    End If
End If

' 以下为原代码的分段逻辑，无需修改
Dim arcLength As Double = radius * sweepAngle
Dim segmentLengthFraction As Double = 0.01
Dim numSegments As Integer = _CirSegments
Dim angleIncrement As Double = sweepAngle / numSegments

Dim path As New GraphicsPath()
Dim segments As New minMax
Dim lstsegments As New List(Of minMax)

path.AddLine(CSng(startX), CSng(startY), CSng(centerX + radius * Math.Cos(startAngle)), CSng(centerY + radius * Math.Sin(startAngle)))

For i As Integer = 1 To numSegments
    Dim angle As Double = NormalizeAngle(startAngle + i * angleIncrement)
    Dim nextX As Double = centerX + radius * Math.Cos(angle)
    Dim nextY As Double = centerY + radius * Math.Sin(angle)

    segments = New minMax
    segments.minx = CSng(path.GetLastPoint().X)
    segments.miny = CSng(path.GetLastPoint().Y)
    segments.maxx = CSng(nextX)
    segments.maxy = CSng(nextY)
    lstsegments.Add(segments)
    path.AddLine(CSng(path.GetLastPoint().X), CSng(path.GetLastPoint().Y), CSng(nextX), CSng(nextY))
Next

Return lstsegments

关键改进点 #

• 新增NormalizeAngle函数统一角度范围，解决跨0度的计算错误
• 通过IsAngleBetween函数准确判断弧中点是否在目标区间内
• 根据弧高确定弧类型，并通过弦的垂直方向锁定弧中点位置
• 动态调整起始/结束角度与扫角方向，确保生成的分段始终对应红色区域

内容的提问来源于stack exchange，提问作者user3786542