Segment Over Voids

Hi,

I would like to find segment over void (Static shapes) xy location. can anyone please guide me to complete it.

procedure(sovchk()
All_shapes = axlDBGetShapes("ETCH")
All_shapes = setof(el All_shapes el->shapeBoundary != nil)
axlClearSelSet()
axlSetFindFilter(?enabled '("NOALL", "CLINES"), ?onButtons "CLINES")
Clineid = axlGetSelSet(axlAddSelectAll())
foreach(All_shapes_lp All_shapes
foreach(Clineid_lp Clineid
poly1_list = axlPolyFromDB(Clineid_lp)
poly2_list = axlPolyFromDB(All_shapes_lp)
res_list = axlPolyOperation(poly1_list poly2_list 'AND)
print(res_list->xy)
)
)
)