Replacing this line:
(setq bl (ssname (ssget v '((0 . "INSERT") (66 . 1))) 0))
With:
(setq bl
(ssname
(ssget
"_X"
(list
'(0 . "INSERT")
'(66 . 1)
'(-4 . "<,<,*")
(list 10 (+ (car v) 1e-6) (+ (cadr v) 1e-6) 0.0)
'(-4 . ">,>,*")
(list 10 (- (car v) 1e-6) (- (cadr v) 1e-6) 0.0)
)
)
0
)
)
May solve all issues I have mentioned. But the program will probably be slower.
BTW: there actually is an entity in the center of the circle.