[求助]：求高手看看我写的LISP哪里错误了。

luweimin

一运行就死了。
LSP部分
(defun c:lwm1()
   (setvar "cmdecho" 0)
   (dcl_lwm1)
   (prin1)
)

(defun dcl_lwm1()
  (setq dcl_id (load_dialog "lwm1"))
  (new_dialog "lwm1" dcl_id)
  (setq p0 '(0 0))
  (action_tile "rb11" "(setq p1 '(841 594))")
  (action_tile "rb12" "(setq p1 '(594 420))")
  (action_tile "rb13" "(setq p1 '(420 297))")
  (action_tile "rb14" "(setq p1 '(1141 841))")
  (action_tile "rb15" "(setq p1 '(297 210))")
  (action_tile "accept" "(draws)")
  (setq dd(start_dialog))
)

(defun draws()
      (progn
      (command "line" p0 p1 "")
      )
    )

DCL部分
lwm1:dialog{
        label="图框及比例";
  :text{label="【图框及比例】";
        alignment=centered;
  }
  :row{
     :boxed_radio_column{
        children_alignment=top;
        width = 20;
        label="图幅";
        :radio_button{label="A0";key="rb11";}
        :radio_button{label="A1";key="rb12";}
        :radio_button{label="A2";key="rb13";}
        :radio_button{label="A3";key="rb14";value="1";}
        :radio_button{label="A4";key="rb15";}
   
  spacer_1;

    ok_cancel;
  }}}

zxq0220

(action_tile "accept" "(done_dialog 1) (draws)")