I have one remark ab this Gile's function :
(defun gile ( internalPoint layerName )
(if (setq ss
(ssget
"_F"
(list internalPoint (getvar 'extmin))
(list '(0 . "lwpolyline") (cons 8 layerName) '(-4 . "&") '(70 . 1))
)
)
(sssetfirst nil (ssadd (ssname ss 0)))
)
(princ)
)
Please, test it on posted DWG, and look into picture... So it's the fastest, but it's wrong...
Regards...