直接上代码
read_image (Image, 'D:/Desktop/000052-1.jpg')
PointRow := [864.121, 5269.88]
PointColumn := [3774.94, 3776.95]
*画线
gen_contour_polygon_xld (DrawYellow, PointRow, PointColumn)
Column:=[1184.43, 1182.63, 1147.13, 1162.04]
tuple_min(PointColumn,PointColumnMin)
tuple_min(Column,ColumnMin)
if(PointColumnMin> ColumnMin)
Result := 'NG'
endif 因篇幅问题不能全部显示，请点此查看更多更全内容