(defun c:of (/ a )
(terpri)
(setvar "cmdecho" 1)
(setvar "menuecho" 0)
(setq a (entsel "select object to offset:"))
(command "offset" pause a pause "")
(command "erase" a "")
)



(DEFUN C:OfF()
(SETQ NUM(GETDIST "\nENTER OFFSET NUMBER( * / 2):"))
(SETQ NUM(/ NUM 2))
(COMMAND "OFFSET"NUM)
)