(defun c:breakpoint (/ object point) ;Breaks object at a point;
     (setq object (entsel)) ;Set the first variable;
   (princ "Specify Break Point: ") ;Set the request that you want on screen;
   (setq point (getpoint)) ;Set the second variable;
(command "_break" object "f" point point)) ;insert the command that you are working with;