This lisp will offset selected entity to the current layer:
(defun c:ol (/ lr tmp) ; Offset to layer
(setvar “CMDECHO” 1)
(command “offset” pause pause pause “”)
(setq lr (getvar “CLAYER”))
(setq tmp (getstring (strcat “Offset to layer <” lr “> :”)))
(if (/= tmp “”)
(setq lr tmp)
)
(command “change” “l” “” “p” “la” lr “”)
(princ)
)
