;;;Relative offset by distance
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 4-28-96
;;;>		   EDITED: 08-18-1999
;;;
(defun c:rof ()
  (setvar "cmdecho" 0)
  (setq ofent (entsel "Select entity to offset"))
  (setq ofside (upoint 1 "" "Side to offset to" nil nil))
  (while
    (setq ofdist (ureal 0 "" "Offset distance" nil))
    (command ".offset" ofdist ofent ofside "")
  )
)