请教

jackechang

请教各位大侠:
  在CAD中设置如下对话框,可编LISP程序后驱动不了,请大侠们帮忙看一下LISP程序问题出在哪?帮忙改一下.谢谢!

2. (defun c:paper (/ dcl_id )
3. (setq dcl_id (load_dialog "paper.dcl"))
4. (if (not (new_dialog "paper" dcl_id)) (exit))
5. (action_tile "A0" "(data_manage0) (done_dialog 0)")
6. (action_tile "A1" "(data_manage1) (done_dialog 0)")
7. (action_tile "A2" "(data_manage2) (done_dialog 0)")
8. (action_tile "A3" "(data_manage3) (done_dialog 0)")
9. (action_tile "A4" "(data_manage4) (done_dialog 0)")
10. (action_tile "A0V" "(data_manage5) (done_dialog 0)")
11. (action_tile "A1V" "(data_manage6) (done_dialog 0)")
12. (action_tile "A2V" "(data_manage7) (done_dialog 0)")
13. (action_tile "A3V" "(data_manage8) (done_dialog 0)")
14. (action_tile "A4V" "(data_manage9) (done_dialog 0)")
15. (action_tile "accept" "(dataget)")
16. (start_dialog)
17. (unload_dialog dcl_id)
18. (command "rectang" pt1 pt2)
19. (command "rectang" pt3 pt4)
20. (command "rectang" pt5 pt6)
21. (command "scale" "c" pt1 pt2 "" pt1 htbl)
22. (princ)
23. )
24. (defun dataget()
25. (setq htbl (atof (get_tile "htbl")))
26. (setq jcxs (atof (get_tile "jcxs")))
27. )
28. (defun data_manage0()
29. (setq pt1 '(0 0)
30. pt2 '((+ 1189 (* 1189 0.125 jcxs)) 840)
31. pt3 '(25 10)
32. pt4 '((+ 1179 (* 1189 0.125 jcxs)) 830)
33. pt5 '(25 830)
34. pt6 '(65 822)
35. )
36. )
37. (defun data_manage1()
38. (setq pt1 '(0 0)
39. pt2 '((+ 840 (* 1189 0.25 jcxs)) 594)
40. pt3 '(25 10)
41. pt4 '((+ 830 (* 1189 0.25 jcxs)) 584)
42. pt5 '(25 584)
43. pt6 '(65 576)
44. )
45. )
46. (defun data_manage2()
47. (setq pt1 '(0 0)
48. pt2 '((+ 594 (* 1189 0.125 jcxs)) 420)
49. pt3 '(25 10)
50. pt4 '((+ 584 (* 1189 0.125 jcxs)) 410)
51. pt5 '(25 410)
52. pt6 '(65 402)
53. )
54. )
55. (defun data_manage3()
56. (setq pt1 '(0 0)
57. pt2 '((+ 420 (* 1189 0.25 jcxs)) 297)
58. pt3 '(25 5)
59. pt4 '((+ 415 (* 1189 0.25 jcxs)) 292)
60. pt5 '(25 292)
61. pt6 '(65 284)
62. )
63. )
64. (defun data_manage4()
65. (setq pt1 '(0 0)
66. pt2 '((+ 297 (* 1189 0.125 jcxs)) 210)
67. pt3 '(25 5)
68. pt4 '((+ 292 (* 1189 0.125 jcxs)) 205)
69. pt5 '(25 205)
70. pt6 '(65 197)
71. )
72. )
74. (defun data_manage5()
75. (setq pt1 '(0 0)
76. pt2 '((+ 840 (* 1189 0.125 jcxs)) 1189)
77. pt3 '(25 10)
78. pt4 '((+ 830 (* 1189 0.125 jcxs)) 1179)
79. pt5 '(25 1179)
80. pt6 '(65 1171)
81. )
82. )
83. (defun data_manage6()
84. (setq pt1 '(0 0)
85. pt2 '((+ 594 (* 1189 0.25 jcxs)) 840)
86. pt3 '(25 10)
87. pt4 '((+ 584 (* 1189 0.25 jcxs)) 830)
88. pt5 '(25 830)
89. pt6 '(65 822)
90. )
91. )
92. (defun data_manage7()
93. (setq pt1 '(0 0)
94. pt2 '((+ 420 (* 1189 0.125 jcxs)) 594)
95. pt3 '(25 10)
96. pt4 '((+ 410 (* 1189 0.125 jcxs)) 584)
97. pt5 '(25 584)
98. pt6 '(65 576)
99. )
100. )
101. (defun data_manage8()
102. (setq pt1 '(0 0)
103. pt2 '((+ 297 (* 1189 0.25 jcxs)) 420)
104. pt3 '(25 5)
105. pt4 '((+ 292 (* 1189 0.25 jcxs)) 415)
106. pt5 '(25 415)
107. pt6 '(65 407)
108. )
109. )
110. (defun data_manage9()
111. (setq pt1 '(0 0)
112. pt2 '((+ 210 (* 1189 0.125 jcxs)) 297)
113. pt3 '(25 5)
114. pt4 '((+ 205 (* 1189 0.125 jcxs)) 292)
115. pt5 '(25 292)
116. pt6 '(65 284)
117. )
118. )

