[教学]：odcl应用一例：编辑当前配置中的acad.pgp

haijiangl

test01.lsp内容如下，
test01.odc见附件。

2. 
   
3.   [FONT=courier new]
   
4. 
   
5. ;文件转为表
   
6. (defun lhj_f2l (fname / f res temp)
   
7.   (setq        f   (open fname "r")
   
8.         res '()
   
9.   )
   
10.   (while (setq temp (read-line f))
    
11.     (setq res (cons temp res))
    
12.   )
    
13.   (close f)
    
14.   (reverse res)
    
15. )
    
16. 
    
17. ;表转为文件
    
18. (defun lhj_l2f (li fname / res f temp)
    
19.   (setq        f   (open fname "w"))
    
20.   (foreach x li
    
21.     (write-line x f)
    
22.     )
    
23.   (close f)
    
24.   (setq res f)
    
25. )
    
26. 
    
27. (defun c:test01        (/ file file_list line_index line_old line_new)
    
28. 
    
29.   ;;定义装载objectdcl.arx,
    
30.   (defun ObjectDCL_LoadArx ()
    
31.     (if        (not (member "objectdcl.arx" (arx)));如果没有加载objectdcl.arx,
    
32.       (arxload "objectdcl.arx" "ObjectDCL.arx not found.");加载,
    
33.     )
    
34.   )
    
35. 
    
36.   
    
37.   ;;定义对话框初始化的函数,
    
38.   (defun c:test01_OnInitialize ()
    
39.     (setq file            (findfile "acad.pgp");寻找当前profile配置中的acad.pgp文件,
    
40.           file_list (lhj_f2l file);将其转换为表格,
    
41.     )
    
42.     (Odcl_ListBox_Clear test01_test01_ListBox);清空ListBox控件,
    
43.     (Odcl_ListBox_AddList test01_test01_ListBox file_list);将pgp文件内容添加进ListBox控件,
    
44.   )
    
45. 
    
46.   ;;定义listbox控件在被双击时的函数,
    
47.   (defun c:test01_ListBox_OnDblClicked ()
    
48.     (Setq line_index (Odcl_ListBox_GetCurSel test01_test01_ListBox);获取双击条目(item)的索引号,
    
49.           line_old   (nth line_index file_list);对未修改的一行赋值,
    
50.     )
    
51.     (Odcl_Control_SetProperty test01_test01_line1 "Text" line_old);将该行内容赋值给line1控件,
    
52.   )
    
53. 
    
54.   ;;定义line1控件被修改结束时的函数,
    
55.   (defun c:test01_line1_OnReturnPressed        ()
    
56.     (Setq
    
57.       line_new (Odcl_Control_GetProperty test01_test01_line1 "Text")
    
58.     );对修改后的一行赋值,
    
59.     (if        (and line_old (/= line_old line_new));判断修改后的一行是通过ListBox控件而来，并有改动,
    
60.       (progn
    
61.         (setq file_list (subst line_new line_old file_list));替换表格,
    
62.         (Odcl_ListBox_Clear test01_test01_ListBox);--------------\
    
63.         (Odcl_ListBox_AddList test01_test01_ListBox file_list);---\-----刷新ListBox控件,
    
64.         (Odcl_ListBox_SetCurSel test01_test01_ListBox line_index);选择被修改的那一行,
    
65.         (setq line_old line_new);便于重复修改,
    
66.       )
    
67.     )
    
68.   )
    
69. 
    
70.   ;;定义add控件被单击时的函数,
    
71.   (defun c:test01_add_OnClicked        ()
    
72.     (Setq line_new (Odcl_Control_GetProperty test01_test01_line1 "Text"));获取line1控件的内容,
    
73.     (if        (/= line_new "");不为空,
    
74.       (progn
    
75.         (setq file_list (reverse (cons line_new (reverse file_list))));加入表格,
    
76.         (Odcl_ListBox_SetCurSel
    
77.           test01_test01_ListBox
    
78.           (Odcl_ListBox_AddString test01_test01_ListBox line_new);加入到ListBox控件，并选择该条目,
    
79.         )
    
80.         (setq line_old nil);
    
81.       )
    
82.     )
    
83.   )
    
84. 
    
85.   ;;定义ok控件(按钮)被单击时的函数,
    
86.   (defun c:test01_ok_OnClicked ()
    
87.     (lhj_l2f file_list file);表格转换为文件,
    
88.     (Odcl_Form_Close "test01" "test01");关闭对话框,
    
89.   )
    
90. 
    
91.   ;;定义cancel控件(按钮)被单击时的函数,
    
92.   (defun c:test01_cancel_OnClicked ()
    
93.     (Odcl_Form_Close "test01" "test01");关闭对话框,
    
94.   )
    
95. 
    
96.   ;;定义主程序,
    
97.   (ObjectDCL_LoadArx);加载objectdcl.arx,
    
98.   (Odcl_LoadProject "test01" t);加载test01.odc,
    
99.   (Odcl_Form_Show "test01" "test01");显示test01.doc文件中的test01对话框(Modal Form),
    
100.   (setq line_old nil)
     
101.   (princ);静默退出,
     
102. )
     
