工控编程吧

标题: 电路板金手指间距测量工业视觉项目源代码 [打印本页]

---

作者: qq263946146    时间: 2019-4-15 14:34
标题: 电路板金手指间距测量工业视觉项目源代码
(, 下载次数: 1)

上传

点击文件名下载附件

最近结束了一项目，项目要实现的功能是计算上图中两金手指的间距，
将间距传递给执行机构，让上下两块板对齐。
实现的思路也是简单，如上图，
1.先是提取上边金手指，拟合成矩形，获取矩形相关几何参数。
然后是获取下边金手指区域，拟合成矩形，获取矩形相关几何参数。

2.计算下矩形中心线起点与上矩形中心线的垂直点坐标点，此点与下矩形中心线距离就为要求得的间距。

3.计算所得的间距 单位是像素单位，所以最终还得进行转换。
我们事先已知上边两金手指间距为100毫米，（厂家产品规格确定）。计算出其间隔像素单位，
这样像素毫米关系就确定，也就是间距的像素单位就可以进行转换为毫米单位。

下面为步骤2，步骤3实现的halcon代码，同时附件为一张产品图片供大家下载测试学习
(, 下载次数: 50)

上传

点击文件名下载附件
[weixinlianxi]1[/weixinlianxi]

1. dev_close_window ()
   
2. read_image (Image1, '1.bmp')
   
3. dev_open_window_fit_image (Image1, 0, 0, -1, -1, WindowHandle)
   
4. dev_display (Image1)
   
5. get_image_size (Image1, ImageWidth, ImageHeight)
   
6. rgb1_to_gray (Image1, Image)
   
7. binary_threshold (Image, IconTemp, 'max_separability', 'light', UsedThreshold)
   
8. connection (IconTemp, Icon)
   
9. *筛选全部白色区域
   
10. select_shape (Icon, IconTemp, ['area','ratio','column'], 'and', [2000,3,0], [999999,20,ImageWidth*0.95])
    
11. select_shape(IconTemp, Icon, 'row1', 'and', 0, 100)
    
12. union1 (Icon, IconTemp)
    
13. smallest_rectangle1 (IconTemp, Row, Column, Row1, Column1)
    
14. gen_rectangle1 (Rectangle, Row, Column, Row1/2, ImageWidth)
    
15. reduce_domain(Image, Rectangle, IconTemp)
    
16. binary_threshold (IconTemp, Icon, 'smooth_histo', 'dark', UsedThreshold)
    
17. 
    
18. connection (Icon, IconTemp)
    
19. select_shape (IconTemp, Icon, ['area','ratio','column'], 'and', [500,3,0], [999999,20,ImageWidth*0.95])
    
20. sort_region (Icon, IconTemp2, 'upper_right', 'false', 'column')
    
21. select_obj(IconTemp2, Icon, 1)
    
22. gen_contour_region_xld (Icon, IconTemp, 'border')
    
23. fit_rectangle2_contour_xld (IconTemp, 'regression', -1, 0, 0, 3, 2, Row, Column, Phi, Length1, Length2, PointOrder)
    
24. *提取矩形中心线为上参考线
    
25. get_rectangle2_points (Row, Column, Phi, Length1, Length2, CornerY, CornerX, LineCenterY, LineCenterX)
    
26. if( Phi<=0)
    
27.     XValue := LineCenterX[3]
    
28.     YValue := LineCenterY[3]
    
29.     XValue1:= LineCenterX[1]
    
30.     YValue1:= LineCenterY[1]
    
31. else
    
32.     XValue := LineCenterX[1]
    
33.     YValue := LineCenterY[1]  
    
34.     XValue1:= LineCenterX[3]
    
35.     YValue1:= LineCenterY[3]
    
36. endif
    
37. *
    
38. select_obj(IconTemp2, Icon, 2)
    
39. gen_contour_region_xld (Icon, IconTemp, 'border')
    
40. fit_rectangle2_contour_xld (IconTemp, 'regression', -1, 0, 0, 3, 2, Row, Column, Phi, Length1, Length2, PointOrder)
    
