点到直线和点到直线延长线的距离】"/>

【Halcon 计算点到直线和点到直线延长线的距离】

Halcon 计算点到直线和点到直线延长线的距离

提示：Halcon计算点到直线的距离、（验证精度）点到直线延长线的距离

前言

实际项目进展过程中会应用到，计算直线与直线，点与直线距离计算，偶然发现，相同的计算条件，采取计算方式不同，得取的结果会存在偏差。以下仅供参考，讨论，具体哪种方式更加合理，有待讨论。

提示：以下是本篇文章正文内容，下面案例可供参考

一、点到直线的距离

计算点到直线的距离：140.828753

*获取窗口句柄
dev_get_window (WindowHandle)dev_set_color ('yellow')
*绘制点
draw_point (WindowHandle, Row2, Column2)gen_cross_contour_xld (Cross2, Row2, Column2, 6, 0.785398)dev_set_color ('blue')*绘制直线
draw_line (WindowHandle, Row11, Column11, Row21, Column21)*Store input lines as regions.
gen_region_line (RegionLines, Row11, Column11, Row21, Column21)* Calculate the center of gravity, length, and orientation of a line.
line_position (Row11, Column11, Row21, Column21, RowCenter, ColCenter, Length, Phi1)*计算点和线之间的距离
distance_pl (Row2, Column2, Row11, Column11, Row21, Column21, Distance1)disp_message (WindowHandle, Distance1, 'window', RowCenter, ColCenter, 'red', 'true')stop ()

二、点到直线延长线的距离

计算点到直线延长线的距离：141.145246

*获取窗口句柄
dev_get_window (WindowHandle)dev_set_color ('yellow')
*绘制点
draw_point (WindowHandle, Row2, Column2)gen_cross_contour_xld (Cross2, Row2, Column2, 6, 0.785398)dev_set_color ('blue')*绘制直线
draw_line (WindowHandle, Row11, Column11, Row21, Column21)*Store input lines as regions.
gen_region_line (RegionLines, Row11, Column11, Row21, Column21)* Calculate the center of gravity, length, and orientation of a line.
line_position (Row11, Column11, Row21, Column21, RowCenter, ColCenter, Length, Phi1)gen_contour_region_xld (RegionLines, LinesContours, 'border')elliptic_axis_points_xld (LinesContours, Ra3, Rb3, Phi)*获取直线中点
area_center_points_xld (LinesContours, LinesArea, LinesRowCenter, LinesColCenter)***********************生成延长线**************************延长线长度 
LineLength:=1000*起点
NewRowStart := LinesRowCenter-cos(Phi+1.5708)*LineLength
NewColStart := LinesColCenter-sin(Phi+1.5708)*LineLength*终点
NewRowEnd := LinesRowCenter-cos(Phi-1.5708)*LineLength
NewColEnd := LinesColCenter-sin(Phi-1.5708)*LineLengthgen_region_line (NewLine, NewRowStart, NewColStart, NewRowEnd, NewColEnd)dev_display (NewLine)distance_pl (Row2, Column2, NewRowStart, NewColStart, NewRowEnd, NewColEnd, Distance)disp_message (WindowHandle, Distance, 'window', RowCenter, ColCenter, 'red', 'true')stop ()

总结

提示：仅供参考

此测试，仅供验证测量方式的精度，如您有更合理的方式计算，还请提出更正建议。