在程序中對于對話框是很麻煩的事情.
如果全部用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 "}")

 [FONT=courier new]
例子1:

(setq initlist
 (list
   (list nil "" ": boxed_row{")
   (list "filedir" "工程路徑" "str")
   (list nil ">" "button" "(select-dir)")
   (list nil nil "}")
   (list "is_for_plt" "生成用于配筋計算書(否則為打印用計算書)" "bool")
   
   (list nil "" ": boxed_column{")
   ;(list nil "" ": boxed_row{")
   (list "is_wpj" "wpj*.dwg" "bool")
   (list "block_pre_name" "塊名加前綴" "str")
   (list "is_on_one_point" "是否插入同一點" "bool")
   ;(list nil nil "}")
   (list "floor-str" "層號范圍(空格分開,全部留空)" "str")
    (list nil nil "}")
   (list "is_bpj" "*板計算結果*.dwg" "bool")
   (list "is_flr" "FLR*.dwg" "bool")
   (list "is_load" "第??層梁、墻柱節點輸入及樓面荷載平面圖.DWG" "bool")
   (list "is_jccad" "*wdcnl*.dwg" "bool")
   (list nil "" ": boxed_column{")
   (list "is_other" "插入其他DWG文件" "bool")
   (list "other-str" "通配符" "str")
   (list "other-scale" "放大倍數" "int")
   (list nil nil "}")
   )
 )
 
(init initlist)

;;例子2
(defun c:tt()
 (setq INITLIST (list
       (list "is_save_windows_rt" "rt時是否保存窗口" "bool")
       (list "change_color_rt" "rt時改變顏色" "bool")
       (list "is_princ_tip_rt" "是否打開提示" "bool")
       (list "replacs_char" "輸入替代字符" "str")
     ))
 (init initlist "dlg")
 )
 [/FONT]