我在Halcon学习网发了一个帖子:
请教工件的金属表面圆孔的识别与定位
解决方案有了,源码如下:
dev_update_off ()
dev_close_window ()
*读图像
read_image (Image, 'D:/pic/202006042055044969.jpg')
*彩色转灰度图
count_channels (Image, Channels)
if (Channels == 3)
rgb1_to_gray (Image, Image)
*真彩色转灰度图
elseif (Channels == 4)
decompose4 (Image, ImageR, ImageG, ImageB, ImageA)
compose3 (ImageR, ImageG, ImageB, MultiChannelImage)
rgb1_to_gray (MultiChannelImage, Image)
endif
*获取图像宽高
get_image_size (Image, Width, Height)
dev_open_window_fit_image (Image, 0, 0, -1, -1, WindowHandle)
set_display_font (WindowHandle, 16, 'mono', 'true', 'false')
dev_display (Image)
*动态二值化
D := 30
mean_image(Image, Mean, D*2+1, D*2+1)
dyn_threshold(Image, Mean, Seg, 5, 'dark')
fill_up(Seg, SegFillUp)
connection(SegFillUp, segConnect)
*找圆
select_shape(segConnect, SelectedRegions, ['area','circularity'], 'and', [500, 0.7], [20000, 1])
*求出最小外接圆的半径和中心点
smallest_circle(SelectedRegions, Row, Column, Radius)
*求出圆的面积和中心点
area_center(SelectedRegions, Area, Row1, Column1)
*画圆
dev_display(Image)
gen_circle(Circles, Row, Column, Radius)
dev_display(Circles)
*数量统计
count_obj(SelectedRegions, Number)
if (Number < 1)
disp_message (WindowHandle, '未找到', 'window', 12, 12, 'black', 'true')
return()
endif
*结果显示
for i:=1 to Number by 1
select_obj (SelectedRegions, ObjectSelected, i)
r := Row[i - 1]
c := Column[i - 1]
rds:= Radius[i - 1]
disp_message (WindowHandle, '圆心:Row:'+ r + ' Col:' + c, 'window', 12, 12, 'black', 'true')
disp_message (WindowHandle, '半径:'+ rds, 'window', 52, 12, 'black', 'true')
endfor
stop()
---
参考官方例程
smallest_circle.hdev
measure_ring.hdev
dyn_threshold.hdev
ball.hdev