(defun c:paper (/ dcl_id ) (setq dcl_id (load_dialog "paper.dcl")) (if (not (new_dialog "paper" dcl_id)) (exit)) (action_tile "A0" "(data_manage0) (done_dialog 0)") (action_tile "A1" "(data_manage1) (done_dialog 0)") (action_tile "A2" "(data_manage2) (done_dialog 0)") (action_tile "A3" "(data_manage3) (done_dialog 0)") (action_tile "A4" "(data_manage4) (done_dialog 0)") (action_tile "A0V" "(data_manage5) (done_dialog 0)") (action_tile "A1V" "(data_manage6) (done_dialog 0)") (action_tile "A2V" "(data_manage7) (done_dialog 0)") (action_tile "A3V" "(data_manage8) (done_dialog 0)") (action_tile "A4V" "(data_manage9) (done_dialog 0)") (action_tile "accept" "(dataget)") (start_dialog) (unload_dialog dcl_id) (command "rectang" pt1 pt2) (command "rectang" pt3 pt4) (command "rectang" pt5 pt6) (command "scale" "c" pt1 pt2 "" pt1 htbl) (princ) ) (defun dataget() (setq htbl (atof (get_tile "htbl"))) (setq jcxs (atof (get_tile "jcxs"))) ) (defun data_manage0() (setq pt1 '(0 0) pt2 '((+ 1189 (* 1189 0.125 jcxs)) 840) pt3 '(25 10) pt4 '((+ 1179 (* 1189 0.125 jcxs)) 830) pt5 '(25 830) pt6 '(65 822) ) ) (defun data_manage1() (setq pt1 '(0 0) pt2 '((+ 840 (* 1189 0.25 jcxs)) 594) pt3 '(25 10) pt4 '((+ 830 (* 1189 0.25 jcxs)) 584) pt5 '(25 584) pt6 '(65 576) ) ) (defun data_manage2() (setq pt1 '(0 0) pt2 '((+ 594 (* 1189 0.125 jcxs)) 420) pt3 '(25 10) pt4 '((+ 584 (* 1189 0.125 jcxs)) 410) pt5 '(25 410) pt6 '(65 402) ) ) (defun data_manage3() (setq pt1 '(0 0) pt2 '((+ 420 (* 1189 0.25 jcxs)) 297) pt3 '(25 5) pt4 '((+ 415 (* 1189 0.25 jcxs)) 292) pt5 '(25 292) pt6 '(65 284) ) ) (defun data_manage4() (setq pt1 '(0 0) pt2 '((+ 297 (* 1189 0.125 jcxs)) 210) pt3 '(25 5) pt4 '((+ 292 (* 1189 0.125 jcxs)) 205) pt5 '(25 205) pt6 '(65 197) ) ) (defun data_manage5() (setq pt1 '(0 0) pt2 '((+ 840 (* 1189 0.125 jcxs)) 1189) pt3 '(25 10) pt4 '((+ 830 (* 1189 0.125 jcxs)) 1179) pt5 '(25 1179) pt6 '(65 1171) ) ) (defun data_manage6() (setq pt1 '(0 0) pt2 '((+ 594 (* 1189 0.25 jcxs)) 840) pt3 '(25 10) pt4 '((+ 584 (* 1189 0.25 jcxs)) 830) pt5 '(25 830) pt6 '(65 822) ) ) (defun data_manage7() (setq pt1 '(0 0) pt2 '((+ 420 (* 1189 0.125 jcxs)) 594) pt3 '(25 10) pt4 '((+ 410 (* 1189 0.125 jcxs)) 584) pt5 '(25 584) pt6 '(65 576) ) ) (defun data_manage8() (setq pt1 '(0 0) pt2 '((+ 297 (* 1189 0.25 jcxs)) 420) pt3 '(25 5) pt4 '((+ 292 (* 1189 0.25 jcxs)) 415) pt5 '(25 415) pt6 '(65 407) ) ) (defun data_manage9() (setq pt1 '(0 0) pt2 '((+ 210 (* 1189 0.125 jcxs)) 297) pt3 '(25 5) pt4 '((+ 205 (* 1189 0.125 jcxs)) 292) pt5 '(25 292) pt6 '(65 284) ) )

ZZXXQQ

对话框呢?