- * 简单阈值分割测试
- threshold (Image, Regions, 30, 255) * 降低阈值下限,扩大范围
- connection (Regions, ConnectedRegions)
- area_center (ConnectedRegions, Area, Row, Column)
- count_obj(ConnectedRegions, Count)
- disp_message(WindowHandle, '区域数: ' + Count$'.0f', 'window', 10, 10, 'black', 'true')
- * 显示所有区域面积最大值
- if (Count > 0)
- MaxArea := max(Area)
- disp_message(WindowHandle, '最大面积: ' + MaxArea$'.0f', 'window', 40, 10, 'black', 'true')
- endif
- * 选取面积较大的区域(改成1000像素以上)
- select_shape(ConnectedRegions, SelectedRegions, 'area', 'and', 1000, 999999)
- count_obj(SelectedRegions, Count2)
- disp_message(WindowHandle, '筛选后区域数: ' + Count2$'.0f', 'window', 70, 10, 'black', 'true')
复制代码 |