Quickly remove Objects on Block with swept selected object

[traiduong014969]

I usually do with block in drawings. I see that ''REFEDIT'' command  choosing  can also work but it takes longer time, so can someone help me a lisp to result this problem. Thanks all

[TomBeauford]

See also: https://www.cadtutor.net/forum/topic/73634-quickly-remove-objects-on-block-with-swept-selected-objec...