DCL对话框

xtdwynij

看了一下关中大师的DCL对话框  可惜我的电脑坏了！学习的话相当有难度  不知道哪位大师可以出手写一下 会用DCL对话框的人是不难的！附图如  要求如下：
1如假厂名打上勾 那么就按照字大小 厂名 色来生成文字  这里的难点就是读取外部TXT文件 假如TXT文件增加了则对话框中也会增加 减少的话也会减少！
2同上
现在附上关中大师的程序源码!希望高手出手相助一下  电脑坏了  学习很有难度！

2. (vl-load-com)
   
3. (defun c:test ( / dcl_id dd )
   
4. 
   
5.   (setq dcl_id (load_dialog "test"));加载对话框文件  把对话框文件放在支持文件搜索路径下
   
6.   (if (< dcl_id 0);如果对话框文件返回值为0
   
7.     (PROGN
   
8.       (alert "\n请把对话框文件放在支持文件搜索路径下")
   
9.       (exit)
   
10.     )
    
11.   )
    
12.   (new_dialog "test" dcl_id);启动对话框
    
13.   (test_sub_3);数据成表
    
14.   (show_list "wlist" word_list);增加列表  wlist插图比例返回值
    
15.   (if (and
    
16.   tt
    
17.   (vl-position tt word_list)
    
18.       )
    
19.     (progn
    
20.       (set_tile "wlist" (itoa (vl-position tt word_list)));设定属性值
    
21.       (set_tile "wlist1" tt);wlist1编辑返回值 (setq tt (get_tile "wlist1"))
    
22.     )
    
23.     (progn
    
24.       (set_tile "wlist" "0")
    
25.       (set_tile "wlist1" "A")
    
26.     )
    
27.   )
    
28. 
    
29.   (action_tile "wlist" "(test_sub_2 $value)")
    
30.   (action_tile "accept" "(ok_test)(done_dialog 1)")
    
31.   (action_tile "cancel" "(DONE_DIALOG 0)")
    
32.   (setq dd (start_dialog))
    
33.   (if (= dd 1)
    
34.     (princ "\n****操作完成****")
    
35.     (princ "\n****操作已取消****")
    
36.   )
    
37.   (princ)
    
38. )
    
39. 
    
40. 
    
41. (defun test_sub_1 (txt / dat_file ff);写入文件
    
42.   (setq dat_file (findfile "test.TXT"))
    
43.   (setq ff (open dat_file "a"))
    
44.   (write-line txt ff);写入文件到FF文件中
    
45.   (close ff)
    
46. )
    
47. 
    
48. (defun test_sub_2 (vvs)
    
49.   (set_tile "wlist1" (nth (atoi vvs) word_list))
    
50. )
    
51. 
    
52. ;;; 读文本数据成表
    
