[不死猫原创] 利用文字排列实现可视化DCL开发(开源)

nonsmall

用文字排列组合之后,经过简单的代码解析,即可实现DCL编码的可视化. 下面是完整开发思路,使用教程

源码见

你的代码写什么样子,DCL就是什么样子:

894560869

高山仰止                     

未来的迷茫

果然很大神要是能加颜色啥的就好了

趣意人生

谢谢楼主分享，学习

nonsmall

测试代码和核心函数下载

2. ;nonsmall 作品 可视化DCL新思路
   
3. (defun c:tt( / dcl_id f file i stra)
   
4.     ;这里就是你要的排列样式
   
5.     (setq stra "nonsmall:dialog{label="可视化DCL";" i 0)
   
6.     (setq stra (strcat stra (getdcl dcl)))
   
7.     (setq stra (strcat stra "ok_cancel;}"))     
   
8.     ;把DCL代码写出并且调用观看效果
   
9.     (setq file "d:\\test.dcl")
   
10.     (if (findfile file)
    
11.         (setq f (open "d:\\test.dcl" "w"))
    
12.         (setq f (open "d:\\test.dcl" "a"))
    
13.     )
    
14.     (write-line stra f)
    
15.     (close f)
    
16.     (setq dcl_id (load_dialog file))
    
17.     (new_dialog "nonsmall" dcl_id)
    
18.     (start_dialog)
    
19.     (unload_dialog dcl_id)
    
20.     (startapp "notepad" file)
    
21.     (princ)
    
22. )
    
23. 
    
24. (setq dcl '(
    
25.     ("群1-2个" "群2-3个" "群3-图")
    
26.     ("群4-其他控件")
    
27. ))
    
28. (setq 群1 '(
    
29.     ("组1")
    
30. ))
    
31. (setq 组1 '(
    
32.     ("单选-单选1")
    
33.     ("单选-单选2")
    
34. ))
    
35. (setq 群2 '(
    
36.     ("多选-多选1")
    
37.     ("多选-多选2")
    
38.     ("多选-多选3")
    
39. ))
    
40. (setq 群3 '(
    
41.     ("图像")
    
42.     ("按钮-按钮")
    
43. ))
    
44. (setq 群4 '(
    
45.     ("竖滚动" "群5-嵌套")
    
46. ))
    
47. (setq 群5 '(
    
48.     ("横滚动")
    
49.     ("下拉")
    
50.     ("文字-我的DCL")
    
51. ))
    
52. (princ)

;nonsmall 作品 可视化DCL新思路 <br /> (defun c:tt( / dcl_id f file i stra) <br />     ;这里就是你要的排列样式 <br />     (setq stra "nonsmall:dialog{label="可视化DCL";" i 0) <br />     (setq stra (strcat stra (getdcl dcl))) <br />     (setq stra (strcat stra "ok_cancel;}"))     <br />     ;把DCL代码写出并且调用观看效果 <br />     (setq file "d:\\test.dcl") <br />     (if (findfile file) <br />         (setq f (open "d:\\test.dcl" "w")) <br />         (setq f (open "d:\\test.dcl" "a")) <br />     ) <br />     (write-line stra f) <br />     (close f) <br />     (setq dcl_id (load_dialog file)) <br />     (new_dialog "nonsmall" dcl_id) <br />     (start_dialog) <br />     (unload_dialog dcl_id) <br />     (startapp "notepad" file) <br />     (princ) <br /> ) <br /> <br /> (setq dcl '( <br />     ("群1-2个" "群2-3个" "群3-图") <br />     ("群4-其他控件") <br /> )) <br /> (setq 群1 '( <br />     ("组1") <br /> )) <br /> (setq 组1 '( <br />     ("单选-单选1") <br />     ("单选-单选2") <br /> )) <br /> (setq 群2 '( <br />     ("多选-多选1") <br />     ("多选-多选2") <br />     ("多选-多选3") <br /> )) <br /> (setq 群3 '( <br />     ("图像") <br />     ("按钮-按钮") <br /> )) <br /> (setq 群4 '( <br />     ("竖滚动" "群5-嵌套") <br /> )) <br /> (setq 群5 '( <br />     ("横滚动") <br />     ("下拉") <br />     ("文字-我的DCL") <br /> )) <br /> (princ)

自动生成的DCL代码如下:

2. 
   
3. nonsmall:dialog{label="可视化DCL";:row{:boxed_column{ label = "2个";:row{:column{:row{:radio_button{key = "radio3"; label = "单选1" ;}}:row{:radio_button{key = "radio4"; label = "单选2" ;}}}}}:boxed_column{ label = "3个";:row{:toggle{key = "toggle6"; label = "多选1" ;}}:row{:toggle{key = "toggle7"; label = "多选2" ;}}:row{:toggle{key = "toggle8"; label = "多选3" ;}}}:boxed_column{ label = "图";:row{:image_button{key = "list10" ;width = 18.15 ;height = 7.875 ;}}:row{:button{key = "bt11"; label = "按钮" ;}}}}:row{:boxed_column{ label = "其他控件";:row{:slider{key = "list13" ;layout = vertical ;}:boxed_column{ label = "嵌套";:row{:slider{key = "list15" ;layout = horizontal ;}}:row{:popup_list{key = "list16" ;}}:row{:text{key = "txt17"; label = "我的DCL" ;}}}}}}ok_cancel;}
   
4. 
   

<br /> nonsmall:dialog{label="可视化DCL";:row{:boxed_column{ label = "2个";:row{:column{:row{:radio_button{key = "radio3"; label = "单选1" ;}}:row{:radio_button{key = "radio4"; label = "单选2" ;}}}}}:boxed_column{ label = "3个";:row{:toggle{key = "toggle6"; label = "多选1" ;}}:row{:toggle{key = "toggle7"; label = "多选2" ;}}:row{:toggle{key = "toggle8"; label = "多选3" ;}}}:boxed_column{ label = "图";:row{:image_button{key = "list10" ;width = 18.15 ;height = 7.875 ;}}:row{:button{key = "bt11"; label = "按钮" ;}}}}:row{:boxed_column{ label = "其他控件";:row{:slider{key = "list13" ;layout = vertical ;}:boxed_column{ label = "嵌套";:row{:slider{key = "list15" ;layout = horizontal ;}}:row{:popup_list{key = "list16" ;}}:row{:text{key = "txt17"; label = "我的DCL" ;}}}}}}ok_cancel;}<br /> <br />

nonsmall

说明:

本程序支持的关键词包括:

按钮 输入 列表 下拉 文字 单选 多选 图像 竖滚动 横滚动 群 组

其中支持带有说明文字的:

按钮-说明

文字-说明

单选-说明

多选-说明

群和组支持1-9个,后面也可以有说明

详见1楼的思路说明

露水2

猫是花样百出啊

露水2

nonsmall发表于2010-6-16 10:30:00说明: 本程序支持的关键词包括: 按钮 输入 列表 下拉 文字 单选 多选 图像 竖滚动 横滚动 群 组 其中支持带有说明文字的: 按钮-说明 文字-说明 单选-说明 多选-说明 群和组支持1-9个,后

nonsmall

黑色钢琴发表于2010-6-16 14:09:00DCL简单，用飞诗的制作DCL一下子就出来，没必要搞太复杂

无知真可怕。

hzj526

支持一下

lsjj

nonsmall发表于2010-6-17 9:50:00KO，liminnet，我的东西不需要你评价。 你都说过了不来明经论坛的，说话不算话。

他在08年說話的語氣多謙虛啊