autolisp程序运行后参数类型错误numberp：nil

孝诚达爱

autolisp程序运行后参数类型错误numberp：nil
想了两天，没找到错误在哪

                               
登录/注册后可看大图

                               
登录/注册后可看大图

以下是我的程序，求帮忙分析一下
lsp文件
(defun C:ring()
   (setq key 0)
   (dialog)
   (if (= key 1)((drawing)))
)
(defun dialog()
  (setq dcl_id (load_dialog "ring.dcl"))
  (if (not (new_dialog "ring" dcl_id))(exit))
  (show_sld "kimage" "ring")
  (action_tile "accept" "(ok_ring) (done_dialog)")
  (start_dialog)
  (unload_dialog dcl_id)
)
(defun drawing()
  (if (= pick 1.0) (setq p0 (getpoint"请用鼠标选插入点（轴心位置）")))
  (setq pai 6.28318)
  (command "circle" p0 r1)
  (command "circle" p0 r3)
  (setq r (/ (+ r1 r3) 2))
  (command "layer" "M" "1" "C" "BLUE" "1" "L" "CENTER" "1" "S" "1")
  (command "circle" p0 r)
  (command "layer" "M" "2" "C" "RED" "2" "S" "2")
  (setq gle 0)
  (setq k 1)
  (while (<= k n)
      (setq gle (+ gle (/ pai n)))
      (setq ptn (polar p0 gle r))
      (command "circle" ptn r2)
      (setq k (+ 1 k))
)
(defun ok_ring()                                
  (setq pick (atof (get_tile "pick_pt")))
  (setq r1 (atof (get_tile "r1")))
  (setq r2 (atof (get_tile "r2")))
  (setq r3 (atof (get_tile "r3")))
  (setq n (atof (get_tile "n")))
  (setq x0 (atof (get_tile "x0")))
  (setq y0 (atof (get_tile "y0")))
  (setq kimage (atof (get_tile "kimage")))
  (setq p0 (list x0 y0))
  (setq key 1)
)
(defun show_sld(key sld)
        (setq x (dimx_tile key))
        (setq y (dimy_tile key))
        (start_image key)
        (fill_image 0 0 x y -2)
        (slide_image 0 0 x y sld)
        (end_image)
)
dcl文件
  label="绘制圆环组：";
  :row {
     :boxed_column {
       label="圆环参数";
        :edit_box {
          label="内圆半径：";
          key="r1";
          value="200";}
        :edit_box {
          label="小圆半径：";
          key="r2";
          value="20";}
        :edit_box {
          label="外圆半径：";
          key="r3";
          value="250";}
        :edit_box {
          label="小圆个数：";
          key="n";
          value="12";}
     }
    :image{
       label="图例";
       key="kimage";
       color=-2;
       width=30;
       aspect_ratio=0.66;
     }
   }
:row {
   label="圆心坐标";
         :edit_box {
          label="X轴";
          key="x0";
          value="0";}
         :edit_box {
          label="Y轴";
          key="y0";
          value="0";}
          :toggle {
           label="点选插入点&P";
           key="pick_pt";         
           fixed_width=true;
           alignment=centered;}
}
  ok_cancel;
}

csharp

  (if (= key 1)
    ((drawing))   => (drawing)
  )

drawing 函数少括号

孝诚达爱

csharp 发表于 2015-3-27 20:53
(if (= key 1)
    ((drawing))   => (drawing)
  )

怎么少了呢

孝诚达爱

csharp 发表于 2015-3-27 20:53
(if (= key 1)
    ((drawing))   => (drawing)
  )

能详细点吗，我是刚学的，很多地方不清楚，谢谢了

王大头学lisp

numberp这个意思是确认一个元素是否为整数或实数，若不是则返回nil。你这个里面就说明有一步理应是数字的变成字符串或者**的什么了，你再仔细看看我是刚学的，要是说错了您多担待

laofuzi0429

高大，如看天书，汗颜