一、直线垂直线的计算
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] 直线中点、端点和角度的计算
| 戳戳小手帮忙点个免费的赞和关注吧，嘿嘿。 |
