1. (defun c:tt();此部分是测试代码用
    2.     (紧凑列表_load)
    3. )
    5. (defun 紧凑列表_load( / dcl_id Dialog_Return key keys Dcl_File)
    6.     (vl-load-com)
    7.     (setq dcl_id (load_dialog (setq Dcl_File (Write_Dcl_紧凑列表))));对话框加载
    8.     (vl-file-delete Dcl_File);加载后删除DCL文件
    9.     (setq Dialog_Return 2)
    10.     (while (> Dialog_Return 1) ;循环控制对话框是否结束
    11.         (new_dialog "紧凑列表" dcl_id);建立窗体
    12. ;-->-->-对话框初始化->-->--
    13.         (setq keys '("Option1" "Option2" "Option3" "Option4" "Option5" "Option6" "accept" "cancel"));列表全部控件名称
    14.         (foreach key keys;全部控件的初始化
    15.             (if (eval (read (strcat key "_bak"))) (set_tile key (eval (read (strcat key "_bak")))));控件内容
    16.             (action_tile key "(Action_紧凑列表_Keys $key $value)");点击动作
    17.         )
    18. ;--<--<-对话框初始化完成-<--<--
    19.         (setq Dialog_Return (start_dialog));开启对话框(用户可见)
    20.     )
    21.     (unload_dialog dcl_id);退出时卸载对话框
    22.     (princ);防止函数回显
    23. )
    25. (defun Action_紧凑列表_Keys (key value) ;全部控件的点击动作触发
    26.     (cond
    27.         ((= key "accept") ;{确认按钮}
    29.             (Get_紧凑列表_Data)
    30.             (done_dialog 1);对话框退出返回主函数 传递给Dialog_Return值为1
    31.         )
    32.         ((= key "cancel") ;{取消按钮}
    34.             (done_dialog 0);对话框退出返回主函数 传递给Dialog_Return值为0
    35.         )
    36.         ((= key "Option1") ; {"Option1"} (单选按钮)
    37.             ()
    38.         )
    39.         ((= key "Option2") ; {"Option2"} (单选按钮)
    40.             ()
    41.         )
    42.         ((= key "Option3") ; {"Option3"} (单选按钮)
    43.             ()
    44.         )
    45.         ((= key "Option4") ; {"Option4"} (单选按钮)
    46.             ()
    47.         )
    48.         ((= key "Option5") ; {"Option5"} (单选按钮)
    49.             ()
    50.         )
    51.         ((= key "Option6") ; {"Option6"} (单选按钮)
    52.             ()
    53.         )
    54.     )
    55. )
    56. (defun Get_紧凑列表_Data( / key);临时生成Dcl文件 返回文件名
    57.     (foreach key keys
    58.         (set (read (strcat key "_bak")) (get_tile key));每个控件都赋给一个变量 用于下次开启初始化
    59.     )
    60. )
    61. (defun Write_Dcl_紧凑列表( / Dcl_File file str)
    62.     (setq Dcl_File (vl-filename-mktemp nil nil ".Dcl"))
    63.     (setq file (open Dcl_File "w"))
    64.     (foreach str '(
    65.         "buttonNoN:button{width=10;horizontal_margin=none;vertical_margin=none;}"
    66.         "image_buttonNoN:image_button{fixed_width=true;fixed_height=true;horizontal_margin=none;vertical_margin=none;color = -2;width = 5;aspect_ratio = 1;}"
    67.         "imageNoN:image{fixed_width=true;fixed_height=true;horizontal_margin=none;vertical_margin=none;color = -15;width = 5.5;aspect_ratio = 1;}"
    68.         "textNoN:text{horizontal_margin=none;vertical_margin=none;}"
    69.         "edit_boxNoN:edit_box{horizontal_margin=none;vertical_margin=none;}"
    70.         "radio_buttonNoN:radio_button{horizontal_margin=none;vertical_margin=none;}"
    71.         "toggleNoN:toggle{horizontal_margin=none;vertical_margin=none;}"
    72.         "sliderNoN:slider{horizontal_margin=none;vertical_margin=none;}"
    73.         "rowNoN:row{horizontal_margin=none;vertical_margin=none;}"
    74.         "columnNoN:column{horizontal_margin=none;vertical_margin=none;}"
    75.         "boxed_columnNoN:boxed_column{horizontal_margin=none;vertical_margin=none;}"
    76.         "紧凑列表:dialog"
    77.         "{"
    78.         " label = \"Form1\";"
    79.         "    :boxed_column"
    80.         "    {"
    81.         "     label = \"Frame1\" ;"
    82.         "        :radio_buttonNoN"
    83.         "        {"
    84.         "            key = \"Option1\" ;"
    85.         "            label = \"Option1\" ;"
    86.         "            width = 12.15 ;"
    87.         "            height = 1.275 ;"
    88.         "        }"
    89.         "        :radio_buttonNoN"
    90.         "        {"
    91.         "            key = \"Option2\" ;"
    92.         "            label = \"Option2\" ;"
    93.         "            width = 13.35 ;"
    94.         "            height = 1.275 ;"
    95.         "        }"
    96.         "        :radio_buttonNoN"
    97.         "        {"
    98.         "            key = \"Option3\" ;"
    99.         "            label = \"Option3\" ;"
    100.         "            width = 13.35 ;"
    101.         "            height = 1.275 ;"
    102.         "        }"
    103.         "        :radio_buttonNoN"
    104.         "        {"
    105.         "            key = \"Option4\" ;"
    106.         "            label = \"Option4\" ;"
    107.         "            width = 12.15 ;"
    108.         "            height = 1.275 ;"
    109.         "        }"
    110.         "        :radio_buttonNoN"
    111.         "        {"
    112.         "            key = \"Option5\" ;"
    113.         "            label = \"Option5\" ;"
    114.         "            width = 12.15 ;"
    115.         "            height = 1.275 ;"
    116.         "        }"
    117.         "        :radio_buttonNoN"
    118.         "        {"
    119.         "            key = \"Option6\" ;"
    120.         "            label = \"Option6\" ;"
    121.         "            width = 13.35 ;"
    122.         "            height = 1.275 ;"
    123.         "        }"
    124.         "    }"
    125.         "ok_cancel ;"
    126.         "}"
    127.         )
    128.         (write-line str file)
    129.     )
    130.     (close file)
    131.     Dcl_File
    132. )
    133. ;|
    134. /*   自动备份FRM文件内容
    135. VERSION 5.00
    136. Begin VB.Form 紧凑列表 
    137.    Caption         =   "Form1"
    138.    ClientHeight    =   3195
    139.    ClientLeft      =   60
    140.    ClientTop       =   345
    141.    ClientWidth     =   4680
    142.    LinkTopic       =   "Form1"
    143.    ScaleHeight     =   3195
    144.    ScaleWidth      =   4680
    145.    StartUpPosition =   3  '窗口缺省
    146.    Begin VB.Frame Frame1 
    147.       Caption         =   "Frame1"
    148.       Height          =   2415
    149.       Left            =   240
    150.       TabIndex        =   0
    151.       Top             =   120
    152.       Width           =   1335
    153.       Begin VB.OptionButton Option6 
    154.          Caption         =   "Option6"
    155.          Height          =   255
    156.          Left            =   120
    157.          TabIndex        =   6
    158.          Top             =   2040
    159.          Width           =   1335
    160.       End
    161.       Begin VB.OptionButton Option5 
    162.          Caption         =   "Option5"
    163.          Height          =   255
    164.          Left            =   120
    165.          TabIndex        =   5
    166.          Top             =   1680
    167.          Width           =   1215
    168.       End
    169.       Begin VB.OptionButton Option4 
    170.          Caption         =   "Option4"
    171.          Height          =   255
    172.          Left            =   120
    173.          TabIndex        =   4
    174.          Top             =   1320
    175.          Width           =   1215
    176.       End
    177.       Begin VB.OptionButton Option3 
    178.          Caption         =   "Option3"
    179.          Height          =   255
    180.          Left            =   120
    181.          TabIndex        =   3
    182.          Top             =   960
    183.          Width           =   1335
    184.       End
    185.       Begin VB.OptionButton Option2 
    186.          Caption         =   "Option2"
    187.          Height          =   255
    188.          Left            =   120
    189.          TabIndex        =   2
    190.          Top             =   600
    191.          Width           =   1335
    192.       End
    193.       Begin VB.OptionButton Option1 
    194.          Caption         =   "Option1"
    195.          Height          =   255
    196.          Left            =   120
    197.          TabIndex        =   1
    198.          Top             =   240
    199.          Width           =   1215
    200.       End
    201.    End
    202. End
    203. Attribute VB_Name = "紧凑列表"
    204. Attribute VB_GlobalNameSpace = False
    205. Attribute VB_Creatable = False
    206. Attribute VB_PredeclaredId = True
    207. Attribute VB_Exposed = False
    208. */
    209. |;