Separating blended objects on a path

Hi all,

I thought I was doing this correctly, but it always seems to crash Corel.
It seemed to be straight forward, but it's not working.

Starting with having a range of blends of objects on a path, I simple want to:
1)Loop through each blend.
2)Separate the blend.
3)Ungroup the objects
4)Delete the Blend path.

This is what I was trying:
    'Loop through each blended object, separate the blends from the path, ungroup, and delete path.
    For Each sSingleBlend In srBlendedObjects
         sSingleBlend.Separate
         sSingleBlend.UngroupAll
         sSingleBlend.Effect.Blend.Path.Delete

Next sSingleBlend

I think it's crashing when it hit sSingleBlend.UngroupAll

Any suggestions?
Thanks....JT

FaneDuru over 7 years ago

Don't you nead to BreakApart firstly? And iterate through the elements only after that?
Cancel
Up 0 Down

Reply

Cancel
jt123 over 7 years ago

I was assuming that each path had a blend, lets say 3 of them...Then it would take the first blended path, separate the objects from the path, ungroup them, delete the path, then move to the 2nd blended path, and repeat. That's what I thought it would do.
Cancel
Up 0 Down

Reply

Cancel
FaneDuru over 7 years ago in reply to jt123

I'm afraid you lost me...
Do you want to check the code or to obtain something? If yes, can you better explain which would be the final result according to your need?

How did you declare srBlendedObjects variable. What type it is?
Cancel
Up 0 Down

Reply

Cancel
jt123 over 7 years ago in reply to FaneDuru

I'm trying to figure what I may be doing wrong in the code above.
Here's an example:
There are several separate paths with a blend on them. For each blend on a path, I want to separate the blend from the path, ungroup the blend of objects, and then delete the path.
I was hoping this would work...

#The For Each loop to cycle through each blending path
For Each sSingleBlend In srBlendedObjects
sSingleBlend.Separate #The Separate to break the blend from the path
sSingleBlend.UngroupAll #The Ungroup to ungroup the blended objects
sSingleBlend.Effect.Blend.Path.Delete #The Delete to delete the Path
Next sSingleBlend

I hope that makes sense.
Cancel
Up 0 Down

Reply

Cancel
FaneDuru over 7 years ago in reply to jt123

What type of variable is srBlendedObjects? How did you declare it?
Cancel
Up 0 Down

Reply

Cancel