MAXscript リセットオールトランスフォーム的な

SIでいう「Ctrl+Shift+R」
リセットオールトランスフォームが欲しかっただけなのです。
標準機能で無さそうだったのではぢめてのMAXscriptとなりました。

こんな感じ

oSel = selection.count;

if oSel == 0 then (
    print "何も選択されていません";
)else if val == 1 then (
    in coordsys parent $.pos = [0,0,0]
 in coordsys parent $.scale = [1,1,1]
 in coordsys parent $.rotation = (quat 0 0 0 0)
)else(
 in coordsys parent $selection.pos = [0,0,0]
 in coordsys parent $selection.scale = [1,1,1]
 in coordsys parent $selection.rotation = (quat 0 0 0 0)
)

何とか動いてるっぽいからとりあえずコレでいいや(´・ω・`)
こいつをショートカット登録したかったのでマクロスクリプトとやらにして

macroScript Reset_Transform
category:"My_Tools"
toolTip:"Reset_Transform"
(
 oSel = selection.count;
 
 if oSel == 0 then (
  print "何も選択されていません";
 )else if val == 1 then (
  in coordsys parent $.pos = [0,0,0]
  in coordsys parent $.scale = [1,1,1]
  in coordsys parent $.rotation = (quat 0 0 0 0)
 )else(
  in coordsys parent $selection.pos = [0,0,0]
  in coordsys parent $selection.scale = [1,1,1]
  in coordsys parent $selection.rotation = (quat 0 0 0 0)
 )

)

ひとまず完成。