************************************************************************* *学习例程 measure_arc.hdev *date:2019/07/30 ************************************************************************* *读取图像 read_image (Image, 'zeiss1') dev_close_window () dev_open_window_fit_image (Image, 0, 0, -1, -1, WindowHandle) dev_display (Image) get_image_size (Image, Width, Height) ************************************************************************* *设置弧形 nRow := 275 nColumn := 335 nRadius := 107 nAngleStart := -rad(55) nAngleExtent := rad(170) *nAngleStart+nAngleExtent 弧形长度 *nRow 椭圆中心行坐标 *nColumn 椭圆中心列坐标 *nRadius 椭圆最长轴半径 *nRadius 椭圆最短轴半径 *RowPoint 输出点行坐标 *ColPoint 输出点列坐标 get_points_ellipse (nAngleStart+nAngleExtent, nRow, nColumn, 0, nRadius, nRadius, RowPoint, ColPoint) ***************************************************************************************************************** *绘制弧形线 dev_set_draw ('fill') dev_set_color ('green') dev_set_line_width (1) *RowPoint 开始点行坐标 *ColPoint 开始点列坐标 disp_arc (WindowHandle, nRow, nColumn, nAngleExtent, RowPoint, ColPoint) ***************************************************************************************************************** *提取垂直于环形的直边 *获取弧形测量句柄 *10 - 环空半径 <= nRadius gen_measure_arc (nRow, nColumn, nRadius, nAngleStart, nAngleExtent, 10, Width, Height, 'nearest_neighbor', MeasureHandle) *提取垂直于矩形或环形弧的直线边缘 *1-高斯平滑 *10-最低边缘振幅 *'all' - 由明-暗，或暗-明 *'all' - 端点选择 *Amplitude - 边缘振幅的边缘 measure_pos (Image, MeasureHandle, 1, 10, 'all', 'all', RowEdge, ColumnEdge, Amplitude, Distance) close_measure (MeasureHandle) gen_cross_contour_xld (Cross, RowEdge, ColumnEdge, 60, 0)
