원과 접하지 않는 외부 객체를 삭제하며 걸치는 객체는 도면층이 달라지게 하는 Lisp이 있을까요?

vietaman 님께서 원과 접하지 않는 외부 객체를 삭제하는 Lisp을 만들어 주셨는데..
원과 겹치는 객체만 레이어를 다르게 해야 하는 경우가 발생하고 말았습니다.  ㅜㅜ

vietman님의 Lisp으로도 업무량이 많이 줄었는데.. 레이어까지 변경이 되면 많은 도움이 될꺼 같아 기존 Lisp 수정 가능한지 부탁 드립니다.



—————————————————————————————————-
기존 문의 사항..
http://revit.gocad.co.kr/?mid=qa_cad&document_srl=2938592&page=7
—————————————————————————————————-