Looping problem...How to create and lock a set of PathItems?

Question

Greetings all!
I'm a noob....a very confused one
And I'm trying to get this thing work
So here is what I have. The first loop grabs the geometries drawn in the current document and rotates it around itself creating duplicates. The second loop is supposed to circumvent more geometries around the newly created geometries.
But instead of creating a radiant pattern, this code builds a tower: for the second loop everytime it grabs the last drawn geometry instead of what is in the "Original"
Can somebody explain what is wrong? Thanks!
for NumPaths = 1 to frontDocument.PathItems.count
          set myPath = frontDocument.PathItems.item(NumPaths)
          For index = 0 To 30
                    set newPath = myPath.Duplicate
                    call newPath.translate(100*sin(6.14* index/30),100*cos(6.14* index/30))
                    call newPath.rotate(360 * index/30)
          Next
Next
Set Original = frontDocument.PathItems
for NumPaths = 1 to Original.count
          set myPath = Original.Item(NumPaths)
          For index = 0 To 30
                    set newPath = myPath.Duplicate
                    call newPath.translate(100*sin(6.14* index/30),100*cos(6.14* index/30))
                    call newPath.rotate(360 * index/30)
          Next
Next

Answer 1

something like this?
first loop makes a "ring", in order to make this "ring" revolve around to make the sphere you have to make it a group, so the second loop duplicates the "ring" (grouped) and basically makes the same thing as the first one, but uses the group instead of pathItems.
    For NumPaths = 1 To frontDocument.PathItems.Count
              Set myPath = frontDocument.PathItems.Item(NumPaths)
            Set myGroup = frontDocument.GroupItems.Add 'add a group
              For Index = 0 To 30
                        Set newPath = myPath.Duplicate(myGroup) 'add each duplicate to the group
                        Call newPath.translate(100 * Sin(6.14 * Index / 30), 100 * Cos(6.14 * Index / 30))
                        Call newPath.rotate(360 * Index / 30)
              Next
    Next
     Set Original = frontDocument.GroupItems 'make original all groupItems instead of pathItems
    For NumPaths = 1 To Original.Count
              Set myGroup = Original.Item(NumPaths) '
              For Index = 0 To 30
                        Set newGroup = myGroup.Duplicate     'duplicate the groups
                        Call newGroup.translate(100 * Sin(6.14 * Index / 30), 100 * Cos(6.14 * Index / 30))
                        Call newGroup.rotate(360 * Index / 30)
              Next
    Next