把组 保存

fn save_by_Group sel dir = (
local ss = #(), s
for i in sel where isGroupHead i do (
setGroupOpen i false
append ss i
)
for i in ss do (
s = for o in i.children collect i
append s i
saveNodes s (dir+i.name+".max") quiet:on
)
)
save_by_Group objects "d:\\"