Если необходимо переименовать сгруппированные объекты по названию группы.

Есть сгруппированные объекты с именем группы "Group_01". Необходимо каждому объекту присвоить следующее имя - "Group_01_######", где ###### - произвольное шестизначное число.
Скрипт работает только с выделенными группами.
------------------------------------------------------------------
 (
fn randName num = (
local arS = #("123456", "123456", "123456"), rN = ""
for i = 1 to num do rN+= arS[r = random 1 arS.count][random 1 arS[r].count]
rN
)
  
for i in selection do(
    if not (isgrouphead i) do(
        if i.parent != undefined do i.name = (i.parent).name + "_" + (randName 6)
        )
    )  
)
------------------------------------------------------------------