オブジェクトを順番に表示するボタンを作成する方法はありますか。

macroScript showNext category: "MXS Help"
(
  local current_object = 0 --this is local to the macroScript
  on execute do
  (
    allObjects = objects as array --collect all objects
    hide $* --hide all objects
    current_object += 1 --increment the counter
    if current_object > allObjects.count do --loop if necessary
      current_object = 1
    if allObjects.count > 0 do --if anything in the scene...
      unhide allObjects[current_object]
    -- then unhide the current object
  ) 
)

macroScript showNextABC category:"MXS Help"
(
  local current_object = 0 --this is local to the macroScript
  on execute do
  (
    -- collect all names and sort them:
    allObjectNames = sort( for i in objects collect i.name )
    hide $* --hide all objects
    current_object += 1 --increment counter
    if current_object > allObjectNames.count do --loop if necessary
      current_object = 1
    if allObjectNames.count > 0 do --if anything in the scene...
      unhide getNodeByName allObjectNames[current_object]
    -- then get the object by name and unhide it
  ) 
)