Reducing Nodes Semi Automatic

Hi Folks,

I'm working with Graphics, that have to be exported for cutting
vinyl Stickers. A lot of you know, that the contour tool of Corel
produces too much nodes. The Auto Reduce slider always takes too
much nodes away, the Contour is not exact.
Xara X is much more better in creating Contours.

My Workaround looks like this i select nodes which are too much and
hit (customized shortcut) convert to curve (cause in the contour there
are lots of line doesn't matter if the contoured object is a curve) after
that i hit smooth and last one auto reduce.

Now i want a macro that uses these 3 steps in that order.

I tried to record it, but that doesn#t work

can anybody help me?

[Alex]

Here you go...

Sub FixContourCurve()
    Dim nr As NodeRange
    
    If ActiveShape Is Nothing Then
        MsgBox "Nothing is selected", vbCritical
        Exit Sub
    End If
    
    If ActiveShape.Type <> cdrCurveShape Then
        MsgBox "The selected object must be a curve", vbCritical
        Exit Sub
    End If
    
    Set nr = ActiveShape.Curve.Selection
    
    If nr.Count = 0 Then
        MsgBox "Select some nodes with the Shape tool", vbCritical
        Exit Sub
    End If
    
    nr.SegmentRange.SetType cdrCurveSegment
    nr.SetType cdrSmoothNode
    nr.AutoReduce 0.05 ' Deviation of curve shape to be no more than 0.05"
End Sub

Fast, Faster, Alex.

thanx a lot Mate!

It works great. I set the deviation to 0.001 to get some more nodes.

Have a nice Day!