Delete an object at a given distance from a figure

Hello,

I generate many rod object on a area, I seek to delete some of them  which are at a given distance from another shapes drawing by a specific layer

Thank you for your help.

here my code:

procedure(delObjRulesSpac(cv rodList metalLayer spacingRule)
     let((direction rst)

         direction = '("top" "bottom" "right" "left")

         foreach(dir direction

             foreach(elem rodList

                  when(rodIsObj(elem)

                         when(elem~>dbId~>prop~>name == '("myProp") && elem~>dbId~>layerName == metalLayer

                                  rst = dbGetNeighbor(cv elem~>dbId~>bBox dir elem~>dbId~>layerName)

                                  when(rst

                                           dist = car(rst)

                                           when(dist < spacingRule  dbDeleteObject(elem~>dbId) )
                                )
                          )
                   )
            )
       )
  )
)

1) Init situation

2) my result

3) reslut hope