* draw_line (3600, Row11, Column11, Row21, Column21)
Row11:=1168.63385826772
Column11:=934.322404371585
Row12:=1280.58267716535
Column12:=1233.27322404372
* draw_rectangle2 (3600, Row8, Column8, Phi1, Length11, Length21)
*画矩形区域
Row3:=1102.91534391534
Column3:=1147.70890410959
Phi:=-0.00704511346154341
Length1:=161.566450190189
Length2:=210.480410797902

*生成矩形和线区域
gen_region_line (RegionLines1, Row1, Column1, Row2, Column2)
gen_region_line (RegionLines2, Row11, Column11, Row12, Column12)
* gen_rectangle2 (Rectangle, Row3, Column3, Phi, Length1, Length2)
*裁剪
* reduce_domain (ImageEmphasize, Rectangle, ImageReduced)
*将有值的区域以最小外界正矩形的方式返回
* crop_domain (ImageReduced, ImagePart)
*旋转模板到水平
* rotate_image (ImagePart, ImageRotate, -deg(Phi), 'constant')
*创建形状模板
* create_shape_model (ImageRotate, 'auto', -0.39, 0.79, 'auto', 'auto', 'use_polarity', 'auto', 'auto', ModelID)
read_shape_model ('D:/VisionControl/shmFiles/CreateShapeModel20231026150909.shm', ModelID)
list_files ('D:/图像文件/7.10/Two', 'files', Files)
for Index := 0 to |Files|-1 by 1
    read_image (Image1, Files[Index])
    *图像增强便于画线
    emphasize (Image1, ImageEmphasize, 15, 15, 1)
    *形状匹配
    find_shape_model (Image1, ModelID, -0.39, 0.78, 0.5, 1, 0.5, 'least_squares', 0, 0.9, Row, Column, Angle, Score)
    *创建一个初始化矩阵
    hom_mat2d_identity (HomMat2D)
    if (Row!=[])
            *从点和角度计算刚性仿射变换，找出模板和卡尺工具的对应关系
    vector_angle_to_rigid (Row3, Column3, Angle, Row, Column, Angle, HomMat2D)
    affine_trans_point_2d (HomMat2D, [Row1,Row2],[Column1,Column2], QRow, QCol)
    affine_trans_point_2d (HomMat2D, [Row11,Row12],[Column11,Column12], QRow1, QCol1)
*     gen_region_line (RegionLines2, Qx[0],Qy[0],Qx[1],Qy[1])

    *创建卡尺工具,设置参数
    create_metrology_model (MetrologyHandle1)
    create_metrology_model (MetrologyHandle2)
    add_metrology_object_line_measure (MetrologyHandle1, QRow[0],QCol[0],QRow[1],QCol[1], 20, 5, 1, 30, [], [], Index3)
    add_metrology_object_line_measure (MetrologyHandle2, QRow1[0],QCol1[0],QRow1[1],QCol1[1], 20, 5, 1, 30, [], [], Index4)