输入的列表有缺陷

onej

提示; 错误: 输入的列表有缺陷

2.   ;A0图纸的绘制
3. (defun c:load1(/ dcl_id)
4.    (setq dcl_id (load_dialog "1.dcl")
5.   (if (not (new_dialog "page" dcl_id))(exit))
6.    (action_tile "a0" "(manage0)")
7.    (start_dialog)
8.    (unload_dialog dcl_id)
9.    (princ)
10.    (command "rectang" pt1 pt2)
11.    (command "rectang" pt2 pt3)
12.    (command "rectang" pt4 pt5)
13.   )(defun manage0()
14.    (setq pt1(list 0 0)
15.   pt2(list -1180 840)
16.   pt3(list -1140 832)
17.   pt4(list 5 -5)
18.   pt5(list -1195 845)
19.      )
20. )
21.                

  ;A0图纸的绘制 (defun c:load1(/ dcl_id)    (setq dcl_id (load_dialog "1.dcl")   (if (not (new_dialog "page" dcl_id))(exit))    (action_tile "a0" "(manage0)")    (start_dialog)    (unload_dialog dcl_id)    (princ)    (command "rectang" pt1 pt2)    (command "rectang" pt2 pt3)    (command "rectang" pt4 pt5)   )(defun manage0()    (setq pt1(list 0 0)   pt2(list -1180 840)   pt3(list -1140 832)   pt4(list 5 -5)   pt5(list -1195 845)      ) )                

2.   page:dialog{
3. label="A0图纸";
4. :text{
5. label="A0图纸的绘制";
6. }
7. :boxed_row{
8. :radio_button{
9. label="a0";
10. value=1;
11. fixed_width=true;
12. width=5;
13. alignment=centered;
14. }}
15. ok_only;
16. }

  page:dialog{ label="A0图纸"; :text{ label="A0图纸的绘制"; } :boxed_row{ :radio_button{ label="a0"; value=1; fixed_width=true; width=5; alignment=centered; }} ok_only; }

CADghost

在第二行就少了一个右括号

onej

谢谢，这种低级错误还拿来问，好丢脸的，还好CADghost不介意！ 但不知道为什么运行了，CAD里还是黑黑的什么框框也没有哇！

BDYCAD

1. (setq dcl_id (load_dialog "1.dcl") ; 这句少了一个括号. 2. 有个子程序没有运行. 所以不能正确画出框框

ZZXXQQ

楼主：
除了上面几楼说的外，
程序行
(action_tile "a0" "(manage0)")
应改为
(action_tile "accept" "(manage0) (DONE_DIALOG 1)")
或
(action_tile "a0" "(manage0) (DONE_DIALOG 1)")

onej

谢谢：ZZXXQQ BDYCAD