****************************通过画线取点*****************************
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)