Here is another one point pick that uses crosshair ILO pick box.
;; Break at pick point with cross hair
;; Pick point is osnaps sensitive, can cause selection
;; of wrong object or point, press F3 if needed
(defun c:bk (/ pt ent)
(and (setq pt (getpoint "\nPick point to break Object: "))
(setq ent (nentselp pt))
(command ".break" ent "non" pt))
(princ)
)