group an unknown number of groups

[Peter@multidesk.se]

I have an unknown number of groups that I need to group into one group

Any suggestions on how to do this?

Probably simple but I'm stuck!

Code: Select all

on openCard
   put yLine into tTemp
   repeat with x = 1 to tCreate 
      clone group "template" of me 
      set the name of it to (carLine & x)
      if x = 1 
      then  
         set the loc of group (carLine & x) to xLine, yLine
      else
         set the loc of group (carLine & x)  to xLine, (tTemp + 44)
         add 44 to tTemp
      end if
   end repeat
   
   -- Here I need to group all the groups I created above into one group
   
end openCard

///Peter

[[-hh]]

You could try the following.

Code: Select all

repeat with x = 1 to tCreate 
   ...
   put " and group " & (carLine & x) after doJob
end repeat
put "group" into word 1 of doJob
do doJob

Or you could directly group the objects (use copy instead of clone)

Code: Select all

if there is no grp "newGroup" then create grp "newGroup"
repeat with x = 1 to tCreate 
   copy grp "template" to grp "newGroup"
   set the name of grp id it to (carLine & x)
   ...

[Peter@multidesk.se]

Just what I needed!

I was not familiar with the command "do" , definitely useful for various projects!

Thanks


///Peter

[Klaus]

Hi Peter,

maybe this is a bit more understandable (and my favourite!):

Code: Select all

...
## Select all groups just like with the mouse and SHIFT-key, but via script:
repeat with x = 1 to tCreate 
      set the selected of grp (caLine & x) to TRUE
end repeat

## All of your groups are selected not and we can simply issue this fine command:
group

## De-select everything and here you go :-)
select empty
...

Best

Klaus