****************************通过画线取点*****************************

read_image (Image, 'C:/Users/研发/Pictures/Saved Pictures/1.png')

*在窗口画一条线

draw_line(3600, Row1, Column1, Row2, Column2)

Row:= [Row1,Row2]

Col:=[Column1,Column2]

*保存至本地

write_tuple(Row, 'C:/Users/研发/Desktop/Row.tup')

write_tuple(Col,'C:/Users/研发/Desktop/Col.tup')



*****************通过点进一步定位取点并拟合直线**********************

read_image (Image, 'C:/Users/研发/Pictures/Saved Pictures/1.png')

get_image_size (Image, Width, Height)

dev_set_draw ('margin')

*从本地读取点坐标

read_tuple('C:/Users/研发/Desktop/Row.tup',Row)

read_tuple('C:/Users/研发/Desktop/Col.tup',Col)