Thread: CreateBlend
View Single Post
  #1  
Old 07-03-2012, 22:04
prongs
Guest
 
Posts: n/a
Default CreateBlend

While creating blend using the CreateBlend command, it always fails the 21st time. It is wierd. When I try to use the command in a loop of 21 objects it fails. When I try to use on 21 different objects one after another seperately it fails again.

This is the code that I used.
Set shp1 = ActiveLayer.CreateEllipse(12,12,12+size, 12-size)
shp1.Copy
Set shp2 = ActiveLayer.Paste
With shp1.CreateBlend(shp2)
.Blend.Mode = cdrBlendSpacing
.Blend.Spacing = spacing
.Blend.LinkAcceleration = True
.Blend.FullPath = True
.Blend.Path = OrigSelection(i)
.Blend.MapNodes = True
actualsteps = .Blend.Steps
End With
Clipboard.Clear

Could somebody please help me with what the problem is?
Thanks in advance

prongs
Reply With Quote