41. *提取矩形中心线为上参考线
    
42. get_rectangle2_points (Row, Column, Phi, Length1, Length2, CornerY, CornerX, LineCenterY, LineCenterX)
    
43. if( Phi<=0)
    
44.     XValue2 := LineCenterX[3]
    
45.     YValue2 := LineCenterY[3]
    
46.     XValue3:= LineCenterX[1]
    
47.     YValue3:= LineCenterY[1]
    
48. else
    
49.     XValue2 := LineCenterX[1]
    
50.     YValue2 := LineCenterY[1]  
    
51.     XValue3:= LineCenterX[3]
    
52.     YValue3:= LineCenterY[3]
    
53. endif
    
54. distance_pp(YValue1, XValue1,YValue3, XValue3,Distance)
    
55. *显示距离
    
56. gen_contour_polygon_xld(LineXLD,[YValue,YValue1],[XValue,XValue1])
    
57. gen_contour_polygon_xld(LineXLD1,[YValue2,YValue3],[XValue2,XValue3])
    
58. gen_arrow_contour_xld(Arrow, YValue1, XValue1, YValue3, XValue3, 10, 10)
    
59. gen_arrow_contour_xld(Arrow1, YValue3, XValue3, YValue1, XValue1,  10, 10)
    
60. dev_display(Image)
    
61. dev_set_color('red')
    
62. dev_display(LineXLD)
    
63. dev_display(LineXLD1)
    
64. dev_set_color('green')
    
65. dev_display(Arrow1)
    
66. dev_display(Arrow)
    
67. message := Distance[code]dev_close_window ()
    
68. read_image (Image1, '1.bmp')
    
69. dev_open_window_fit_image (Image1, 0, 0, -1, -1, WindowHandle)
    
70. dev_display (Image1)
    
71. get_image_size (Image1, ImageWidth, ImageHeight)
    
72. rgb1_to_gray (Image1, Image)
    
73. binary_threshold (Image, IconTemp, 'max_separability', 'light', UsedThreshold)
    
74. connection (IconTemp, Icon)
    
75. *筛选全部白色区域
    
76. select_shape (Icon, IconTemp, ['area','ratio','column'], 'and', [2000,3,0], [999999,20,ImageWidth*0.95])
    
77. *筛选上,下白色区
    
78. select_shape(IconTemp, Icon, 'row1', 'and', 0, 100)
    
79. difference (IconTemp, Icon, IconTemp2)
    
80. *处理上白色
    
81. union1 (Icon, IconTemp)
    
82. smallest_rectangle1 (IconTemp, Row, Column, Row1, Column1)
    
83. gen_rectangle1 (Rectangle, Row, Column, Row1/2, ImageWidth)
    
84. reduce_domain(Image, Rectangle, IconTemp)
    
85. binary_threshold (IconTemp, Icon, 'smooth_histo', 'dark', UsedThreshold)
    
86. 
    
87. connection (Icon, IconTemp)
    
88. select_shape (IconTemp, Icon, ['area','ratio','column','rectangularity'], 'and', [500,3,0,0.8], [999999,20,ImageWidth*0.95,1])
    
89. sort_region (Icon, IconTemp, 'upper_right', 'false', 'column')
    
90. select_obj(IconTemp, Icon, 1)
    
91. gen_contour_region_xld (Icon, IconTemp, 'border')
    
92. fit_rectangle2_contour_xld (IconTemp, 'regression', -1, 0, 0, 3, 2, Row, Column, Phi, Length1, Length2, PointOrder)
    
93. gen_rectangle2_contour_xld(Rect, Row, Column, Phi, Length1, Length2)
    
94. *提取矩形中心线为上参考线
    
95. get_rectangle2_points (Row, Column, Phi, Length1, Length2, CornerY, CornerX, LineCenterY, LineCenterX)
    
96. if( Phi<=0)
    
97.     XValue := LineCenterX[3]
    
98.     YValue := LineCenterY[3]
    
99.     XValue1:= LineCenterX[1]
    
100.     YValue1:= LineCenterY[1]
     
101. else
     
