View Single Post
  #8  
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
Default

Hi.
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?


Code:
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
                n.CreateSelection
            Next n
        Next sp
    End If
Next s

End Sub
-John
Reply With Quote