gen_empty_obj (EmptyObject)
list_files ('F:/实时项目/2021/汉斯焊台/19-27-19-00', ['files','follow_links'], ImageFiles)
tuple_regexp_select (ImageFiles, ['\\.(tif|tiff|gif|bmp|jpg|jpeg|jp2|png|pcx|pgm|ppm|pbm|xwd|ima|hobj)$','ignore_case'], ImageFiles)
for Index := 0 to |ImageFiles| - 1 by 1
read_image (Image, ImageFiles[Index])
concat_obj (EmptyObject, Image, EmptyObject)
endfor |