（列表框设计）练习出错，帮忙看下哪里出错了

mmh1

(defun c:dia7b()
  (setvar "cmdecho" 0)
  (setq word_list '("平面图" "立体图" "总经理室" "楼梯阁" "弹簧" "传真机" "教育中心" "规格表"))
  (chk_style)
  (dcl_dia7b)
  (prin1)
  )
(defun dcl_dia7b()
  (setq dcl_id (load_dialog "dia7b"))
  (new_dialog "dia7b" dcl_id)
  (show_list "klist" word_list)
  (set_tile "klist" "4")
  (sub_klist1 "1")
  (action_tile "klist" "(sub_klist1 $value)")
  (action_tile "accept" "(ok_dia7b)(done_dialog 1)")
  (setq dd (start_dialog))
  (if (= dd 1)
    (progn
      (setvar "cmdecho" 1)
      (command "text" pause pause 0 wordstr)
      (setvar "cmdecho" 0)
      )
    )
  )
(defun show_list(key newlist)
  (start_list key)
  (mapcar 'add_list newlist)
  (end_list)
  )
(defun sub_klist1(vvs)
  (setq oldstr (get_tile "wordstr"));没有数据
  (setq newstr (nth (atoi vvs) word_list))
  (set_tile "wordstr" (strcat (oldstr newstr)));提示这里出错
  )
(defun ok_dia7b()
  (setq wordstr(strcase (get_tile "wordstr")))
  )
(defun chk_style()
  (setq chksty (tblsearch "style" "kk"))
  (if (null chksty)
    (command "_style" "kk" "黑体" "" "" "" "" "" )
    )
  (if (null chklay)
    (command "_layer" "m" "txt" "c" "3" "txt" "")
    )
  (setvar "clayer" "txt")
  (setvar "textstyle" "kk")
  )
对话框文件：
dia7b:dialog{
label="列表框的专家词库范例";
:list_box{
  label="常用词库选单";
  key="klist";
  width=30;
  height=10;
}
:edit_box{
  label="词库";
  key="wordstr";
  }
  spacer_1;
  ok_cancel;
}


该贴已经同步到 mmh1的微博

mmh1

(set_tile "wordstr" (strcat (oldstr newstr)));此处多了个括号
(set_tile "wordstr" (strcat oldstr newstr))

chg

(defun sub_klist1(vvs)
  (setq oldstr (get_tile "wordstr"));没有数据
  (setq newstr (nth (atoi vvs) word_list))
  (if (null oldstr) (setq oldstr ""))
  (set_tile "wordstr" (strcat oldstr newstr));提示这里出错
  )

mmh1

2. (defun c:dia7b()
   
3.   (setvar "cmdecho" 0)
   
4.   (setq word_list '("平面图" "立体图" "总经理室" "楼梯阁" "弹簧" "传真机" "教育中心" "规格表"))
   
5.   (chk_style)
   
6.   (dcl_dia7b)
   
7.   (prompt "<<dia7b>>框设计......连续选")
   
8.   )
   
9. (defun dcl_dia7b()
   
10.   (setq dcl_id (load_dialog "dia7b"))
    
11.   (new_dialog "dia7b" dcl_id)
    
12.   (show_list "klist" word_list)
    
13.   (action_tile "klist" "(sub_klist1 $value)")
    
14.   (action_tile "accept" "(ok_dia7b)(done_dialog 1)")
    
15.   (setq dd (start_dialog))
    
16.   (if (= dd 1)
    
17.     (progn
    
18.       (setvar "cmdecho" 1)
    
19.       (command "text" pause pause 0 wordstr)
    
20.       (setvar "cmdecho" 0)
    
21.       )
    
22.     )
    
23.   )
    
24. (defun show_list(key newlist)
    
25.   (start_list key)
    
26.   (mapcar 'add_list newlist)
    
27.   (end_list)
    
28.   )
    
29. (defun sub_klist1(vvs)
    
30.   (setq oldstr (get_tile "wordstr"))
    
31.   (setq newstr (nth (atoi vvs) word_list))
    
32.   (set_tile "wordstr" (strcat oldstr newstr))
    
33.   )
    
34. (defun ok_dia7b()
    
35.   (setq wordstr(strcase (get_tile "wordstr")))
    
36.   )
    
37. (defun chk_style()
    
38.   (setq chksty (tblsearch "style" "kk"))
    
39.   (if (null chksty)
    
40.     (command "_style" "kk" "黑体" "" "" "" "" "" "")
    
41.     )
    
42.   (if (null chklay)
    
43.     (command "_layer" "m" "txt" "c" "3" "txt" "")
    
44.     )
    
45.   (setvar "clayer" "txt")
    
46.   (setvar "textstyle" "kk")
    
47.   )

(defun c:dia7b()<br />   (setvar "cmdecho" 0)<br />   (setq word_list '("平面图" "立体图" "总经理室" "楼梯阁" "弹簧" "传真机" "教育中心" "规格表"))<br />   (chk_style)<br />   (dcl_dia7b)<br />   (prompt "<<dia7b>>框设计......连续选")<br />   )<br /> (defun dcl_dia7b()<br />   (setq dcl_id (load_dialog "dia7b"))<br />   (new_dialog "dia7b" dcl_id)<br />   (show_list "klist" word_list)<br />   (action_tile "klist" "(sub_klist1 $value)")<br />   (action_tile "accept" "(ok_dia7b)(done_dialog 1)")<br />   (setq dd (start_dialog))<br />   (if (= dd 1)<br />     (progn<br />       (setvar "cmdecho" 1)<br />       (command "text" pause pause 0 wordstr)<br />       (setvar "cmdecho" 0)<br />       )<br />     )<br />   )<br /> (defun show_list(key newlist)<br />   (start_list key)<br />   (mapcar 'add_list newlist)<br />   (end_list)<br />   )<br /> (defun sub_klist1(vvs)<br />   (setq oldstr (get_tile "wordstr"))<br />   (setq newstr (nth (atoi vvs) word_list))<br />   (set_tile "wordstr" (strcat oldstr newstr))<br />   )<br /> (defun ok_dia7b()<br />   (setq wordstr(strcase (get_tile "wordstr")))<br />   )<br /> (defun chk_style()<br />   (setq chksty (tblsearch "style" "kk"))<br />   (if (null chksty)<br />     (command "_style" "kk" "黑体" "" "" "" "" "" "")<br />     )<br />   (if (null chklay)<br />     (command "_layer" "m" "txt" "c" "3" "txt" "")<br />     )<br />   (setvar "clayer" "txt")<br />   (setvar "textstyle" "kk")<br />   )

找到答案了，这样就可以了