Working with parts of a curve that has been broken

[nic]

Hi
the code below adds nodes to a curve and then breaks the curve apart but I dont know how to then work with the new curves (Im intending to recolour them each in a separate colour).

How do you refer to the new objects created when you break a curve apart?
nic

Dim s as shape, sr as ShapeRange, sp as SubPath, nr as NodeRange 
Set sr = ActivePage.Shapes.FindShapes()

'loop thru shapes
For Each s In sr

   s.Curve.SubPaths.First.AddNodeAt 0.333, cdrRelativeSegmentOffset
   s.Curve.SubPaths.First.AddNodeAt 0.666, cdrRelativeSegmentOffset

    'break nodes and curve
    Set nr = s.Curve.Nodes.All
    nr.BreakApart
    nr.RemoveAll
    s.BreakApart
     
    'bogus code
    's.PART1.Outline.Color.RGBAssign 255, 0, 0
    's.PART2.Outline.Color.RGBAssign 0, 255, 0
    's.PART3.Outline.Color.RGBAssign 0, 0, 255
    
Next s

[shelbym]

The easiest way to do this is the use BreakApartEx it will return a ShapeRange with all the newly created shapes.

Here is your code modified a bit, it will randomly change the outline color:

    Dim s As Shape, sr As ShapeRange, sp As SubPath, nr As NodeRange
    Set sr = ActivePage.Shapes.FindShapes()
    Dim srBrokenCurves As New ShapeRange
    Dim n As Long, num As Long
    
    'loop thru shapes
    For Each s In sr
    
       s.Curve.SubPaths.First.AddNodeAt 0.333, cdrRelativeSegmentOffset
       s.Curve.SubPaths.First.AddNodeAt 0.666, cdrRelativeSegmentOffset
    
        'break nodes and curve
        Set nr = s.Curve.Nodes.All
        nr.BreakApart
        nr.RemoveAll
        srBrokenCurves.AddRange s.BreakApartEx
    Next s
    
    num = ActivePalette.ColorCount
    
    For Each s In srBrokenCurves
        n = CLng(Fix(Rnd() * num)) + 1
        s.Outline.Color = ActivePalette.Color(n)
    Next s

Hope that helps,

-Shelby

[nic]

Hi Shelby
thank you, that does exactly what I was after - BreakApartEx - a new tool to add to my toolbox.

Many thanks
nic