求助各位大神一个autoLISP/DCL问题

福建师大附中

1. (defun c:dia5b()
   
2.   (setvar "cmdecho" 0)
   
3.   (dcl_dia5b)
   
4.   (prin1)
   
5.   )
   
6. (defun dcl_dia5b()
   
7.   (setq dcl_id (load_dialog "dia5b"))
   
8.   (new_dialog "dia5b" dcl_id)
   
9.   (set_tile "kww" "50")
   
10.   (set_tile "khh" "50")
    
11.   (action_tile "bb1" "(done_dialog 1)")
    
12.   (action_tile "bb2" "(done_dialog 2)")
    
13.   (action_tile "bb3" "(done_dialog 3)")
    
14.   (setq dd(start_dialog))
    
15.   (cond ((=dd 1) (c:dia5b1))
    
16.   ((=dd 2) (c:dia5b2))
    
17.   ((=dd 3) (c:dia5b3))
    
18.   (t (alert "未完成任何动作！！！"))
    
19.   )
    
20.   )
    
21. 
    
22. (defun c:dia5b1()
    
23.   (setvar "cmdecho" 0)
    
24.   (get_input_data)
    
25.   (command "pline" p1 p2 p3 pm34 pm pm14 "c")
    
26.   (prin1)
    
27.   )
    
28. (defun c:dia5b2()
    
29.   (setvar "cmdecho" 0)
    
30.   (get_input_data)
    
31.   (command "pline" p1 p2 p3 p4 "c")
    
32.   (command "line" p1 p3 "")
    
33.   (command "line" p2 p4 "")
    
34.   (prin1)
    
35.   )
    
36. (defun c:dia5b3()
    
37.   (setvar "cmdecho" 0)
    
38.   (get_input_data)
    
39.   (command "pline" p1 p2 p4 p3 "c")
    
40.   (prin1)
    
41.   )
    
42. (defun get_input_data()
    
43.   (setq ww (getreal "宽度:"))
    
44.   (setq hh (getreal "\n高度:"))
    
45.   (setq p1 (getpoint "\n插入点:"))
    
46.   (setq p2 (polar p1 0 ww))
    
47.   (setq p3 (polar p2 (* pi 0.5) hh))
    
48.   (setq p4 (polar p3 pi ww))
    
49.   (setq pm (inters p1 p3 p2 p4))
    
50.   (setq pm12 (polar p1 0(/ ww 2)))
    
51.   (setq pm34 (polar p3 pi (/ ww 2)))
    
52.   (setq pm23 (polar p2 (/ pi 2) (/ hh 2)))
    
53.   (setq pm14 (polar p1 (/ pi 2) (/ hh 2)))
    
54.   )
    
55. (defun c:dia5b()
    
56.   (setvar "cmdecho" 0)
    
57.   (dcl_dia5b)
    
58.   (prin1)
    
59.   )
    

