测量宽度（标定像素）

*从网上摘得程序，然后自己学习注释，若有问题，可指出。谢谢！！！**

*测量多少个像素

read_image (Image, 'C:/Users/fengkuixiang/Desktop/22.jpg')
*读取图像

get_image_size (Image, Width, Height)

dev_close_window()

dev_open_window (0, 0,400,500, 'black', WindowHandle)

dev_set_draw ('margin')
*设置所画的区域，若'fill'是一个面，'margin'是轮廓

dev_set_color ('black')
*设置画的颜色

rgb1_to_gray(Image,ImageGray)
*彩色RGB图像变成灰度图像

dev_display(ImageGray)

*设置ROI

row := 438
column := 262
*注意row和column是矩形的中心,需要自己调整

angle := rad(90)
*这个是矩形旋转的角度，角度是正的按逆时针转，负的按顺时针转

length1 := 450

length2 := 10
*在length1<length2的情况下，measure——pairs没有值，不管怎样调整参数。
*length1和length2是矩形的两个半轴的长，明白了这个下面在计算多边形轮廓的时候要用到
*注意这里的矩形框的参数是自己调整的

gen_rectangle2 (Rectangle, row, column, angle, length1, length2)
*运算符gen_rectangle2生成了一个或多个矩形，它们的中心(行、列)、方向和半边缘长度
*分别为Length1和Length2。方位用圆弧表示，表示横轴和纵长之间的角度

gen_measure_rectangle2 (row, column, angle, length1,length2, Width, Height, 'nearest_neighbor', MeasureHandle1)
*负责提取与矩形主轴垂直的直线边缘。在参数行和列中传递矩形的中心，
*矩形的主轴方向，以及两个轴的长度，即它的直径是长方形的一半，length1,length2,。
 
disp_continue_message (WindowHandle, 'black', 'true')
*此过程在屏幕右下角以给定颜色显示“单击”运行“以继续”。
*如果参数框设置为“true”，文本将写入一个白盒中，这对于不规则背景非常有用。
 
stop()

measure_pairs (Image, MeasureHandle1, 1, 132, 'all', 'all', RowEdgeFirst, ColumnEdgeFirst, AmplitudeFirst, RowEdgeSecond, ColumnEdgeSecond, AmplitudeSecond, IntraDistance, InterDistance)
*measure_pair的作用是提取垂直于长方形或环形圆弧主轴的直线边缘对。
* '1'表示σ的高斯平滑，‘132’最低边缘幅度，‘all’确定边缘如何分组到边缘对的灰度值转换的类型，
*第一个检测到的edge定义了RowEdgeFirst和ColumnEdgeFirst的Transition即根据测量对象的位置，
*返回具有明暗转换的边缘对或具有暗明暗转换的边缘对。‘all’如果Select设置为“all”，则返回所有
*边缘对。如果将其设置为“first”，则只返回提取的边缘对中的第一个，而将其设置为“last”，则只
*返回最后一个。

disp_continue_message (WindowHandle, 'black', 'true')

stop()

*可视化结果

*根据分组的个数，来画线，这个个数就是RowEdgeFirst组的个数，也就是边缘的个数

for i := 0 to |RowEdgeFirst|-1 by 1    

    *这个算子是画出多边形的亚像素轮廓，其中第二个和第三个参数可以是元素，即表示有多个点，两个点组成一条直线

    *至于每一个点是怎么计算的，我们已经知道了旋转的角度和每一条边的中心点，这个大家自己就可以在纸上用三角函数得出来每一个开始结束点

    *的坐标了

    gen_contour_polygon_xld ( EdgeFirst, [RowEdgeFirst[i] - sin(rad(90) - angle)*length2,RowEdgeFirst[i] + sin(rad(90) - angle)*length2], [ColumnEdgeFirst[i] - cos(rad(90) - angle)*length2,ColumnEdgeFirst[i] + cos(rad(90) - angle)*length2])
*从元组行中给出的多边形生成XLD轮廓轮廓
    
    gen_contour_polygon_xld (EdgeSecond, [RowEdgeSecond[i] - sin(rad(90) - angle)*length2,RowEdgeSecond[i] + sin(rad(90) - angle)*length2], [ColumnEdgeFirst[i] - cos(rad(90) - angle)*length2,ColumnEdgeFirst[i] + cos(rad(90) - angle)*length2])

    dev_set_color ('blue')

    dev_display (EdgeFirst)

    dev_set_color ('red')

    dev_display (EdgeSecond)

    dev_set_color ('blue')

    *这是设置文本在那里显示

    if (i = 0)

        set_tposition (WindowHandle, 50 , 20)

    else

        set_tposition (WindowHandle, RowEdgeFirst[i] + 40, ColumnEdgeFirst[i]+20)
*后面两个值是显示的位置，同上可以修改
        
    endif

    write_string (WindowHandle, 'width: '+IntraDistance[i]+' pix')
 *从文本显示的地方写入字符串，写出像素
 
endfor

disp_continue_message (WindowHandle, 'black', 'true')

stop ()

close_measure (MeasureHandle1)
* 销毁

dev_update_window ('on')
*dev_update_window指定操作符调用返回的所有图标
*对象是否必须显示在活动图形窗口中(DisplayMode = 'on'---默认)
*或不显示(DisplayMode = 'off')。