DCL对话框高手路过的帮忙看看哪出问题了！

328302216

《AutoCAD完全应用指南》P282页的代码，执行之后没有得到书上的结果，是不是书上的代码本身有问题？

2. (defun c:dia5b()
   
3.   (setvar "cmdecho" 0)
   
4.   (dcl_dia5b)
   
5.   (prin1)
   
6.   )
   
7. 
   
8. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
9. 
   
10. (defun dcl_dia5b()          ;子程序
    
11.   (setq dcl_id (load_dialog "dia5b"))      ;加载dcl文件
    
12.   (new_dialog "dia5b" dcl_id)        ;启动dia5b对话框
    
13.   (set_tile "kww" "50")          ;设置ww起始值
    
14.   (set_tile "khh" "50")          ;设置hh起始值
    
15.   (action_tile "bb1" "(get_ww_hh) (done_dialog 1)")  ;退出对话框并返回1
    
16.   (action_tile "bb2" "(get_ww_hh) (done_dialog 2)")  ;……………………2
    
17.   (action_tile "bb3" "(get_ww_hh) (done_dialog 3)")  ;……………………3
    
18.   (setq dd (start_dialog))
    
19.   (cond ((= dd 1) (c:dia5b1))
    
20.   ((= dd 2) (c:dia5b2))
    
21.   ((= dd 3) (c:dia5b3))
    
22.   (t (alert "\n未完成任何操作！！！"))
    
23.   )
    
24.   )
    
25. 
    
26. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
27. 
    
28. (defun get_ww_hh()          ;获取对话框的ww与hh值
    
29.   (setq ww (atof (get_tile "kww")))
    
30.   (setq hh (atof (get_tile "khh")))
    
31.   )
    
32. 
    
33. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
34. 
    
35. (defun c:dia5b1()          ;L形主程序
    
36.   (setvar "cmdecho" 0)
    
37.   (get_input_data)
    
38.   (command "pline" p1 p2 p3 pm34 pm pm14 "c")
    
39.   (prin1)
    
40.   )
    
41. 
    
42. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
43. 
    
44. (defun c:dia5b2()          ;X行子程序
    
45.   (setvar "cmdecho" 0)
    
46.   (get_input_data)
    
47.   (command "pline" p1 p2 p3 p4 "c")
    
48.   (command "line" p1 p3 "")
    
49.   (command "line" p2 p4 "")
    
50.   (prin1)
    
51.   )
    
52. 
    
53. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
54. 
    
55. (defun c:dia5b3()          ;沙漏型子程序
    
56.   (setvar "cmdecho" 0)
    
57.   (get_input_data)
    
58.   (command "pline" p1 p2 p4 p3 "c")
    
59.   (prin1)
    
60.   )
    
61. 
    
62. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
63. 
    
64. (defun get_input_data()
    
65.   ;;;(setq ww (getreal "宽度 WW："))
    
66.   ;;;(setq hh (getreal "\n高度 HH："))
    
67.   (setq p1 (getpoint "\n插入点："))
    
68.   (setq p2(polar p1 0 ww))
    
69.   (setq p3 (polar p2 (* pi 0.5) hh))
    
70.   (setq p4 (polar p3 pi ww))
    
71.   (setq pm (inters p1 p3 p2 p4))
    
72.   (setq pm12 (polar p1 0 (* ww 0.5)))
    
73.   (setq pm34 (polar p3 pi (* ww 0.5)))
    
74.   (setq pm23 (polar p2 (* pi 0.5) (* hh 0.5)))
    
75.   (setq pm14 (polar p1 (* pi 0.5) (* hh 0.5)))
    
76.   )

(defun c:dia5b()<br />   (setvar "cmdecho" 0)<br />   (dcl_dia5b)<br />   (prin1)<br />   )<br /> <br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> <br /> (defun dcl_dia5b()          ;子程序<br />   (setq dcl_id (load_dialog "dia5b"))      ;加载dcl文件<br />   (new_dialog "dia5b" dcl_id)        ;启动dia5b对话框<br />   (set_tile "kww" "50")          ;设置ww起始值<br />   (set_tile "khh" "50")          ;设置hh起始值<br />   (action_tile "bb1" "(get_ww_hh) (done_dialog 1)")  ;退出对话框并返回1<br />   (action_tile "bb2" "(get_ww_hh) (done_dialog 2)")  ;……………………2<br />   (action_tile "bb3" "(get_ww_hh) (done_dialog 3)")  ;……………………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 "\n未完成任何操作！！！"))<br />   )<br />   )<br /> <br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> <br /> (defun get_ww_hh()          ;获取对话框的ww与hh值<br />   (setq ww (atof (get_tile "kww")))<br />   (setq hh (atof (get_tile "khh")))<br />   )<br /> <br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> <br /> (defun c:dia5b1()          ;L形主程序<br />   (setvar "cmdecho" 0)<br />   (get_input_data)<br />   (command "pline" p1 p2 p3 pm34 pm pm14 "c")<br />   (prin1)<br />   )<br /> <br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> <br /> (defun c:dia5b2()          ;X行子程序<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 /> <br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<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 /> <br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> <br /> (defun get_input_data()<br />   ;;;(setq ww (getreal "宽度 WW："))<br />   ;;;(setq hh (getreal "\n高度 HH："))<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 0.5)))<br />   (setq pm34 (polar p3 pi (* ww 0.5)))<br />   (setq pm23 (polar p2 (* pi 0.5) (* hh 0.5)))<br />   (setq pm14 (polar p1 (* pi 0.5) (* hh 0.5)))<br />   )

