[RoutineDef, remesh_all_subtools,
[IFreeze,
    [If, [IGet, "transform:Edit"] && [IExists,"tool:initialize:QCube"],
        [Loop, [SubToolGetCount],
            [SubToolSelect, n]
            [IPress, "Tool:Geometry:ZRemesher"]
        ,n]
        ,//else
        [Note, "Please, drop a model on the canvas and turn on the edit mode."]
    ]
]    
]

[IButton, "???", "Zremesh each subtools.\nDefine the Zremesher option before to run the macro.",
    [RoutineCall, remesh_all_subtools]
,,1]