1. (defun c:tt ()                           ; 此部分是测试代码用    
    2.   (main_load)    
    3.     (print bl)
    4.     (print zg)
    5.     (print bh)
    6. )
    7. //-------------------------------------
    8. (defun main_load (/ *error* dcl_file dcl_id dialog_return e_h e_v key keys)
    9.   (vl-load-com)
    10.   (setq dcl_id (load_dialog (setq Dcl_File (dclfile_load))))   ; 对话框加载
    11.   (vl-file-delete Dcl_File)                             ; 加载后删除DCL文件
    12.     (setq Dialog_Return 10)
    13.   (while (> Dialog_Return 1)                         ; 循环控制对话框是否结束
    14.         (new_dialog "dcl_bg" dcl_id)       ; 建立窗体
    15.         ; --->--->---对话框初始化--->--->---
    16.         (setq keys '("e_bl" "e_zg" "e_h" "e_v" "e_bh"                                     
    17.                                     "e_x1" "e_y1"
    18.                                     "e_x2" "e_y2" 
    19.                                     "but_s1" "but_s2"                                     
    20.                                     "accept" "cancel"                                     
    21.                                 )
    22.         )                                   ; 列表全部控件名称
    25.         (foreach key keys                   ; 全部控件的初始化
    26.             (cond
    27.                 ((= key "e_bl")                   ; {"图纸比例"} (输入框)
    28.                     (if (eval (read (strcat key "_bak")))
    29.                         (set_tile key (eval (read (strcat key "_bak"))))
    30.                         (set_tile key "20.0")
    31.                     )                               ; 控件内容
    32.                     ()
    33.                 )
    34.                 ((= key "e_zg")                   ; {"字体高度"} (输入框)
    35.                     (if (eval (read (strcat key "_bak")))
    36.                         (set_tile key (eval (read (strcat key "_bak"))))
    37.                         (set_tile key "2.50")
    38.                     )                               ; 控件内容
    39.                     ()
    40.                 )
    41.                 ((= key "e_h")                   ; {"横向"} (单选按钮)
    42.                     (if (eval (read (strcat key "_bak")))
    43.                         (set_tile key (eval (read (strcat key "_bak"))))
    44.                         (set_tile key "1")
    45.                     )                               ; 控件内容
    46.                     (setq e_h (atoi (get_tile "e_h")))
    47.                     (setq e_v (atoi (get_tile "e_v")))
    48.                 )
    49.                 ((= key "e_v")                   ; {"纵向"} (单选按钮)
    50.                     (if (eval (read (strcat key "_bak")))
    51.                         (set_tile key (eval (read (strcat key "_bak"))))
    52.                     )                               ; 控件内容
    53.                     (setq e_h (atoi (get_tile "e_h")))
    54.                     (setq e_v (atoi (get_tile "e_v")))
    55.                 )
    56.                 ((= key "e_bh")                   ; {"起始坐标编号"} (输入框)
    57.                     (if (eval (read (strcat key "_bak")))
    58.                         (set_tile key (eval (read (strcat key "_bak"))))
    59.                         (set_tile key "0")
    60.                     )                               ; 控件内容
    61.                     ()
    62.                 )
    63.                 ((= key "e_x1")                   ; {"X(mm)"} (输入框)
    64.                     (if (eval (read (strcat key "_bak")))
    65.                         (set_tile key (eval (read (strcat key "_bak"))))
    66.                         (set_tile key "0.00")
    67.                     )                               ; 控件内容
    68.                     ()
    69.                 )
    70.                 ((= key "e_y1")                   ; {"Y(mm)"} (输入框)
    71.                     (if (eval (read (strcat key "_bak")))
    72.                         (set_tile key (eval (read (strcat key "_bak"))))
    73.                         (set_tile key "0.00")
    74.                     )                               ; 控件内容
    75.                     ()
    76.                 )
    77.                 ((= key "e_x2")                   ; {"X(mm)"} (输入框)
    78.                     (if (eval (read (strcat key "_bak")))
    79.                         (set_tile key (eval (read (strcat key "_bak"))))
    80.                         (set_tile key "0.00")
    81.                     )                               ; 控件内容
    82.                     ()
    83.                 )
    84.                 ((= key "e_y2")                   ; {"Y(mm)"} (输入框)
    85.                     (if (eval (read (strcat key "_bak")))
    86.                         (set_tile key (eval (read (strcat key "_bak"))))
    87.                         (set_tile key "0.00")
    88.                     )                               ; 控件内容
    89.                     ()
    90.                 )
    91.             )
    92.         )
    93.         (foreach key keys                   ; 全部控件的点击动作触发
    94.             (action_tile key "(Action_Keys $key $value)") ; 点击动作 $reason            
    95.         )                                  
    97.         ; ---<---<---对话框初始化完成---<---<---
    99.         ;====================================    
    102.         (if but_s1 
    103.             (progn 
    104.                 (set_tile "e_x1" (rtos (car but_s1)))
    105.                 (set_tile "e_y1" (rtos (cadr but_s1))                    
    106.                 )
    107.             )            
    108.         )
    110.         (if but_s2             
    111.             (progn 
    112.                 (set_tile "e_x2" (rtos (car but_s2)))
    113.                 (set_tile "e_y2" (rtos (cadr but_s2))                    
    114.                 )
    115.             )
    117.         )
    118.     ;====================================        
    119.         (setq Dialog_Return (start_dialog));开启对话框(用户可见)
    120.     ;====================================        
    121.         (cond
    122.             ((= Dialog_Return 2)(setq but_s1 (getpoint)))
    123.             ((= Dialog_Return 3)(setq but_s2 (getpoint)))
    124.         )
    125.     ;====================================            
    127.   )
    128.   (unload_dialog dcl_id)               ; 退出时卸载对话框
    129.   (cond
    130.         ((= Dialog_Return 1)
    131.             (cond
    132.                 ((= e_h 1)
    133.                     (start "横向")
    134.                 )
    135.                 ((= e_v 1)
    136.                     (start "纵向")
    137.                 )
    138.             );end cond
    139.         );1
    140.         ((= Dialog_Return 0)
    141.             (princ "\n*取消*")
    142.         );0
    143.   );end cond        
    144.   (prin1)                               ; 防止函数回显
    147. )
    148. //-------------------------------------
    152. (defun Action_Keys (key value)       ; 全部控件的点击动作触发
    153.   (cond
    154.         ((= key "accept")                   ; {"确认按钮"}
    155.             (get_data)
    156.             (setq bl (atoi (get_tile "e_bl")))
    157.             (setq zg (atoi (get_tile "e_zg")))
    158.             (setq bh (atoi (get_tile "e_bh")))            
    159.             (done_dialog 1)                   ; 对话框退出返回主函数 传递给Dialog_Return值为1
    160.         )
    161.         ((= key "cancel")                   ; {"取消按钮"}
    162.             (done_dialog 0)                   ; 对话框退出返回主函数 传递给Dialog_Return值为0
    163.         )
    164.         ((= key "help")                       ; {"帮助按钮"}
    165.             ()                               ;
    166.         )
    167.         ((= key "info")                       ; {"信息按钮"}
    168.             ()                               ;
    169.         )
    170.         ((= key "e_bl")                       ; {"图纸比例"} (输入框)            
    171.             ()
    172.         )
    173.         ((= key "e_zg")                       ; {"字体高度"} (输入框)
    174.             ()
    175.         )
    176.         ((= key "e_h")                       ; {"横向"} (单选按钮)
    177.             (setq e_h (atoi (get_tile "e_h")))
    178.             (setq e_v (atoi (get_tile "e_v")))
    179.         )
    180.         ((= key "e_v")                       ; {"纵向"} (单选按钮)
    181.             (setq e_h (atoi (get_tile "e_h")))
    182.             (setq e_v (atoi (get_tile "e_v")))
    183.         )
    184.         ((= key "e_bh")                       ; {"起始坐标编号"} (输入框)
    185.             ()
    186.         )
    187.         ((= key "but_s1")                   ; {"基点坐标<"} (按钮)
    188.             (done_dialog 2)
    189.         )
    190.         ((= key "e_x1")                       ; {"X(mm)"} (输入框)
    191.             ()
    192.         )
    193.         ((= key "e_y1")                       ; {"Y(mm)"} (输入框)
    194.             ()
    195.         )
    196.         ((= key "but_s2")                   ; {"表格左上角<"} (按钮)
    197.             (done_dialog 3)
    198.         )
    199.         ((= key "e_x2")                       ; {"X(mm)"} (输入框)
    200.             ()
    201.         )
    202.         ((= key "e_y2")                       ; {"Y(mm)"} (输入框)
    203.             ()
    204.         )
    205.   )
    206. )
    207. ;;; -------------------------------------
    208. (defun get_data (/ key)           ; 临时生成Dcl文件 返回文件名
    209.   (foreach key keys
    210.         (set (read (strcat key "_bak")) (get_tile key))    ; 每个控件都赋给一个变量 用于下次开启初始化
    213.   )
    214. )
    215. ;;; -------------------------------------
    216. (defun start (num)
    217.   (alert (strcat "你选择的是" num))
    218. )
    219. ;;; -------------------------------------
    222. ;;; ==================DCL文件===================
    223. (defun dclfile_load (/ Dcl_File file )
    224.   (setq Dcl_File (vl-filename-mktemp nil nil ".Dcl"))
    225.   (setq file (open Dcl_File "w"))
    226.     (write-line "
    229. dcl_bg:dialog {
    230.     label = \"【坐标表格】(QQ：)\" ;
    231.     :column {
    232.         width = 15 ;
    233.         :boxed_row {
    234.             label = \"比例和字体\" ;
    235.             :edit_box {
    236.                 key = \"e_bl\" ;
    237.                 label = \"比例\" ;
    238.             }
    239.             :edit_box {
    240.                 key = \"e_zg\" ;
    241.                 label = \"字高\" ;
    242.             }
    243.         }
    245.             :boxed_radio_row {
    246.                 label = \"板式\" ;
    247.                 :radio_button {
    248.                     key = \"e_h\" ;
    249.                     label = \"横向\" ;
    250.                 }
    251.                 :radio_button {
    252.                     key = \"e_v\" ;
    253.                     label = \"纵向\" ;
    254.                 }
    255.             }
    257.         :boxed_column {
    258.             label = \"定位点\" ;
    259.             :row {
    260.                 :boxed_column {
    261.                     label = \"图形\" ;
    262.                     :button {
    263.                         key = \"but_s1\" ;
    264.                         label = \"基 点>\" ;
    265.                     }
    266.                     :edit_box {
    267.                         key = \"e_x1\" ;
    268.                         label = \"X\" ;
    269.                     }
    270.                     :edit_box {
    271.                         key = \"e_y1\" ;
    272.                         label = \"Y\" ;
    273.                     }
    274.                 }
    275.                 :boxed_column {
    276.                     label = \"表格\" ;
    277.                     :button {
    278.                         key = \"but_s2\" ;
    279.                         label = \"左上角 >\" ;
    280.                     }
    281.                     :edit_box {
    282.                         key = \"e_x2\" ;
    283.                         label = \"X\" ;
    284.                     }
    285.                     :edit_box {
    286.                         key = \"e_y2\" ;
    287.                         label = \"Y\" ;
    288.                     }
    289.                 }
    290.             }
    291.             :boxed_row {
    292.                 label = \"编号\" ;
    293.                 :edit_box {
    294.                     key = \"e_qz\" ;
    295.                     label = \"前缀\" ;
    296.                 }
    297.                 :edit_box {
    298.                     key = \"e_bh\" ;
    299.                     label = \"编号\" ;
    300.                 }
    301.             }
    302.         }
    303.     }
    304.     ok_cancel;
    305. }
    307. " file)
    308.   (close file)
    309.   Dcl_File
    310. )