路过的帮忙看看！执行后弹出的是子程序(defun dcl_dia5b)里面的“未完成任何操作！！！”

328302216

哪位大哥有《AutoCAD完全应用指南》这本书的？或者其他高手帮忙看看是哪里的问题啊  
不过我觉得《AutoCAD完全应用指南》这本书错误的地方也真的有点多！！！

328302216

各位大侠们，帮看看到底要怎么整才有效果啊！是书上错的还是我操作的问题？我按照书上一步一步的操作还是得不到效果啊！后面的这个也得不到效果！

2. dia5d:dialog{
   
3.   label="对话框<text>文字实例测试";
   
4.   :concatenation{
   
5.   :text_part {label="共选择了[";}
   
6.   :text{width=6;key="t_cir";}
   
7.   :text_part{label="]个 CIRCLE";}
   
8. }
   
9.   :concatenation{
   
10.   :text_part {label="共选择了[";}
    
11.   :text{width=6;key="t_line";}
    
12.   :text_part{label="]个 LINE";}
    
13. }
    
14.   :concatenation{
    
15.   :text_part {label="共选择了[";}
    
16.   :text{width=6;key="t_text";}
    
17.   :text_part{label="]个 TEXT";}
    
18. }
    
19.   ok_cancel;
    
20. }

dia5d:dialog{<br />   label="对话框<text>文字实例测试";<br />   :concatenation{<br />   :text_part {label="共选择了[";}<br />   :text{width=6;key="t_cir";}<br />   :text_part{label="]个 CIRCLE";}<br /> }<br />   :concatenation{<br />   :text_part {label="共选择了[";}<br />   :text{width=6;key="t_line";}<br />   :text_part{label="]个 LINE";}<br /> }<br />   :concatenation{<br />   :text_part {label="共选择了[";}<br />   :text{width=6;key="t_text";}<br />   :text_part{label="]个 TEXT";}<br /> }<br />   ok_cancel;<br /> }

2. (defun c:dia5d()
   
3.   (setvar "cmdecho" 0)
   
4.   (sub_dia5d)    ;调用子程序
   
5.   (if ss (dcl_dia5d))  ;调用对话框子程序
   
6.   (prin1)
   
7.   )
   
8. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
9. (defun sub_dia5d()
   
10.   (setq ss (ssget))  ;选择对象
    
11.   (if(null ss)(setq ss (ssadd)))  ;如果ss不存在，设置ss为空选集
    
12.   (setq cir_num 0 line_num 0 text_num 0)  ;设置默认起始值
    
13.   (setq n 0)
    
14.   (repeat (sslength ss)
    
15.     (setq en (ssname ss n))
    
16.     (setq entype (cdr (assoc 0 (entget en))))  ;获取对象类别
    
17.     (cond ((= entype "CIRCLE") (setq cir_num (+ 1 cir_num)))
    
18.     ((= entype "LINE") (setq line_num (+ 1 line_num)))
    
19.     ((= entype "TEXT") (setq text_num (+ 1 text_num)))
    
20.       )
    
21.     (setq n(+ 1 n))
    
22.     )
    
23.   )
    
24. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
25. (defun dcl_dia5d()
    
26.   (setq dcl_id (load_dialog "dia5d"))  ;加载DCL文件
    
27.   (if (not (new_dialog "dia5d" dcl_id))(exit))  ;启动对话框
    
28.   (set_tile "t_cir" (itoa cir_num))  ;显示圆的统计数量于对话框
    
29.   (set_tile "t_line" (itoa line_num))  ;显示直线的统计数量于对话框
    
30.   (set_tile "t_text" (itoa text_num))  ;显示文字的统计数量与对话框
    
31.   (setq dd (start_dialog))
    
32.   )

(defun c:dia5d()<br />   (setvar "cmdecho" 0)<br />   (sub_dia5d)    ;调用子程序<br />   (if ss (dcl_dia5d))  ;调用对话框子程序<br />   (prin1)<br />   )<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> (defun sub_dia5d()<br />   (setq ss (ssget))  ;选择对象<br />   (if(null ss)(setq ss (ssadd)))  ;如果ss不存在，设置ss为空选集<br />   (setq cir_num 0 line_num 0 text_num 0)  ;设置默认起始值<br />   (setq n 0)<br />   (repeat (sslength ss)<br />     (setq en (ssname ss n))<br />     (setq entype (cdr (assoc 0 (entget en))))  ;获取对象类别<br />     (cond ((= entype "CIRCLE") (setq cir_num (+ 1 cir_num)))<br />     ((= entype "LINE") (setq line_num (+ 1 line_num)))<br />     ((= entype "TEXT") (setq text_num (+ 1 text_num)))<br />       )<br />     (setq n(+ 1 n))<br />     )<br />   )<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> (defun dcl_dia5d()<br />   (setq dcl_id (load_dialog "dia5d"))  ;加载DCL文件<br />   (if (not (new_dialog "dia5d" dcl_id))(exit))  ;启动对话框<br />   (set_tile "t_cir" (itoa cir_num))  ;显示圆的统计数量于对话框<br />   (set_tile "t_line" (itoa line_num))  ;显示直线的统计数量于对话框<br />   (set_tile "t_text" (itoa text_num))  ;显示文字的统计数量与对话框<br />   (setq dd (start_dialog))<br />   )

328302216

后面的这个也是书上面的，对于各位老大们来说帮可能的只是一个小忙，但是对于我来说可是大忙了！

328302216

终于自己整出来了

pw2543

大半个月也没人来过

zhangcan0515

没有啥问题，需要仔细一点