如何在DCL文件中的下拉框中显示指定文本文件的内容?

maoyangmy

如何在DCL文件中的下拉框中显示指定文本文件的内容?
即在一文本文件中列出:
中国
$ U- H* }- k2 j  p  h( J英国
美国
9 \* J+ Y- N( Y- E3 l8 ~- E在DCL的下拉框中显示这几个选项, 如果文本文件修改了,比如增加"日本",则在下拉框中的选项也相应增加?
5 W# ?$ y+ t8 O; _& h8 J6 E$ K3 G如何实现这样的功能???

sealive_leafage

如果只是想在当前CAD中实现，比较简单将增加的项存在列表的变量中即可；如果想CAD关闭后再次打开还可用，就要把列表内的项存在文件中，如txt文件，程序启动时读取txt的列表项，然后加入，新增要写txt文件；

maoyangmy

二楼的能不能提供一下实例?随便编写一段LSP程序?

cd028asdf028

楼主又发贴了，但无人接招。建议各位高手对求助类的帖子经常关注，直到解决为止，也不枉我等菜鸟的一片期待啊，谢谢

ljm68

本人编了一段AutoCAD Lisp程序，已供作个参考借鉴。
1.首先，如何将文本文件中的词条读入程序中？
4 _$ ]! J# A2 L5 s: r$ s    假定pop.txt文本文件的路径为：e:\ck
( N  C5 k. n# E7 E0 {% j   且pop.txt文本文件的内容为：
' ]* a0 w8 o( {  x& ?' k) h中国
- @, q" _  W7 x4 e4 a" b6 e3 k英国
美国
4 {. M) o! p; |
" F1 y( E( {% U$ }* o! B   在主程序中编写如下代码，就能完成将pop.txt中的词条读入变量txti中。  

) |/ z3 ^5 G7 X   ;;读取文件中的词条
   (setq pf "e:\\ck\\pop.txt")
   (setq f (open pf "r"))
   (setq txti (read-line f))
  k6 b1 ^% p9 P   (while (/= txti nil)
7 u9 I. ^3 ^; N      (progn
          (setq txt (append txt (list txti)))
6 n6 o/ i) E0 N! e          (setq txti (read-line f))
7 I2 S. G- M$ ?# o( t6 Z1 E  h      )
    );end of while
7 B$ n) d% g% Z    (close f)

2. 如何将获得的词条加入对话框的弹出列表中？
   创建对话框文件pop.dcl如下：
   pop:dialog{
          label="弹出列表应用";
0 S& E' Q1 l/ m6 u, }         :row{
% @1 \; X% [1 ]2 K4 V              :popup_list{
                         key="pop_i";
                         width=20;
  Q- K4 Y9 I+ m4 j) O, \                         }
+ b6 ^* c& l+ Y( J2 {- g* F% D+ y             }
         spacer;
' Y2 U+ ^' K, K- ?         ok_cancel;
7 ^2 z1 j* I- G- T   }
; m, _* ?6 Y2 P
, ]) J' \( `' Y5 S   编写加入对话框弹出列表子函数popup_box 如下：  
. P* k, d6 F* a  (defun popup_box (list_name list_tab)   
      (stare_list list_name)
/ y, T' K& z1 e" I3 f      (mapcar 'add_list list_tab)
      (end_list)
   )
$ P; Q6 f2 v8 D9 W1 P/ Z
& i9 i' r" D- |0 W9 p5 _0 Y0 w  在主程序中编写如下代码运行对话框：
   ;;运行对话框
   (while (< 2 what_n)
; w8 i! @% {7 I; q0 U) O5 t      (popup_box "pop_i" txt)   ;加入对话框弹出列表
- f6 R9 l+ r8 Y6 l      (action_tile "cancel" "(done_dialog 0)")
$ A; G! \* B, i  y* ~& t      (action_tile "pop_i" "(get_zhi $value)")
& G. J$ |! j! c7 \- u      (setq what_n (start_dialog))
0 m& x# r/ Z$ }- W6 Q' s      (cond ((= 1 what_n) (do txt_zhi)))
    );end of while
) c: p6 |( G6 k3 O, _& L    (unload_dialog dcl_id)

  至此，编程大功告成了。
( @# p3 F- Y0 I" T# m
[ 本帖最后由 ljm68 于 2008-11-29 22:13 编辑 ]

ljm68

更正一个错误，更正如下：
6 H6 C( Q' ~- \# W5 o( W0 F
  编写加入对话框弹出列表子函数popup_box 如下：  
  (defun popup_box (list_name list_tab)   
      (start_list list_name)                      ;更正的一句
6 _1 n* B8 l4 d3 s      (mapcar 'add_list list_tab)
; ]3 e% o7 Y% c7 {" Y      (end_list)
7 M3 N' N7 |- n3 x: X. N* K   )

ysryc99001

很好！试验一下，谢谢！