在程序中對(duì)于對(duì)話框是很麻煩的事情.
如果全部用LISP來(lái)寫(xiě)對(duì)話框就方便了.
以下就是個(gè)例子.

每一行就是一個(gè)控件
(list 變量名 提示語(yǔ) 變量類型)
例1:
(list "is_wpj" "wpj*.dwg" "bool")
例2:
(list "other-scale" "放大倍數(shù)" "int")

當(dāng)變量名為nil 時(shí)表示一個(gè)對(duì)話框控制字符(這個(gè)要了解相關(guān)語(yǔ)法 )
例1: 注,下面的要成對(duì)出現(xiàn),而且然后把其他的東西(編輯框等)放在里面
(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" "生成用于配筋計(jì)算書(shū)(否則為打印用計(jì)算書(shū))" "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" "是否插入同一點(diǎn)" "bool")
   ;(list nil nil "}")
   (list "floor-str" "層號(hào)范圍(空格分開(kāi),全部留空)" "str")
    (list nil nil "}")
   (list "is_bpj" "*板計(jì)算結(jié)果*.dwg" "bool")
   (list "is_flr" "FLR*.dwg" "bool")
   (list "is_load" "第??層梁、墻柱節(jié)點(diǎn)輸入及樓面荷載平面圖.DWG" "bool")
   (list "is_jccad" "*wdcnl*.dwg" "bool")
   (list nil "" ": boxed_column{")
   (list "is_other" "插入其他DWG文件" "bool")
   (list "other-str" "通配符" "str")
   (list "other-scale" "放大倍數(shù)" "int")
   (list nil nil "}")
   )
 )
 
(init initlist)

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