怎么一加载CAD就死了？

onej

只要加载，CAD就没有响应，为何呀！

2. ；简单的法兰绘制  (defun c:falan(/ dcl_id x y n1 n rd a a1 rj rx cp pt d)
3.    (setq dcl_id (load_dialog "falan.dcl"))
4.    (if (not (new_dialog "falan" dcl_id))
5.    (exit)
6.    )
7.    (action_tile "kaishi" "(message)")
8.    (draw)
9.    (start_dialog)
10.    (unload_dialog dcl_id)
11.    (princ)
12.   )
13.    (defun draw()
14.    (command "circle" cp rd)
15.    (command "circle" cp rx)
16.    (command "circle" pt "d" d)    (command "array" "1" "" "p" cp n1 "" "y")
17.    (command "circle" cp rj)
18.    )
19.      (defun message()
20.    (setq x(atof(get_tile "x")))
21.    (setq y(atof(get_tile "y")))
22.    (setq cp(list x y))
23.    (setq rd(atof(get_tile "wai")))
24.    (setq rx(atof(get_tile "fayuan")))
25.    (setq rj(atof(get_tile "jieyuan")))
26.    (setq d(atof(get_tile "zhijing")))
27.    (setq n1(atoi(get_tile "shuliang")))
28.    (setq n(float n1))
29.    (setq a1(atof(get_tile "du")))
30.    (setq a(* pi(/ a1 180)))
31.    (setq pt(polar cp a rj))
32.    )

；简单的法兰绘制  (defun c:falan(/ dcl_id x y n1 n rd a a1 rj rx cp pt d)    (setq dcl_id (load_dialog "falan.dcl"))    (if (not (new_dialog "falan" dcl_id))    (exit)    )    (action_tile "kaishi" "(message)")    (draw)    (start_dialog)    (unload_dialog dcl_id)    (princ)   )    (defun draw()    (command "circle" cp rd)    (command "circle" cp rx)    (command "circle" pt "d" d)    (command "array" "1" "" "p" cp n1 "" "y")    (command "circle" cp rj)    )      (defun message()    (setq x(atof(get_tile "x")))    (setq y(atof(get_tile "y")))    (setq cp(list x y))    (setq rd(atof(get_tile "wai")))    (setq rx(atof(get_tile "fayuan")))    (setq rj(atof(get_tile "jieyuan")))    (setq d(atof(get_tile "zhijing")))    (setq n1(atoi(get_tile "shuliang")))    (setq n(float n1))    (setq a1(atof(get_tile "du")))    (setq a(* pi(/ a1 180)))    (setq pt(polar cp a rj))    )

2. falan:dialog{
3. label="头标题";
4. :text{
5. label="wenzi";
6. }:boxed_row{
7. label="中心坐标";
8. :edit_box{
9. label="x=";
10. key="x";
11. fixed_width=true;
12. alignment=centered;
13. width=5;
14. }
15. :edit_box{
16. label="y=";
17. key="y";
18. fixed_width=true;
19. alignment=centered;
20. width=5;
21. }
22. }:boxed_row{
23. label="尺寸";
24. :edit_box{
25. label="wai";
26. key="wai";
27. fixed_width=true;
28. alignment=centered;
29. width=5;
30. }
31. :edit_box{
32. label="fayuan";
33. key="fa";
34. fixed_width=true;
35. alignment=centered;
36. width=5;
37. }
38. :edit_box{
39. label="jieyuan";
40. key="jie";
41. fixed_width=true;
42. alignment=centered;
43. width=5;
44. }
45. }
46. :boxed_row{
47. label="canshu";
48. :edit_box{
49. label="zhijing";
50. key="zhijing";
51. fixed_width=true;
52. alignment=centered;
53. width=5;
54. }
55. :edit_box{
56. label="shuliang";
57. key="shuliang";
58. fixed_width=true;
59. alignment=centered;
60. width=5;
61. }
62. :edit_box{
63. label="du";
64. key="du";
65. fixed_width=true;
66. alignment=centered;
67. width=5;
68. }
69. }:boxed_row{
70. :button{
71. key="kaishi";
72. label="kaishi";
73. fixed_width=true;
74. width=5;
75. }
76. ok_only;
77. }
78. }  

falan:dialog{ label="头标题"; :text{ label="wenzi"; }:boxed_row{ label="中心坐标"; :edit_box{ label="x="; key="x"; fixed_width=true; alignment=centered; width=5; } :edit_box{ label="y="; key="y"; fixed_width=true; alignment=centered; width=5; } }:boxed_row{ label="尺寸"; :edit_box{ label="wai"; key="wai"; fixed_width=true; alignment=centered; width=5; } :edit_box{ label="fayuan"; key="fa"; fixed_width=true; alignment=centered; width=5; } :edit_box{ label="jieyuan"; key="jie"; fixed_width=true; alignment=centered; width=5; } } :boxed_row{ label="canshu"; :edit_box{ label="zhijing"; key="zhijing"; fixed_width=true; alignment=centered; width=5; } :edit_box{ label="shuliang"; key="shuliang"; fixed_width=true; alignment=centered; width=5; } :edit_box{ label="du"; key="du"; fixed_width=true; alignment=centered; width=5; } }:boxed_row{ :button{ key="kaishi"; label="kaishi"; fixed_width=true; width=5; } ok_only; } }  

alin

(defun c:falan(/ dcl_id x y n1 n rd a a1 rj rx cp pt d)
(setq dcl_id (load_dialog "falan.dcl"))
(if (not (new_dialog "falan" dcl_id))
(exit)
)
(action_tile "kaishi" "(message)")
(draw) ;; <<-----Here, you try to run commands before (start_dialog)!
(start_dialog)
(unload_dialog dcl_id)
(princ)
)

onej

谢谢斑竹，我改了，也运行起来了，不知道为何要放在后面？



出现了错误: 参数类型错误: stringp nil，我知道是：是需要字符串参数的地方给了个nil,导致错误，但我真的不知道在哪里啊！

chenliguo

可能是数据类型有误吧

onej

很努力的寻找，无果……

alin

Some of the keys in LISP file do not match those in your DCL file