102.     XValue := LineCenterX[1]
     
103.     YValue := LineCenterY[1]  
     
104.     XValue1:= LineCenterX[3]
     
105.     YValue1:= LineCenterY[3]
     
106. endif
     
107. 
     
108. *处理下白色区
     
109. union1 (IconTemp2, IconTemp)
     
110. smallest_rectangle1 (IconTemp, Row, Column, Row1, Column1)
     
111. *gen_rectangle1 (Rectangle, Row-(Row1-Row)*0.1, Column, Row1+(Row1-Row)*0.1, ImageWidth)
     
112. gen_rectangle1 (Rectangle, Row, Column, Row1, ImageWidth)
     
113. reduce_domain(Image, Rectangle, IconTemp)
     
114. auto_threshold (IconTemp, Icon, 5)
     
115. * binary_threshold (IconTemp, Icon, 'smooth_histo', 'light', UsedThreshold)
     
116. connection (Icon, IconTemp)
     
117. fill_up(IconTemp, IconTemp)
     
118. select_shape (IconTemp, Icon, ['area','ratio','column','rectangularity'], 'and', [500,3,0,0.8], [999999,20,ImageWidth*0.95,1])
     
119. sort_region (Icon, IconTemp, 'upper_right', 'false', 'column')
     
120. select_obj(IconTemp, Icon, 1)
     
121. gen_contour_region_xld (Icon, IconTemp, 'border')
     
122. fit_rectangle2_contour_xld (IconTemp, 'regression', -1, 0, 0, 3, 2, Row, Column, Phi, Length1, Length2, PointOrder)
     
123. gen_rectangle2_contour_xld(Rect1, Row, Column, Phi, Length1, Length2)
     
124. get_rectangle2_points (Row, Column, Phi, Length1, Length2, CornerY, CornerX, LineCenterY, LineCenterX)
     
125. if( Phi<=0)
     
126.     XValue2 := LineCenterX[3]
     
127.     YValue2 := LineCenterY[3]
     
128.     XValue3 := LineCenterX[1]
     
129.     YValue3 := LineCenterY[1]  
     
130. else
     
131.     XValue2 := LineCenterX[1]
     
132.     YValue2 := LineCenterY[1]  
     
133.     XValue3 := LineCenterX[3]
     
134.     YValue3 := LineCenterY[3]   
     
135. endif
     
136. *下金手指中心线顶点到上金手指中心线的投影。
     
137. projection_pl(YValue2,XValue2,YValue,XValue,YValue1,XValue1,YValue1,XValue1)
     
138. *投影点到下金手指中心线距离
     
139. distance_pl(YValue1,XValue1,YValue2,XValue2,YValue3,XValue3,Distance)
     
140. if(|Distance|==0)
     
141.     return()
     
142. endif
     
143. *投影点在下金手指中心线右侧，表示上板要往左移，距离为负，反之则反
     
144. if(XValue1>XValue2)
     
145.     Distance := -Distance
     
146. endif
     
147. *显示结果
     
148. gen_contour_polygon_xld(LineXLD,[YValue,YValue1],[XValue,XValue1])
     
149. gen_contour_polygon_xld(LineXLD1,[YValue2,YValue3],[XValue2,XValue3])
     
150. gen_arrow_contour_xld(Arrow, YValue1, XValue1, YValue2, XValue2, 10, 10)
     
151. gen_arrow_contour_xld(Arrow1, YValue2, XValue2, YValue1, XValue1, 10, 10)
     
152. dev_display(Image1)
     
153. dev_set_line_width (2)
     
154. dev_set_draw ('margin')
     
155. dev_set_color('red')
     
156. dev_display(Rect)
     
157. dev_display(Rect1)
     
158. dev_set_color('magenta')
     
159. dev_display(LineXLD)
     
160. dev_display(LineXLD1)
     
161. dev_set_color('green')
     
162. dev_display(Arrow)
     
163. dev_display(Arrow1)
     
164. message := Distance
     
165. 
     
166. 
     
167. .3f'+'Pix'
     
