哪位高手帮我改一个批量偏移的命令啊！谢谢了！

(DEFUN C:111 ()
(SETVAR "CMDECHO" 0)
(PRINC "图层属性至8")(PRINC)
(SETQ SS(SSGET))
(COMMAND "OFFSET" (setq d (getreal "\n输入偏移距离:")) ss"m" ))
哪位高手帮我改下
1。能重复上次操作
2.能看到上次偏移数值