Export to svg

[dgkorenje]

When exporting chart to svg, it will not export custom svg points. Instead it will use default circles. Assuming you have your own class for points generation.
`With DirectCast(series, LineSeries(Of DateTimePoint, CustomChartPointVisual))
.GeometrySvg = CInt(cdef.SeriesFormatting.GeometryShape)
.GeometrySize = cdef.SeriesFormatting.GeometrySize
.GeometryStroke = If(cdef.SeriesFormatting.GeometryStrokeThickness.HasValue, New SolidColorPaint(ConvertColorToSKColor(cdef.SeriesFormatting.GeometryStrokeColor).WithAlpha(cdef.SeriesFormatting.GeometryStrokeTransparency)) With {.StrokeThickness = cdef.SeriesFormatting.GeometryStrokeThickness}, Nothing)
.GeometryFill = If(cdef.SeriesFormatting.GeometryFillColor.HasValue, New SolidColorPaint(ConvertColorToSKColor(cdef.SeriesFormatting.GeometryFillColor).WithAlpha(cdef.SeriesFormatting.GeometryFillTransparency)), Nothing)
.LineSmoothness = cdef.SeriesFormatting.LineSmoothness
.IsHoverable = False
.Stroke = If(cdef.SeriesFormatting.LineStrokeThickness.HasValue, New SolidColorPaint(ConvertColorToSKColor(cdef.SeriesFormatting.LineStrokeColor).WithAlpha(cdef.SeriesFormatting.LineStrokeTransparency)) With {.StrokeThickness = cdef.SeriesFormatting.LineStrokeThickness}, Nothing)
.Fill = If(cdef.SeriesFormatting.AreaFillColor.HasValue, New SolidColorPaint(ConvertColorToSKColor(cdef.SeriesFormatting.AreaFillColor).WithAlpha(cdef.SeriesFormatting.AreaFillTransparency)), Nothing)
.ScalesYAt = ScalesYAt
End With

Public Sub SaveCartesianChartToSvg(Chart As CartesianChart, filePath As String, extension As String)
    Dim skChart As New SKCartesianChart(Chart)

    If String.Equals(extension, ".png", comparisonType:=StringComparison.CurrentCultureIgnoreCase) Then
        skChart.SaveImage(path:=filePath, format:=SKEncodedImageFormat.Png, quality:=100)
    ElseIf String.Equals(extension, ".jpeg", comparisonType:=StringComparison.CurrentCultureIgnoreCase) Then
        skChart.SaveImage(path:=filePath, format:=SKEncodedImageFormat.Jpeg, quality:=100)
    ElseIf String.Equals(extension, ".gif", comparisonType:=StringComparison.CurrentCultureIgnoreCase) Then
        skChart.SaveImage(path:=filePath, format:=SKEncodedImageFormat.Gif, quality:=100)
    ElseIf String.Equals(extension, ".bmp", comparisonType:=StringComparison.CurrentCultureIgnoreCase) Then
        skChart.SaveImage(path:=filePath, format:=SKEncodedImageFormat.Bmp, quality:=100)
    ElseIf String.Equals(extension, ".svg", comparisonType:=StringComparison.CurrentCultureIgnoreCase) Then
        Dim stream = New MemoryStream()
        Dim Canvas = SKSvgCanvas.Create(SKRect.Create(0, 0, skChart.Width, skChart.Height), stream)
        skChart.DrawOnCanvas(Canvas)
        Canvas.Dispose()
        stream.Position = 0
        Dim fs = New FileStream(filePath, FileMode.Create)
        stream.CopyTo(fs)
        stream.Close()
        fs.Close()
    End If
End Sub`

This is plotted chart:

And saved to svg chart:

[dgkorenje]

Ok setting geometrysvg again solved it.

Public Sub SaveCartesianChartToSvg(Chart As CartesianChart, filePath As String, extension As String) Dim skChart As New SKCartesianChart(Chart) For i = 0 To skChart.Series.Count - 1 DirectCast(skChart.Series(i), ISeries).GeometrySvg = DirectCast(Chart.Series(i), ISeries).GeometrySvg Next

[beto-rodriguez]

Glad you found a workaround, #1909 should fix all these kind of issues.