用get_tile函数获得的下拉列表框的值是什么？字符串？还是数值？

chenlight

2. dia7c:dialog{
   
3. label="下拉选单的词库范例";
   
4. :list_box{
   
5. label="常用词库选单";
   
6. key="klist";
   
7. width=30;
   
8. height=10;
   
9. fixed_width_font=true;
   
10. }
    
11. :edit_box{label="词库";key="wordstr";}
    
12. :row{
    
13. fixed_width=true;
    
14. alignment=centered;
    
15. :edit_box{label="字高";key="txthh";edit_width=4;}
    
16. :popup_list{        //下拉选单1
    
17. key="pophh";
    
18. edit_width=4;
    
19. }
    
20. :edit_box{label="角度";key="txtang";edit_width=4;}
    
21. :popup_list{        //下拉选单2
    
22. key="popang";
    
23. edit_width=4;
    
24. }
    
25. }
    
26. spacer_1;
    
27. ok_cancel;
    
28. }

dia7c:dialog{<br /> label="下拉选单的词库范例";<br /> :list_box{<br /> label="常用词库选单";<br /> key="klist";<br /> width=30;<br /> height=10;<br /> fixed_width_font=true;<br /> }<br /> :edit_box{label="词库";key="wordstr";}<br /> :row{<br /> fixed_width=true;<br /> alignment=centered;<br /> :edit_box{label="字高";key="txthh";edit_width=4;}<br /> :popup_list{        //下拉选单1<br /> key="pophh";<br /> edit_width=4;<br /> }<br /> :edit_box{label="角度";key="txtang";edit_width=4;}<br /> :popup_list{        //下拉选单2<br /> key="popang";<br /> edit_width=4;<br /> }<br /> }<br /> spacer_1;<br /> ok_cancel;<br /> }

2. (defun c:dia7c()
   
3.    (setvar "cmdecho" 0)
   
4.    (setq word_list'("平面图" "立面图"  "总经理室" "楼梯间"
   
5.                     "弹簧"   "螺丝"    "传真机" "翔虹信息"
   
6.                     "翔虹AutoCAD技术中心"
   
7.                     "AutoCAD 2000特训教材"
   
8.                     "道路" "桥梁" "捷运系统" "高速铁路" "规格表"))
   
9.    (setq pophh_list '("5" "10" "20" "30" "40" "50"))
   
10.    (setq popang_list '("0" "30" "45" "60" "75" "90" "-30" "-45" "-60"))
    
11.    (chk_style)
    
12.    (dcl_dia7c)
    
13.    (prin1)
    
14. )
    
15. (defun dcl_dia7c()
    
16.    (setq dcl_id (load_dialog "dia7c"))
    
17.    (new_dialog "dia7c" dcl_id)
    
18.    (show_list "klist" word_list)
    
19.    (show_list "pophh" pophh_list)
    
20.    (show_list "popang" popang_list)
    
21.    (set_tile "klist" "8")
    
22.    (sub_klist1 "8")
    
23.    (set_tile "txthh" "10")
    
24.    (set_tile "txtang" "0")
    
25.    (action_tile "klist" "(sub_klist1 $value)")
    
26.    (action_tile "pophh" "(sub_pophh $value)")
    
27.    (action_tile "popang" "(sub_popang $value)")
    
28.    (action_tile "accept" "(ok_dia7c)(done_dialog 1)")
    
29.    (setq dd(start_dialog))
    
30.    (if (= dd 1)
    
31.        (progn
    
32.            (setq inspt (getpoint "文字写入点:"))
    
33.            (command "text" inspt txthh txtang wordstr)
    
34.        )
    
35.    )
    
36. )
    
37. (defun show_list(key newlist)
    
38.    (start_list key)
    
39.    (mapcar 'add_list newlist)
    
40.    (end_list)
    
41. )
    
42. (defun sub_klist1(vvs)
    
43.    (setq oldstr(get_tile "wordstr"))
    
44.    (setq newstr(nth (atoi vvs) word_list))
    
45.    (set_tile "wordstr" (strcat oldstr newstr))
    
46. )
    
47. (defun sub_pophh(vvs)
    
48.    (set_tile "txthh" (nth (atoi vvs) pophh_list))
    
49. )
    
50. (defun sub_popang(vvs)
    
51.    (set_tile "txtang" (nth (atoi vvs) popang_list))
    
52. )
    
53. (defun ok_dia7c()
    
54.    (setq wordstr(strcase (get_tile "wordstr")))
    
55.    (setq txthh  (get_tile "txthh"))
    
56.    (setq txtang (get_tile "txtang"))
    
57. )
    
58. (defun chk_style();检查字型
    
59.      (setq chksty(tblsearch "style" "kk"))
    
60.      (if (null chksty)
    
61.                (command "_style" "kk" "细明体" "" "" "" "" "" )
    
62.      )
    
63.      (setq chklay(tblsearch "layer" "txt"))
    
64.      (if (null chklay)
    
65.                (command "_layer" "m" "txt" "c" "3" "txt" "")
    
66.      )
    
67.      (setvar "clayer" "txt")
    
68.      (setvar "textstyle" "kk")
    
69. )
    

(defun c:dia7c()<br />    (setvar "cmdecho" 0)<br />    (setq word_list'("平面图" "立面图"  "总经理室" "楼梯间"<br />                     "弹簧"   "螺丝"    "传真机" "翔虹信息"<br />                     "翔虹<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>技术中心"<br />                     "AutoCAD 2000特训教材"<br />                     "道路" "桥梁" "捷运系统" "高速铁路" "规格表"))<br />    (setq pophh_list '("5" "10" "20" "30" "40" "50"))<br />    (setq popang_list '("0" "30" "45" "60" "75" "90" "-30" "-45" "-60"))<br />    (chk_style)<br />    (dcl_dia7c)<br />    (prin1)<br /> )<br /> (defun dcl_dia7c()<br />    (setq dcl_id (load_dialog "dia7c"))<br />    (new_dialog "dia7c" dcl_id)<br />    (show_list "klist" word_list)<br />    (show_list "pophh" pophh_list)<br />    (show_list "popang" popang_list)<br />    (set_tile "klist" "8")<br />    (sub_klist1 "8")<br />    (set_tile "txthh" "10")<br />    (set_tile "txtang" "0")<br />    (action_tile "klist" "(sub_klist1 $value)")<br />    (action_tile "pophh" "(sub_pophh $value)")<br />    (action_tile "popang" "(sub_popang $value)")<br />    (action_tile "accept" "(ok_dia7c)(done_dialog 1)")<br />    (setq dd(start_dialog))<br />    (if (= dd 1)<br />        (progn<br />            (setq inspt (getpoint "文字写入点:"))<br />            (command "text" inspt txthh txtang wordstr)<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 sub_pophh(vvs)<br />    (set_tile "txthh" (nth (atoi vvs) pophh_list))<br /> )<br /> (defun sub_popang(vvs)<br />    (set_tile "txtang" (nth (atoi vvs) popang_list))<br /> )<br /> (defun ok_dia7c()<br />    (setq wordstr(strcase (get_tile "wordstr")))<br />    (setq txthh  (get_tile "txthh"))<br />    (setq txtang (get_tile "txtang"))<br /> )<br /> (defun chk_style();检查字型<br />      (setq chksty(tblsearch "style" "kk"))<br />      (if (null chksty)<br />                (command "_style" "kk" "细明体" "" "" "" "" "" )<br />      )<br />      (setq chklay(tblsearch "layer" "txt"))<br />      (if (null chklay)<br />                (command "_layer" "m" "txt" "c" "3" "txt" "")<br />      )<br />      (setvar "clayer" "txt")<br />      (setvar "textstyle" "kk")<br /> )<br />

问题如下：
红色区域中，用get_tile函数获得的下拉列表框的值是字符串型，也就是txthh和txtang都是字符串类型，在绿色区域中对应的应该是整数或实数型（比如8或8.5之类）才对吧。我加载后发现上面的代码也可以运行无误，不知道是为什么？想来想去不明白！

还有个问题，上传的程序加载不一样能运行，因为我的电脑没有细明体这个字体，而且变成宋体也加载不成功，只能加载如：txt.shx,times.shx之类的字体，加载能成功，但是文字是乱码！

chenlight

因不太会使用着色，现截图出来，以下是红色区域的内容
以下是绿色区域的内容

wjl1014

得到的是字符格式

jyzas

程序列表字库在文本框显示，要是能清空再显示会好点，还有下拉列表直接能输入数字会方便很多

不语勿语

学习了。。。。。