(defun c:ofs (/ dc sl ds sc m) (vl-load-com)
  (if (and (ssget) (setq dc (vlax-get (vlax-get-acad-object) 'activedocument)
        sl (vla-get-activeselectionset dc) ds (getdist "\nOffset dist:")))
    (progn (initget "y n")
      (if (setq sc (getkword "\nDelete object(s) [Yes/No] <No>?:"))
        (progn (vla-startundomark dc)
          (vlax-for m sl (vla-offset m ds) (if (= sc "y") (vla-delete m)))
          (vla-endundomark dc) (vla-delete sl)
        )
      )
    )
  ) (prin1)
)

(initget "y n")
(setq sc (cond ((getkword "\nDelete object(s) [Yes/No] <No>?:")) ("No")))