dcl 闪退了，不知道为什么

bingshuier

1. (defun c:xx()
   
2.   (setvar "cmdecho" 0)
   
3.   (setq dcl_id1 (load_dialog "C:\\Documents and Settings\\Administrator\\桌面
   
4. 
   
5. \\lisp练习程序\\dcl\\edit-box.dcl"))
   
6.   (new_dialog "aa" dcl_id1)
   
7.   (set_tile "pline1" (rtos (getvar "plinewid")))
   
8.   (set_tile "filiet1" (rtos (getvar "filltrad")))
   
9.   (set_tile "text1" (rtos (getvar "textsize")))
   
10.   (set_tile "save1" (itoa (getvar "savetime")))
    
11.   (action_tile "accept" "(func1)(done_dialog 1)")
    
12.   (start_dialog)
    
13.   )
    
14. (defun func1()
    
15.   (setvar "plinewid" (atof (get_tile "pline1")))
    
16.   (setvar "filltrad" (atof (get_tile "filiet1")))
    
17.   (setvar "textsize" (atof (get_tile "text1")))
    
18.   (setvar "savetime" (atoi (get_tile "save1")))
    
19. )
    
20. 
    
21. [code=dcl]aa:dialog{
    
22.     label="AutoCAD绘图默认值设置";
    
23.     :edit_box
    
24.          {
    
25.            label="Pline宽度";
    
26.            key="pline1";
    
27.            edit_width=10;
    
28.          }
    
29.     :edit_box
    
30.          {
    
31.            label="Filiet半径";
    
32.            key="filiet1";
    
33.            edit_width=10;
    
34.          }
    
35.     :edit_box
    
36.          {
    
37.            label="TEXT字高";
    
38.            key="text1";
    
39.            edit_width=10;           
    
40.          }
    
41.      :edit_box
    
42.          {
    
43.            label="自动保存时间";
    
44.            key="save1";
    
45.            edit_width=10;               
    
46.          }
    
47. ok_cancel;
    
48. }

(defun c:xx()<br />   (setvar "cmdecho" 0)<br />   (setq dcl_id1 (load_dialog "C:\\Documents and Settings\\Administrator\\桌面<br /> <br /> \\lisp练习程序\\dcl\\edit-box.dcl"))<br />   (new_dialog "aa" dcl_id1)<br />   (set_tile "pline1" (rtos (getvar "plinewid")))<br />   (set_tile "filiet1" (rtos (getvar "filltrad")))<br />   (set_tile "text1" (rtos (getvar "textsize")))<br />   (set_tile "save1" (itoa (getvar "savetime")))<br />   (action_tile "accept" "(func1)(done_dialog 1)")<br />   (start_dialog)<br />   )<br /> (defun func1()<br />   (setvar "plinewid" (atof (get_tile "pline1")))<br />   (setvar "filltrad" (atof (get_tile "filiet1")))<br />   (setvar "textsize" (atof (get_tile "text1")))<br />   (setvar "savetime" (atoi (get_tile "save1")))<br /> )<br /> <br /> [code=dcl]aa:dialog{<br />     label="<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>绘图默认值设置";<br />     :edit_box<br />          {<br />            label="Pline宽度";<br />            key="pline1";<br />            edit_width=10;<br />          }<br />     :edit_box<br />          {<br />            label="Filiet半径";<br />            key="filiet1";<br />            edit_width=10;<br />          }<br />     :edit_box<br />          {<br />            label="TEXT字高";<br />            key="text1";<br />            edit_width=10;           <br />          }<br />      :edit_box<br />          {<br />            label="自动保存时间";<br />            key="save1";<br />            edit_width=10;               <br />          }<br /> ok_cancel;<br /> }

[/code]

bingshuier

自己摸索了好久 终于知道什么问题了！！

llsheng_73

set_tile的时候给了错误数据型？

bingshuier

llsheng_73 发表于 2014-9-24 18:36
set_tile的时候给了错误数据型？

是控件的长度太长了！

llsheng_73

bingshuier 发表于 2014-9-24 20:49
是控件的长度太长了！

加一个:column{  }
把:EDIT_box全放到里边就不会太长了，好象它默认会是:row{ }？