Ma Hua's moving object to the origin

-- only move the Z axis to 0
FN moveobjecttozeroonlyz OBJ =
(
Local icenter
Local minz
icenter = obj. center
minz = obj. min. z
move OBJ [0, 0,-minz]
)
-- pivot bottom
FN centerpiv I =
(
centeroui -- pivot center
I. invalid. z = I. min. Z -- the Z axis is equal to the bottom point of the object
)

-- Move an object to the origin of the world
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