[原创]：可视化DCL全自动制作程序

nonsmall

思路:
用VB拖一个窗体
用程序分析.frm文件
自动生成DCL代码
自动生成Lisp初始化DCL代码
自动生成注释代码即可.

实现结果:
无需任何DCL知识的学习就可以几分钟做出复杂的DCL界面
同时完成lisp连接和全部控件初始化的程序.
无需任何VB开发知识的学习,只需会简单的拖动出窗体操作即可


示例:程序自动生成代码内容
;----------------------------------------------------------------------------------------
;nonsmall 作品: Visual DCL 对话框自动连接程序
;本代码及注释全部由Visual DCL程序自动生成

(defun c:tt();此部分是测试代码用
        (Form1_load)
)

(defun Form1_load( / dcl_id Dialog_Return key keys Dcl_File)
        (setq dcl_id (load_dialog (setq Dcl_File (Write_Dcl))));对话框加载
        (vl-file-delete Dcl_File);加载后删除DCL文件
        (setq Dialog_Return 2)
        (while (> Dialog_Return 1) ;循环控制对话框是否结束
                (new_dialog "Form1" dcl_id);建立窗体
;-->-->-对话框初始化->-->--
                (setq keys '("Command1" "Check1" "Option1" "Text1" "List1" "List3" "Combo1" "HScroll1" "accept" "cancel" "VScroll1" "Picture1" "Image1"));列表全部控件名称
                (start_list "List1");直列表 {"List1"} 初始化
                (mapcar 'add_list keys);添加列表项
                (end_list)
               
                (start_list "List3");直列表 {"List3"} 初始化
                (mapcar 'add_list keys);添加列表项
                (end_list)
               
                (start_list "Combo1");下拉列表 {"Combo1"} 初始化
                (mapcar 'add_list keys);添加列表项
                (end_list)
               
                (start_image "Picture1");图像 {"Picture1"} 初始化
                (fill_image 0 0 (dimx_tile "Picture1") (dimy_tile "Picture1") 0);图像填充黑色背景
                (slide_image 0 0 (dimx_tile "Picture1") (dimy_tile "Picture1") "");图像显示SLD幻灯片
                (end_image)
               
                (start_image "Image1");图像 {"Image1"} 初始化
                (fill_image 0 0 (dimx_tile "Image1") (dimy_tile "Image1") 0);图像填充黑色背景
                (slide_image 0 0 (dimx_tile "Image1") (dimy_tile "Image1") "");图像显示SLD幻灯片
                (end_image)
               
                (foreach key keys;全部控件的初始化
                        (if (eval (read (strcat key "_bak"))) (set_tile key (eval (read (strcat key "_bak")))));控件内容
                        (action_tile key "(Action_Form1_Keys $key $value)");点击动作
                )
;--<--<-对话框初始化完成-<--<--
                (setq Dialog_Return (start_dialog));开启对话框(用户可见)
        )
        (unload_dialog dcl_id);退出时卸载对话框
        (princ);防止函数回显
)

(defun Action_Form1_Keys (key value) ;全部控件的点击动作触发
        (print (list key value))(print "*-------*");测试代码 用后删除
        (cond
                ((= key "accept") ;{确认按钮}
                       
                        (Get_Form1_Data)
                        (done_dialog 1);对话框退出返回主函数 传递给Dialog_Return值为1
                )
                ((= key "cancel") ;{取消按钮}
                       
                        (done_dialog 0);对话框退出返回主函数 传递给Dialog_Return值为0
                )
                ((= key "Command1") ; {"Command1"} (按钮)
                        ()
                )
                ((= key "Check1") ; {"Check1"} (多选按钮)
                        ()
                )
                ((= key "Option1") ; {"Option1"} (单选按钮)
                        ()
                )
                ((= key "List1") ; {} (普通列表)
                        ()
                )
                ((= key "List3") ; {} (普通列表)
                        ()
                )
                ((= key "Combo1") ; {} (下拉列表)
                        ()
                )
                ((= key "HScroll1") ; {} (滑块)
                        ()
                )
                ((= key "VScroll1") ; {} (滑块)
                        ()
                )
                ((= key "Picture1") ; {} (图像按钮)
                        ()
                )
                ((= key "Image1") ; {} (图像按钮)
                        ()
                )
        )
)
(defun Get_Form1_Data( / key);临时生成Dcl文件 返回文件名
        (foreach key keys
                (set (read (strcat key "_bak")) (get_tile key));每个控件都赋给一个变量 用于下次开启初始化
        )
)
(defun Write_Dcl( / Dcl_File file str)
        (setq Dcl_File (vl-filename-mktemp nil nil ".Dcl"))
        (setq file (open Dcl_File "w"))
        (foreach str '(
                "/*nonsmall 作品: Visual DCL*/"
                "//本代码全部由Visual DCL程序自动生成"
                ""
                "Form1:dialog"
                "{"
                " label = \"nonsmall 可视化 DCL\";"
                "    :column"
                "    {"
                "        :row"
                "        {"
                "            :boxed_column"
                "            {"
                "             key = \"Frame1\" ;"
                "             label = \"按钮\" ;"
                "                :button"
                "                {"
                "                    key = \"Command1\" ;"
                "                    label = \"Command1\" ;"
                "                    width = 27.75 ;"
                "                    height = 1.875 ;"
                "                    fixed_height = true ;"
                "                    fixed_width = true ;"
                "                }"
                "            }"
                "            :boxed_column"
                "            {"
                "             key = \"Frame2\" ;"
                "             label = \"复选\" ;"
                "                :toggle"
                "                {"
                "                    key = \"Check1\" ;"
                "                    label = \"Check1\" ;"
                "                    width = 10.95 ;"
                "                    height = 1.275 ;"
                "                    fixed_height = true ;"
                "                    fixed_width = true ;"
                "                }"
                "            }"
                "            :boxed_column"
                "            {"
                "             key = \"Frame3\" ;"
                "             label = \"单选\" ;"
                "                :radio_button"
                "                {"
                "                    key = \"Option1\" ;"
                "                    label = \"Option1\" ;"
                "                    width = 13.35 ;"
                "                    height = 1.275 ;"
                "                    fixed_height = true ;"
                "                    fixed_width = true ;"
                "                }"
                "            }"
                "            :boxed_column"
                "            {"
                "             key = \"Frame4\" ;"
                "             label = \"文本\" ;"
                "                :text"
                "                {"
                "                    key = \"Label1\" ;"
                "                    label = \"Label1\" ;"
                "                    width = 12.15 ;"
                "                    height = 1.275 ;"
                "                    fixed_height = true ;"
                "                    fixed_width = true ;"
                "                }"
                "            }"
                "            :boxed_column"
                "            {"
                "             key = \"Frame5\" ;"
                "             label = \"输入\" ;"
                "                :edit_box"
                "                {"
                "                    key = \"Text1\" ;"
                "                    width = 14.55 ;"
                "                    height = 0.675 ;"
                "                    fixed_height = true ;"
                "                    fixed_width = true ;"
                "                }"
                "            }"
                "        }"
                "        :row"
                "        {"
                "            :boxed_column"
                "            {"
                "             key = \"Frame6\" ;"
                "             label = \"单选列表\" ;"
                "                :list_box"
                "                {"
                "                    key = \"List1\" ;"
                "                    width = 15.75 ;"
                "                    height = 8.4 ;"
                "                    fixed_height = true ;"
                "                    fixed_width = true ;"
                "                }"
                "            }"
                "            :boxed_column"
                "            {"
                "             key = \"Frame12\" ;"
                "             label = \"复选列表\" ;"
                "                :list_box"
                "                {"
                "                    key = \"List3\" ;"
                "                    width = 15.75 ;"
                "                    height = 8.4 ;"
                "                    fixed_height = true ;"
                "                    fixed_width = true ;"
                "                    multiple_select = true ;"
                "                }"
                "            }"
                "            :column"
                "            {"
                "                :boxed_column"
                "                {"
                "                 key = \"Frame7\" ;"
                "                 label = \"下拉列表\" ;"
                "                    :popup_list"
                "                    {"
                "                        key = \"Combo1\" ;"
                "                        width = 22.95 ;"
                "                        height = 1.5 ;"
                "                        fixed_height = true ;"
                "                        fixed_width = true ;"
                "                    }"
                "                }"
                "                :boxed_column"
                "                {"
                "                 key = \"Frame8\" ;"
                "                 label = \"水平滑块\" ;"
                "                    :slider"
                "                    {"
                "                        key = \"HScroll1\" ;"
                "                        width = 22.95 ;"
                "                        height = 1.275 ;"
                "                        fixed_height = true ;"
                "                        fixed_width = true ;"
                "                        layout = horizontal ;"
                "                    }"
                "                }"
                "                :row"
                "                {"
                "                    :button"
                "                    {"
                "                        key = \"accept\" ;"
                "                        label = \"OK\" ;"
                "                        width = 12.15 ;"
                "                        height = 1.875 ;"
                "                        fixed_height = true ;"
                "                        fixed_width = true ;"
                "                        is_default = true ;"
                "                    }"
                "                    :button"
                "                    {"
                "                        key = \"cancel\" ;"
                "                        label = \"Cancel\" ;"
                "                        width = 12.15 ;"
                "                        height = 1.875 ;"
                "                        fixed_height = true ;"
                "                        fixed_width = true ;"
                "                        is_cancel = true ;"
                "                    }"
                "                }"
                "            }"
                "            :boxed_column"
                "            {"
                "             key = \"Frame9\" ;"
                "             label = \"垂\" ;"
                "                :slider"
                "                {"
                "                    key = \"VScroll1\" ;"
                "                    width = 2.55 ;"
                "                    height = 7.875 ;"
                "                    fixed_height = true ;"
                "                    fixed_width = true ;"
                "                    layout = vertical ;"
                "                }"
                "            }"
                "            :boxed_column"
                "            {"
                "             key = \"Frame10\" ;"
                "             label = \"图像按钮\" ;"
                "                :image_button"
                "                {"
                "                    key = \"Picture1\" ;"
                "                    width = 12.15 ;"
                "                    height = 7.875 ;"
                "                    fixed_height = true ;"
                "                    fixed_width = true ;"
                "                }"
                "            }"
                "            :boxed_column"
                "            {"
                "             key = \"Frame11\" ;"
                "             label = \"图像\" ;"
                "                :image"
                "                {"
                "                    key = \"Image1\" ;"
                "                    width = 12.15 ;"
                "                    height = 7.875 ;"
                "                    fixed_height = true ;"
                "                    fixed_width = true ;"
                "                }"
                "            }"
                "        }"
                "    }"
                "}"
                )
        (write-line str file))
        (close file)
        Dcl_File
)

awaitt_y

不是很懂，慢慢研究

JQKA

很不错，仔细学习

johnjojo

我来学习一下

温柔女神

老大,能不能说明一下步骤呢?
谢谢

lgwlgw

学习中，先留个记号先，等楼主上来

jyzas

楼主，程序最好做成附件上传会好点

zteykmgscqh

收集相关资料，准备学习一下

14702470

:):):)谢谢，收藏了

ymfqjwl

谢谢楼主分享！！！

lhtfhc

支持楼主的想法

bikeboy

这是拿什么做？

春风拂笑人脸

学习中，先留个记号

kingzyg

程序学习，有操作教程吗