168. get_string_extents(WindowHandle, message, Ascent, Descent, Width, Height)
     
169. dev_disp_text(message, 'image', YValue1-Height*2, XValue1, 'green', ['box'], ['false'])
     
170. 
     

复制代码

1. dev_close_window ()
   
2. read_image (Image1, '1.bmp')
   
3. dev_open_window_fit_image (Image1, 0, 0, -1, -1, WindowHandle)
   
4. dev_display (Image1)
   
5. get_image_size (Image1, ImageWidth, ImageHeight)
   
6. rgb1_to_gray (Image1, Image)
   
7. binary_threshold (Image, IconTemp, 'max_separability', 'light', UsedThreshold)
   
8. connection (IconTemp, Icon)
   
9. *筛选全部白色区域
   
10. select_shape (Icon, IconTemp, ['area','ratio','column'], 'and', [2000,3,0], [999999,20,ImageWidth*0.95])
    
11. *筛选上,下白色区
    
12. select_shape(IconTemp, Icon, 'row1', 'and', 0, 100)
    
13. difference (IconTemp, Icon, IconTemp2)
    
14. *处理上白色
    
15. union1 (Icon, IconTemp)
    
16. smallest_rectangle1 (IconTemp, Row, Column, Row1, Column1)
    
17. gen_rectangle1 (Rectangle, Row, Column, Row1/2, ImageWidth)
    
18. reduce_domain(Image, Rectangle, IconTemp)
    
19. binary_threshold (IconTemp, Icon, 'smooth_histo', 'dark', UsedThreshold)
    
20. 
    
21. connection (Icon, IconTemp)
    
22. select_shape (IconTemp, Icon, ['area','ratio','column','rectangularity'], 'and', [500,3,0,0.8], [999999,20,ImageWidth*0.95,1])
    
23. sort_region (Icon, IconTemp, 'upper_right', 'false', 'column')
    
24. select_obj(IconTemp, Icon, 1)
    
25. gen_contour_region_xld (Icon, IconTemp, 'border')
    
26. fit_rectangle2_contour_xld (IconTemp, 'regression', -1, 0, 0, 3, 2, Row, Column, Phi, Length1, Length2, PointOrder)
    
27. gen_rectangle2_contour_xld(Rect, Row, Column, Phi, Length1, Length2)
    
28. *提取矩形中心线为上参考线
    
29. get_rectangle2_points (Row, Column, Phi, Length1, Length2, CornerY, CornerX, LineCenterY, LineCenterX)
    
30. if( Phi&lt;=0)
    
31.     XValue := LineCenterX[3]
    
32.     YValue := LineCenterY[3]
    
33.     XValue1:= LineCenterX[1]
    
34.     YValue1:= LineCenterY[1]
    
35. else
    
36.     XValue := LineCenterX[1]
    
37.     YValue := LineCenterY[1]  
    
38.     XValue1:= LineCenterX[3]
    
39.     YValue1:= LineCenterY[3]
    
40. endif
    
41. 
    
42. *处理下白色区
    
43. union1 (IconTemp2, IconTemp)
    
44. smallest_rectangle1 (IconTemp, Row, Column, Row1, Column1)
    
45. *gen_rectangle1 (Rectangle, Row-(Row1-Row)*0.1, Column, Row1+(Row1-Row)*0.1, ImageWidth)
    
46. gen_rectangle1 (Rectangle, Row, Column, Row1, ImageWidth)
    
47. reduce_domain(Image, Rectangle, IconTemp)
    
48. auto_threshold (IconTemp, Icon, 5)
    
49. * binary_threshold (IconTemp, Icon, 'smooth_histo', 'light', UsedThreshold)
    
50. connection (Icon, IconTemp)
    
51. fill_up(IconTemp, IconTemp)
    
52. select_shape (IconTemp, Icon, ['area','ratio','column','rectangularity'], 'and', [500,3,0,0.8], [999999,20,ImageWidth*0.95,1])
    
53. sort_region (Icon, IconTemp, 'upper_right', 'false', 'column')
    
54. select_obj(IconTemp, Icon, 1)
    
