【测量篇】（4）2D测量（计量）

*---------------创建测量线模型------------* 创建计量模型数据结构create_metrology_model (MetrologyHandle)*图像大小是预先设置的，以加快第一次调用apply_metrology_modelset_metrology_model_image_size (MetrologyHandle, Width, Height)* 确定计量线对象的参数LineRow1 := [155,155]LineColumn1 := [400,400]LineRow2 := [290,290]LineColumn2 := [230,570]Tolerance := 20* * 增加两个线模型，并设置参数add_metrology_object_line_measure (MetrologyHandle, LineRow1, LineColumn1, LineRow2, LineColumn2, Tolerance, 10, 1, 20, [], [], Index1)
*---------------设置测量ROI，设置计量模型参考坐标系------------* 创建匹配感兴趣区域gen_rectangle1 (Rectangle, LineRow1[0] - 40, LineColumn1[0] - 50, LineRow1[0] + 20, LineColumn1[0] + 50)*更改计量模型的参考坐标系reduce_domain (Image, Rectangle, ImageReduced)threshold (ImageReduced, Region, 128, 255)get_region_points (Region, Rows, Columns)set_metrology_model_param (MetrologyHandle, 'reference_system', [Rows[0],Columns[0],0])

*将当前测量对象对齐计量模型    *在应用apply_metrology_model之前需要调用此算子    align_metrology_model (MetrologyHandle, Rows[0], Columns[0], 0)        *应用计量对象模型    * 定位计量对象的边缘    apply_metrology_model (Image, MetrologyHandle)        *得到计量结果    *获取两条线的始终坐标    get_metrology_object_result (MetrologyHandle, 'all', 'all', 'result_type', 'all_param', LineParameter)       *计算夹角    *计算两条线之间的夹角    angle_ll (LineParameter[0], LineParameter[1], LineParameter[2], LineParameter[3], LineParameter[4], LineParameter[5], LineParameter[6], LineParameter[7], Angle)    Angle := deg(Angle)

*公众号：机器视觉那些事儿*1. 算法功能：测量钻石边缘的夹角*2. 算法思路：*      （1）初始化*             *读图，提取ROI区域图像*             *创建测量线模型*             *设置测量ROI，设置计量模型参考坐标系*      （2）应用计量对象，得到测量结果*             *显示初始化*             *将当前测量对象与计量模型对齐*             *应用计量对象模型*             *得到计量结果*             *计算夹角*      （3）结果显示*             *可视化轮廓线*             *可视化线夹角圆弧*             *可视化测量区域
* --------------- （1）初始化-----------------------
*---------------显示初始化------------* 初始化显示参数dev_update_off ()dev_close_window ()read_image (Image, 'diamond/diamond_01')dev_open_window_fit_image (Image, 0, 0, -1, -1, WindowHandle)set_display_font (WindowHandle, 16, 'mono', 'true', 'false')get_image_size (Image, Width, Height)
*---------------创建测量线模型------------* 创建计量模型数据结构create_metrology_model (MetrologyHandle)*图像大小是预先设置的，以加快第一次调用apply_metrology_modelset_metrology_model_image_size (MetrologyHandle, Width, Height)* 确定计量线对象的参数LineRow1 := [155,155]LineColumn1 := [400,400]LineRow2 := [290,290]LineColumn2 := [230,570]Tolerance := 20* * 增加两个线模型，并设置参数add_metrology_object_line_measure (MetrologyHandle, LineRow1, LineColumn1, LineRow2, LineColumn2, Tolerance, 10, 1, 20, [], [], Index1)
*---------------设置测量ROI，设置计量模型参考坐标系------------* 创建匹配感兴趣区域gen_rectangle1 (Rectangle, LineRow1[0] - 40, LineColumn1[0] - 50, LineRow1[0] + 20, LineColumn1[0] + 50)*更改计量模型的参考坐标系reduce_domain (Image, Rectangle, ImageReduced)threshold (ImageReduced, Region, 128, 255)get_region_points (Region, Rows, Columns)set_metrology_model_param (MetrologyHandle, 'reference_system', [Rows[0],Columns[0],0])* * 主循环* for I := 1 to 5 by 1    *---------------（2）应用计量对象，得到测量结果------------        *读图，提取ROI区域图像    read_image (Image, 'diamond/diamond_' + I$'02')    * 粗略地分割钻石顶部位置    reduce_domain (Image, Rectangle, ImageReduced)    threshold (ImageReduced, Region, 128, 255)        *将当前测量对象与计量模型对齐    *提取钻石顶部区域点坐标    get_region_points (Region, Rows, Columns)    *将当前测量对象对齐计量模型    *在应用apply_metrology_model之前需要调用此算子    align_metrology_model (MetrologyHandle, Rows[0], Columns[0], 0)        *应用计量对象模型    * 定位计量对象的边缘    apply_metrology_model (Image, MetrologyHandle)        *得到计量结果    *获取两条线的始终坐标    get_metrology_object_result (MetrologyHandle, 'all', 'all', 'result_type', 'all_param', LineParameter)       *计算夹角    *计算两条线之间的夹角    angle_ll (LineParameter[0], LineParameter[1], LineParameter[2], LineParameter[3], LineParameter[4], LineParameter[5], LineParameter[6], LineParameter[7], Angle)    Angle := deg(Angle)
    *  --------------- （3）结果显示-----------------------        *可视化轮廓线    * 得到结果线轮廓    get_metrology_object_result_contour (ResultContour, MetrologyHandle, 'all', 'all', 1.5)    *计算线交点    intersection_lines (LineParameter[0], LineParameter[1], LineParameter[2], LineParameter[3], LineParameter[4], LineParameter[5], LineParameter[6], LineParameter[7], Row, Column, IsOverlapping1)    * 计算两条线的方向    line_orientation (LineParameter[0], LineParameter[1], LineParameter[2], LineParameter[3], Orientation1)    if (Orientation1 > 0)        Orientation1 := Orientation1 - rad(180)    endif    line_orientation (LineParameter[4], LineParameter[5], LineParameter[6], LineParameter[7], Orientation2)    *     *可视化线夹角    * 可视化两条线之间的角度    *生成线之间的夹角圆弧    gen_circle_contour_xld (ContCircle, Row, Column, 100, Orientation1, Orientation2, 'positive', 1)        *可视化测量区域    *获取到测量区域和测量点    get_metrology_object_measures (Contour, MetrologyHandle, 'all', 'all', MRow, MColumn)    gen_cross_contour_xld (Cross, MRow, MColumn, 6, rad(45))        * 显示所有内容    dev_display (Image)    dev_set_line_width (1)    dev_set_color ('yellow')    dev_display (Contour)    dev_display (Cross)    dev_set_line_width (2)    dev_set_color ('green')    dev_display (ResultContour)    dev_set_color ('blue')    dev_display (ContCircle)    disp_message (WindowHandle, 'Angle = ' + Angle$'.5' + '°', 'window', 12, 12, 'black', 'true')    if (I < 5)        disp_continue_message (WindowHandle, 'black', 'true')    endif    stop ()endfor* 释放内存clear_metrology_model (MetrologyHandle)