Question

在Visual Basic .NET中放大矢量绘图时，在某个点之后，每次缩放操作都会使线条变粗。

应用程序功能基本上是绘制一些行：

使用变换和缩放设置图形矩阵以使整个绘图填充画布（使用g.Transform = myMatrix）
绘制线条（使用“g.DrawLine（...）”）

...当放大时：

调整变换矩阵以放大鼠标指针位置
矩阵的比例因子增加1.1倍

矩阵在PrepareDrawing方法中设置：

Private Function PrepareDrawing(ByRef g As Graphics) As Matrix
    'Create transformation matrix
    Dim myMatrix = New Matrix

    'Determine the zoom factor
    If zoomfactor > 10000 Then zoomfactor = 10000
    If zoomfactor < 0.001 Then zoomfactor = 0.001

    scaleFactor = zoomfactor * BORDERFACTOR * Math.Min(pb.Width / viewportModel.Width, pb.Height / viewportModel.Height)

    'Determine the offset to keep everything centered
    If panningOffset.IsEmpty Then
        ZoomToNetwork()
    End If

    myMatrix.Translate(panningOffset.X, panningOffset.Y)
    myMatrix.Scale(scaleFactor, -scaleFactor, MatrixOrder.Append)

    'transform current graphics
    g.Transform = myMatrix

    Return myMatrix
End Function

缩放功能在ZoomInWithMouseWheel方法中设置：

 Public Sub ZoomInWithMouseWheel(ByVal e As Point, ByVal delta As Single)
    Dim orgZoomfactor = zoomfactor
    Dim screenX As Double = e.X 
    Dim screenY As Double = e.Y 

    If delta > 0 Then
        zoomfactor = zoomfactor * 1.1 
    Else
        zoomfactor = zoomfactor / 1.1 
    End If

    scaleFactor = zoomfactor * BORDERFACTOR * Math.Min(pb.Width / viewportModel.Width, pb.Height / viewportModel.Height)

    Dim perc = zoomfactor / orgZoomfactor
    panningOffset.Offset(-(perc * screenX - screenX) / scaleFactor, (perc * screenY - screenY) / scaleFactor)

End Sub

事实证明，当矩阵的第一个元素大于1时，线宽会随着这个数字而增加。

有关正在发生的事情以及如何预测线宽增加的任何想法？

Answer 1

好的，找到了答案。线宽应该补偿矩阵元素（0），例如：

g.DrawLines(New Pen(Color.Blue, lineWidth / g.Transform.Elements(0)), pnts)

其中lineWidth为1，例如

放大矢量绘图.NET时，线宽会增加

1 个答案: