autolisp二次开发

hbswz

请问大家我成功加载这个autolisp文件后，为什么在command里面输入命令后，无任何反应呢？我对着书把这两个程序检查了不下十遍，可以说一个字母一个字母的检查，就是发现不了错误。求高手赐教！谢谢

Autolisp程序如下：
(defun C:jiancao()
  (setq key 0)
  (dialog)
  (if (= key 1) ((drawing)))
)

(defun dialog()
   (setq dcl_id (load_dialog "jiancao.dcl"))
   (if (not (new_dialog "jiancao" dcl_id)) (exit))
   (setq colorlist (list "Black" "Red" " Yellow" "Green" "Cyan" "Blue" "Magenta" "White"))
   (start_list "color" 1)
   (mapcar 'add_list colorlist)
   (end_list)
   (action_title "accept" "(takeout) (done_dialog)")
   (start_dialog)
   (unload_dialog dcl_id)
)

(defun drawing()
  (if (= pick 1.0) (setq p0 (getpoint"请用鼠标选插入点(轴心位置) ")))
  (setq ang (atan (* 0.5 a) (sqrt (- (* r r) (* 0.5 0.5 a a)))))
  (setq p1 (polar p0 (- alf ang) r))
  (setq p4 (polar p0 (+ alf ang) r))
  (setq p5 (polar p0 alf (- r b)))
  (setq x5 (car p5))
  (setq y5 (cadr p5))
  (setq x2 (+ x5 (* 0.5 a (sin alf))))
  (setq y2 (- y5 (* 0.5 a (cos alf))))
  (setq p2 (list x2 y2))
  (setq x3 (- x5 (* 0.5 a (sin alf))))
  (setq y3 (+ y5 (* 0.5 a (cos alf))))
  (setq p3 (list x3 y3))
  (command "layer""m""1""")
  (command "pline" p1 p2 p3 p4 "a""ce" p0 p1 "")
  (command "layer""m""hatch-1""c" yanse "hanch-1""")
  (command "hatch""ansi31""5.0""0""1""")
)

(defun takeout()
  (setq pick (atof (get_tile "pick_pt")))
  (setq r (atof (get_tile "r")))
  (setq a (atof (get_tile "a")))
  (setq b (atof (get_tile "b")))
  (setq alf (atof (get_tile "alf")))
  (setq yanse (get_tile "color"))
  (setq x0 (atof (get_tile "x0")))
  (setq y0 (atof (get_tile "y0")))
  (setq p0 (list x0 y0))
  (setq key 1)
)  

DCL对话框设计程序如下：
dcl_settings:default_dcl_settings {audit_level=0;}
jiancao:dialog{
  label="绘制带键槽的轴截面图：";
  :row {
         :boxed_column {
           label="截面参数";
           :edit_box {
              label="轴半径：";
              key="r";
              value="10";}
           :edit_box {
              label="键槽宽：";
              key="a";
              value="5";}
           :edit_box {
              label="键槽深：";
              key="b";
              value="4";}
           :edit_box {
              label="旋转角：";
              key="alf";
              value="0";}
         }
         spacer;
         :boxed_column {
           label="填充颜色：";
             :list_box {
                     key="color";}
         }
       }
       spacer;
    :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=ture;
                alignment=centered;}
}
spacer;
  ok_cancel;
}

longchengfanren

请修改以下几处：
1、(action_title "accept" "(takeout) (done_dialog)")中的action_title为action_tile；
2、(command "layer""m""hatch-1""c" yanse "hanch-1""")中的hanch-1为hatch-1；
3、(command "hatch""ansi31""5.0""0""1""")中的"1"为"l"；（L的小写）
4、(setq ang (atan (* 0.5 a) (sqrt (- (* r r) (* 0.5 0.5 a a)))))应为(setq ang (atan (/ (* 0.5 a) (sqrt (- (* r r) (* 0.5 0.5 a a))))))
注意：
程序在运行前要关闭捕捉模式。
需改进：
对话框中角度的单位为弧度，使用时不方便。