View Single Post
Old 13-07-2010, 11:49
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811

I think this little node reorder sub will fix any jumping nodes in all selected subpaths but I'm not sure about the problem with the bottom drawing. Can you explain what's wrong with it?

Sub nodeOrder()

Dim n As Node, s As Shape, sp As SubPath
Dim sr As ShapeRange

Set sr = ActiveSelectionRange

For Each s In sr
    If s.Type = cdrCurveShape Then
        For Each sp In s.Curve.SubPaths
            For Each n In sp.Nodes
            Next n
        Next sp
    End If
Next s

End Sub
Reply With Quote