简单的数字输入问题

aihuyujian

想搞个简单点的阵列命令 可是到第三个数据的输入就出错了 大神帮忙看下哪里错了 实在看不出了

代码如下

;; 命令: 阵列
(defun c:za()
        (setq ss (ssget))
  
  (if (= hsq nil) (SETQ hsq 6))
     (SETQ hs (getint (strcat "\n输入行数<" (rtos hsq 2 0) ">:")))
     (if (= hs nil) (SETQ hs hsq) (SETQ hsq hs))
  
  (if (= lsq nil) (SETQ lsq 1))
     (SETQ ls (getint (strcat "\n输入列数<" (rtos lsq 2 0) ">:")))
     (if (= ls nil) (SETQ ls lsq) (SETQ lsq ls))
  
  (if (= hpjq nil) (SETQ hpjq 3000))
     (SETQ hpj (getint (strcat "\n输入行偏距<" (rtos hpjq 2 0) ">:")))
     (if (= hpj nil) (SETQ hpj hpjq) (SETQ hpjq hpj))
  
  (if (= lpjq nil) (SETQ lpj 0))
     (SETQ lpj (getint (strcat "\n输入列偏距<" (rtos lpjq 2 0) ">:")))
     (if (= lpj nil) (SETQ lpj lpjq) (SETQ lpjq lpj))
  
  (if (= jdq nil) (SETQ jdq 0))
     (SETQ jd (getint (strcat "\n输入角度<" (rtos jdq 2 0) ">:")))
     (if (= jd nil) (SETQ jd jdq) (SETQ jdq jd))
  
  (command "array" ss "" "r" hs ls hpj lpj jd)
  (princ))

这是运行的记录：
命令: za
选择对象: 指定对角点: 找到 68 个
选择对象:
输入行数<6>:
输入列数<1>:
输入行偏距<3000>:
参数类型错误: numberp: nil


大神们看看到底哪错了，实在是找不出为什么了。谢谢啦

nzl1116

问题出在第四步，lpj应改写为lpjq

aihuyujian

nzl1116 发表于 2013-12-5 13:10
问题出在第四步，lpj应改写为lpjq

谢谢啦 ， 看半天没看出来 ，完美解决

aihuyujian

谢谢叮咚

yefei812678

谢谢谢谢谢谢