[RoutineDef, ZRemeshCurrentSubTool,
  [IPress, "Tool:Geometry:ZRemesher"]
, filename]

[RoutineDef, ZRemeshFileList,
  [VarSet, filename, [FileNameAsk, "TXT(*.txt)|*.txt||", "", "Please select a file list..."]]
  [If, ([StrLength, filename]>3),
    [VarSet, folder, [FileNameExtract, filename, 1]]
    [If, ([MemGetSize, MyListMem]>0), [MemDelete, MyListMem]]
    [MemCreateFromFile, MyListMem, filename]
    [VarSet, size, [MemGetSize, MyListMem]]
    [MemResize, MyListMem, (size+1), 0]
    [MemWrite, MyListMem, 0, 1, size]
    [VarSet, pos, 0]
    [IUnPress, "Transform:Activate Symmetry"]
    [Loop, 10000,
      [Loop, 10000,
        [VarSet, filename, ""]
        [VarSet, size, [MemReadString, MyListMem, filename, pos, 1]]
        [If, ([StrLength, filename]==0), [LoopExit]]
        [VarAdd, pos, size]
        [FilenameSetNext, [StrMerge, folder, filename]]
        [IPress, "Tool:Import"]
        [RoutineCall, ZRemeshCurrentSubTool, filename]
        [FilenameSetNext, [StrMerge, folder, filename]]
        [IPress, "Tool:Export"]
      ]
      [If, (size==0), [LoopExit]]
    ]
    [MemDelete, MyListMem]
  ]
]

[ISubPalette, "ZPlugin:ZRemesh batch"]
[IButton, "ZPlugin:ZRemesh batch:ZRemesh file list", "ZRemesh several files, given a list of files to zremesh",
  [RoutineCall, ZRemeshFileList]
,,1.0]