"Group with no dialog" script problem

By harumscarum · 2011-12-22

Description

hi
here is simple script which group object without naming dialog and with pivot at the bottom. nice one. but it just after grouping press undo it put selected objects down
why it happens and how to fix?

(
on isenabled return selection.count>1
on execute do (
local grname=selection[1].name
local grhead
if selection.count >1 do group selection name:(grname + "_01")
select $(grname + "_01")
for i in selection where (isgrouphead i) do
i.pivot = [($.max.x+$.min.x)/2, ($.max.y+$.min.y)/2, $.min.z]
)
)

thank you in advance

Comments (5)

harumscarum · 2012-01-12

same config.
but do you Undo right after Group? i mean problem is only if i group by mistake and want to undo this operation.

You are right

Arahnoid · 2012-01-12

If I created 3 objects after grouped them and created a new object. After undo ungrouped objects fall down

I have deleted from script last 2 lines and second local variable. To be honest I didn't get why you need to change something in pivot after grouping :( perhaps this line of code make this problems.

This code works as I expected



(
  on isenabled return selection.count>1
  on execute do 
  (
    local grname=selection[1].name
    undo on
    (
      if selection.count >1 do group selection name:(grname + "_01")
    )
    select $(grname + "_01")
  )
)

harumscarum · 2012-01-11

undo was working with source script, but after undo all objects are dropping down. i guess because of pivot replacement

Strange

Arahnoid · 2012-01-12

For me script works fine. After undo all objects remain in the same place
Win7x64, Max 2012 x64 (not Design version)

Hello harumscarum

Arahnoid · 2012-01-09

I'm not sure if I've understand you right but if you want to have a undo for grouping you can add "undo on" in you script and it will allow to undo grouping
By the way great and usefool script :)
------------------------------------------------------------------------------


(
  on isenabled return selection.count>1
  on execute do 
  (
    local grname=selection[1].name
    local grhead
    undo on
    (
      if selection.count >1 do group selection name:(grname + "_01")
      select $(grname + "_01")
      for i in selection where (isgrouphead i) do
      i.pivot = [($.max.x+$.min.x)/2, ($.max.y+$.min.y)/2, $.min.z]
     )
  )
)