I'm trying to build a small nesting Function inside of my current working system. What I am having trouble with is that when I add the third shape to the collection and try to position it based on the previous shape added to the collection, it still positions it based on the very first shape. What I end up with is the original in the original position and the copies stacked on top of one another. (I would be particularly interested in what GDG_John has to say about it since I have been using his awesome nesting macro for sometime.)
Function ArrangeImages(ByRef scol1 As Collection, ByRef sA, sB As Shape) Dim i, ii As Long i = scol1.Count If i = 1 Then Set sB = scol1.Item(i) End If If scol1.Count > 1 Then Set sA = sB Set sB = scol1.Item(i) sB.SetPosition sA.PositionX, sA.PositionY + (sA.SizeHeight / 2) + (sB.SizeHeight / 2) + 0.15 End If End Function
Hi James,
The vast majority of users who use a search term such as "nesting" seek working solutions for tasks (relative to learning how to code or solving code problems).
If they stumble across this thread, then they're aware that pre-existing solutions are available.
macromonster.com was a vendor for John's nesting product for many years (I was his beta tester for that and many of his items), and for 14.95 it was certainly a time-saver for simple nesting jobs (primarily rectangular shapes). About half of those clients eventually decided to upgrade to ecut since they realized they had more complex nesting requirements.
In 2017, the serious 3rd party vendors for CorelDRAW can be counted - on one hand. Corel doesn't mind people becoming aware about items from serious vendors - as long as they're aware the existing solutions are commercial products right inside the post.
Good luck with your project. [:)]