HALCON示例程序measure_circles.hdev測量圓的半徑

示例程序源碼（加注釋）

• 關于顯示類函數解釋
  dev_update_off ()
  read_image (Image, ‘circle_plate’)
  get_image_size (Image, Width, Height)
  dev_close_window ()
  dev_open_window (0, 0, Width / 2, Height / 2, ‘light gray’, WindowID)
  dev_set_part (0, 0, Height - 1, Width - 1)
  dev_set_line_width (3)
  dev_set_color (‘white’)
  dev_set_draw (‘margin’)
  dev_display (Image)
  set_display_font (WindowID, 14, ‘mono’, ‘true’, ‘false’)
  disp_continue_message (WindowID, ‘black’, ‘true’)
  stop ()
  dev_set_colored (12)
  dev_set_line_width (2)
  dev_set_draw (‘fill’)
• 快速閾值分割，分割連通域，使用面積進行區域篩選，快速篩選出測量區域。
  fast_threshold (Image, Region, 200, 255, 20)
  connection (Region, ConnectedRegions)
  select_shape (ConnectedRegions, SelectedRegions, ‘area’, ‘and’, 70, 50000)
  dev_display (Image)
  dev_display (SelectedRegions)
  disp_continue_message (WindowID, ‘black’, ‘true’)
  stop ()
• 求取邊緣，膨脹，縮減定義域，求取邊緣，分割邊緣，篩選邊緣
  boundary (SelectedRegions, RegionBorder, ‘inner_filled’)
  dilation_circle (RegionBorder, RegionDilation, 3.5)
  union1 (RegionDilation, RegionUnion)
  reduce_domain (Image, RegionUnion, ImageReduced)
  dev_clear_window ()
  dev_display (ImageReduced)
  disp_continue_message (WindowID, ‘black’, ‘true’)
  stop ()
  edges_sub_pix (ImageReduced, Edges, ‘canny’, 1.5, 10, 40)
  segment_contours_xld (Edges, ContoursSplit, ‘lines_circles’, 5, 2, 2)
  select_contours_xld (ContoursSplit, SelectedContours, ‘contour_length’, 25, 99999, -0.5, 0.5)
  count_obj (SelectedContours, NumberContours)
  gen_empty_obj (Circles)
  for i := 1 to NumberContours by 1
  select_obj (SelectedContours, ObjectSelected, i)
  • get_contour_global_attrib_xld - 返回XLD輪廓的全局屬性值。cont_approx是橢圓還是圓形？
  • get_contour_global_attrib_xld（輪廓::屬性：屬性值）
    get_contour_global_attrib_xld (ObjectSelected, ‘cont_approx’, Attrib)
    if (Attrib == 1)
    concat_obj (Circles, ObjectSelected, Circles)
    endif
• 結束循環
  endfor
• 合并屬于一個圓形的輪廓
  union_cocircular_contours_xld (Circles, UnionContours, rad(60), rad(10), rad(30), 100, 50, 10, ‘true’, 1)
  dev_clear_window ()
  dev_set_color (‘black’)
  dev_display (UnionContours)
  disp_continue_message (WindowID, ‘black’, ‘true’)
  stop ()
  count_obj (UnionContours, NumberCircles)
  CenterRow := []
  CenterColumn := []
  dev_clear_window ()
  dev_set_color (‘black’)
  set_display_font (WindowID, 12, ‘mono’, ‘true’, ‘false’)
  dev_display (SelectedContours)

for i := 1 to NumberCircles by 1
select_obj (UnionContours, ObjectSelected, i)
* 擬合圓形
fit_circle_contour_xld (ObjectSelected, ‘algebraic’, -1, 0, 0, 3, 2, Row, Column, Radius, StartPhi, EndPhi, PointOrder)
gen_circle_contour_xld (ContCircle, Row, Column, Radius, 0, rad(360), ‘positive’, 1.5)
dev_set_color (‘white’)
dev_display (ContCircle)
if (i == 1)
Row2 := Row + Radius * sin(rad(-45))
Column2 := Column + Radius * cos(rad(-45))
set_tposition (WindowID, Row2 - 35, Column2 + 5)
endif
if (i > 1)
exist := 0
for j := 0 to i - 2 by 1
distance_pp (Row, Column, CenterRow[j], CenterColumn[j], DistanceCenters)
if (DistanceCenters < 20)
exist := 1
endif
endfor
if (exist == 1)
Row2 := Row + Radius * sin(rad(-135))
Column2 := Column + Radius * cos(rad(-135))
set_tposition (WindowID, Row2 - 40, Column2 - 30)
else
Row2 := Row + Radius * sin(rad(-45))
Column2 := Column + Radius * cos(rad(-45))
set_tposition (WindowID, Row2 - 35, Column2 + 5)
endif
endif
disp_arrow (WindowID, Row, Column, Row2, Column2, 2)
write_string (WindowID, i)
if (i < 8)
disp_message (WindowID, ‘R’ + i + ’ = ’ + Radius${}^{\prime }.4^{\prime }{,}^{\prime }windo{w}^{\prime },i?20,130{,}^{\prime }blac{k}^{\prime }{,}^{\prime }fals{e}^{\prime })elsedis{p}_{m}essage(WindowID{,}^{\prime }{R}^{\prime }+i{+}^{\prime }{=}^{\prime }+Radius$’.4’, ‘window’, (i - 7) * 20, 400, ‘black’, ‘false’)
endif
CenterRow := [CenterRow,Row]
CenterColumn := [CenterColumn,Column]
endfor
dev_update_window (‘on’)

處理思路

這個例子是主要講解了distance_transform算子的應用。

后記
大家有什么問題可以向我提問哈，我看到了第一時間回復，希望在學習的路上多多結交良師益友。