Halcon案例分析_拉链检测

1. 
   
2. * Code generated by Image Acquisition 01
   
3. list_files ('I:/测量图片及程序/拉链/', ['files','follow_links'], ImageFiles)
   
4. tuple_regexp_select (ImageFiles, ['\\.(tif|tiff|gif|bmp|jpg|jpeg|jp2|png|pcx|pgm|ppm|pbm|xwd|ima)图片下载：
   
5. [hide]链接：[url]http://pan.baidu.com/s/1c9TzOi[/url] 密码：17a1[/hide]
   
6. ,'ignore_case'], ImageFiles)
   
7. for Index := 0 to |ImageFiles| - 1 by 1
   
8. 
   
9.     read_image (image, ImageFiles[Index])
   
10.     * Do something
    
11. count_seconds(Seconds)
    
12. 
    
13. * read_image (image, 'C:/Documents and Settings/zazaniao/桌面/拉链/拉链ng2.png')
    
14. rgb1_to_gray(image, GrayImage)
    
15. 
    
16. threshold (GrayImage, Regions, 200, 255)
    
17. connection(Regions, ConnectedRegions2)
    
18. select_shape(ConnectedRegions2, SelectedRegions2, 'area', 'and', 150, 99999)
    
19. 
    
20. closing_circle(SelectedRegions2, RegionClosing, 3.5)
    
21. 
    
22. 
    
23. 
    
24. select_shape(RegionClosing, SelectedRegions, ['width','height'], 'and', [8,25], [40,80])
    
25. 
    
26. union1(SelectedRegions, RegionUnion)
    
27. gen_rectangle2(Rectangle, 0, 0, 0, 800, 10)
    
28. 
    
29. dilation1(RegionUnion, Rectangle, RegionClosing1,1)
    
30. 
    
31. connection(RegionClosing1, ConnectedRegions1)
    
32. 
    
33. select_shape(ConnectedRegions1, SelectedRegions1, 'width', 'and', 400, 99999)
    
34. dilation_rectangle1(SelectedRegions1, SelectedRegions1, 21, 1)
    
35. smallest_rectangle2(SelectedRegions1, Row, Column, Phi, Length1, Length2)
    
36. get_image_size(GrayImage, Width, Height)
    
37. gen_empty_obj(LLine)
    
38. gen_empty_obj(RLine)
    
39. ResultFlag:=0
    
40. for i:=0 to |Row|-1 by 1
    
41. 
    
42. gen_measure_rectangle2(Row[i], Column[i], 0,Width, Length2[i],  Width, Height, 'nearest_neighbor', MeasureHandle)
    
43. gen_rectangle2(Rectangle1, Row[i], Column[i], 0,Width, Length2[i])
    
44.         measure_pairs (GrayImage, MeasureHandle, 1, 25, 'positive_strongest', \
    
45. 'all', RowEdgeFirst, ColumnEdgeFirst, AmplitudeFirst, RowEdgeSecond,\
    
46. ColumnEdgeSecond, AmplitudeSecond, IntraDistance, InterDistance)
    
47.         close_measure(MeasureHandle)
    
48.   dev_display(GrayImage)
    
49.     for j:=0 to |RowEdgeFirst|-1 by 1
    
50.     gen_rectangle2(Rectangle1, RowEdgeFirst[j], ColumnEdgeFirst[j], Phi[i], 1, Length2[i])
    
51.     concat_obj(LLine,Rectangle1,LLine)
    
52.      gen_rectangle2(Rectangle1, RowEdgeSecond[j], ColumnEdgeSecond[j], Phi[i], 1, Length2[i])
    
53.      concat_obj(LLine,Rectangle1,LLine)
    
54. *      if(j<|IntraDistance|and  j>0)
    
55. *      disp_message(3600, IntraDistance[j], 'image', RowEdgeFirst[j]-40, ColumnEdgeFirst[j], 'red', 'false')
    
56. *      endif
    
57. *      if(j<|InterDistance| and  j>0)
    
58. *      disp_message(3600, InterDistance[j], 'image', RowEdgeSecond[j]+40, ColumnEdgeSecond[j], 'red', 'false')
    
59. *      endif
    
60. endfor
    
61. 
    
62.      tuple_median(InterDistance, Median)
    
63.      tuple_max(InterDistance, Max)
    
64.      if(Max>1.5*Median)
    
65.          ResultFlag:=ResultFlag+1
    
66.      endif
    
67.          
    
68. dev_display(LLine)
    
69. 
    
70. if(ResultFlag>0)
    
71.          disp_message(3600, 'chain NG', 'window', 12, 12, 'red', 'true')
    
72.      else
    
73.           disp_message(3600, 'chain OK', 'window', 12, 12, 'green', 'true')
    
74.      endif
    
75. endfor
    
76. count_seconds(Seconds1)
    
77. time:=1000*(Seconds1-Seconds)
    
78. stop()
    
79. endfor
    

复制代码

图片下载：

游客，如果您要查看本帖隐藏内容请回复

啦啦啦

多学习

再稳固一遍

学习

thank u share

頂一下 學習大神的思維

学习了，谢谢

学习学习。。。。。。

多学习