103.   [/FONT]
     

<br />   [FONT=courier new]<br /> <br /> ;文件转为表<br /> (defun lhj_f2l (fname / f res temp)<br />   (setq        f   (open fname "r")<br />         res '()<br />   )<br />   (while (setq temp (read-line f))<br />     (setq res (cons temp res))<br />   )<br />   (close f)<br />   (reverse res)<br /> )<br /> <br /> ;表转为文件<br /> (defun lhj_l2f (li fname / res f temp)<br />   (setq        f   (open fname "w"))<br />   (foreach x li<br />     (write-line x f)<br />     )<br />   (close f)<br />   (setq res f)<br /> )<br /> <br /> (defun c:test01        (/ file file_list line_index line_old line_new)<br /> <br />   ;;定义装载objectdcl.arx,<br />   (defun ObjectDCL_LoadArx ()<br />     (if        (not (member "objectdcl.arx" (arx)));如果没有加载objectdcl.arx,<br />       (arxload "objectdcl.arx" "ObjectDCL.arx not found.");加载,<br />     )<br />   )<br /> <br />   <br />   ;;定义对话框初始化的函数,<br />   (defun c:test01_OnInitialize ()<br />     (setq file            (findfile "acad.pgp");寻找当前profile配置中的acad.pgp文件,<br />           file_list (lhj_f2l file);将其转换为表格,<br />     )<br />     (Odcl_ListBox_Clear test01_test01_ListBox);清空ListBox控件,<br />     (Odcl_ListBox_AddList test01_test01_ListBox file_list);将pgp文件内容添加进ListBox控件,<br />   )<br /> <br />   ;;定义listbox控件在被双击时的函数,<br />   (defun c:test01_ListBox_OnDblClicked ()<br />     (Setq line_index (Odcl_ListBox_GetCurSel test01_test01_ListBox);获取双击条目(item)的索引号,<br />           line_old   (nth line_index file_list);对未修改的一行赋值,<br />     )<br />     (Odcl_Control_SetProperty test01_test01_line1 "Text" line_old);将该行内容赋值给line1控件,<br />   )<br /> <br />   ;;定义line1控件被修改结束时的函数,<br />   (defun c:test01_line1_OnReturnPressed        ()<br />     (Setq<br />       line_new (Odcl_Control_GetProperty test01_test01_line1 "Text")<br />     );对修改后的一行赋值,<br />     (if        (and line_old (/= line_old line_new));判断修改后的一行是通过ListBox控件而来，并有改动,<br />       (progn<br />         (setq file_list (subst line_new line_old file_list));替换表格,<br />         (Odcl_ListBox_Clear test01_test01_ListBox);--------------\<br />         (Odcl_ListBox_AddList test01_test01_ListBox file_list);---\-----刷新ListBox控件,<br />         (Odcl_ListBox_SetCurSel test01_test01_ListBox line_index);选择被修改的那一行,<br />         (setq line_old line_new);便于重复修改,<br />       )<br />     )<br />   )<br /> <br />   ;;定义add控件被单击时的函数,<br />   (defun c:test01_add_OnClicked        ()<br />     (Setq line_new (Odcl_Control_GetProperty test01_test01_line1 "Text"));获取line1控件的内容,<br />     (if        (/= line_new "");不为空,<br />       (progn<br />         (setq file_list (reverse (cons line_new (reverse file_list))));加入表格,<br />         (Odcl_ListBox_SetCurSel<br />           test01_test01_ListBox<br />           (Odcl_ListBox_AddString test01_test01_ListBox line_new);加入到ListBox控件，并选择该条目,<br />         )<br />         (setq line_old nil);<br />       )<br />     )<br />   )<br /> <br />   ;;定义ok控件(按钮)被单击时的函数,<br />   (defun c:test01_ok_OnClicked ()<br />     (lhj_l2f file_list file);表格转换为文件,<br />     (Odcl_Form_Close "test01" "test01");关闭对话框,<br />   )<br /> <br />   ;;定义cancel控件(按钮)被单击时的函数,<br />   (defun c:test01_cancel_OnClicked ()<br />     (Odcl_Form_Close "test01" "test01");关闭对话框,<br />   )<br /> <br />   ;;定义主程序,<br />   (ObjectDCL_LoadArx);加载objectdcl.arx,<br />   (Odcl_LoadProject "test01" t);加载test01.odc,<br />   (Odcl_Form_Show "test01" "test01");显示test01.doc文件中的test01对话框(Modal Form),<br />   (setq line_old nil)<br />   (princ);静默退出,<br /> )<br />   [/FONT]<br />

其实可以编的简单些，不需要使用listbox，目前这样只是想多了解一下odcl，初学乍练，多多交流！
另：aeo同志的objectdcl.arx可用，非常感谢！

haijiangl

对话框外观