请求完善下面程序，把块也能进行多重偏移，谢谢！

cxs259

;;多重偏移
(defun c:test ()
(setvar "cmdecho" 0)
(setq pyd (getvar "offsetdist"))
(setq pyd (abs pyd))
(setq str_1 (strcat "\n偏移距离<" (rtos pyd) ">:"))
(setq pydi (getreal str_1))
(if (null pydi) (setq pydi pyd))
(setq npy (getint "\n偏移次数<9>:"))
(if (null npy) (setq npy 9))
(setq en (car (entsel "\n选择对象:")))
(setq pt1 (getpoint "\n指定点以确认偏移方向:"))
(setq i 1)
(repeat npy
(setq pydis (* i pydi))
(command "offset" pydis en pt1 "")
(setq i (1+ i))
)
(setvar "offsetdist" pydi)
(prin1)
)