HALCON中检测区域分割

dev_set_draw ('margin')
dev_close_window()
dev_open_window(0, 0, 1000, 374, 'dim gray', WindowHandle)
list_files ('D:/算法/Test/图片', ['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)

dev_set_line_width(2)

for Index := 0 to |ImageFiles| - 1 by 1
    read_image (Image, ImageFiles[Index])
    
    * 获取区域1
    threshold(Image, Region1, 40, 100)
    closing_circle (Region1, RegionClosing, 3.5)
    opening_circle (RegionClosing, RegionOpening, 8)
    connection(RegionOpening, ConnectedRegions1)
    select_shape(ConnectedRegions1, SelectedRegions1, 'area', 'and', 400000, 500000)
    fill