;;;breaks selected object at the point you pick
(defun c:bb (/ object breakpoint)
 (terpri)
 (setq object (entsel))
 (setq breakpoint (getpoint "pick  breakpoint "))
  (command "break" object "f" breakpoint "@")
 (princ)
)