55. gen_contour_region_xld (Icon, IconTemp, 'border')
    
56. fit_rectangle2_contour_xld (IconTemp, 'regression', -1, 0, 0, 3, 2, Row, Column, Phi, Length1, Length2, PointOrder)
    
57. gen_rectangle2_contour_xld(Rect1, Row, Column, Phi, Length1, Length2)
    
58. get_rectangle2_points (Row, Column, Phi, Length1, Length2, CornerY, CornerX, LineCenterY, LineCenterX)
    
59. if( Phi&lt;=0)
    
60.     XValue2 := LineCenterX[3]
    
61.     YValue2 := LineCenterY[3]
    
62.     XValue3 := LineCenterX[1]
    
63.     YValue3 := LineCenterY[1]  
    
64. else
    
65.     XValue2 := LineCenterX[1]
    
66.     YValue2 := LineCenterY[1]  
    
67.     XValue3 := LineCenterX[3]
    
68.     YValue3 := LineCenterY[3]   
    
69. endif
    
70. *下金手指中心线顶点到上金手指中心线的投影。
    
71. projection_pl(YValue2,XValue2,YValue,XValue,YValue1,XValue1,YValue1,XValue1)
    
72. *投影点到下金手指中心线距离
    
73. distance_pl(YValue1,XValue1,YValue2,XValue2,YValue3,XValue3,Distance)
    
74. if(|Distance|==0)
    
75.     return()
    
76. endif
    
77. *投影点在下金手指中心线右侧，表示上板要往左移，距离为负，反之则反
    
78. if(XValue1&gt;XValue2)
    
79.     Distance := -Distance
    
80. endif
    
81. *显示结果
    
82. gen_contour_polygon_xld(LineXLD,[YValue,YValue1],[XValue,XValue1])
    
83. gen_contour_polygon_xld(LineXLD1,[YValue2,YValue3],[XValue2,XValue3])
    
84. gen_arrow_contour_xld(Arrow, YValue1, XValue1, YValue2, XValue2, 10, 10)
    
85. gen_arrow_contour_xld(Arrow1, YValue2, XValue2, YValue1, XValue1, 10, 10)
    
86. dev_display(Image1)
    
87. dev_set_line_width (2)
    
88. dev_set_draw ('margin')
    
89. dev_set_color('red')
    
90. dev_display(Rect)
    
91. dev_display(Rect1)
    
92. dev_set_color('magenta')
    
93. dev_display(LineXLD)
    
94. dev_display(LineXLD1)
    
95. dev_set_color('green')
    
96. dev_display(Arrow)
    
97. dev_display(Arrow1)
    
98. message := Distance
    
99. 
    
100. 
     
101. .2f'+'pix'
     
102. get_string_extents(WindowHandle, message, Ascent, Descent, Width1, Height1)
     
103. dev_disp_text(message, 'image', YValue2-Height1*2, XValue2, 'green', ['box'], ['false'])
     

复制代码

.3f'+'Pix'
get_string_extents(WindowHandle, message, Ascent, Descent, Width, Height)
dev_disp_text(message, 'image', YValue1-Height*2, XValue1, 'green', ['box'], ['false'])

[/code][        DISCUZ_CODE_25        ]


.2f'+'pix'
get_string_extents(WindowHandle, message, Ascent, Descent, Width1, Height1)
dev_disp_text(message, 'image', YValue2-Height1*2, XValue2, 'green', ['box'], ['false'])
[/code]


.2f'+'pix'
get_string_extents(WindowHandle, message, Ascent, Descent, Width1, Height1)
dev_disp_text(message, 'image', YValue2-Height1*2, XValue2, 'green', ['box'], ['false'])
[/code]


.3f'+'Pix'
get_string_extents(WindowHandle, message, Ascent, Descent, Width, Height)
dev_disp_text(message, 'image', YValue1-Height*2, XValue1, 'green', ['box'], ['false'])

[/code][        DISCUZ_CODE_25        ]

---

欢迎光临 工控编程吧 (https://www.gkbc8.com/)

Powered by Discuz! X3.4