53. (defun test_sub_3 (/ data datalist ff file datalist1 n i)
    
54.   (setq file (findfile "test.TXT"));查找这个文件
    
55.   (setq ff (open file "R"));以只读方式打开这个文件
    
56.   (setq data (read-line ff));读取这个文件
    
57.   (setq datalist '());建一个新的表
    
58.   (while data
    
59.     (setq datalist (cons data datalist))
    
60.     (setq data (read-line ff))
    
61.   )
    
62.   (close ff)
    
63.   (setq word_list (reverse datalist))
    
64.   (prin1)
    
65. )
    
66. 
    
67. 
    
68. (defun ok_test (/ data datalist ff file)
    
69.   (setq tt (get_tile "wlist1"))
    
70.   (if (= (member tt word_list) nil)    ; 如果编辑栏的内容不在列表中则将其增?
    
71.                ; 拥搅斜?
    
72.     (progn
    
73.       (test_sub_1 tt)
    
74.       (setq file (findfile "test.TXT"))
    
75.       (setq ff (open file "R"))
    
76.       (setq data (read-line ff))
    
77.       (setq datalist '())
    
78.       (while data
    
79.   (setq datalist (cons data datalist))
    
80.   (setq data (read-line ff))
    
81.       )
    
82.       (close ff)
    
83.       (setq word_list (reverse datalist))
    
84.     )
    
85.   )
    
86. )
    
87. 
    
88. 
    
89. (defun show_list (key newlist)
    
90.   (start_list key);增加或者删除列表
    
91.   (mapcar
    
92.     'add_list ;增加列表进去
    
93.     newlist
    
94.   )
    
95.   (end_list);结束列表
    
96. )
    

(vl-load-com)<br /> (defun c:test ( / dcl_id dd )<br /> <br />   (setq dcl_id (load_dialog "test"));加载对话框文件  把对话框文件放在支持文件搜索路径下<br />   (if (< dcl_id 0);如果对话框文件返回值为0<br />     (PROGN<br />       (alert "\n请把对话框文件放在支持文件搜索路径下")<br />       (exit)<br />     )<br />   )<br />   (new_dialog "test" dcl_id);启动对话框<br />   (test_sub_3);数据成表<br />   (show_list "wlist" word_list);增加列表  wlist插图比例返回值<br />   (if (and<br />   tt<br />   (vl-position tt word_list)<br />       )<br />     (progn<br />       (set_tile "wlist" (itoa (vl-position tt word_list)));设定属性值<br />       (set_tile "wlist1" tt);wlist1编辑返回值 (setq tt (get_tile "wlist1"))<br />     )<br />     (progn<br />       (set_tile "wlist" "0")<br />       (set_tile "wlist1" "A")<br />     )<br />   )<br /> <br />   (action_tile "wlist" "(test_sub_2 $value)")<br />   (action_tile "accept" "(ok_test)(done_dialog 1)")<br />   (action_tile "cancel" "(DONE_DIALOG 0)")<br />   (setq dd (start_dialog))<br />   (if (= dd 1)<br />     (princ "\n****操作完成****")<br />     (princ "\n****操作已取消****")<br />   )<br />   (princ)<br /> )<br /> <br /> <br /> (defun test_sub_1 (txt / dat_file ff);写入文件<br />   (setq dat_file (findfile "test.TXT"))<br />   (setq ff (open dat_file "a"))<br />   (write-line txt ff);写入文件到FF文件中<br />   (close ff)<br /> )<br /> <br /> (defun test_sub_2 (vvs)<br />   (set_tile "wlist1" (nth (atoi vvs) word_list))<br /> )<br /> <br /> ;;; 读文本数据成表<br /> (defun test_sub_3 (/ data datalist ff file datalist1 n i)<br />   (setq file (findfile "test.TXT"));查找这个文件<br />   (setq ff (open file "R"));以只读方式打开这个文件<br />   (setq data (read-line ff));读取这个文件<br />   (setq datalist '());建一个新的表<br />   (while data<br />     (setq datalist (cons data datalist))<br />     (setq data (read-line ff))<br />   )<br />   (close ff)<br />   (setq word_list (reverse datalist))<br />   (prin1)<br /> )<br /> <br /> <br /> (defun ok_test (/ data datalist ff file)<br />   (setq tt (get_tile "wlist1"))<br />   (if (= (member tt word_list) nil)    ; 如果编辑栏的内容不在列表中则将其增?<br />                ; 拥搅斜?<br />     (progn<br />       (test_sub_1 tt)<br />       (setq file (findfile "test.TXT"))<br />       (setq ff (open file "R"))<br />       (setq data (read-line ff))<br />       (setq datalist '())<br />       (while data<br />   (setq datalist (cons data datalist))<br />   (setq data (read-line ff))<br />       )<br />       (close ff)<br />       (setq word_list (reverse datalist))<br />     )<br />   )<br /> )<br /> <br /> <br /> (defun show_list (key newlist)<br />   (start_list key);增加或者删除列表<br />   (mapcar<br />     'add_list ;增加列表进去<br />     newlist<br />   )<br />   (end_list);结束列表<br /> )<br />

xtdwynij

2. 
   
3. test:dialog {
   
4.          :popup_list {
   
5.             key = "wlist" ;
   
6.             label = "插图比例" ;
   
7.         }
   
8.         :edit_box {
   
9.             alignment = centered ;
   
10.             key = "wlist1" ;
    
11.         }
    
12.     :spacer {}
    
13.     ok_cancel;
    
14. }
    

<br /> test:dialog {<br />          :popup_list {<br />             key = "wlist" ;<br />             label = "插图比例" ;<br />         }<br />         :edit_box {<br />             alignment = centered ;<br />             key = "wlist1" ;<br />         }<br />     :spacer {}<br />     ok_cancel;<br /> }<br />

关中老师的对话框！看不懂！

csharp

既然读取 TXT 来变换，那勾选的时候就再一次 TXT

xtdwynij

csharp 发表于 2014-7-29 19:16
既然读取 TXT 来变换，那勾选的时候就再一次 TXT

不大懂这些！如果不勾选的话那就不用生成第一行的厂名  只生成第二行的！我是这样想的  没有学过DCL   电脑也坏了 不然也不敢上来麻烦大家！师兄如果懂的话而且有空不妨帮我一下！

flfcegu168

如何读取外部TEXT文件  我也正好不会   

yinchuan99001

test:dialog{
label="文字应用";
:boxed_row
{
label="厂名";
:edit_box{
         label= "厂名开关";
         key= "edit_q";
         edit_width = 15;
         
}

:edit_box{
         label= "字体高度";
         key= "edit_h";
         edit_width = 15;
}
  :popup_list
       {
          key = "Combo1" ;
          label = "厂名" ;
          width = 15.5 ;
          height = 1.5 ;
                }
  :popup_list
       {
          key = "Combo2" ;
          label = "颜 色" ;
          width = 15.5 ;
          height = 1.5 ;
                }              
            
}
:boxed_row
{
label="孔";
:edit_box{
         label= "孔开关";
         key= "edit_a";
         edit_width = 15;
         
}

:edit_box{
         label= "字体高度";
         key= "edit_b";
         edit_width = 15;
}
  :popup_list
       {
          key = "Combo3" ;
          label = "直 径" ;
          width = 15.5 ;
          height = 1.5 ;
                }
  :popup_list
       {
          key = "Combo4" ;
          label = "孔类型" ;
          width = 15.5 ;
          height = 1.5 ;
                }              
            
}
ok_cancel;

}

yinchuan99001

看看可否，学习参考之用。