(defun c:seg (/ bobj bobjp)
(while T
(setq bobj (entsel "\nSelect object to break: ") bobjp (getpoint "\nPick point to break at: "))
(command ".Break" bobj "F" bobjp bobjp))
(setq bobj nil bobjp nil)
)