麻花的移动物体到原点

--只移动Z轴到0
fn moveObjectToZeroOnlyZ obj =
(
        local icenter
        local minz
        icenter = obj.center
        minz   = obj.min.z
        move obj [0,0,-minz]
)
--轴心归底
fn CenterPiv i =
(
        CenterPivot i  --轴心归中心
        i.pivot.z = i.min.z  --轴心的Z轴等于物体最底点
)

--移动物体到世界原点
fn moveObjectToZero obj =
(
          center = obj.center
          minz   = obj.min.z
          move obj [-center.x,-center.y,-minz]
         
          mpos = [-center.x,-center.y,-minz]
          return mpos
)

s = selection[1]
moveObjectToZeroOnlyZ s
CenterPiv s
moveObjectToZero s