请问有没有会写halcon金属表面孔识别的代码

请问有没有会写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()

您好，我是有问必答小助手，你的问题已经有小伙伴为您解答了问题，您看下是否解决了您的问题，可以追评进行沟通哦~

如果有您比较满意的答案 / 帮您提供解决思路的答案，可以点击【采纳】按钮，给回答的小伙伴一些鼓励哦～～

ps:问答VIP仅需29元，即可享受5次/月 有问必答服务，了解详情>>>https://vip.csdn.net/askvip?utm_source=1146287632