(defun C:bb (/ ss newpoint goodpoint)
    (graphscr)
    (prompt "\nselect entities to move (all): ")
    (setq ss (ssget));asks for selection
    (setq newpoint (getpoint "\nPick new basepoint"))
    (setq goodpoint(subst 0.0 (nth 2 newpoint) newpoint))
    (print goodpoint)
    (command "._move" ss "" "_non" goodpoint "_non" "0,0,0")
)