*利用形状特征选择区域。
select_shape (ConnectedRegions, SelectedRegions, 'area', 'and', 10, 9999)
*计算圆形数量
count_obj (SelectedRegions, Number)
*选择第几个圆形
select_obj (SelectedRegions, ObjectSelected, 25)
*区域的面积和中心
area_center (SelectedRegions, Area, Row, Column)
*计算半径所有圆的半径
Radius:=sqrt(Area/3.1415926)