[原创]：DCL对话框简化编程

wujimmy

在程序中对于对话框是很麻烦的事情.
如果全部用LISP来写对话框就方便了.
以下就是个例子.

每一行就是一个控件
(list 变量名 提示语 变量类型)
例1:
(list "is_wpj" "wpj*.dwg" "bool")
例2:
(list "other-scale" "放大倍数" "int")


当变量名为nil 时表示一个对话框控制字符(这个要了解相关语法 )
例1: 注,下面的要成对出现,而且然后把其他的东西(编辑框等)放在里面
(list nil "" ": boxed_row{");;横向排列各控件
(list "is_wpj" "wpj*.dwg" "bool").......
(list nil nil "}")

例2:
(list nil "" ": boxed_column{");;竖向排列各控件
(list "is_wpj" "wpj*.dwg" "bool").......
(list nil nil "}")

2. 
   
3.   [FONT=courier new]
   
4. 例子1:
   
5. 
   
6. (setq initlist
   
7.        (list
   
8.          (list nil "" ": boxed_row{")
   
9.          (list "filedir" "工程路径" "str")
   
10.          (list nil ">" "button" "(select-dir)")
    
11.          (list nil nil "}")
    
12.          (list "is_for_plt" "生成用于配筋计算书(否则为打印用计算书)" "bool")
    
13.          
    
14.          (list nil "" ": boxed_column{")
    
15.          ;(list nil "" ": boxed_row{")
    
16.          (list "is_wpj" "wpj*.dwg" "bool")
    
17.          (list "block_pre_name" "块名加前缀" "str")
    
18.          (list "is_on_one_point" "是否插入同一点" "bool")
    
19.          ;(list nil nil "}")
    
20.          (list "floor-str" "层号范围(空格分开,全部留空)" "str")
    
21.           (list nil nil "}")
    
22.          (list "is_bpj" "*板计算结果*.dwg" "bool")
    
23.          (list "is_flr" "FLR*.dwg" "bool")
    
24.          (list "is_load" "第??层梁、墙柱节点输入及楼面荷载平面图.DWG" "bool")
    
25.          (list "is_jccad" "*wdcnl*.dwg" "bool")
    
26.          (list nil "" ": boxed_column{")
    
27.          (list "is_other" "插入其他DWG文件" "bool")
    
28.          (list "other-str" "通配符" "str")
    
29.          (list "other-scale" "放大倍数" "int")
    
30.          (list nil nil "}")
    
31.          )
    
32.        )
    
33.       
    
34. (init initlist)
    
35. 
    
36. 
    
37. 
    
38. ;;例子2
    
39. (defun c:tt()
    
40.   (setq INITLIST (list
    
41.                    (list "is_save_windows_rt" "rt时是否保存窗口" "bool")
    
42.                    (list "change_color_rt" "rt时改变颜色" "bool")
    
43.                    (list "is_princ_tip_rt" "是否打开提示" "bool")
    
44.                    (list "replacs_char" "输入替代字符" "str")
    
45.            ))
    
46.   (init initlist "dlg")
    
47.   )
    
48.   [/FONT]
    

<br />   [FONT=courier new]<br /> 例子1:<br /> <br /> (setq initlist<br />        (list<br />          (list nil "" ": boxed_row{")<br />          (list "filedir" "工程路径" "str")<br />          (list nil ">" "button" "(select-dir)")<br />          (list nil nil "}")<br />          (list "is_for_plt" "生成用于配筋计算书(否则为打印用计算书)" "bool")<br />          <br />          (list nil "" ": boxed_column{")<br />          ;(list nil "" ": boxed_row{")<br />          (list "is_wpj" "wpj*.dwg" "bool")<br />          (list "block_pre_name" "块名加前缀" "str")<br />          (list "is_on_one_point" "是否插入同一点" "bool")<br />          ;(list nil nil "}")<br />          (list "floor-str" "层号范围(空格分开,全部留空)" "str")<br />           (list nil nil "}")<br />          (list "is_bpj" "*板计算结果*.dwg" "bool")<br />          (list "is_flr" "FLR*.dwg" "bool")<br />          (list "is_load" "第??层梁、墙柱节点输入及楼面荷载平面图.DWG" "bool")<br />          (list "is_jccad" "*wdcnl*.dwg" "bool")<br />          (list nil "" ": boxed_column{")<br />          (list "is_other" "插入其他DWG文件" "bool")<br />          (list "other-str" "通配符" "str")<br />          (list "other-scale" "放大倍数" "int")<br />          (list nil nil "}")<br />          )<br />        )<br />        <br /> (init initlist)<br /> <br /> <br /> <br /> ;;例子2<br /> (defun c:tt()<br />   (setq INITLIST (list<br />                    (list "is_save_windows_rt" "rt时是否保存窗口" "bool")<br />                    (list "change_color_rt" "rt时改变颜色" "bool")<br />                    (list "is_princ_tip_rt" "是否打开提示" "bool")<br />                    (list "replacs_char" "输入替代字符" "str")<br />            ))<br />   (init initlist "dlg")<br />   )<br />   [/FONT]<br />

wujimmy

如果万一上面少了什么函数(基本的函数都给出源码了)
就加载以下库文件.试一下效果.
因为没仔细测试,
如果少了什么函数.跟帖说明一下.

它山之石

看起来
跟mmmm的有点像

ulganix

我现在只用vba做界面了。

xshrimp

action_tile 等怎么处理.

wujimmy

不要用到对话框函数了.
直接用上面的方法就可以设置变量了.

fsxm

见偶的lisdcl系列工具~
从做DCL界面
到初始化对话框值
以及动态DCL界面
返回调用结果
都有相对完整的解决方案啦~

ddkk2005

无法下载？

god1478

？？　我基础太差　没看懂说明　　能举例说明下吗？

ubzbh

无法下载？？？？？？？？

zteykmgscqh

wujimmy 发表于 2008-2-2 11:46
如果万一上面少了什么函数(基本的函数都给出源码了)
就加载以下库文件.试一下效果.
因为没仔细测试,

就差关键的init函数了，{:soso_e113:}

cable2004

{:soso_e113:}

cable2004

好东西。只是没用源码！{:soso_e179:}{:soso_e179:}{:soso_e179:}{:soso_e179:}