halcon.查找与点相连的线段

*获取所有线段的起始点
objIndex := []
contourRow1 := []
contourCol1 := []
contourRow2 := []
contourCol2 := []
count_obj (ContoursSplit2, ContoursSplitNumber)
for ContourIndex := 1 to ContoursSplitNumber by 1
    select_obj (ContoursSplit2, ObjectSelected, ContourIndex)
    get_contour_xld (ObjectSelected, RowTemp, ColTemp)
    tuple_length (ColTemp, Length3)
    P1Row := RowTemp[0]
    P1Col := ColTemp[0]
    
    P2Row := RowTemp[Length3 - 1]
    P2Col := ColTemp[Length3 - 1]
    
    tuple_concat (objIndex, ContourIndex, objIndex)
    tuple_concat (contourRow1, P1Row, contourRow1)
    tuple_concat (contourCol1, P1Col, contourCol1)
    tuple_concat (contourRow2, P2Row, contourRow2)
    tuple_concat (contourCol2, P2Col, contourCol2)
    
endfor

tuple_concat (objIndex, objIndex, objIndex)
tuple_concat (contourRow1, contourRow2, contourRowPoints)
tuple_concat (contourCol1, contourCol2, contourColPoints)

SelectObjeIndex := []
tuple_length (objIndex, Length4)
for Index := 0 to Length4 - 1 by 1
    for Index2 := 0 to |RowContain| - 1 by 1
       if(abs(contourRowPoints[Index] - RowContain[Index2]) < AbsDistance  and abs(contourColPoints[Index] - ColContain[Index2]) < AbsDistance)
           tuple_concat (SelectObjeIndex, objIndex[Index], SelectObjeIndex)
       endif 
    endfor
endfor

tuple_sort (SelectObjeIndex, Sorted)
tuple_uniq (Sorted, ConnectContoursIndex)
return ()

原理是找出所有线段的起始点，与给定的点相比较，最后获得与点相连的线段的index