(defun c:dia5b()<br />   (setvar "cmdecho" 0)<br />   (dcl_dia5b)<br />   (prin1)<br />   )<br /> (defun dcl_dia5b()<br />   (setq dcl_id (load_dialog "dia5b"))<br />   (new_dialog "dia5b" dcl_id)<br />   (set_tile "kww" "50")<br />   (set_tile "khh" "50")<br />   (action_tile "bb1" "(done_dialog 1)")<br />   (action_tile "bb2" "(done_dialog 2)")<br />   (action_tile "bb3" "(done_dialog 3)")<br />   (setq dd(start_dialog))<br />   (cond ((=dd 1) (c:dia5b1))<br />   ((=dd 2) (c:dia5b2))<br />   ((=dd 3) (c:dia5b3))<br />   (t (alert "未完成任何动作！！！"))<br />   )<br />   )<br /> <br /> (defun c:dia5b1()<br />   (setvar "cmdecho" 0)<br />   (get_input_data)<br />   (command "pline" p1 p2 p3 pm34 pm pm14 "c")<br />   (prin1)<br />   )<br /> (defun c:dia5b2()<br />   (setvar "cmdecho" 0)<br />   (get_input_data)<br />   (command "pline" p1 p2 p3 p4 "c")<br />   (command "line" p1 p3 "")<br />   (command "line" p2 p4 "")<br />   (prin1)<br />   )<br /> (defun c:dia5b3()<br />   (setvar "cmdecho" 0)<br />   (get_input_data)<br />   (command "pline" p1 p2 p4 p3 "c")<br />   (prin1)<br />   )<br /> (defun get_input_data()<br />   (setq ww (getreal "宽度:"))<br />   (setq hh (getreal "\n高度:"))<br />   (setq p1 (getpoint "\n插入点:"))<br />   (setq p2 (polar p1 0 ww))<br />   (setq p3 (polar p2 (* pi 0.5) hh))<br />   (setq p4 (polar p3 pi ww))<br />   (setq pm (inters p1 p3 p2 p4))<br />   (setq pm12 (polar p1 0(/ ww 2)))<br />   (setq pm34 (polar p3 pi (/ ww 2)))<br />   (setq pm23 (polar p2 (/ pi 2) (/ hh 2)))<br />   (setq pm14 (polar p1 (/ pi 2) (/ hh 2)))<br />   )<br /> (defun c:dia5b()<br />   (setvar "cmdecho" 0)<br />   (dcl_dia5b)<br />   (prin1)<br />   )<br />

1. dia5b:dialog{
   
2.   label="按钮测试";
   
3.   :boxed_row{
   
4.     label="图形尺寸";
   
5.     :edit_box{
   
6.       label="宽度";
   
7.       key="kww";
   
8.       edit_width=8;
   
9.       }
   
10.     :edit_box{
    
11.       label="高度";
    
12.       key="khh";
    
13.       edit_width=8;
    
14.       }
    
15.       }
    
16.   :button{label="绘制L型";key="bb1";}
    
17.   :button{label="绘制x型";key="bb2";}
    
18.   :button{label="绘制z型";key="bb3";}
    
19.   spacer_1;
    
20.   cancel_button;
    
21.   }

dia5b:dialog{<br />   label="按钮测试";<br />   :boxed_row{<br />     label="图形尺寸";<br />     :edit_box{<br />       label="宽度";<br />       key="kww";<br />       edit_width=8;<br />       }<br />     :edit_box{<br />       label="高度";<br />       key="khh";<br />       edit_width=8;<br />       }<br />       }<br />   :button{label="绘制L型";key="bb1";}<br />   :button{label="绘制x型";key="bb2";}<br />   :button{label="绘制z型";key="bb3";}<br />   spacer_1;<br />   cancel_button;<br />   }

会出现错误: no function definition: =DD

masterlong

=dd加上空格

yshf

这三行
         ((=dd 1) (c:dia5b1))
         ((=dd 2) (c:dia5b2))
         ((=dd 3) (c:dia5b3))
缺少空格
应为
      ((= dd 1) (c:dia5b1))
         ((= dd 2) (c:dia5b2))
         ((= dd 3) (c:dia5b3))

東洺Nile

(cond ((=dd 1) (c:dia5b1))
  ((=dd 2) (c:dia5b2))
  ((=dd 3) (c:dia5b3))

----->改成这样((= dd 1)

(cond ((= dd 1) (c:dia5b1))
  ((= dd 2) (c:dia5b2))
  ((= dd 3) (c:dia5b3))

東洺Nile

(= dd 1)  少了空格

福建师大附中

東洺Nile 发表于 2015-12-27 22:23
(= dd 1)  少了空格

竟然没看到，谢谢大神

福建师大附中

masterlong 发表于 2015-12-27 22:19
=dd加上空格

知道了，谢谢

福建师大附中

yshf 发表于 2015-12-27 22:21
这三行
         ((=dd 1) (c:dia5b1))
         ((=dd 2) (c:dia5b2))

竟然没注意到，谢谢