Fehlerhafte Knoten-Griffe automatisch finden

[asterix]

hallo koter,

nach langem doch noch mal eine Frage zu dem Makro, wo CorelDraw die aus ClipStudio falsch exportierten kurzen Griffe findet und markiert, klappt auch.

Code:

Sub kurzegriffe()
    Dim s As Shape
    Dim c As Curve
    Dim sp As SubPath
    Dim sgF As Segment, sgL As Segment
    Dim minL As Double

    ActiveDocument.Unit = cdrMillimeter

    For Each s In ActiveLayer.Shapes
        minL = s.Outline.Width / 20
        Set c = s.Curve

        For Each sp In c.SubPaths
            Set sgF = sp.Segments.First
            Set sgL = sp.Segments.Last

            If sgF.StartingControlPointLength < minL Then
                Markierung sgF.StartingControlPointX, sgF.StartingControlPointY, True
            End If

            If sgL.EndingControlPointLength < minL Then
                Markierung sgL.EndingControlPointX, sgL.EndingControlPointY
            End If
        Next
    Next
End Sub

Es wäre nun noch perfekt, wenn das alles bleibt mit den Markierungen, aber innerhalb des Makros diese kurzen Griffe alle automatisch verlängert werden auf einen gewissen Wert, z.B. auf halbe Breite des Strichs oder mehr (damit man es zum Test auch sieht). Genauere Einstellung kann ich ja dann vornehmen. 

KI kann es nicht .

Geht das generell?