[LISP程序]：园偏移程序的问题

hbshyjch

程序运行的时候总是出现下面的问题

指定偏移距离或<0=退出>: 未知命令“22”。按 F1 查看帮助。

退出的时候会出现“; 错误: 参数类型错误: numberp: nil”

请各位帮帮忙给指出问题的所在

谢谢了

TYEEXDD

你这个程序干吗用的？不太清楚有什么实际意义呀？
更改如下，再试：

;本程序实现园的重复偏移
(defun c:22 ();!!!园重复偏移
  ( setvar "cmdecho" 0 )
    (setq ss (getstring "\n横向(h)或竖向(s)<h> "))
   ; (setq s1 (getdist "\n输入距离:"))
    (setq s2 (entsel "\n选择园:"))
  (setq s2_data (entget (car s2)));提取群码
  (setq s2_list (cdr (assoc 10 s2_data))) ;取得圆心坐标
  (setq s2_rr (cdr (assoc 40 s2_data))) ;取得圆半径
  (setq s2_h (car s2_list)) ;取得横坐标
  (setq s2_s (cadr s2_list)) ;取得纵坐标
  (setq s1 1    temp_o 0    total 0 )
  (while (> s1 0)
       (setq s1 (getdist "\n指定偏移距离或<0=退出>:"))
       (if (= s1 nil) (setq s1 temp_o))
       (if (= ss "s")
         (progn (setq s2_s (+ s2_s s1))
           (setq s2_new_list (list s2_h s2_s))
           (command "circle"  s2_new_list s2_rr)
           (setq temp_o s1))         
         (progn (setq s2_h (+ s2_h s1))
           (setq s2_new_list (list s2_h s2_s))
           (command "circle"  s2_new_list s2_rr)
           (setq temp_o s1))         
        )
    )
  (princ)
  (gps->error-restore)
)