一、直线垂直线的计算
1、函数源码
dev_close_window ()
dev_open_window (0, 0, 400, 400, 'black', WindowHandle)
draw_line (WindowHandle, Row1, Col1, Row2, Col2)
*获取直线角度
gen_region_line (RegionLines2, Row1, Col1, Row2, Col2)
gen_contour_region_xld (RegionLines2, Contours, 'border')
elliptic_axis_points_xld (Contours, Ra3, Rb3, Phi)
*获取直线中点
area_center_points_xld (Contours, Area4, RowCenter, ColCenter)
*垂线长度
LineLength:=200
*起点
RowStart := RowCenter-cos(Phi)*LineLength
ColStart := ColCenter-sin(Phi)*LineLength
*终点
RowEnd := RowCenter+cos(Phi)*LineLength
ColEnd := ColCenter+sin(Phi)*LineLength
gen_region_line (Line1, RowStart, ColStart, RowEnd, ColEnd)
2、计算效果
二、直线延长线的计算
1、函数源码
dev_close_window ()
dev_open_window (0, 0, 700, 700, 'black', WindowHandle)
draw_line (WindowHandle, Row1, Col1, Row2, Col2)
*获取直线角度
gen_region_line (RegionLines2, Row1, Col1, Row2, Col2)
gen_contour_region_xld (RegionLines2, Contours, 'border')
elliptic_axis_points_xld (Contours, Ra3, Rb3, Phi)
*获取直线中点
area_center_points_xld (Contours, Area4, RowCenter, ColCenter)
***********************生成延长线*************************
*延长线长度
LineLength:=1100
*起点
RowStart := RowCenter-cos(Phi+1.5708)*LineLength
ColStart := ColCenter-sin(Phi+1.5708)*LineLength
*终点
RowEnd := RowCenter-cos(Phi-1.5708)*LineLength
ColEnd := ColCenter-sin(Phi-1.5708)*LineLength
gen_region_line (Line2, RowStart, ColStart, RowEnd, ColEnd)
dev_display (Line2)
2、计算效果
注: elliptic_axis_points_xld获取直线的角度较line_orientation和line_position求直线角度而言,计算出的延长线精度会更高,可以自行验证,其他角度计算方法可以参考我的博文:[Halcon] 直线中点、端点和角度的计算
戳戳小手帮忙点个免费的赞和关注吧,嘿嘿。 |