请求完善下面程序，把块也能进行多重偏移，谢谢！
<font face="Verdana">;;多重偏移<br/>(defun c:test ()<br/>(setvar "cmdecho" 0)<br/>(setq pyd (getvar "offsetdist"))<br/>(setq pyd (abs pyd))<br/>(setq str_1 (strcat "\n偏移距离<" (rtos pyd) ">:"))<br/>(setq pydi (getreal str_1))<br/>(if (null pydi) (setq pydi pyd))<br/>(setq npy (getint "\n偏移次数<9>:")) <br/>(if (null npy) (setq npy 9))<br/>(setq en (car (entsel "\n选择对象:")))<br/>(setq pt1 (getpoint "\n指定点以确认偏移方向:")) <br/>(setq i 1)<br/>(repeat npy <br/>(setq pydis (* i pydi))<br/>(command "offset" pydis en pt1 "") <br/>(setq i (1+ i)) <br/>)<br/>(setvar "offsetdist" pydi)<br/>(prin1)<br/>)</font>
页:
[1]