针尖角度调整

针尖角度调整

list_image_files ('D:/01 工程项目/others/视觉项目/样图/针角度调整样图/原图', 'default', [], ImageFiles)
tuple_length (ImageFiles, Length)

for Index4 := 0 to Length-1 by 1
    read_image (Image, ImageFiles[Index4])
    
        rgb1_to_gray (Image, GrayImage)
    
    threshold (GrayImage, Region1, 0, 128)
    
    *针尖点
    closing_circle (Region1, RegionClosing1, 33.5)
    
    connection (RegionClosing1, ConnectedRegions)
    
    select_shape_std (ConnectedRegions, SelectedRegions1, 'max_area', 70)
    
    gen_contour_region_xld (SelectedRegions1, Contours, 'border')
    
    get_contour_xld (Contours, Row3, Col2)
    
    tuple_max (Col2, Max1<