MAXScriptで基点を回転する

このページでは、MAXScriptでオブジェクトの基点を回転する方法を記載します。

fn RotatePivotOnly obj rotation =
(
	local rotValInv=inverse (rotation as quat)
	animate off in coordsys local obj.rotation*=RotValInv
	obj.objectoffsetpos*=RotValInv
	obj.objectoffsetrot*=RotValInv
)

RotatePivotOnly $ (eulerangles 0 -90 0)

Reference http://www.maxforums.org/threads/maxscript_rotate_pivot_object/0001.aspx